RE: problem changing font
- Posted by Tommy Carlier <tommy.carlier at pandora.be> Jan 02, 2004
- 385 views
Ron Austin wrote: > 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? > Instead of setFont(Win, "Roman", 18, 1), you can pass more than 1 control in a sequence, like this: setFont({Win, Tab1, Tab2, LText1}, "Roman", 18, 1) ______________ tommy online: http://users.pandora.be/tommycarlier