(winattr)(x , y, width, height [, font, fcolor, bcolor ])
Die Attribute beschreiben die Position des linken oberen Eckes des Objektes (x,y), die Breite (width) und die Höhe (height) des Objekts sowie die Schriftart, die Schriftfarbe und die Hintergrund-Farbe.
Die Maß- und Positionsangaben x, y, width und height sind Einheiten von Dialogfenstern, eine in MS-Windows allgemein verwendete Größe. Etwa 12 Einheiten sind die Höhe einer Zeile, etwa 4 Einheiten sind die Breite eines Buchstabens.
Durch Verweis auf bereits vorher definierte Objekte ist es möglich, nur wenige Maßangaben absolut anzugeben und die weiteren Objekte relativ zu diesen Objekten zu definieren, so dass bei Verschiebung von mehreren Objekten nur die absoluten Angaben geändert werden müssen.
Alle Integer-Angaben Können als absolute Zahl oder als Integer-Variablen angegeben werden. Für die Angaben x, y, width und height können komplexe Ausdrücke mit beliebig vielen Rechenoperation mit Verweisen, absoluten Zahlen und Integer-Variablen angegeben werden.
x item [ + | - | / | * item ] [ .... ] Position des Objektes vom linken
Fensterrand
y item [ + | - | / | * item ] [ .... ] Position des Objektes vom oberen
Fensterrand
width item [ + | - | / | * item ] [ .... ] Breite des Objekts
height item [ + | - | / | * item ] [ .... ] Höhe des Objekts
item = int | int-var | name/L | name/R | name/T | name/B | name/W | name/H
int absolute Zahl.
int-var Integer-Variable.
name/L x-Position des linken Randes des Objekts name.
name/R x-Position des rechten Randes des Objekts name.
name/T y-Position des oberen Randes des Objekts name.
name/B y-Position des unteren Randes des Objekts name.
name/W Breite des Objekts name.
name/H Höhe des Objekts name.
font Die Nummer der Schriftart, die mit dem Kommando WINGEN FONT definiert wurde. Wird "0" angegeben, so wird ein evtl. gültiger Wert aus dem Kommando WINGEN STD durch den Systemwert überschrieben.
fcolor Nummer der Schriftfarbe, die mit dem Kommando WINGEN COLOR definiert wurde. Wird "0" angegeben, so wird ein evtl. gültiger Wert aus dem Kommando WINGEN STD durch den Systemwert überschrieben.
bcolor Nummer der Hintergrundfarbe, die mit dem Kommando WINGEN COLOR definiert wurde. Wird "0" angegeben, so wird ein evtl. gültiger Wert aus dem Kommando WINGEN STD durch den Systemwert überschrieben.
Beispiele:
(10,10,100,15)
(10,10,100,15,1,1)
(feld1/L,feld1/L+15,feld/H)
Datei wingen2.cmd:
@proc10
@del
@@ msgbox'ok Button gedrückt'
@end
@wingen use=1
@wingen clear
@wingen font=1,'Courier New',20
@wingen font=2,'Times',12
@wingen color=1,255,0,0
@wingen color=2,0,255,0
@wingen title='wingen2.cmd - Positionsangaben'
@rem 1. Zeile = Text + Eingabefeld
@wingen :text1: static=(10,10,90,12,1,1,2),'Feld1'
@wingen :feld1: edit=(100,text1,50,text1,2,2,1),#s10
@rem winattr= 100,10, 50,15
@rem 2. Zeile = Text + Eingabefeld
@wingen :text2: static=(text1,text1+2,text1,text1),'Feld2'
@wingen :feld2: edit=(feld1,text2,feld1,feld1),#s11
@rem winattr=100, 30, 50, 15
@rem 3. Zeile = Text + Eingabefeld
@wingen :text3: static=(text1,text2+2,text1,text1),'Feld3'
@wingen :feld3: edit=(feld1,text3,feld1,feld1),#s12
@rem winattr=100, 50, 50, 15
@rem 4. Zeile = nur Text
@crea #s13:'Langer Text zu Feld4 über die ganze Breite'
@wingen :text4: static=(text1,text3+12,feld1/r-text1/l,15),#s13
@rem winattr= 10, 70, 150-10 ,15
@rem 5. Zeile = nur Eingabefeld
@wingen :feld4: edit=(text4,text4+2,text4,feld1),#s14
@rem winattr=100, 90, 140, 15
@wingen button=(text1,feld4+10,feld1,feld1),'&OK',update,proc10,10
@wingen button=(feld1,feld4+10,feld1,feld1), '&Cancel',close,cancel,99
@wingen out=1
Datei wingen4.cmd:
@wingen use=1
@wingen clear
@wingen title='Test alle Objekte'
@wingen line=(8,10,1,300)
@wingen line=(61,10,1,300)
@wingen :f1:static=(10,10,50,12),'Test STATIC'
@wingen :f2:edit=(f1,f1+2,f1,f1),#s1
@wingen :f3:box=(f1,f2+2,f1,f1+12),'Test Box'
@wingen :f4:line=(f1,f3+7,f1,1)
@wingen :f4b:radiogroup=#i10
@wingen :f4c:radio=(f1,f4+7,f1,f1),'Radio1'
@wingen :f5:radio=(f1,f4c+2,f1,f1),'Radio2'
@wingen :f6:spin=(f1,f5+2,f1,f1),1,1000,#i11
@wingen :f7:toggle=(f1,f6+2,f1,f1),'Toggle1',#i12
@wingen :f7b:toggle=(f1,f7+2,f1,f1),'Toggle2',#i13
@wingen :f8:button=(f1,f7b+2,f1,f1),'Button',close,update,10
@wingen :f9:slider=(f1/l+10,f8+2,f1-20,f1),10,10,1,99,#i14
@wingen :f10:listbox=(f1,f9+2,f1,36),#l10,#l11,10,#i15
@wingen :f11:combobox=(f1,f10+2,f1,48),#l10,#l11,10,#i16
@wingen :f12:table=(f1,f11+2,100,48),#l10,#l11,11,'PLZ~40~Ort~120'
@#i10=0
@#i11=523
@#i12=0
@#i13=1
@#i14=3566
@#l10=1
@#l11=5
@proc10
@del
Zeile1
Zeile2
Zeile3
Zeile4
Zeile5
@end
@proc11
@del
80331~München
23669~Timmendorfer Strand
13088~Berlin
21073~Hamburg
56729~Langscheid
@end
@wingen out=1