Einzelnen Beitrag anzeigen

Benutzerbild von Bummi
Bummi

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

AW: Prinzipielle Frage zu TImage

  Alt 22. Dez 2010, 23:38
Ok, so habe ich es noch nie gebraucht, ich arbeite sonst mit GDI+ in Graphiccontrols, aber so gehts
Delphi-Quellcode:
procedure TForm1.Image1Click(Sender: TObject);
begin
   image1.Canvas.Brush.Color := clWhite;
   image1.Canvas.FillRect(Rect(0,0,Image1.Width ,Image1.Height ));
   image1.Transparent := true;
   image1.Canvas.pen.Color := clRed;
   image1.Canvas.Brush.Color := clLime;
   image1.Canvas.ellipse(10,10,100,100);
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