Transparanzfarbe eines TImages bestimmen

[xZise]

Ich möchte die Farbe bestimmen, die die Transparenzfarbe eines TImages ist.
Normalerweise ist es ja die linke untere Ecke, aber ich hätte die farbe gerne selber bestimmt!

[mkinzler]

Das Bitmap hat die Eigenschaft .TrasnparentColor.

[xZise]

Och thx. Dahabe ich natürlich nicht gegeuckt. Nur bei TImage. Transparantcolor ^^

[xZise]

Hmm... Aber das tuts nicht!

[mkinzler]

Welches Betriebssystem? Code könnte helfen.

[xZise]

XP:

Delphi-Quellcode:

procedure TfrmMain.FormCreate(Sender: TObject);
{...}
  iMiniMap.Canvas.Pen.Color := clBlack;
  iMiniMap.Canvas.Brush.Color := clBlack;
  iMiniMap.Picture.Bitmap.Transparent := true;
  iMiniMap.Picture.Bitmap.TransparentColor := clBlack;
end;

procedure TfrmMain.zeichneKarte;
{...}
  iMiniMap.Canvas.Rectangle(0,0,100,100);
{...}
end;

[edit]Ups... Tags vergessen[/edit]

[mkinzler]

Delphi-Quellcode:

 iMiniMap.Transparent := true;

http://www.delphipraxis.net/internal...ct.php?t=34383