|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.619 Beiträge
Delphi 12 Athens
|
Re: Text via Canvas.TextOut transparent über Bild zeichnen
27. Jul 2008, 11:08
Merk Dir die aktuelle Farbe, bevor Du sie umstellst. Anschließend setzt Du sie wieder auf die gemerkte zurück.
Delphi-Quellcode:
OldColor := Canvas.Brush.Color;
Canvas.Brush.Color := clRed;
//Zeichenoperationen
//...
Canvas.Brush.Color := OldColor;
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|