paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-25 17:29:07 +02:00
Code Issues Packages Projects Releases Wiki Activity

Merged revision(s) 53736 #db0a509d69 from trunk:

Browse Source 
win32: group box: invalidate after caption change. Issue 
........

git-svn-id: branches/fixes_1_6@53789 -
This commit is contained in:
maxim 2016-12-27 22:40:36 +00:00
parent 6c969695c5
commit fe536bad5f
1 changed files with 9 additions and 0 deletions

9
lcl/interfaces/win32/win32wsstdctrls.pp
View File

@ -50,6 +50,7 @@ type
TWin32WSCustomGroupBox = class(TWSCustomGroupBox)
published
class procedure SetText(const AWinControl: TWinControl; const AText: string); override;
class function CreateHandle(const AWinControl: TWinControl;
const AParams: TCreateParams): HWND; override;
class procedure SetBiDiMode(const AWinControl: TWinControl; UseRightToLeftAlign,
@ -565,6 +566,14 @@ begin
RecreateWnd(AWinControl);
end;
class procedure TWin32WSCustomGroupBox.SetText(const AWinControl: TWinControl;
const AText: string);
begin
if not WSCheckHandleAllocated(AWinControl, 'SetText') then Exit;
TWin32WSWinControl.SetText(AWinControl, AText);
AWinControl.Invalidate;
end;
class procedure TWin32WSCustomGroupBox.GetPreferredSize(
const AWinControl: TWinControl; var PreferredWidth, PreferredHeight: integer;
WithThemeSpace: Boolean);