AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

"Echte" Ausmaße eines Strings ermitteln

Ein Thema von BigAl · begonnen am 11. Mär 2014 · letzter Beitrag vom 11. Mär 2014
Antwort Antwort
BigAl

Registriert seit: 6. Sep 2008
Ort: Kehl
504 Beiträge
 
Delphi 12 Athens
 
#1

"Echte" Ausmaße eines Strings ermitteln

  Alt 11. Mär 2014, 15:55
Hallo zusammen,

bin gerade dabei etwas Text in einer Zeichnung auszugeben. Teilweise auch Symbole. Diese sollen zentrisch sein (horizontal und vertikal). Dabei habe ich folgendes Problem:

Wie kann ich die echte Höhe eines Strings, also nur der Bereich der auch das Zeichen enthält ermitteln bzw. wie kann ich Strings wirklich zentrieren. Canvas.TextHeight z.B. ist da nicht sehr hilfreich, da hierbei immer der leere Platz um den String mit zurückgegeben wird. Ich möchte beispielsweise das Zeichen '~' vertikal zentriert ausgeben. Leider befindet sich dieses dann nicht wirklich im Zentrum, sondern darunter. Bei einer FontSize von z.B. 20 (Font ist Tahoma) erhalte ich für das o.g. Zeichen eine Breite von 20 und eine Höhe von 33. Gebe ich das Zeichen dann mit (Y - TextHeight div 2) aus, dann ist das Zeichen zu tief...

Hat jemand eine Idee?

Vielen Dank schon mal im Voraus

Alex
Man sollte nie so viel zu tun haben, dass man zum Nachdenken keine Zeit mehr hat. (G.C. Lichtenberg)
  Mit Zitat antworten Zitat
nuclearping

Registriert seit: 7. Jun 2008
708 Beiträge
 
Delphi 10.2 Tokyo Professional
 
#2

AW: "Echte" Ausmaße eines Strings ermitteln

  Alt 11. Mär 2014, 16:02
Schau dir mal MSDN-Library durchsuchenDrawText an. Da kannst du über DT_CALCRECT die Dimensionen des Texts ermitteln lassen, bzw. wenn du ein eigenes Rect übergibst den Text auch in einen Bereich (mit Zeilenumbruch) zeichnen. hDC ist Canvas.Handle.

Geändert von nuclearping (11. Mär 2014 um 16:19 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.016 Beiträge
 
Delphi 12 Athens
 
#3

AW: "Echte" Ausmaße eines Strings ermitteln

  Alt 11. Mär 2014, 16:04
Jupp, entweder direkt an die WinAPI wenden, oder in die CodeLib schauen TextHeightTextHeight, oder in die CL schauen und da abgucken.

Und man mag es nicht glauben, aber die Forensuche hätte da bestimmt auch geholfen.
Garbage Collector ... Delphianer erzeugen keinen Müll, also brauchen sie auch keinen Müllsucher.
my Delphi wish list : BugReports/FeatureRequests
  Mit Zitat antworten Zitat
BigAl

Registriert seit: 6. Sep 2008
Ort: Kehl
504 Beiträge
 
Delphi 12 Athens
 
#4

AW: "Echte" Ausmaße eines Strings ermitteln

  Alt 11. Mär 2014, 16:13
Leute ihr seid so krass . Habe eben noch schnell die Anfrage abgesetzt weil ich dringend in eine kurze Besprechung musste. Komme zurück und die Antwort steht da.

DANKE!!!

Alex
Man sollte nie so viel zu tun haben, dass man zum Nachdenken keine Zeit mehr hat. (G.C. Lichtenberg)
  Mit Zitat antworten Zitat
Medium

Registriert seit: 23. Jan 2008
3.685 Beiträge
 
Delphi 2007 Enterprise
 
#5

AW: "Echte" Ausmaße eines Strings ermitteln

  Alt 11. Mär 2014, 16:19
Wirklich an die Größe der tatsächlich gezeichneten Pixel zu bekommen ist gar nicht so einfach. GetGlyphOutline() mit Format "GGO_METRICS" liefert einen Struct, der diese wohl beinhaltet. Es scheint allerdings so, als ginge das eben nur für ein einzelnes Zeichen. Für einen längeren String wird's dann echt fummelig, da Fonts mit Kerning und Getöse aufwarten, wodurch ein Zeichenweises Addieren mit o.g. Methode sicherlich nicht die richtige Gesamtgröße von mehr als einem Zeichen ergeben dürfte. Aber für eine Tilde könnte das klappen.
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
  Mit Zitat antworten Zitat
Popov
(Gast)

n/a Beiträge
 
#6

AW: "Echte" Ausmaße eines Strings ermitteln

  Alt 11. Mär 2014, 17:12
Wenn dich noch Unterlänge stört (also alles was unter der Grundlinie liegt, wie bei Buchstaben wie g, j, p, usw.), kannst du mit SetTextAlign etwas experimentieren. Zwar gibt es hier keinen direkten Wert, aber durch Wechsel zwischen TA_BASELINE, TA_BOTTOM, TA_TOP und etwas Subtraktion, kann man grob die Höhe über Grundline und die darunter ermitteln.

Will man mehr über den aktuellen Font erfahren, u. a. weil man z. B. den Ascent oder Descent wissen will, kann man das mit GetTextMetrics machen:

http://upload.wikimedia.org/wikipedi..._Terms.svg.png

Delphi-Quellcode:
var
  Metrics: TTextMetric;
  s: String;
begin
  Canvas.Font.Name := 'Arial';
  Canvas.Font.Size := 28;

  if GetTextMetrics(Canvas.Handle, Metrics) then
  //GetTextMetrics(DC: HDC; var Metrics: TTextMetric): Bool;
  begin
    s := 'Texthöhe nach Delphi: ' + IntToStr(Canvas.TextHeight('X')) + ^j^j;

    with Metrics do
    begin
      s := s + 'tmHeight: ' + IntToStr(tmHeight) + ^j;
      s := s + 'tmAscent: ' + IntToStr(tmAscent) + ^j;
      s := s + 'tmDescent: ' + IntToStr(tmDescent) + ^j;
      s := s + 'tmInternalLeading: ' + IntToStr(tmInternalLeading) + ^j;
      s := s + 'tmExternalLeading: ' + IntToStr(tmExternalLeading) + ^j;
      s := s + 'tmAveCharWidth: ' + IntToStr(tmAveCharWidth) + ^j;
      s := s + 'tmMaxCharWidth: ' + IntToStr(tmMaxCharWidth) + ^j;
      s := s + 'tmWeight: ' + IntToStr(tmWeight) + ^j;
      s := s + 'tmOverhang: ' + IntToStr(tmOverhang) + ^j;
      s := s + 'tmDigitizedAspectX: ' + IntToStr(tmDigitizedAspectX) + ^j;
      s := s + 'tmDigitizedAspectY: ' + IntToStr(tmDigitizedAspectY) + ^j;
      s := s + 'tmItalic: ' + IntToStr(tmItalic) + ^j;
      s := s + 'tmUnderlined: ' + IntToStr(tmUnderlined) + ^j;
      s := s + 'tmStruckOut: ' + IntToStr(tmStruckOut) + ^j;
      s := s + 'tmPitchAndFamily: ' + IntToStr(tmPitchAndFamily) + ^j;
      s := s + 'tmCharSet: ' + IntToStr(tmCharSet) + ^j;
      s := s + 'tmFirstChar: "' + tmFirstChar + '"' + ^j;
      s := s + 'tmLastChar: "' + tmLastChar + '"' + ^j;
      s := s + 'tmDefaultChar: "' + tmDefaultChar + '"' + ^j;
      s := s + 'tmBreakChar: "' + tmBreakChar + '"' + ^j;
    end;

    ShowMessage(s);
  end
  else
    MessageDlg('Ach herrje, ein Fehler!', mtError, [mbOk], 0);
end;

Geändert von Popov (11. Mär 2014 um 17:22 Uhr)
  Mit Zitat antworten Zitat
Medium

Registriert seit: 23. Jan 2008
3.685 Beiträge
 
Delphi 2007 Enterprise
 
#7

AW: "Echte" Ausmaße eines Strings ermitteln

  Alt 11. Mär 2014, 19:43
TextMetrics geben allerding "nur" die allgemeinen Settings für einen ganzen Font wieder. Wenn z.B. die Tilde bei deinem Font von vorne herein nahe der Grundlinie ansetzt, wird die damit ermittelte Höhe dennoch einiges an Luft beinhalten. Was dir am besten passt ist dann Ermessenssache.
"When one person suffers from a delusion, it is called insanity. When a million people suffer from a delusion, it is called religion." (Richard Dawkins)
  Mit Zitat antworten Zitat
Popov
(Gast)

n/a Beiträge
 
#8

AW: "Echte" Ausmaße eines Strings ermitteln

  Alt 11. Mär 2014, 20:53
Da ich das solche Infos auch gelegentlich brauche und dann stets mit des Suche neu anfange, habe ich mir für meine Beispiele-Ordner ein Beispiel mit Infos programmiert. Ist ähnlich wie oben, aber auf das Wesentliche reduziert:

Delphi-Quellcode:
procedure CanvInfo(Canv: TCanvas; x, y: Integer; Info: String);
begin
  Canv.Font.Size := 10;
  Canv.TextOut(x, y - Canv.TextHeight(Info), Info);
end;

procedure CanvLine(Canv: TCanvas; x, y, l: Integer);
begin
  Canv.Pen.Color := clBlue;
  Canv.MoveTo(x, y);
  Canv.LineTo(x + l, y);
end;

procedure TForm1.Button1Click(Sender: TObject);
const
  Text = 'Äg';
  LineLen = 30;
  LineSep = 5;
var
  TextH, TextW, TextTop, x: Integer;
  Metrics: TTextMetric;
  s: String;
begin
  with PaintBox1, Canvas do
  begin
    Font.Name := 'Arial';
    Font.Size := 120;

    TextH := TextHeight(Text);
    TextW := TextWidth(Text);
    TextTop := 20; //((ClipRect.Bottom - ClipRect.Top) - TextH) div 2;

    if GetTextMetrics(Canvas.Handle, Metrics) then
    begin
      with Metrics do
      begin
        TextOut(0, TextTop, Text); //erste Zeile
        TextOut(0, TextTop + TextH, Text); //zweite Zeile

        x := 0;
        CanvInfo(Canvas, x, TextTop, 'A');
        CanvLine(Canvas, x, TextTop, TextW + LineLen);
        CanvLine(Canvas, x, TextTop + tmHeight,LineLen + TextW);


        x := TextW + LineLen + LineSep;
        CanvInfo(Canvas, x, TextTop, 'B');
        CanvLine(Canvas, x, TextTop, LineLen);
        CanvLine(Canvas, x, TextTop + tmAscent, LineLen);

        x := x + LineLen + LineSep;
        CanvInfo(Canvas, x, TextTop + tmAscent, 'C');
        CanvLine(Canvas, x, TextTop + tmAscent, LineLen);
        CanvLine(Canvas, x, TextTop + tmAscent + tmDescent, LineLen);

        x := x + LineLen + LineSep;
        CanvInfo(Canvas, x, TextTop, 'D');
        CanvLine(Canvas, x, TextTop, LineLen);
        CanvLine(Canvas, x, TextTop + tmInternalLeading, LineLen);

        x := x + LineLen + LineSep;
        CanvInfo(Canvas, x, TextTop + tmHeight, 'E');
        CanvLine(Canvas, x, TextTop + tmHeight, LineLen);
        CanvLine(Canvas, x, TextTop + tmHeight + tmExternalLeading, LineLen);

        s := s + '[A] tmHeight: ' + IntToStr(tmHeight) + ^j;
        s := s + '[B] tmAscent: ' + IntToStr(tmAscent) + ^j;
        s := s + '[C] tmDescent: ' + IntToStr(tmDescent) + ^j;
        s := s + '[D] tmInternalLeading: ' + IntToStr(tmInternalLeading) + ^j;
        s := s + '[E] tmExternalLeading: ' + IntToStr(tmExternalLeading) + ^j;
      end;

      ShowMessage(s);
    end
    else
      MessageDlg('Ach herrje, ein Fehler!', mtError, [mbOk], 0);
  end;
end;
Miniaturansicht angehängter Grafiken
aeg.png  
  Mit Zitat antworten Zitat
Antwort Antwort

 

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 00:37 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz