Gestaltungsmöglichkeit vom ListView ist über das OnFilledListItem Event
vom LiveBinding Object (LinkFillControlToField1) möglich.
In dem Beispiel wird das Feld "name" mit "vanme" verbunden und die Farbe
anhand des Feldes "kdid" gestaltet.
Delphi-Quellcode:
procedure TMainForm.LinkFillControlToField1FilledListItem(
Sender: TObject; const AEditor: IBindListEditorItem);
var
LTextObject: TListItemText;
LItem: TListViewItem;
begin
inherited;
LItem := AEditor.CurrentObject as TListViewItem;
LTextObject := LItem.Objects.FindDrawable('Text1') as TListItemText;
if Assigned(LTextObject) then begin
LTextObject.Text:=fdmKunde.FieldByName('name').AsString+' '+fdmKunde.FieldByName('vname').AsString;
if fdmKunde.FieldByName('kdid').AsInteger > 100 then
LTextObject.TextColor := TAlphaColorRec.Firebrick
else
LTextObject.TextColor := TAlphaColorRec.Black;
end;
end;
Gruß, Starsky