AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Multimedia Delphi PNG Datei für "Überschrift" vergrößern

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

Ein Thema von duff · begonnen am 20. Mär 2019 · letzter Beitrag vom 28. Mär 2019
Antwort Antwort
Benutzerbild von Sherlock
Sherlock

Registriert seit: 10. Jan 2006
Ort: Offenbach
3.826 Beiträge
 
Delphi 12 Athens
 
#1

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

  Alt 21. Mär 2019, 09:27
Sehr gut. Ich hatte bisher nur FMX.TImage verwendet, das da wohl anders arbeitet.

Sherlock
Oliver
Geändert von Sherlock (Morgen um 16:78 Uhr) Grund: Weil ich es kann
  Mit Zitat antworten Zitat
Rollo62

Registriert seit: 15. Mär 2007
4.242 Beiträge
 
Delphi 12 Athens
 
#2

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

  Alt 22. Mär 2019, 06:35
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.
  Mit Zitat antworten Zitat
Benutzerbild von duff
duff

Registriert seit: 26. Jan 2005
Ort: Brühl
76 Beiträge
 
Delphi 2007 Professional
 
#3

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

  Alt 22. Mär 2019, 07:35
Danke für die Antworten. Dann gucke ich mal ob ich klar komme. Gibt es hier ggf. passende Beispiele?
  Mit Zitat antworten Zitat
Benutzerbild von Harry Stahl
Harry Stahl

Registriert seit: 2. Apr 2004
Ort: Bonn
2.561 Beiträge
 
Delphi 12 Athens
 
#4

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

  Alt 22. Mär 2019, 08:02
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).
Angehängte Grafiken
Dateityp: jpg Header.jpg (96,3 KB, 26x aufgerufen)

Geändert von Harry Stahl (22. Mär 2019 um 08:20 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von duff
duff

Registriert seit: 26. Jan 2005
Ort: Brühl
76 Beiträge
 
Delphi 2007 Professional
 
#5

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

  Alt 28. Mär 2019, 09:32
Ja die stimmt noch

Danke für dein Beispiel. Das hat mir schon sehr geholfen.
  Mit Zitat antworten Zitat
Antwort Antwort

Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 11:43 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz