Einzelnen Beitrag anzeigen

juniorA

Registriert seit: 14. Sep 2011
112 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#3

AW: Position Elemente in TImage ???

  Alt 18. Sep 2020, 11:01
Hallo,

mit den with weggelassen das verstehe ich ja noch. Aber die zweite Aussage, dass es nicht auf eine bestimmte Instanz zeigen soll, da komme ich nicht weiter. Zeichnung ist ja mein Formular, wo neben der Zeichenfläche noch andere Element wie Button und Memofelder sein sollen.
Aktuell sieht mein Button1Click wie folgt aus, wo er das Rechteck immer noch oben links im Formular und nicht im Image positioniert.

Delphi-Quellcode:
procedure Tzeichnung.Button1Click(Sender: TObject);
var MyRect: TRectF;
     c : Tcanvas;
begin
  MyRect.Create(1, 1, 150, 200);
  c := Image1.Canvas;
  c.BeginScene;
  c.Stroke.Kind := TBrushKind.Solid;
  c.Stroke.Color := TAlphaColors.Blue;
  c.Stroke.Thickness := 2;
  c.DrawRect(MyRect, 10, 10, AllCorners, 1.0);
  c.EndScene;
end;
  Mit Zitat antworten Zitat