Hallo Thomas,
ich baue einen einfachen Browse-Befehl per Grid nach. Es wäre schön wenn ich alle Methoden, die ich bei einer normalen Grid-Definition im Formular-Designer verwenden kann, auch bei der Grid-Generation per Code anwenden könnte...
Code-Beispiel:
*DO prowse WITH "10,3,3,1120,592,1,Gesamt#60:f9999.99,renumm#40:uRe-Nr.:f99999,Datum#60,Name#200,Strasse#200,Ort#200,Eingang#60,email#150,ename#102"
*10 = Schriftgröße
*3 = Grid-Left
*3 = Grid-Top
*1120 = Grid-Width
*592 = Grid-Height
*1 = Zebra Ja
*.. Felder
*# = Feld Width
*:u = Spaltenüberschrift
*:f = Zahlenformat
*:c = zentriert
*:l = linksbündig
*:r = rechtsbündig
PARAMETERS prowse
IF PEMSTATUS(thisform,"Grid10",5)
bm.removeobject("grid10")
ENDIF
lstring = LEFT(prowse,AT(",",prowse,6))
rstring = STRTRAN(STRTRAN(SUBSTR(prowse,AT(",",prowse,6)+1),",",":,"),"#",":b")
prowse = lstring+rstring+":,"
*Grid Add
data = aktform+[.AddObject("Grid10","Grid")]
&data
* Grid - Schrifgröße
data = LEFT(prowse,AT(",",prowse)-1)
sg = data
prowse = SUBSTR(prowse,AT(",",prowse)+1)
data = aktform+[.Grid10.FontSize =]+ data
&data
* Grid - Zeilenhöhe (2 * Schriftgröße)
data = aktform+[.Grid10.RowHeight = ]+ALLTRIM(STR(VAL(sg)*2.5))
&data
* Grid - Left
data = LEFT(prowse,AT(",",prowse)-1)
prowse = SUBSTR(prowse,AT(",",prowse)+1)
data = aktform+[.Grid10.Left =]+ data
&data
..... usw
Eine eigene Klasse habe ich nicht gemacht. Mit Klaseen im Code habe ich noch nicht gearbeiet..., leider...
|
