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:
paul 2013-06-10 08:29:53 +00:00
parent 83c11c38c9
commit 00944bbf41

View File

@ -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;