FireMonkey TListView: Wie Farbe Elemente zur Laufzeit?

Ist es möglich, benutzerdefinierte Zeichnung für die VCL TListView, das Ihnen erlaubt, um die Farbe einzelner Elemente (hier ist ein Beispiel mit dem eher fragwürdigen Ansatz, ein TColor im Data eines Elements.)

Jedoch in der XE7 FMX-version des TListVew Kontrolle, es gibt keine OnCustomDraw Veranstaltung. Ich habe versucht, einige Optionen, aber nichts scheint, um die Farben zu ändern. Wie mache ich das?

  • Sie sind nicht die Wiedereröffnung nichts. Sie fordern eine neue Frage in ein neues Thema. Diese neue Frage ist, über FMX.
  • Die alte Frage ist über VCL und Windows. Deine neue Frage ist über ein ganz anderes UI framework (FMX) und ein völlig anderes OS (Android).
  • Bearbeitet - Sie sind Fragen, über die FMX-Steuerelement. FMX funktioniert ganz anders als die VCL-und es ist nicht so, dass die Falle gegangen ist, aber dass es nicht (und hat nicht immer) existierte. Stattdessen müssen Sie einen anderen Ansatz. Umgeschrieben, um dies anzugeben.
InformationsquelleAutor Please_Dont_Bully_Me_SO_Lords | 2015-03-02
  1. 5

    Können Sie ändern Sie die Farbe jedes list-Element text mit dem TListViewItem.Objects.DetailObject.TextColor Eigenschaft. Aber es gibt keine native Eigenschaft für Sie ändert sich jedes list-Element die Hintergrundfarbe.

    Entsprechend zu TListView Elemente Hintergrundfarbe:

    So ändern Sie die Hintergrundfarbe von TListView Elemente?

    ...

    Sie haben, verwenden Sie einen Stil. So fügen Sie ein stylebook de verwenden Sie entweder eine der
    Stile, die mit Delphi oder der rechten Maustaste auf das listview - "edit custom
    Stil", um den Stil. dubbleclick auf der stylebook zum öffnen des style
    und ändern Sie die listviewstyle.

    Aber das erklärt nicht, wie man um einen anderen Stil zu jedem Punkt der Liste.

    InformationsquelleAutor Remy Lebeau
  2. 3

    Jedes Element hat ein OnPaint-Ereignis. Weisen Sie einen event-handler wie folgt aus.

    procedure TfrmModelArchiver.lst1Paint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
begin
    Canvas.Fill.Color := TAlphaColorRec.Red;
    Canvas.FillRect(ARect, 0, 0, AllCorners, 0.2);
end;

    In diesem event-handler, die Deckkraft ist eingestellt auf 0,2, so kann der text durch. Wenn Sie die "Deckkraft" auf 1, werden Sie brauchen, um den text zu schreiben als auch zeichnen Sie den hintergrund wie unten gezeigt.

    procedure TfrmModelArchiver.lst1Paint(Sender: TObject; Canvas: TCanvas;
  const ARect: TRectF);
begin
    Canvas.Fill.Color := TAlphaColorRec.Red;
    Canvas.FillRect(ARect, 0, 0, AllCorners, 1);
    Canvas.Fill.Color := TAlphaColorRec.Black;
    Canvas.FillText(ARect, 'some text', False, 1, [],
      TTextAlign.taLeading);
end;
    InformationsquelleAutor Richard B. Winston
  3. 3

    Hier ist die Lösung.

    Diese moderne ListView-Komponente ist für Delphi 10 in Berlin mit FireMonkey für Android, IOS, OSX, und Windows. Ein nettes feature ist, dass es sowohl in der horizontalen und vertikalen Modus.
    SetColorItemSelected, SetColorItemFill, SetColorBackground, SetColorItemSeparator, SetColorText, SetColorTextSelected, SetColorTextDetail, SetColorHeader, SetColorTextHeader und viele andere Eigenschaften.

    • können Sie erklären, mehr die Lösung? der link kann verschwinden einige Tag
    • Dies ist ein custom unit FMX.ListView.pas und FMX.ListView.Typen.pas. Sie können testen demo hier github.com/rzaripov1990/ModernListView
    InformationsquelleAutor alitrun
Schreibe einen Kommentar