UpdateDisplay
Function Options(*DIRECT)
Begin_Com Role(*EXTENDS #PRIM_FORM) Clientheight(124) Clientwidth(498) Componentversion(1) Height(162) Left(261) Top(195) Width(514)
Define_Com Class(#PRIM_PGBR) Name(#ProgressBar) Displayposition(1) Left(8) Maximumvalue(10000) Minimumvalue(0) Parent(#COM_OWNER) Tabposition(1) Top(8) Value(1) Width(481)
Define_Com Class(#PRIM_PHBN) Name(#Start) Caption('Start (0)') Displayposition(2) Height(41) Left(8) Parent(#COM_OWNER) Tabposition(2) Top(72) Width(177)
Evtroutine Handling(#Com_owner.CreateInstance)
Case (#sys_appln.RenderStyle)
When (= DirectX)
#Com_owner.Caption := "DirectX"
When (= Win32)
#Com_owner.Caption := "Win32"
Endcase
Endroutine
Evtroutine Handling(#Start.Click)
#ProgressBar.value := 0
Begin_Loop To(10000)
#ProgressBar.value += 1
#Start.Caption := ("Start (&1)").Substitute( #ProgressBar.Value.Asstring )
End_Loop
Endroutine
End_Com