Einzelnen Beitrag anzeigen

Keks

Registriert seit: 25. Mai 2005
122 Beiträge
 
#2

Re: Icon in TImage wird nicht verkleinert

  Alt 26. Nov 2005, 22:14
hat sich erledigt.
habe folgende funktion gefunden:

Delphi-Quellcode:
function IconToBitmap(const IconHandle: HIcon):TBitmap;
var
  IcoInfo: TIconInfo;
  mask: TBitmap;
  x, y: word;
begin
  result := nil;
  if NOT GetIconInfo(IconHandle, IcoInfo) then
    exit; // ungültiges Icon Handle or whatever

  try
    try
      // Übernahme des Color Kanals und des ggf. vorhandenen Alphakanals. Ist kein Alpha Kanal vorhanden, wird er später durch den Masked Bereich hinzugefügt.
      result := TBitmap.Create;
      result.Handle := IcoInfo.hbmColor;
      result.PixelFormat := pf32bit;

      // Übernahme des Masked Bereichs. Sollten die Alpha Werte im maskierten Bereich ungleich 255 (voll sichtbar sein), werden sie auf 255 gesetzt.
      mask := TBitmap.Create;
      mask.Handle := IcoInfo.hbmMask;
      mask.PixelFormat := pf32bit;

      for x := 0 to result.Width-1 do
        for y := 0 to result.Height-1 do
          pRGBALine(result.Scanline[y])^[x].rgbReserved := NOT pRGBALine(mask.Scanline[y])^[x].rgbRed; // Übernahme des Masked Bereichs, ist entweder 0 (voll sichtbar) oder aber 255 (gar nicht sichtbar), deswegen auch das NOT davor weil der Alpha Kanal von Bitmaps genau andersrum arbeitet.

    except
      FreeAndNil(result);
    end;
  finally
    if Assigned(mask) then
      mask.Free;
  end;
end;
leider ist die strech funktion sehr bescheiden. im original 32x32 große icons sehen auf 16x16 gestaucht doch seeeeehr bescheiden aus.
lässt sich da was machen? interpolieren oder sowas?
  Mit Zitat antworten Zitat