TTMSFMXTableView Delete Button

FMX TMS FMX UI Pack
1

How can I change the text of this programatically and, could you please add to the wish list to have this as a property the same as you do for MoveText?

2

If you mean the delete but "Archive" at the bottom the property ArchiveText can be used.

For the individual delete buttons when swiping the items you can use the following code:

procedure TForm1.TMSFMXTableView1ItemCustomize(Sender: TObject;
  AItem: TTMSFMXTableViewItem; AItemShape: TTMSFMXTableViewItemShape;
  AItemControlShape: TControl);
var
  btn: TTMSFMXBarButton;
begin
  if Assigned(AItemShape) then
  begin
    btn := AItemShape.ShapeDeleteButton;
    if Assigned(btn) then
    begin
      btn.AllowCustomize := True;
      btn.Text := 'Hello';
    end;
  end;
end;
3

Thanks, but when I use this code the delete button is no longer red, it is dark gray. Without the code it is red. How can I get the red color back?

Ken

4

You would manually need to set the color, with the following code:


procedure TForm1.TMSFMXTableView1ItemCustomize(Sender: TObject;
  AItem: TTMSFMXTableViewItem; AItemShape: TTMSFMXTableViewItemShape;
  AItemControlShape: TControl);
var
  btn: TTMSFMXBarButton;
begin
  if Assigned(AItemShape) then
  begin
    btn := AItemShape.ShapeDeleteButton;
    if Assigned(btn) then
    begin
      btn.NeedStyleLookup;
      btn.ApplyStyleLookup;
      btn.AllowCustomize := True;
      btn.Text := 'Hello';
    end;
  end;
end;
5

Many thanks.