PaintBoxRaster

[Sir Rufo]

Ja, das ist halt erstmal so ...

Nimm mal einen Globus und versuche dort mit dem Finger ganz genau die Straße zu treffen, in der du wohnst.

Du hast aber die Möglichkeit Raster, Mittellinien, Schnittpunkte, etc. anzuwenden, wobei du die aktuelle Position (Pixel) wieder umrechnest und dann den am nächsten liegenden Fangpunkt heraussuchst.

[Bjoerk]

So, jetzt, ja, eine Insel.

Stimmt. Anders ist das ja gar nicht zu machen.

Ich hab jetzt auch nochmal den Weg eines Fangpunktes von der Berechnung zur Gui und wieder zurück verfolgt (Wahnsinn, kenn mich in meinem eigenen Code fast schon wieder nicht aus). Hab aber gesehen, daß ich da noch n Bock drin hab, weil die Gui daraus temporär (zur Anzeige) einen TPoint macht und den wieder (in mm umgerechnet) zurück an die Komponente liefert und genau das geht natürlich nicht. Das zerstört die Genauigkeit.

Ich werd jetzt zur Kommunikation von Gui und Komponente einen neuen Typ einführen. Falls OwnerDraw ist der Punkt durch die Komponente berechnet worden (z.B. Fangpunkt), falls nicht dann kommt der Punkt vom User z.B. via MouseDown /MouseMove.

Delphi-Quellcode:

  TCadFloatPoint = record
    X1, Y1: integer; // CanvasPoint, OwnerDraw FALSE expected;
    MMX1, MMY1: double; // MMComponentFloatPoint, OwnerDraw TRUE expected;
    OwnerDraw: boolean;
    procedure CanvasPointToComponentMMFloatPoint; // X1,Y1 TO MMX1,MMY1;
    procedure MMComponentFloatPointToCanvasPoint;// OwnerDraw: MMX1,MMY1 TO X1,Y1;
    procedure Clear;
  end;

[Jens01]

Aah, das Fangen war Dein Problem.

Zitat:

MB ist mein härtester Konkurrent.

Meiner nicht!

Zitat:

Mein Vorbild ist aber DigCad 5.0 (find ich ziemlich genial, ist übrigens in Delphi geschrieben, vermute aber mal, daß die VDraw o. ä. drunter laufen haben, weiß es aber nicht).

Das Cad sieht auf den ersten Blick auch gut aus. Sind das TMS-Menue-Komponenten, scheinbar. VDraw glaube ich aber nicht. Du mußt Dir die Lizenz genau angucken, die sind wahnsinnig teuer. Vielleicht Graphics32 oder etwas eigenes, da die laut Beschreibung auch schon lange dran programmieren.

[Bjoerk]

Kann sein, sieht mir aber eher wie Ribboncontrols aus. Find ich auch genial, hab ich aber leider nicht. Na ja, wenigsten hab ich den stufenlosen Zoom um einen Punkt drin (wie CorelDraw).

[Bjoerk]

Ah, vielleicht noch was. Das erste, was versierte User fragen werden, "wie kann ich denn in ihr Programm eine dxf Datei einlesen"? Zumindest muß ich dann eine bezahlbare Alternative DxfToEmf o.ä. sagen können. Wisst ihr da was?

[Jens01]

http://www.delphipraxis.net/160200-d...arstellen.html

[Bjoerk]

Hallo Jens, diesen Thread hatte ich ja schon durchgelesen. Eine wirkliche Lösung für TE konnte da ja auch nicht gefunden werden oder was meinst du?

[Jens01]

Naja, ich benötige nicht unbedingt ein DXF-Import für mein Projekt, habe mich damit aber kurz beschäftigt. Es gibt von John Biddiscombe ein OpenSource-Projekt das ist aber schon von 1997 und soll nicht mehr ganz kompatibel sein. Ansonsten habe ich nur Komponenten für Geld gesehen. Das sieht in Delphi ganz dürftig aus.

[Jens01]

Hier ist noch eins von 2000

[Bjoerk]

Cool. Schau ich mir an. Danke Kumpel. BTW, wenn das Prog ganz fertig ist würdest du’s dann mal testen und mir sagen wie du’s findest ("kacke, ganz nett, geil" ect..)?