[Info] Problems with FMX TSpeedButtons in Delphi 13.1
Posted: Thu Jun 18, 2026 2:35 pm
You may notice that buttons in some FireMonkey demo projects look unusual: in addition to images from a TImageList, a flag icon is displayed on top of them.
This is caused by a bug in Delphi 13.1. Normally, the predefined button icons should be hidden when an image from a TImageList is assigned to the button.
This bug has been reported to Embarcadero, and hopefully it will be fixed in a future update.
As a workaround, you can use the code shown below. Assign the OnApplyStyleLookup event handler to all buttons that use images from a TImageList:
The FMX Editor 2 demo, compiled in Delphi XE8
The same demo, compiled in Delphi 13.1 (without the workaround)
This is caused by a bug in Delphi 13.1. Normally, the predefined button icons should be hidden when an image from a TImageList is assigned to the button.
This bug has been reported to Embarcadero, and hopefully it will be fixed in a future update.
As a workaround, you can use the code shown below. Assign the OnApplyStyleLookup event handler to all buttons that use images from a TImageList:
Code: Select all
procedure TfrmMain.btnApplyStyleLookup(Sender: TObject);
var
Ico: TControl;
begin
if (Sender as TStyledControl).FindStyleResource<TControl>('icon', Ico) then
Ico.Visible := False;
end;- ButtonsXE8.png (8.15 KiB) Viewed 10499 times
- Buttons13.1.png (9.43 KiB) Viewed 10499 times