PNG Datei für "Überschrift" vergrößern

[Sherlock]

Vorsicht, wenn man das Image vergrößert, dann wird der Inhalt gestreckt, wenn ich mich nicht irre. Stattdessen muß man die enthaltene Bitmap nehmen, vergrößern und in ein entsprechend vergrößertes Image (kann dann wohl auch das gleiche sein) reinpacken.

Sherlock

[Redeemer]

Nö, SetSize bei TPNGImage vergrößert die Zeichenfläche nach links und unten, ohne zu strecken.

[Sherlock]

Sehr gut. Ich hatte bisher nur FMX.TImage verwendet, das da wohl anders arbeitet.

Sherlock

[Rollo62]

Ich würde nichts in 32x37 Bitmap reinschreiben, immer in entsprechend sinnvoll größeres Bitmap, und dann runterskalieren damit es noch lesbar bleibt und nicht extrem pixelig.
Also ein größeres temporäres Bitmap, schreiben, dann auf 32x37 mit Filter skalieren, und dem Orginalbitmap mit Transparenz überlagern.

Das 32x37 PNG vorher zu vergrößern würde ich nicht machen, das geht sicher in die Hose.

[duff]

Danke für die Antworten. Dann gucke ich mal ob ich klar komme. Gibt es hier ggf. passende Beispiele?

[Harry Stahl]

Stimmt die Angabe der benutzten IDE (Delphi 2007) noch?

Mit einer neueren Delphi-Version (z.B. die kostenlose Rio-Community-edition) könntest Du auch FMX nutzen, da ist das mit wenigen Zeilen machbar, z.B. so:

Delphi-Quellcode:

procedure TForm5.Button1Click(Sender: TObject);
var
  bOld,bNew: TBitmap; AddHeight: Integer;
begin
  AddHeight := 10;
  bOld := TBitmap.CreateFromFile('D:\crossblue.png');

  // New Bitmap ; Addheight = additional height for text
  bNew := TBitmap.Create (bOld.Width, bOld.Height + AddHeight);

  bNew.Canvas.BeginScene();
  // Copy old Bitmap to new
  bNew.Canvas.DrawBitmap(bold, bOld.BoundsF, RectF (0, AddHeight, bNew.Width, bNew.Height), 1, true);

  // Add Text
  bNew.canvas.ClearRect(RectF (0,0, bNew.Width, AddHeight), TAlphaColorRec.black);
  bNew.Canvas.Fill.Color := TAlphaColorRec.white;
  bNew.Canvas.Font.Size := 8;
  bNew.Canvas.FillText(RectF (0,0, bNew.Width, AddHeight), 'Test', false, 1, [], TTextAlign.Center, TTextAlign.center);
  bNew.Canvas.EndScene();

  bNew.SaveToFile('D:\crossblue2.png');
  bOld.Free;
  bNew.Free;
end;

Wobei sich die Frage stellt, ob hier tatsächlich nur 5 Pixel als zusätzliche Höhe für den Text zur Verfügung stehen sollen? Das wird man kaum lesen können, in der Anlage mal ein Beispiel mit den 5 Pixeln (dann das Original) und 10 Pixeln zusätzlicher Höhe (auch vergrößert dargestellt).

[duff]

Ja die stimmt noch

Danke für dein Beispiel. Das hat mir schon sehr geholfen.