Problem

Standard initialisation of a user interface. One of many solutions

Script

!### 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