Transparanzfarbe eines TImages bestimmen

[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]