PUBLIC sy,da,ks,tb,tb2,pust,ip,cm,tm
PRIVATE l_ip_main,lfxp,lapp_pat

set step ON 
SET CLASSLIB TO ('libs\a_data.vcx') ADDITIVE 
da = CREATEOBJECT('data')
da.c_jazyk = 0

ip = CREATEOBJECT('ip')

SET CLASSLIB TO ('libs\a_sys.vcx') ADDITIVE 
sy = CREATEOBJECT('sys')

sy.ikona			='bitmaps\kongres.ico'
  DO FORM prihlas TO pust
SET CLASSLIB TO ('libs\kongres.vcx') ADDITIVE 
cm = CREATEOBJECT('congressman')


 da.text_mut = 0
 
  tb = CREATEOBJECT('tool_con')
 
tb.label1.caption = ' Prog: '+substr(str(cm.verzia,4),1,2)+'.'+ substr(str(cm.verzia,4),3,2) +CHR(13)
