* WINDOW TITLE "Popis a výška"
@ 0, 15 GET JZM_Popis PREFIX "Popis prvku:" SIZE 0,40 ONCHANGE=OnChange_VAR
@ 1, 15 GET JZM_Vyska PREFIX "Výška zdi:" SIZE 0,20
@ 2, 15 GET JZM_Koty PREFIX "Kóta k zdi:" SIZE 0,20


@ 4, 1 BUTTON FORM "UAP_DUG.fmt" \\\
       SIZE 0,15 TITLE "Informace STI" \\\
       ID "VIS"


Function OnChange_VAR
  IF GETENV("GI_SZDC_FORM_STI_BUTTON")="1"
    CHANGESTATE ID=VIS DISABLED=0
    CHANGESTATE ID=VIS HIDDEN=0
  ELSE
    CHANGESTATE ID=VIS DISABLED=1
    CHANGESTATE ID=VIS HIDDEN=1
  ENDIF
EndFunction