Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Zeilenhöhe des Stringgrids genaustens erweitern nach Umbruch (https://www.delphipraxis.net/59944-zeilenhoehe-des-stringgrids-genaustens-erweitern-nach-umbruch.html)

Logan 31. Dez 2005 02:20


Zeilenhöhe des Stringgrids genaustens erweitern nach Umbruch
 
Hi,
ich muss euch wiedermal nerven *g*

Wie der Titel schon sagt möchte ich die Zeilenhöhe nach einem oder mehreren Zeilenumbrüchen im Text ändern.
Ich habe es versucht mit:

SG.RowHight:=(Anzahl der Umbruche+1)*SG.Font.Size
//Is zu klein, aber mit * 2 nicht richtig passend, aber bei mehreren Umbruchen sieht es nicht mehr schön aus (zu gross)

und mit:

SG.RowHight:=(Anzahl der Umbrüche+1)*SG.DefaultRowHight
//Viel zu gross

Danke euch schon vielmals und wünsche nen guten Rutsch ins neue Jahr!!!

MfG
Logan

FriFra 31. Dez 2005 02:31

Re: Zeilenhöhe des Stringgrids genaustens erweitern nach Umb
 
Hast Du schonmal versucht vorher die reine Texthöhe zu ermitteln?

Canvas.TextHeight('Testzeile1'#13'Zeile2'#13'Zeile 3')

und dann einfach die Differenz (Die Zelle ist ja höher als die Zeile) dazu zu addieren?

Keldorn 31. Dez 2005 08:10

Re: Zeilenhöhe des Stringgrids genaustens erweitern nach Umb
 
Hallo

ich würd drawtext in Verbindung mit DT_Calcrect verwenden, um die Höhe des gesamten Textes zu bestimmen. Dazu mußt du noch einen kleinen Intergerwert dazuaddieren, da der Text nicht an 0,0 der Zelle gezeichnet wird. Wie groß der Wert sein muß, mußt du ein biscchen probieren und da das Grid keine Zeilenumbrüche von Haus aus darstellen kann, zeichnest du den Text also auch selber (würde auch wieder drawtext verwenden) und weißt also auch selber, wo du den normalen Text hinzeichnest.

Mfg Frank


Alle Zeitangaben in WEZ +1. Es ist jetzt 02:41 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