Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
Delphi XE3 Enterprise
|
AW: Verständnisfrage: TImage
10. Sep 2012, 00:10
wenn man schon ein Image dafür missbrauchen will kann man die ganzen Automatismen die TImage bei Zugriff aus das (Pseudo)Canvas bietet nutzen...
Delphi-Quellcode:
procedure TForm2.Image1MouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
image1.Picture.Bitmap := nil;
Image1.Canvas.Ellipse(x-10,y-10,x+10,y+10);
end;
Thomas Wassermann H₂♂ Das Problem steckt meistens zwischen den Ohren
DRY DRY KISS
H₂♂ (wenn bei meinen Snipplets nichts anderes angegeben ist Lizenz: WTFPL)
|