mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-29 14:50:32 +02:00
win32: set control text for TBitButton also although it does not draw it natively (issue #0024135)
git-svn-id: trunk@41655 -
This commit is contained in:
parent
83c11c38c9
commit
00944bbf41
@ -659,6 +659,7 @@ end;
|
||||
class procedure TWin32WSBitBtn.SetText(const AWinControl: TWinControl; const AText: string);
|
||||
begin
|
||||
if not WSCheckHandleAllocated(AWinControl, 'SetText') then Exit;
|
||||
TWin32WSWinControl.SetText(AWinControl, AText);
|
||||
DrawBitBtnImage(TCustomBitBtn(AWinControl), AText);
|
||||
end;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user