Einzelnen Beitrag anzeigen

Starsky911

Registriert seit: 8. Feb 2008
63 Beiträge
 
#5

AW: Firemonkey TListView Entwurfsmodus

  Alt 8. Jan 2020, 08:44
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
  Mit Zitat antworten Zitat