RE: Changing font sizes on the fly

["Donn Edwards" <vmusic at spamcop dot net>]

Thanks, Joe

>   for i = 0 to form.ControlCount - 1
>     ctl = form.Control(i)
>     if ctl IsA StaticText then
>       StaticText(ctl).TextSize = StaticText(ctl).TextSize * sngZoom
>     elseif ctl IsA PushButton then
>       PushButton(ctl).TextSize = PushButton(ctl).TextSize * sngZoom
>     end if
>   next

If it's this simple then why doesn't the Windows IDE do it on the fly for
the incorrect point sizes? I mean, just set sngZoom to (screen DPI)/72 i.e.
96/72

See http://www.realsoftware.com/feedback/viewreport.php?reportid=fnxftsfy
 

_______________________________________________
Unsubscribe or switch delivery mode:
<http://www.realsoftware.com/support/listmanager/>

Search the archives of this list here:
<http://support.realsoftware.com/listarchives/lists.html>