VCL TCheckListBox -> FMX ?????

[Redeemer]

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 ?

[Schokohase]

Also suchst do so etwas?

Delphi-Quellcode:

type
  TListBoxHelper = class helper for TListBox
  private
    function GetChecked(Index: Integer): Boolean;
    procedure SetChecked(Index: Integer; const Value: Boolean);
  public
    property Checked[Index: Integer]: Boolean read GetChecked write SetChecked;
  end;

  { TListBoxHelper }

function TListBoxHelper.GetChecked(Index: Integer): Boolean;
begin
  Result := Self.ItemByIndex(Index).IsChecked;
end;

procedure TListBoxHelper.SetChecked(Index: Integer; const Value: Boolean);
begin
  Self.ItemByIndex(Index).IsChecked := Value;
end;

[bernhard_LA]

sieht schon mal gut aus , der Class Helper Ansatz kompiliert und ich kann die Komponente Installieren.


In der VCL Variante gab eine funktion um auf einen Tastendruck zu reagieren

Delphi-Quellcode:

procedure TCheckListBoxEXT.KeyPress( var Key : Char );
  var
    Shift : TShiftState;
    Matchpattern : String;
  begin
    if Key = ^A
    then
      begin
        checkall;
        Key := #0;
      end;

    if Key = ^U
    then
      begin
        uncheckall;
        Key := #0;
      end;
     ....

Wie lautet hier die entsprechende FMX Variante ?