gesichertes Bitmap: weissen Hintergrund entfernen

[Helmi]

Hallo,

im Anhang sind 2 Bilder. Ein Icon und ein Bitmap.

Wie man sieht, ist auf dem Bitmap der Hintergrund weiss.
Wie bekomm ich diesen weissen Hintergrund weg?

Hier die Codes zum Auslesen von Icon und Bitmap.

Icon

Delphi-Quellcode:

 var 
  IconIndex : Word; 
  h         : hIcon; 

begin 
  //Variablen initialisieren 
  IconIndex :=  0; 

    //OpenDialog öffnen 
    If OpenDialog1.Execute then 
      begin 
        //Icon auslesen 
        h := ExtractIcon(0, PAnsiChar(OpenDialog1.FileName), IconIndex); 

        //Icon im Image anzeigen 
        Image1.Picture.Icon.Handle := h; 
        Image1.Picture.Icon.SaveToFile('d:\Excel.ico'); 
      end; 
end;

Bitmap

Delphi-Quellcode:

 var 
  IconIndex : Word; 
  h         : hIcon; 
  Bitmap    : TBitmap; 
  Icon      : TIcon; 

begin 
  //Variablen initialisieren 
  IconIndex :=  0; 

  // 
  Bitmap    := TBitmap.Create; 
  Icon      := TIcon.Create; 

  try 
    //OpenDialog öffnen 
    If OpenDialog1.Execute then 
      begin 
        //Icon auslesen 
        h := ExtractIcon(0, PAnsiChar(OpenDialog1.FileName), IconIndex); 

        Icon.Handle := h; 

        with Bitmap do 
          begin 
            Height := Icon.Height; 
            Width  := Icon.Width; 
            Canvas.Draw(0, 0, Icon); 
          end; 

        Image1.Picture.Bitmap := Bitmap; 
        Image1.Picture.Bitmap.SaveToFile('d:\excel.bmp'); 
      end; 
  finally 
    // 
    FreeAndNil(Bitmap); 
    FreeAndNil(Icon); 
  end; 
end;

Mit dem OpenDialog wird eine Exe ausgewählt - in meinem Test die Excel.exe

[olee]

ganz einfach:

Delphi-Quellcode:

with bitmap do
begin
  transparent := true;
  transparentcolor := clwhite;
  Canvas.Draw(0,0,bitmap);
end;

Oder bei nem Objekt von TImage

Delphi-Quellcode:

  Image1.Transparent := true

Simpel oder nicht?

EINFACh MAL DELFI HILFE SUCHEN :thumb:

[Helmi]

Zitat:

Zitat von olee

EINFACh MAL DELFI HILFE SUCHEN

Wenn belehren, dann bitte richtig!
Delphi ohne "ph" tut ja weh!

[olee]

Tschuldigung ... :duck:

war ein Versehen.

Das passiert mir immer wieder.

[Helmi]

Und das mit der Transparenz und dem weissen Hintergrund funktioniert nicht.

[turboPASCAL]

Das Thema war vor ein paar Tagen, such mal bitte im Forum.

So, ich habe mal gesucht: http://www.delphipraxis.net/internal...t.php?t=127880

[olee]

Wieso soll das für ein Bitmap nicht gehen?

Image.Picture.Bitmap.Transparent := true

oder ist das bild unscharf und hat am rand nur fast weiße pixel?