OpenEuphoria

RE: problem changing font

• Posted by Ron Austin <ronaustin at alltel.net> Jan 02, 2004
• 417 views

Pete Lomax wrote:
> 
> 
> On Fri,  2 Jan 2004 15:35:15 +0000, Ron Austin <ronaustin at alltel.net>
> wrote:
> 
> >procedure print_it( integer self, integer event, sequence params)
> >setFont(win,"Roman",18,1)
> >sequence name
> 
> Within a procedure or routine definition, variable declarations must
> occur before any code, so just swap the last two lines above and it
> should be fine.
> 
> Pete
> 
Thanks for the help.  Now maybe you can tell me why this don't work
---------------------------------------------------------------------
-- INITIALIZE PROGRAM
---------------------------------------------------------------------
procedure Activate_MainWin(integer self, integer event, sequence parms)
setFont(Win,"Roman",18,1)    
    hFile = trm_Open(fio, 1)
    GetStatus() 
    setFocus(Data[2])
    buffer = ""
    eof    = 0
end procedure
setHandler(Win, w32HActivate, routine_id("Activate_MainWin")) 

As you can see this is a procedure that is ran when the window is 
activated.  Window "Win" has 6 Tab controls.  on Tab1 there are 34 LText 
Lables, 30 SleText controls and 4 Combo conrols.  I have discovered that 
I can change the font size of an individual control, but is there a way 
to change the size of all the controls by using one statement?