Pascal-Objekt TPickItemEx

Erweiterte Eigenschaften eines Auswahllisten-Eintrages.

Erzeugen Sie keine eigene Instanz dieses Objektes, greifen Sie über "TFieldAttribute.PickItemEx(Value)" auf die vorhandenen Objekte zu.

Syntax

OfficeManager.Archive.FieldAttributeByFieldName(FieldName).PickItemEx(Value).Anweisung

TPickItemEx

FontStyle	TFontStyles	Read	Set of fsBold, fsItalic, fsStrikeOut
FullPath	String	Read	Text des Listenelements
Hint	String	Read, Write	Mehrzeilige Beschreibung
ImageIndex	Integer	Read, Write	Bildnummer
Status	Integer	Read, Write	0=normal, 1=Warnung

Beschreibung

Die Elemente in Auswahllisten bieten zusätzliche Gestaltungsmöglichkeiten: Schriftformatierung, farbige Hervorhebung, Textbeschreibung und Grafik.

Beispiel

procedure ProjectAttributes;

var

LAttr: TFieldAttribute;

LItem: TPickItemEx;

begin

LAttr := OfficeManager.Archive.FieldAttributeByFieldName('project');

// Auswahlliste ohne erweiterte Eigenschaften

if not LAttr.PickListHasObjects then

exit;

LItem := LAttr.PickItemEx('ZUGFeRD');

// LItem ist nil, wenn das Element keine erweiterten Eigenschaften hat

if LItem = nil then

exit;

// Hint abfragen

ShowMessage(LItem.Hint);

// Attribute ändern

LItem.Hint := 'Die neue Beschreibung'#13#10'mit zwei Zeilen';

LItem.ImageIndex := 10;

LItem.Status := 1;

// dauerhaft in Datenbank speichern

LAttr.PickListSave;

end;

Siehe auch

TFieldAttribute.PickListHasObjects