TLine - Canvas an Line ausrichten

[stahli]

Ich würde der Komponente eigene Propertys zuweisen:
X1, Y1 ... für Point1
X2, Y2 ... für Point2
LW ... für Linienbreite
LA für LineAlign

Dann kannst Du Left, Top, With und Height die Komponente selbst berechnen lassen (veranlasst durch die Setter der neuen Propertys):

Left := Min(X1, X2) - (LW div 2);
Top := Min(Y1, Y2) - (LW div 2);
Width := Max(X1, X2) - Min(X1, X2) + (LW div 2);
Height := Max(Y1, Y2) - Min(Y1, Y2) + (LW div 2);

(so ins unreine...)

[Bjoerk]

Ja Stahli, das ist für hier wirklich sehr sehr viel einfacher. Dann wird zur Designzeit auch gleich alles richtig angezeigt. :thumb::thumb::thumb:

Das einzige was ich jetzt noch hab ist: Width und Height sind ja vom UrUrVorfahren. Wie kriegt denn meine Komponete mit, daß die sich geändert haben. Ich muß ja dann X1/Y1 und X2/Y2 entsprechend anpassen?

Delphi-Quellcode:

procedure TLine.SetX1(const Value: integer);
begin
  FX1 := Value;
  Left := FX1 - OffSet;
end;

procedure TLine.SetX2(const Value: integer);
begin
  FX2 := Value;
  Width := FX2 - FX1 + OffSet + OffSet;
end;

procedure TLine.SetY1(const Value: integer);
begin
  FY1 := Value;
  Top := FY1 - OffSet;
end;

procedure TLine.SetY2(const Value: integer);
begin
  FY2 := Value;
  Height := FY2 - FY1 + OffSet + OffSet;
end;

function TLine.OffSet: integer;
begin
  Result := FPen.Width div 2;
end;

[stahli]

Die Setter dürften virtuell sein, aber ich würde einfach Resize überschreiben (und prüfen, ob die Änderung von deinen neuen Eigenschaften kommt oder nicht).

[Bjoerk]

Zitat:

Zitat von stahli (Beitrag 1206437)

Die Setter dürften virtuell sein, aber ich würde einfach Resize überschreiben.

Left, Top, Width und Height sind fest drin aber TControl hat ja das angesprochene OnResize-Event.

Zitat:

Zitat von stahli (Beitrag 1206437)

(und prüfen, ob die Änderung von deinen neuen Eigenschaften kommt oder nicht).

Genau, da winkt ja der Stackowerflow. Kann ich irgendwie den Sender auswerten oder brauch' ich ein eigenes Flag?

[stahli]

Flag. ;-)

[Bjoerk]

Ich habs soweit fertig. Was ich bissl blöd find, daß wenn man z.B. eine Line von 0,0 nach 1000,1000 zeichnet, das Width und Height der Komponente sehr groß werden. Auch schlecht für MouseEnter, MoueLeave, MouseMove usw.. Besser fände ich es, wenn man das Canvas um die Line herum bauen könnte (schräges Rect). Man bräuchte dann auch kein LineAlign mehr. Wie macht denn sowas? Muß man dann erst mal was TControl ableiten und ein eignes Canvas hineinfriemeln?

[Bummi]

So funktionieren Komponenten nicht. Wenn Du nur eines Deiner Lineshapes benötigst kannst Du eigene Events einbauen die im Mousemove auf Kollision mit Deiner Linie prüfen. Da ich aber davon ausgehe dass Du mehrere benötigen wirst, ist allein durch die Überlagerung der Komponenten damit Schluss. Bei Wincontrols könnte man sich durch das definieren von Regions eine Weile über Wasser halten. Letztendlich wird es IMHO aber eher auf eine Komponente hinauslaufen die beliebig viele "Objekte" wie Linien/Kreise etc. darstellen und verwalten kann und die Kollisionsprüfung im MouseMove über die Objektdefinitionen vornimmt.

[Bjoerk]

Bummi, du hast ja sowas von Recht!! Dieses ewige BringToFront SendToBack hab ich überhaupt nicht bedacht. Das kann ich unmöglich bringen. Damit ist dieses Konzept letztlich gestorben.

Offengestanden waren mir Shapes eh viel zu langsam. Und jetzt auch von TWInControl ableiten und Regionen zuweisen? Ich werd ganz klassisch eine ScrollBox nehemen und eine Paintbox rein. Eine Objectlist muß intern eh mitlaufen, dann kann ich auch jedem Object eine Region zuweisen. Sollten mehrere Regionen gefunden werden, kann man die Elemente ja vorher in einem PopUp zur Auswahl stellen.

Gruß
Thomas

[Bummi]

Hat zwar nicht direkt mit Pfeilen zu tun, ist aber auch nur eine Komponente ....