[futurebasic] Re: [FB] How do you change a font in a dialog box?

Message: < previous - next > : Reply : Subscribe : Cleanse
Home   : March 2000 : Group Archive : Group : All Groups

From: Joe Lewis Wilkins <PepeToo@...>
Date: Wed, 15 Mar 2000 15:13:57 -0800
Outstanding tip Al,

Do you by any chance know how to do the same thing to the names
of Check Boxes, Radio Buttons and Editable Text in Modal Dialogs?

Since you didn't come up with something you thought worthy as a
Demo for the FB Book, how about we have some more Gems like
this one. I've got tons of Modals I can use them with. Is there a
comparable situation with Alerts? And where is this kind of stuff
documented? If it is!

Joe Wilkins

PS --
I had always set the port, but could never find a reason for having
done so and was almost ready to pull that code out. This may be
really useful when localizing Dialogs, where smaller fonts can be
used instead of the larger Chicago or Charcoal.

AlStaff@... wrote:

> Static texts in dialogs can be changed using standard FB if you set the
> dialog window to be the current window port.
>
> ' FB II code
> oldRes = FN CURRESFILE                  ' get current res file
> CALL USERESFILE (gAppRef%)            ' apps res fork
> CALL GETPORT (oldport&)                 ' get FB window grafport
> Dlg&=FN GETNEWDIALOG(303,0,-1)     'get hndl for DLOG resource
> LONG IF Dlg& > 0                            'valid handle?
>  CALL SETPORT(Dlg&)                     'set grafport
>  CALL SELECTWINDOW (Dlg&)          'set output to DLOG window
>  CALL TEXTFONT (2)                   ' set font for static texts
>  CALL TEXTSIZE (10)                   ' set text size for static texts
>  CALL DRAWDIALOG(Dlg&)             'draw DLOG window on screen
>  DO
>   CALL MODALDIALOG (0, butn%)          'get input from DLOG window
>  UNTIL butn% = 1
>  CALL DISPOSDIALOG (Dlg&)               ' dispose of dialog
>  CALL SETPORT (oldport&)             ' set port back to FB window
>  CALL USERESFILE (oldRes)        ' set res file to previous res file
> END IF