Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

Registriert seit: 15. Jun 2010
Ort: Augsburg Bayern Süddeutschland
3.470 Beiträge
 
Delphi XE3 Enterprise
 
#12

AW: Verständnisfrage: TImage

  Alt 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)
  Mit Zitat antworten Zitat