Hi Aad,
yes.
IF HReadSeekFirst(CONTROLSETTINGS,CS_USERID_CONTROLNAME,NumToString(MyUSERis_USERID,"010d")+"Table_DEF_LS.Table") THEN
WindowAndControlName = NoSpace(CONTROLSETTINGS.CS_CONTROLNAME)
// Den Font bauen!
MyFont..Name = NoSpace(CONTROLSETTINGS.CS_TABLE_FONTNAME)
MyFont..Size = CONTROLSETTINGS.CS_TABLE_FONTSIZE
MyFont..Bold = CONTROLSETTINGS.CS_TABLE_FONTBOLD
MyFont..Color = CONTROLSETTINGS.CS_TABLE_FONTCOLOR
// Tabellen-Eigenschaften setzen
TableColumnCount = {WindowAndControlName,indControl}..NumberColumn
FOR C = 1 TO TableColumnCount
{WindowAndControlName+"."+(TableEnumColumn(WindowAndControlName,C)),indControl}..Font = MyFont
END
{WindowAndControlName,indControl}..LineHeight = CONTROLSETTINGS.CS_TABLE_LINEHEIGHT
END
Kind regards,
Guenter Predl
office@windev.at