Transparenz bei best. Farbe

[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