TScale schein hier eine eigene Klasse zu sein. Der Objekt-Inspektor zeigt alle in Frage kommenden Properties einer Klasse (genauer: TPersistent) gemeinsam an. Genau - das ist eine Möglichkeit, mehrere zusammengehörende Properties auch zusammenzuhalten. Wenn es sich nur um boolsche Properties handelt, kannst du dafür auch eine Menge (Set) definieren, was etwas einfacher zu verwalten ist. Der Propertyeditor für jede Menge bewirkt dann, dass im Objektinspektor die Elemente in dem Ausklapp-Feld einzeln zum An- und Abwählen angezeigt werden.
Beispiel: TStringGrid.Options = (goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, ...):
Code: Alles auswählen
type
TGridOption = (
goFixedVertLine, // vertikale Trennlinien der Fixed-Zellen anzeigen
goFixedHorzLine, // horizontale Trennlinien der Fixed-Zellen anzeigen
goVertLine, // vertikale Trennlinien anzeigen im Zellenfeld
goHorzLine, // horizontale Trennlinien anzeigen im Zellenfeld
// ... usw.
);
TGridOptions = set of TGridOption;
TCustomGrid = class(TCustomControl)
private
FOptions: TGridOptions;
procedure SetOptions(AValue: TGridOptions);
...
property Options: TGridOptions read FOptions write SetOptions;