PxLenght of Text in String/TextGadget

Searhin · **Posted:** Mon May 26, 2003 11:13 am

Hi,

is there a way to determine the length (in pixels- not characters) of a text to be displayed in a StringGadget or TextGadget?

I want to display text of varying lengths in deactivated StringGadgets. Long Texts should be displayed in MultiLine Gadgets, short text in single lines to save space. Problem is, i dunno how to find out the number of lines i need for a given text.

thanx,
Searhin

El_Choni · **Posted:** Mon May 26, 2003 12:08 pm

Code:

Procedure TextWidth(text$) 
  GetTextExtentPoint32_(GetDC_(0), text$, Len(text$), sz.SIZE) 
  ProcedureReturn sz\cx 
EndProcedure

Searhin · **Posted:** Mon May 26, 2003 2:18 pm

WOW!

thanx - that's even easier than i thought :lol:

El_Choni · **Posted:** Mon May 26, 2003 3:35 pm

Have in mind that it gives width for text with the default GUI font. If you change font, you should use this (after UseFont() or SetGadgetFont()):

Code:

Procedure TextWidth(text$, WindowID)
  hDC = GetDC_(WindowID)
  GetTextExtentPoint32_(hDC, text$, Len(text$), sz.SIZE)
  ReleaseDC_(WindowID, hDC)
  ProcedureReturn sz\cx 
EndProcedure

Searhin · **Posted:** Mon May 26, 2003 4:55 pm

ah, okay - now it gives the correct results

thanx again

Fred · **Posted:** Mon May 26, 2003 8:41 pm

None API based one:

Code:

If StartDrawing(WindowOutput())
  Length = TextLength("Hahah")
  StopDrawing()
EndIf

El_Choni · **Posted:** Mon May 26, 2003 11:54 pm

I had asked for this function several times, and it was already there. Sorry.

Searhin · **Posted:** Tue May 27, 2003 11:05 am

being most embarassed... :oops:

Fred · **Posted:** Tue May 27, 2003 3:03 pm

No problem guys

GPI · **Joined:** Fri Apr 25, 2003 6:41 pm **Posts:** 1364

A TextHeight(text$) - function would be nice.

PB · **Joined:** Fri Apr 25, 2003 5:24 pm **Posts:** 7581

> A TextHeight(text$) - function would be nice.

Try this:

http://forums.purebasic.com/english/vie ... php?t=3801

Not sure if it does what you want, but the value of "tm\tmHeight" that it
returns might be the height of the text. Give it a try...

El_Choni · **Posted:** Wed May 28, 2003 12:45 pm

This works with height, too:

Code:

Procedure TextHeight(text$, WindowID)
  hDC = GetDC_(WindowID) 
  GetTextExtentPoint32_(hDC, text$, Len(text$), sz.SIZE) 
  ReleaseDC_(WindowID, hDC) 
  ProcedureReturn sz\cy
EndProcedure

Now, don't tell me there was also a TextHeight() command in PB

Fred · **Posted:** Wed May 28, 2003 1:12 pm

I guess it will be soon then

Gansta93 · **Posted:** Thu Oct 21, 2004 12:57 pm

It would be better if we wouldn't have to do StartDrawing() and StopDrawing() to know the width in pixels of a text. It would be faster. Time is monay :-)

.

Trond · **Posted:** Tue Jul 18, 2006 9:44 pm

Fred wrote:

None API based one:

Code:

If StartDrawing(WindowOutput())
  Length = TextLength("Hahah")
  StopDrawing()
EndIf

That doesn't do what he asked for because the default font inside StartDrawing() and StopDrawing() is different from the default GUI font.

PureBasic Forum

PxLenght of Text in String/TextGadget

Who is online