BorlandTalk.com

Michele Santucci · Guest

Someone can tell me why this piece of code don't work?
The problem is in the creation of new areas and their drawing (case
psTracingArea of mpAreaClick method and mpAreaAfterTrackingLayerDraw) in the
psTracingArea block u can se I create an object TArea and insert it in a
TList object then I try to retrieve the inserted object from the list but it
seems to be inconsistent (but I have no runtime errors).

Area.h

//--------------------------------------------------------------------------
-

#ifndef AreaH
#define AreaH
//--------------------------------------------------------------------------
-
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
#include <ActnList.hpp>
#include <ComCtrls.hpp>
#include <Menus.hpp>

#include "MapObjects2_OCX.h"
#include "MapObjects2_TLB.h"

#include "Coordinate.h"
#include "ScosemProfile.h"
#include "AreaProperties.h"

#include <OleCtrls.hpp>
#include <ToolWin.hpp>
//--------------------------------------------------------------------------
-
typedef class Area
{
public:
AnsiString asArea;
IMoRectanglePtr Shape;
ColorConstants ccWatermark;
} TArea;

typedef TArea* TAreaPtr;
//--------------------------------------------------------------------------
-
class TfrmArea : public TForm
{
__published: // IDE-managed Components
TMainMenu *mmArea;
TStatusBar *sbArea;
TMenuItem *miFile;
TMenuItem *miExit;
TCoolBar *cbArea;
TPageControl *pcItems;
TTabSheet *tsItems;
TTreeView *tvItems;
TPageControl *pcMap;
TTabSheet *tsMap;
TMap *mpArea;
TActionList *alAreaActions;
TAction *aNewArea;
TAction *aExit;
TAction *aZoomIn;
TAction *aZoomOut;
TAction *aReset;
TAction *aZoomArea;
TAction *aPan;
TAction *aEditArea;
TPopupMenu *pmMap;
TMenuItem *miArea;
TMenuItem *miNewArea;
TMenuItem *miDeleteArea;
TMenuItem *N4;
TMenuItem *miZoomIn;
TMenuItem *miZoomOut;
TMenuItem *miZoomArea;
TMenuItem *miPan;
TMenuItem *miReset;
TMenuItem *N5;
TMenuItem *miProperties;
void __fastcall aExitExecute(TObject *Sender);
void __fastcall mpAreaMouseMove(TObject *Sender, TShiftState Shift,
int X, int Y);
void __fastcall FormCreate(TObject *Sender);
void __fastcall aNewAreaExecute(TObject *Sender);
void __fastcall mpAreaClick(TObject *Sender);
void __fastcall mpAreaAfterTrackingLayerDraw(TObject *Sender,
OLE_HANDLE hDC);
void __fastcall aZoomInExecute(TObject *Sender);
void __fastcall aZoomOutExecute(TObject *Sender);
void __fastcall aZoomAreaExecute(TObject *Sender);
void __fastcall aResetExecute(TObject *Sender);
void __fastcall aPanExecute(TObject *Sender);
void __fastcall aEditAreaExecute(TObject *Sender);
private: // User declarations
TList* lstAreas;

ProfileStatus psProfileMode;
public: // User declarations
__fastcall TfrmArea(TComponent* Owner);
};
//--------------------------------------------------------------------------
-
extern PACKAGE TfrmArea *frmArea;
//--------------------------------------------------------------------------
-
#endif

Area.cpp

//--------------------------------------------------------------------------
-

#include <vcl.h>
#pragma hdrstop

#include "Area.h"
//--------------------------------------------------------------------------
-
#pragma package(smart_init)
#pragma link "MapObjects2_OCX"
#pragma resource "*.dfm"
TfrmArea *frmArea;
//--------------------------------------------------------------------------
-
__fastcall TfrmArea::TfrmArea(TComponent* Owner)
: TForm(Owner)
{
}
//--------------------------------------------------------------------------
-
void __fastcall TfrmArea::aExitExecute(TObject *Sender)
{
Application->Terminate();
}
//--------------------------------------------------------------------------
-
void __fastcall TfrmArea::mpAreaMouseMove(TObject *Sender,
TShiftState Shift, int X, int Y)
{
IMoPointPtr currentPoint;

AnsiString asLongitude,
asLatitude;

currentPoint = mpArea->ToMapPoint( X,Y );

asLatitude = Coordinate2String( double( currentPoint->X ),
cLatitude );
asLongitude = Coordinate2String( double( currentPoint->Y ),
cLongitude );

sbArea->Panels->Items[0]->Text = LATITUDE + asLatitude;
sbArea->Panels->Items[1]->Text = LONGITUDE + asLongitude;

sbArea->Panels->Items[3]->Text = AnsiString( "Items: " ) +
AnsiString( lstAreas->Count ) + AnsiString( "/" ) + AnsiString(
lstAreas->Capacity ) ;
}
//--------------------------------------------------------------------------
-
void __fastcall TfrmArea::mpAreaClick(TObject *Sender)
{
static bool bProcessEvent = true;

if(!bProcessEvent)
return;

switch(psProfileMode)
{
case psZoomingArea:
mpArea->Extent = mpArea->TrackRectangle();
mpArea->MousePointer = moDefault;

psProfileMode = psIdle;
break;
case psPanningMap:
Application->ProcessMessages();

if( miPan->Checked )
mpArea->Pan();

mpArea->MousePointer = moDefault;

psProfileMode = psIdle;
break;
case psTracingArea:
{
IMoRectanglePtr newRectangle =
mpArea->TrackRectangle();
IMoPointPtr currentPoint;
IMoLinePtr newLeg;

AnsiString asLongitude,
asLatitude,
asTopLatitude,
asTopLongitude,
asBottomLatitude,
asBottomLongitude;

TArea* newArea = new TArea;

if( newArea==NULL )
throw Exception( AnsiString("Cannot create
area object!") );

newArea->Shape = newRectangle;

frmAreaProperties = new TfrmAreaProperties( this,
newArea );

frmAreaProperties->ShowModal();

lstAreas->Add( newArea );

lstAreas->Pack();

mpArea->MousePointer = moDefault;

psProfileMode = psIdle;
}
break;
}
}
//--------------------------------------------------------------------------
-
void __fastcall TfrmArea::aZoomInExecute(TObject *Sender)
{
IMoRectanglePtr zoomRect = mpArea->Extent;

zoomRect->ScaleRectangle( ZOOMIN_FACTOR );
mpArea->Extent = zoomRect;
// psProfileMode = psZoomingIn;
}
//--------------------------------------------------------------------------
-
void __fastcall TfrmArea::aZoomOutExecute(TObject *Sender)
{
IMoRectanglePtr zoomRect=mpArea->Extent;

zoomRect->ScaleRectangle( ZOOMOUT_FACTOR );
mpArea->Extent = zoomRect;
// psProfileMode = psZoomingOut;
}
//--------------------------------------------------------------------------
-
void __fastcall TfrmArea::aResetExecute(TObject *Sender)
{
IMoRectanglePtr fullExt = mpArea->FullExtent;

mpArea->Extent = fullExt;
}
//--------------------------------------------------------------------------
-
void __fastcall TfrmArea::aZoomAreaExecute(TObject *Sender)
{
mpArea->MousePointer = moZoom;
psProfileMode = psZoomingArea;
}
//--------------------------------------------------------------------------
-
void __fastcall TfrmArea::aPanExecute(TObject *Sender)
{
if(!miPan->Checked)
{
miPan->Checked = true;
mpArea->MousePointer = moPanning;
psProfileMode = psPanningMap;
}
else
{
miPan->Checked = false;
mpArea->MousePointer = moDefault;
psProfileMode = psIdle;
}
}
//--------------------------------------------------------------------------
-
void __fastcall TfrmArea::aEditAreaExecute(TObject *Sender)
{
/*
frmAreaProperties = new TfrmAreaProperties(this);
frmAreaProperties->Show();
*/
}
//--------------------------------------------------------------------------
-
void __fastcall TfrmArea::mpAreaAfterTrackingLayerDraw(TObject *Sender,
OLE_HANDLE hDC)
{
TAreaPtr currentArea;
IMoRectanglePtr trackShape;
IMoSymbolPtr trackSymbol = (IDispatch*)CreateOleObject(
"MapObjects2.Symbol" );
IMoTextSymbolPtr trackTextSymbol = (IDispatch*)CreateOleObject(
"MapObjects2.TextSymbol" );
int i;

// Draw Areas
trackSymbol->SymbolType = moFillSymbol;
trackSymbol->Style = moUpwardDiagonalFill;
trackTextSymbol->HorizontalAlignment = moAlignLeft;
trackTextSymbol->VerticalAlignment = moAlignCenter;
trackTextSymbol->Color = moBlack;

for ( i = 0 ; i < ( lstAreas->Count ) ; i++ )
{
currentArea = ( TAreaPtr )lstAreas->Items[i];

trackSymbol->Color = currentArea->ccWatermark;
trackSymbol->OutlineColor = currentArea->ccWatermark;
trackShape = currentArea->Shape;

mpArea->DrawShape( trackShape , trackSymbol );
mpArea->DrawTextA( WideString( currentArea->asArea ),
trackShape, trackTextSymbol );
}
}
//--------------------------------------------------------------------------
-

void __fastcall TfrmArea::FormCreate(TObject *Sender)
{
psProfileMode = psIdle;
lstAreas = new TList;
}
//--------------------------------------------------------------------------
-

void __fastcall TfrmArea::aNewAreaExecute(TObject *Sender)
{
mpArea->MousePointer = moCross;
psProfileMode = psTracingArea;
}
//--------------------------------------------------------------------------

--
Michele Santucci
================================
Software Development Manager
Celin Avio S.r.l.
----------------------------------------------------------------
Via Fontevivo, 21/M 19100 La Spezia
tel. +390187564080
================================

Timothy H. Buchman · Guest

Michele Santucci <michele.santucci> wrote

Michele Santucci · Guest

Tthnx Tim!

but the real problem was inside another part of code... anyway I fixed up
something else following your suggestions and now anything works!

"Timothy H. Buchman" <tbuchmanPLEASE(at sign)REMOVEcitycenter.org> ha
scritto nel messaggio news:4086a8c6$1 (AT) newsgroups (DOT) borland.com...