Problem mit Skalierung eines Bitmap im BitBtn

[ConnorMcLeod]

Ja, es kommt aber auch auf die Auflösung der Datei und die Größe des Glyphs an.

[himitsu]

Und die Art des Bildes.

Bilder mit wenige Struktur, wenig Farben und scharfen Farbgrenzen sehen mit der einen Methode ohne Kantenglättung schonmal besser (schärfer) aus,
wärend deteilreiche Fotos mit Kantenglättung/Pixelverrechnung nicht so verpixelt wirken.

[DeddyH]

OK, OK, ich habe meine Routine noch etwas erweitert (und gleich noch eine potentielle Fehlerquelle eliminiert):

Delphi-Quellcode:

procedure StretchGraphic(const src, dest: TGraphic;
  DestWidth, DestHeight: integer; Smooth: Boolean = true);
var
  temp, aCopy: TBitmap;
  faktor: double;
begin
  Assert(Assigned(src) and Assigned(dest));
  if (src.Width = 0) or (src.Height = 0) then
    raise Exception.CreateFmt('Invalid source dimensions: %d x %d',[src.Width, src.Height]);
  if src.Width > DestWidth then
    begin
      faktor := DestWidth / src.Width;
      if (src.Height * faktor) > DestHeight then
        faktor := DestHeight / src.Height;
    end
  else
    begin
      faktor := DestHeight / src.Height;
      if (src.Width * faktor) > DestWidth then
        faktor := DestWidth / src.Width;
    end;
  try
    aCopy := TBitmap.Create;
    try
      aCopy.PixelFormat := pf24Bit;
      aCopy.Assign(src);
      temp := TBitmap.Create;
      try
        temp.Width := round(src.Width * faktor);
        temp.Height := round(src.Height * faktor);
        if Smooth then
          SetStretchBltMode(temp.Canvas.Handle, HALFTONE);
        StretchBlt(temp.Canvas.Handle, 0, 0, temp.Width, temp.Height,
          aCopy.Canvas.Handle, 0, 0, aCopy.Width, aCopy.Height, SRCCOPY);
        dest.Assign(temp);
      finally
        temp.Free;
      end;
    finally
      aCopy.Free;
    end;
  except
    on E: Exception do
      MessageBox(0, PChar(E.Message), nil, MB_OK or MB_ICONERROR);
  end;
end;

[Helmi]

Zitat von DeddyH:

OK, OK, ich habe meine Routine noch etwas erweitert (und gleich noch eine potentielle Fehlerquelle eliminiert):

Hallo DeddyH,

Dank dir für die Erweiterung. Bei Smooth = false schauts sehr gut aus

[DeddyH]

Das freut mich

[Helmi]

Eine Frage hätt ich aber noch:

Was genau bewirkt diese Zeile: SetStretchBltMode(temp.Canvas.Handle, HALFTONE); ?

Wenn ich die Hilfe zu "HALFTONE" verstanden habe, so bekommen im Dest-Bitmap die neuen notwendigen Pixel die durchschnittliche Farbe der umliegenden Pixel. Oder hab ich da was missverstanden?

[DeddyH]

Die Pixel der Quelle werden in Pixelblöcke des Ziels kopiert. Dabei entspricht die "durchschnittliche" Farbe des Pixelblocks des Ziels der Farbe des Quellpixels. Das hat zur Folge, dass Übergänge auf dem Ziel weicher aussehen.

[himitsu]

SetStretchBltMode
und Jupp, hast richtig verstanden ... jedes Pixel bekommt den Durchschnitt der Pixel-Anteile, welche in ihm liegen würden.

[edit]
faule RedBox