VCL TCheckListBox -> FMX ?????

[bernhard_LA]

bei der Umstellung von VCL Code auf FMX finde ich kein Replacement für eine VCL TCheckListBox .
Was sollte ich hier verwenden ?

[KodeZwerg]

1 sekunde google befragt = Hinzufügen eines Kontrollkästchens oder eines anderen Elements zu einem ListBox-Eintrag << Suche diesen Absatz und lese.

Sollte Dich ans Ziel bringen.

Zitat:

Zitat von bernhard_LA (Beitrag 1408249)

Was sollte ich hier verwenden ?

FMX.ListBox.TListBox

[Uwe Raabe]

Alternativ kannst du in der ListBox auch die Eigenschaft ShowCheckboxes auf true setzen.

[Harry Stahl]

Zitat:

Zitat von KodeZwerg (Beitrag 1408250)

1 sekunde google befragt = Hinzufügen eines Kontrollkästchens oder eines anderen Elements zu einem ListBox-Eintrag << Suche diesen Absatz und lese.

Sollte Dich ans Ziel bringen.

[Eigenwerbung /an] Alternativ gibt es auch Bücher, wo so etwas beschrieben ist :wink: (in dem Fall auf Seite 49)... [Eigenwerbung /aus]

[KodeZwerg]

Das Unterstütze ich glatt Das Buch!

[bernhard_LA]

aktuelle Lösung:

Delphi-Quellcode:

unit TCheckListBox.FMX;

interface

uses
  System.SysUtils, System.Classes, FMX.Types, FMX.Controls, FMX.Layouts,
  FMX.ListBox;

type
  TCheckListBox = class(TListBox)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }

    constructor Create  (AOwner: TComponent); override;
  published
    { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Samples', [TCheckListBox]);
end;

{ TCheckListBox }

constructor TCheckListBox.Create (AOwner: TComponent);
begin
  inherited;

  self.ShowCheckboxes := true;
end;

end.

[Redeemer]

Delphi-Quellcode:

TCheckListBox.FMX;

Komische Unit-Benennung...

[Uwe Raabe]

Ich finde auch den Ansatz, eine separate Komponente zu haben, deren einzige Eigenschaft ein verändertes published property ist, auch etwas abstrus. Insbesondere, da mangels entsprechender default-Angabe dieses Property innerhalb einer DFM ja dann doch wieder erscheint und somit bis auf den Klassennamen kein Unterschied zu einer normalen TListBox besteht. In der Regel versucht man doch, den Komponenten-Zoo so kompakt wie möglich zu halten.

[bernhard_LA]

der Ansatz ist (Not)Lösung um GUI Hilfsfunktionen, entwickelt für unsere Anwendungen mit VCL Framework jetzt auch unter FMX kompilieren zu können. vermutlich muss ich diese Unit noch teilen in GUI_Spport.VCL.pas und in GUI_Spport.FMX.pas;
Daher unser NamensAnsatz.



Wie macht Ihr Cross Plattform Entwicklung mit Delphi ? Bin immer offen für Anregungen :-)

[bernhard_LA]

ich benötige für die FMX Checkbox auch die Eigenschaft Checked, welche in der VCL version vorhanden war

Mein Ansatz

Delphi-Quellcode:

  TCheckListBoxEXT = class( TListBox )

    private

      ...

      FAllChecked : Boolean;


      FChecked : array of Boolean;

      function GetChecked(Index: Integer): Boolean;
      procedure SetChecked(Index: Integer; const Value: Boolean);

      property   Checked[Index : Integer ]  : Boolean   read  GetChecked   write SetChecked ;

end;

bringt leider die Fehlermeldung [dcc32 Error] E2188 Published property 'Checked' cannot be of type ARRAY
was mache ich denn hier falsch ?