Problem mit Skalierung eines Bitmap im BitBtn

[ConnorMcLeod]

Zitat von Helmi:

Schlauch.

Delphi-Quellcode:

    bmp.LoadFromFile('E:\MaskLight\Programm\Masken\Achsen_MKS.bmp');
    BitBtn1.Glyph.Canvas.StretchDraw(Rect(0, 0, BitBtn1.Height, (BitBtn1.Width div i)), bmp2);
    BitBtn1.Glyph.Assign(bmp2);

Merkst Du was?
Du lädst in bmp.
Zeichnest aber bmp2.
HTH W.

[Helmi]

Ich hab jetzt nochmal ein wenig rumgespielt und bin auf folgende Lösung gekommen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp, bmp2: TBitmap;

begin
  bmp := TBitmap.Create;
  bmp2 := TBitmap.Create;

  try
    bmp.LoadFromFile('E:\MaskLight\Programm\Masken\Achsen_MKS.bmp');

    bmp2.Width := BitBtn1.Width;
    bmp2.Height := BitBtn1.Height;

    bmp2.Canvas.StretchDraw(Rect(0, 0, bmp2.Width, bmp2.Height), bmp);

    BitBtn1.Glyph.Assign(bmp2);
    Image1.Picture.Assign(bmp2);
  finally
    FreeAndNil(bmp);
    FreeAndNil(bmp2);
  end;
end;

[himitsu]

Delphi-Quellcode:

BitBtn1.Glyph.LoadFromFile('E:\MaskLight\Programm\Masken\Achsen_MKS.bmp');
BitBtn1.Glyph.Canvas.StretchDraw(Rect(0, 0, BitBtn1.Width - 10, BitBtn1.Height - 10), BitBtn1.Glyph);
BitBtn1.Glyph.Width := BitBtn1.Width - 10;
BitBtn1.Glyph.Height := BitBtn1.Height - 10;

// oder

X := BitBtn1.Width - 10;
Y := BitBtn1.Height - 10;
BitBtn1.Glyph.LoadFromFile('E:\MaskLight\Programm\Masken\Achsen_MKS.bmp');
BitBtn1.Glyph.Canvas.StretchDraw(Rect(0, 0, X, Y), BitBtn1.Glyph);
BitBtn1.Glyph.Width := X;
BitBtn1.Glyph.Height := Y;

[Helmi]

Zitat von himitsu:

Delphi-Quellcode:

BitBtn1.Glyph.LoadFromFile('E:\MaskLight\Programm\Masken\Achsen_MKS.bmp');
BitBtn1.Glyph.Canvas.StretchDraw(Rect(0, 0, BitBtn1.Width - 10, BitBtn1.Height - 10), BitBtn1.Glyph);
BitBtn1.Glyph.Width := BitBtn1.Width - 10;
BitBtn1.Glyph.Height := BitBtn1.Height - 10;

// oder

X := BitBtn1.Width - 10;
Y := BitBtn1.Height - 10;
BitBtn1.Glyph.LoadFromFile('E:\MaskLight\Programm\Masken\Achsen_MKS.bmp');
BitBtn1.Glyph.Canvas.StretchDraw(Rect(0, 0, X, Y), BitBtn1.Glyph);
BitBtn1.Glyph.Width := X;
BitBtn1.Glyph.Height := Y;

Warum noch das Anpassen von BitBtn1.Glyph.Width /bzw. .Height?
Bringt bei mir nichts - also es verändert sich nichts

[himitsu]

Wenn das Bild verkleinert wurde, dann ist das verkleinerte Bild ja nun kleiner, als das was geladen wurde ... also noch die Größe des Glyph an die Größe des verkleinerten Bildes anpassen.


Jetzt noch statt des StretchDraw das StretchBlt von DeddyH rein und man hat mit wenig Code ein wunderschönes Bild.
Wenn jetzt die Größe nicht gefällt, dann kann man ja die Berechnung von X und Y entsprechend ändern.

[Helmi]

Zitat von himitsu:

Jetzt noch statt des StretchDraw das StretchBlt von DeddyH rein und man hat mit wenig Code ein wunderschönes Bild.
Wenn jetzt die Größe nicht gefällt, dann kann man ja die Berechnung von X und Y entsprechend ändern.

Irgendwie bin ich jetzt aber ein wenig frustiert - DeddyH´s Code funktioniert sehr gut - meiner nur bedingt

[himitsu]

Was ist denn "bedingt"?

StretchDraw kopiert nur ganze Pixel (läßt also beim Verkleinern einfach welche web und beim Vergrößern werden welche mehrfach gezeichnet)
und StretchBlt verrechnet die Pixel miteinander.

Dafür sind Funktionen/Berechnungen wie in StretchDraw dann natürlich schneller, als aufwändigere Varianten, wie StretchBlt. (falls es mal auf Quantität ankommt und nicht auf Qualität)

[Satty67]

Zitat von Helmi:

Ich hab jetzt nochmal ein wenig rumgespielt und bin auf folgende Lösung gekommen

Die schönere HALFTONE Umsetzung, die DeddyH ins Spiel gebracht hat, hast Du wieder verworfen?

Ist auch nicht garantiert proportional, ausser die Quellbilder sind in der Richtung festgelegt.

[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.