Transparenz in TImage mit WinXP SP2 versagt ?

[xZise]

Also ich habe folgenden Code genommen:

Delphi-Quellcode:

iMiniMap.Picture.Bitmap.Transparent := true;
iMiniMap.Picture.Bitmap.TransparentMode := tmFixed;
iMiniMap.Picture.Bitmap.TransparentColor := clBlack;

Nur funktioniers damit nicht...!
Und die Farbe ist zu 100% Schwarz:

Delphi-Quellcode:

iMiniMap.Canvas.Pen.Color := clBlack;
iMiniMap.Canvas.Brush.Color := clBlack;
iMiniMap.Canvas.Rectangle(0,0,100,100);

[xZise]

Also es funktioniert immer noch nicht

PS: Habe jetzt die Variante von Kotas verwendet (#11)

[Neutral General]

Delphi-Quellcode:

Image1.Picture.Bitmap.Width := ImageList1.Width;
Image1.Picture.Bitmap.Height := ImageList1.Height;
ImageList1.Draw(Image1.Picture.Bitmap.Canvas,0,0,0);

Bin jetzt mal neu in dem Thema aber du meinst das doch so oder?
Also in meiner ImageList ist ein Bild das nen rosa rand hat, der Transparent sein soll.
In der ImageList die Transparenz auf diese Farbe gestellt, Image1.Transparent := true gestellt und oben den Code innen Button eingefügt und es geht. Oder versteh ich da was falsch? Weil dann erklärt mir das bitte^^

Gruß
Neutral General

[SLATER_LT]

Hallo!

Ich habe WinXP mit dem SP2 und bei mir kann ich jetzt durch zusammenschreiben eurer Vorschläge auch ein bmp per Canvas auf ein in einem Image geladenes jpg malen. Ich habe keine Angabe der Farbe gemacht, wobei bei meinem Quellcode damit die Farbe weiß standardmäßig als Hintergrund transparent wird.

Delphi-Quellcode:

procedure bildAufFeldMalen(dateiname: string);
var
bild: TBitmap;
begin
    bild := TBitmap.Create();
    bild.width := 30;
    bild.height := 30;

    bild.LoadFromFile(dateiname);
    bild.Transparent := true;

    Form_Spielbrett.Image_Spielbrett.Canvas.Draw(10,10,bild);

    bild.Free;
end;