nach StretchBlt schwarzer Hintergrund

[Harry Stahl]

Zitat von Helmi:

Und wie stellt man das an?

Du siehst vorher nach (wie oben von mir beschrieben), ob das Icon teiltransparente Pixel hat (wie z.B. das Standard-Delphi-Icon), skalierst die Grafik mit Deiner Funktion und kontrollierst das Ergebnis, indem Du die 32-Bit-Ergebnis-Bitmap als BMP-Datei speicherst und in einen Editor lädst und dort schaust, ob die Teiltransparenz erhalten geblieben ist.

Mit dem bloßen Auge kannst Du es der Grafik ja nicht ansehen, da kann z.B. auf einem weißen Hintergrund ein teiltransparentes Schwarz ja wie ein voll sichtbares Grau aussehen. Du musst dann halt kontrollieren, ob einige Pixel im Alpha-Bit einen Wert zwischen 1 und 254 haben (0= Pixel ist unsichtbar bzw. voll transparent, 255= Pixel ist voll sichtbar bzw. hat 100% Deckkraft).

[Sherlock]

Ich skaliere nur noch mit dem http://docwiki.embarcadero.com/VCL/X...hics.TWICImage.

Beispiel einer proportionalen Skalierung:

Delphi-Quellcode:

procedure ResizeImage(aWICImage: TWICImage; NewWidth:Integer);
var
  scale: IWICBitmapScaler;
  wicBitmap: IWICBitmap;
  newHeight:Integer;
  faktor:Double;
begin
  if Assigned(aWICImage) then
  begin
    faktor := NewWidth / aWICImage.Width;
    newHeight := Round(aWICImage.Height  * faktor);

    aWICImage.ImagingFactory.CreateBitmapScaler(scale);
    scale.Initialize(aWICImage.Handle, NewWidth, NewHeight, WICBitmapInterpolationModeFant);
    aWICImage.ImagingFactory.CreateBitmapFromSourceRect(scale, 0,0,NewWidth, NewHeight, wicBitmap);
    if Assigned(wicBitmap) then
      aWICImage.Handle := wicBitmap;
  end;
end;

Sherlock

[Helmi]

Zitat von Sherlock:

Ich skaliere nur noch mit dem http://docwiki.embarcadero.com/VCL/X...hics.TWICImage.

Gut regergiert, Sherlock!

eine interessante Funktion

Ich hab das mal für normale Bitmaps (testweise) umgestrickt:

Delphi-Quellcode:

procedure ResizeImage(Bitmap: TBitmap; NewWidth:Integer);
var
  WICImage : TWICImage;
  WICBitmap: IWICBitmap;
  scale    : IWICBitmapScaler;
  newHeight: Integer;
  faktor   : Double;

begin
  If not Assigned(Bitmap) then
    exit;

  WICImage := TWICImage.Create;

  WICImage.Assign(Bitmap);

  try
    faktor    := NewWidth / WICImage.Width;
    newHeight := round(WICImage.Height * faktor);

    WICImage.ImagingFactory.CreateBitmapScaler(scale);

    scale.Initialize(WICImage.Handle, NewWidth, NewHeight, WICBitmapInterpolationModeFant);

    WICImage.ImagingFactory.CreateBitmapFromSourceRect(scale, 0,0,NewWidth, NewHeight, WICBitmap);

    If Assigned(WICBitmap) then
      WICImage.Handle := WICBitmap;

    Bitmap.Assign(WICImage);
  finally
//    WICImage.Free;
  end;
end;

[Harry Stahl]

Stimmt, das geht auch mit der Windows Imaging Component (WIC), die Transparenz bleibt da erhalten.

Kleiner Wermutstropfen ist dabei, dass WIC unter Windows erst ab Vista standardmäßig im System dabei ist. Für XP muss der Anwender Deines Programms das auf dem System evtl. nachinstallieren (allerdings ab Servicepack xp3 ist es wohl schon dabei).

Aber allmählich ist die Unterstützung für XP vielleicht sowieso nicht mehr so wichtig...