Forum: Multimedia
Delphi
by SirThornberry,
29. Okt 2004
Falls den Quelltext jemand nicht versteht - fogendes wird gemacht.
Der Text wird auf ein Bitmap ausgegeben (LBmp1) dabei wird darauf geachtet das die Hintergrundfarbe ungleich der Textfarbe ist. Anschließend wird Pixel für Pixel des Bildes wo die schrift drauf ist (LBmp1) durchgegangen und wenn die Farbe des Pixels ungleich der Hintergrundfarbe ist (also Text an der Stelle ist), wird dieses...
Forum: Multimedia
Delphi
by SirThornberry,
29. Okt 2004
Hier mein Meisterwerk, hoffe es ist einigermaßen verständlich.
function GetBlendColor(BaseColor: TColor; BlendColor: TColor; AlphaVal: Byte): TColor;
type
TMyColor = record
red: Byte;
green: Byte;
blue: Byte;
end;
var LF1, LF2: TMyColor;
begin
Forum: Multimedia
Delphi
by SirThornberry,
29. Okt 2004
Geduld, Source ist fast fertig... (eigentlich total simpel)
Forum: Multimedia
Delphi
by SirThornberry,
29. Okt 2004
Soll die Transparenz des TImage erhalten bleiben oder soll zwichen den Buchstaben die Transparenz (vollständige durchsichtigkeit) erhalten bleiben?