Hallo Richard,
programmatisch könnte das ungefähr so aussehen. Ich habe Deinen Parameter verwendet und begrenzt auf Spaltenbreite und Beschriftung. Rest kannst bestimmt nachpflegen. So könntest Du Deinen Aufruf weiterhin nutzen. ControlSource usw. muss man ebenfalls noch anpassen. Weitere Methode werde auf die gleiche Weise angelegt.
MyBrowse("10,3,3,1120,592,1,Gesamt#60,renumm#40,Datum#60,Name#200,Strasse#200,Ort#200,Eingang#60,email#150,ename#102" )
DEFINE CLASS myBrowse AS Grid
PROCEDURE INIT
LPARAMETERS tcBrowse
LOCAL lnI, loColumn
*-- Koordinaten
THIS.FontSize = VAL( GETWORDNUM( tcBrowse, 1, "," ) )
THIS.Left = VAL( GETWORDNUM( tcBrowse, 2, "," ) )
THIS.Top = VAL( GETWORDNUM( tcBrowse, 3, "," ) )
THIS.Height = VAL( GETWORDNUM( tcBrowse, 4, "," ) )
THIS.Width = VAL( GETWORDNUM( tcBrowse, 5, "," ) )
*-- Parameter 6: Was ist Zebra?
*-- Spalten
THIS.ColumnCount = GETWORDCOUNT( tcBrowse, "," ) - 7
FOR lnI = 1 TO THIS.ColumnCount
*-- Trennzeichen #
THIS.Columns(lnI).Width = VAL( GETWORDNUM( GETWORDNUM( tcBrowse, lnI+7, "," ), 1, "#" ) )
THIS.Columns(lnI).Header1.Caption = GETWORDNUM( GETWORDNUM( tcBrowse, lnI+7, "," ), 2, "#" )
ENDFOR
ENDDEFINE
Gruß
Thomas
|
