On_Init.f
:M On_Init: ( -- )
On_Init: Super
s" MS Sans Serif" SetFaceName: WinFont
8 Width: WinFont
Create: WinFont
\ set form color to system color
COLOR_BTNFACE Call GetSysColor NewColor: FrmColor
self Start: Horiz1
Horiz1_X Horiz1_Y Horiz1_W Horiz1_H Move: Horiz1
;M