Firemonkey TListView Entwurfsmodus

[Starsky911]

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