!### Parameters for ArchiCAD version and Platform
GDL = REQ("GDL_Version") sts = REQUEST("Name_of_program", "",TeX) IF STRSTR(TeX,".EXE") OR STRSTR(TeX,".exe") THEN Dose=1 !#### Einstellungen / settings !»» Anpassung nach ArchiCad-Version ! Linker Rand/Left margin : max. Breite/max. width IF GDL>1.279 THEN LM=25 : maxX=444 ELSE LM=5 : maxX=310 ENDIF !»» Abmessungen / dimensions RM=maxX-LM ! Rechter Rand / right margin position maxY=265 ! Maximalhöhe /max. height uiTH=15 ! Texthöhe / height of text uiFH=20 ! Eingabefeldhöhe / height of input fields uiZH=uiFH+4 ! Zeilenhöhe / line height
!»» Abweichung bei UI_INFIELDS IF Dose THEN vD=4 ELSE vD=1 !»» Einheit für Zahlenausgabe / format for numerics sts = REQUEST("Working_length_unit", "",format) sts = REQUEST("Working_angle_unit", "",formatW) !»» Workaround für AC-bug bei update von UI-Seiten IF 1=2 then LM=LM-1 RM=RM-1 ENDIF !#### Standardelemente aller Seiten !»» Dialoginitialisierung UI_DIALOG "Dialogüberschrift" UI_PAGE 1 !»» ©-Vermerk UI_STYLE 1,0 UI_OUTFIELD "gdl@mailadress.spam", maxX-105,maxY-21,120,15 UI_OUTFIELD "©2011 author", maxX-85,maxY-10,120,15 UI_STYLE 0,0
!#### ... und Los gehts uiY=0 !»» vertical starting position
!»» uiTH=20 : uiFH=25 : uiZH=uiFH+2 uiL=90 : uiR=RM-uiL : uiB=RM-LM UI_OUTFIELD "Werte:", LM,uiY+3,uiL,uiTH UI_INFIELD "var", LM+uiL,uiY,uiR,uiFH
uiY=uiY+uiZH