Wenn der untere, linke Pixel die Farbe hat, die du Transparent haben möchtest (z.B. weiß oder grau oder auch Fuchsia), dann reicht es, die Transparent-Werte auf den Standardeinstellungen zu lassen und einfach
Delphi-Quelltext
1:
2:
3:
| DBuffer.Transparent := True;
Canvas.Draw(0,0,DBuffer);
DBuffer.free; |
zu benutzen.
Wenn nicht, musst du gucken, welche Farbe du transparent haben willst und folgendes machen:
Delphi-Quelltext
1:
2:
3:
4:
5:
| DBuffer.TransparentMode := tmFixed;
DBuffer.TransparentColor := [die gewünschte farbe];
DBuffer.Transparent := True;
Canvas.Draw(0,0,DBuffer);
DBuffer.Free; |
zu benutzen.
Die Farbe kannst du sowohl als Farbconstante (z.B. clWhite, clBack usw) angeben, als auch als RGB-Wert (z.B. $000000FF für Rot).
Your computer is designed to become slower and more unreliable over time, so you have to upgrade. But if you'd like some false hope, I can tell you how to defragment your disk.
