Flytbart polygonkomponent

Det lyder da som en sød lille opgave, jeg vil anbefale dig at lave den selv, det lyder som om du har nogle specifike krav, som du sikkert bedst for opfyldt ved at lave den selv.

/Martin

Hvorfor ned arver du så ikke bare fra TShape, og fixer den på den måde ?

Jens B

Ja og jeg har lavet den, men jeg kan ikke finde ud af at resize den.

borrisholt> hvordan resizer jeg en TShape under runtime, så rectanglet bliver til en rompe, jeg skal kunne flytte alle 4 hjørner individuelt

Det lyder som om TShape har alt det du skal bruge - bortset fra at den altså tegner rektangler og ikke bare \"firkanter\".

I ren OOE ånd vil det jo være oplagt enten at nedarve fra TShape, men overskrive dens OnPaint (?) metoder, eller se efter hvad TShape er nedarvet fra, lave en parrallel komponent, TFirkant.  Store dele af koden til TFirkant vil du kunne sakse fra sourcen til TShape.

Jeg vil umiddelbart, uden at have kigget på TShapes kode, tro at det er nemmest at nedarve fra TShape.

Peter

Doh, man skal være hurtig her.  Sidder og skriver og bliver så overhalet indenom...

Jeg vil stadig mene du er bedre stillet med noget ikke \"hack\" kode, dvs. noget hvor du laver lidt mere selv, for så har du bedre styr på tingende, og tiden du kommer til at bruge på det er som regl den samme, det siger min erfaring i hvertfald mig. Vi hjælper gerne *S*

/Martin

delphi >> det må være en \"stille fredag\" *GG*

Tjaa...  Sidder lige og lopper den lidt...  Håber at der måske er en pakke i posten, så jeg kan more mig foran PC\'en i weekenden med noget rimeligt ny software... HINT!

Peter

Peter> hvis det er den nye ver 6. hvad så med og more sig med at kode mit komponent ;-))

som starter med D og slutter på 6

morten_s >> Du skal da også havde noget at lave i weekenden, for øvrigt kan man ikke lave comps i D6 hvis man skal lave en prop. editor også, for der mangler Proxies.dcu, det er noget rigtig SKOD, at de laver den fejl igen.

Jeg har arbejdet på lortet en hel weekend...

og det er ret irreterende at se at alle Delphi komponenterne kan resizes når de sættes på formen, og jeg ikke kan få det til at virke ;-((

vedr D6: I er sgu da ikke til at skjule noget for.... skarpsindige hjerner...
Jeg mangler lige et \"Preview\" af D6 inden jeg tager den endelige beslutning om at upgrade (dvs. inden jeg har fået vredet armen nok om på økonomi afdelingen...)

Jeg havde ikke hørt det med Proxies.  Hvon hulen kan de undlade at lægge den med?  De har vel selv benyttet den til deres egne property editors.

Delphi

Igen uden at kende specielt til TShape.

Hvad har du forsøgt?
Kan du sende en WM_SIZE eller lign. message til komponenten?

Peter

hvis du droper noget kode her vil jeg ikke love noget men måske

martin@e-lind.dk

/Martin

PS ingen EXE tak

delphi >> Man kan også godt udvikle en compeditor, ved at requere DesignIDE.dcp med når du så laver et project for at teste din nye comp. så kan man ikke compilere, for man kan jo ikke lave et project der requere en designtime package.

/Martin

Nu har jeg lige kigget på TShape.  Den ser da ud til at være nem at ændre, dvs. nedarv en TFirkant fra TShape og overwrite dens Pain metode.  Resten lader du bare være.

Noget i retning af:

Type
  TFirkant = Class(TShape)
    protected
      procedure Paint; override;
  published
    procedure StyleChanged(Sender: TObject);
    property Align;
    property Anchors;
    property Brush: TBrush read FBrush write SetBrush;
.
.
.  // Include alle TShape properties, undtagen Shape. *1)
.

    property OnMouseUp;
    property OnStartDock;
    property OnStartDrag;
  end;


procedure TFirkant.Paint;
Begin
  // Kode der tegner din firkant.
End;



*1)  Bliver du rigtig vild, så lader du shape være med, men ændrer den til TMyShapeType (TShapeType + stFirkant)  Hvis Shape er stFirkant, fint brug den egen Paint metode, ellers kaldes inherited.

Peter> jeg er startet helt fra bunden med
TSquare = class(TGraphicControl),
og jeg har fået den bygget op så jeg kan tegne den ved at klikke fra hjørne til hjørne.

Det som driller er når jeg skal tage fat i hjørnerne og flytte rundt på dem hvis de efterfølgende skal editteres.

Et af problemerne er at sætte komponentens Width og Height, og få slettet de gl. forbindelsesstreger til de to andre hjørner ved at tegne oveni.

Jeg syntes bare det var et problem som mange må have eksperimenteret med da alle delphi komp. kan resizes

Martin>> Ok, jeg tror kun jeg har lavet en enkelt comp editor eller to i min tid - og det var tilbage i D3, D4 stykker.  i hvertfald lang tid siden. 

Peter

Delphi>  ja det kan jeg godt se, men hvordan får jeg de små hjørnefirkanter frem i runtime, og hvordan griber jeg fat i dem , i den oprindelige TShape, er det jo Hegith og width man flytter på og ikke hjørnerne i rectanglet

Den procedure du ændre pos i skal da bare kalde invalidate, også skal din paint klare opd. dvs. pos rutinen skal evt. bare ændre i dit array af point\'s eller hvordan du nu har lavet det.

Drop den på min mail så kigger jeg på det.

Det med de små sorte firkanter runtime, er ikke noget man bare laver, jeg har en lille runtime Object-inspector, jeg lavede i D3, og det var ikke nogen helt triviel sag.

Martin> Jeg har sendt til dig prøv at se om det kan kører

Kigger på det

Martin>> Har fået det til at virke

Mangler kun de sorte hjørnefirkanter ;-))