VCL TCheckListBox -> FMX ?????

[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 :-D, 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 ?