Change font size at run time

[earlrainer]

Hey guys,

my problem is I have a dbedit box on my form.
but sometimes the data it contains is too big to be seen completely...so I was thinking maybe if I can change the font size automatically so that entire data can be seen.

but i dont know how this can be done.

any help guys???

 

[LucieLastic]

Have you tried changing the dbedit1.Font.Size at runtime ? You may be restricted just how small you can go.

If the data in the DBEdit is for readonly purposes, you could use a DBText and set it's AutoSize property to true.

lou

 

[Guest_imported]

Well, have you tried to set the autosize of the TDBedit to True?

If you want to do it manually, it should be enough with:

(...)
If Length(TDBedit1.Caption)>MaxDisplayedLength Then
Begin
TDBedit.Font.Size:=SmallSize
Refresh; //Very Important!!!!
End;

Hope this helps,
Dani.

 

[LucieLastic]

hi BSide

I believe Autosize on a TDBEdit sets the height only and not the width.

lou

 

[Ronin441]

    mycanvas.Font.Height := initialvalue;
    while (mycanvas.Font.Height > 1)
      and (mycanvas.TextWidth(mydbedit.Text) > mydbedit.Width) do
        mycanvas.Font.Height := mycanvas.Font.Height - 1;                

    mydbedit.Font.Height := mycanvas.Font.Height;

In other words, while the text is too wide, shrink it.

Put this in the dbedit's OnChanged event, so it'll get called every time the user types a key.

You can use any old canvas that's lying around as mycanvas; you can create one or just use the one you get free with a form. -- Doug Burbidge mailto:doug@ultrazone.com

http://home.iprimus.com.au/dougburbidge/