paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-06 00:00:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL-CustomDrawn: Fix TButton's caption. Issue #40638, patch by Alexey Torgashin.

Browse Source
This commit is contained in:
Juha 2023-12-11 22:39:46 +02:00
parent 34b0afa4d8
commit 728725bd7f
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/customdrawn/customdrawnwsstdctrls.pas
View File

@ -1651,8 +1651,7 @@ end;*)
class procedure TCDWSButton.InjectCDControl(const AWinControl: TWinControl; var ACDControlField: TCDControl);
begin
ACDControlField := TCDIntfButton.Create(AWinControl);
TCDIntfButton(ACDControlField).LCLControl := TButton(AWinControl);
TCDIntfButton(ACDControlField).LCLControl := TCustomButton(AWinControl);
ACDControlField.Caption := AWinControl.Caption;
ACDControlField.Parent := AWinControl;
ACDControlField.Align := alClient;
@ -1673,6 +1672,7 @@ var
begin
Result := TCDWSWinControl.CreateHandle(AWinControl, AParams);
lCDWinControl := TCDWinControl(Result);
lCDWinControl.CDControl := TCDIntfButton.Create(AWinControl);
end;
class procedure TCDWSButton.DestroyHandle(const AWinControl: TWinControl);