Zitat von
freak4fun:
Danke,
hab mal wieder zu kompliziert gedacht und wollte die Farben konvertieren und sonst was, dabei hab ich ja die Farbe vor meiner Nase.
Delphi-Quellcode:
procedure TForm2.FormCreate(Sender: TObject);
var
lColor: TColor;
begin
Image1.Picture.Bitmap.Transparent := True;
TransparentColor := True;
with Image1 do
begin
Left := 0;
Top := 0;
Width := 288;
Height := 288;
with Picture.Bitmap do
begin
LoadFromFile('stable.BMP');
TransparentColor := Canvas.Pixels[1, 1];
end;
end;
end;
MfG
freak
Das Thema hatten wir ja vorhins per ICQ
Das was oben mit Gimp empfohlen wurde, geht auch prima mit Paint
Mal ne blöde Frage: wo ist da im Script die transparente Farbe angegeben? Hab ich etwas überlesen oder so?