Problem mit Skalierung eines Bitmap im BitBtn

[Helmi]

Hallo,

ich steh grad auf dem Schlauch.

Ich lade in eine Bitmap-Variable ein Bitmap und möchte dies skaliert in einen BitBtn laden.
Ich hab das Ganze mal in ein Test-Projekt ausgelagert.

Das Ganze versuch ich mit StrechDraw.

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  bmp, bmp2: TBitmap;
  i: Integer;
  i_max: Integer;
  i_min: Integer;

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

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

    i_max := Max(bmp.Height, BitBtn1.Height);
    i_min := Min(bmp.Height, BitBtn1.Height);

    i := i_max div i_min;

    BitBtn1.Glyph.Canvas.StretchDraw(Rect(0, 0, BitBtn1.Height, (BitBtn1.Width div i)), bmp2);
    BitBtn1.Glyph.Assign(bmp2);
  finally
    FreeAndNil(bmp);
    FreeAndNil(bmp2);
  end;
end;

Nur mit der oberen Ausführung erhalte ich gar kein Bild im BitBtn.
Ersetz ich bmp2 durch bmp, dann erhalte ich zwar ein Bild im BitBtn, aber in unveränderter Größe.

Delphi-Quellcode:

    BitBtn1.Glyph.Canvas.StretchDraw(Rect(0, 0, BitBtn1.Height, (BitBtn1.Width div i)), bmp);
    BitBtn1.Glyph.Assign(bmp);

Die Berechnung von i dient nur der Skalierung bei gleichbleibendem Größenverhältnis.

Was mach ich falsch? (Nein - nicht ich, Delphi :mrgreen:)

[DeddyH]

Welche Größe hat denn bmp2?

[edit]Vielleicht ist es hiermit einfacher:

Delphi-Quellcode:

procedure StretchGraphic(const src, dest: TGraphic;
  DestWidth, DestHeight: integer);
var
  temp, aCopy: TBitmap;
  faktor: double;
begin
  Assert(Assigned(src) and Assigned(dest));
  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);
        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;

[/edit]

[jfheins]

Zitat:

Zitat von Helmi (Beitrag 1095175)

Was mach ich falsch? (Nein - nicht ich, Delphi :mrgreen:)

Delphi kann nicht hellsehen und tut daher bmp2 erstmal mit einem leeren Bitmap vorbelegen. Da du danch auch nichts mehr reinmalst, bleibt es leer ;)

[Satty67]

Ich werfe dann noch eine Skalierungs-Funktion hinterher. Man sollte sowieso nicht soviele Aufgabe in eine einzelne Funktion packen.

Mit dem Ergebnis Initialisierst Du das Ziel-Bitmap. Kannst auch auf X/Y Parameter (also direkte Übergabe von Width/Height) umschreiben oder einem Rect für StretchDraw.

Delphi-Quellcode:

function ScaleSize(Size : TSize; MaxBorderLength : Integer): TSize;
var
  Ratio : Double;
begin
  Ratio := Size.cx / Size.cy;
  if (Ratio >= 1) {Landscape} then
  begin
    Result.cx := MaxBorderLength;
    Result.cy := Trunc(MaxBorderLength / Ratio);
  end else begin
    Result.cy := MaxBorderLength;
    Result.cx := Trunc(MaxBorderLength * Ratio);
  end;
end;

[himitsu]

Zitat:

Zitat von Helmi (Beitrag 1095175)

Was mach ich falsch? (Nein - nicht ich, Delphi :mrgreen:)

Ja, doch du. :tongue:

Delphi-Quellcode:

BitBtn1.Glyph.Assign(bmp2);
...
FreeAndNil(bmp2);

Du weist dem ButtonGlyph die Referenz zu deinem bmp2 zu und gibst danach dieses Objekt frei, da kann ja nix mehr angzeigt wergen. :zwinker:
> Du kannst ja mal probehalber das

Delphi-Quellcode:

bmp2.Free;

auskommentieren. (bin mal gespannt, ob ich Recht hab :angle2: )

BitBtn1.Glyph.Width und .Height setzen
und dann in BitBtn1.Glyph.Canvas das Bild reinkopieren

[Satty67]

Dann wäre aber die Methode Assign diesmal anders als üblicherweise.

[Helmi]

Zitat:

Zitat von himitsu (Beitrag 1095186)

Delphi-Quellcode:

BitBtn1.Glyph.Assign(bmp2);
...
FreeAndNil(bmp2);

Du weist dem ButtonGlyph die Referenz zu deinem bmp2 zu und gibst danach dieses Objekt frei, da kann ja nix mehr angzeigt wergen. :zwinker:
> Du kannst ja mal probehalber das

Delphi-Quellcode:

bmp2.Free;

auskommentieren. (bin mal gespannt, ob ich Recht hab :angle2: )

Leider (oder doch Gott sei Dank :mrgreen:) hast du nicht recht - das bringt gar nichts.

Inspiriert von meinem Code bin ich durch diesen Link worden.
Nur damit ändert sich die Größe des Bildes nicht.

Zitat:

Zitat von DeddyH (Beitrag 1095177)

Welche Größe hat denn bmp2?

erst mal gar keine :-)
Eine Größenangabe ergab leider auch keine Veränderung, ausser dass ich im BitBtn ein weisses Feld sah.

Zitat:

Zitat von DeddyH (Beitrag 1095177)

[edit]Vielleicht ist es hiermit einfacher:
[/edit]

Sah ganz gut aus - nur wurde das Bild sehr klein dargestellt, obwohl ich die Höhe und Breite des BitBtns angab

[edit]
DeddyH´s Code funktioniert - hatte nur Width und Height verwechselt

[himitsu]

Hmm, ich glaub ich hab da noch eine versteckte Referenzzählung gefunden, welches es intern gibt. :gruebel:

Bin aber dennoch mal gespannt, ob das Weglassen von .Free etwas bringt.

Ansonsten kannst du bmp2 und Glyph mal in einer Datei speichern (SaveToFile) und nachsehn wie die enthaltenen Bilder aussehn.

[ConnorMcLeod]

Zitat:

Zitat von Helmi (Beitrag 1095175)

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;