Mit den Events meinte ich das etwas anders.
Wenn das Event ungefähr so aussehen würde ohne dies "FItem"
Delphi-Quellcode:
// FItem hier ganz rauswerfen
if Assigned(FOnDXFLine) then
FOnDXFLine(Self, Blockname, Color, FloatPointD2(X1, Y1), FloatPointD2(X2, Y2));
Dann würdest Du diese DXF-Sache komplett von deinem Programm abgrenzen.
Die graphische Darstellung würde etwa so aussehen :
Delphi-Quellcode:
procedure OnDXFLine(Sender: TObject; Name:string; Color:Tcolor; P1, P2: TPoint);
begin
FMeineGraphikListe.AddLine(Color, P1, P2);
FMeineGraphikListe.Draw;
// oder so ähnlich
end;
Hinsichtlich
OOP-Optimierung mußt Du sonst halt Christian fragen
