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

formatting

Browse Source 
git-svn-id: trunk@16538 -
This commit is contained in:
paul 2008-09-11 03:14:24 +00:00
parent c20e56842f
commit ea198f3972
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/interfaces/win32/win32wscontrols.pp
View File

@ -468,7 +468,7 @@ begin
end;
class procedure TWin32WSWinControl.SetText(const AWinControl: TWinControl; const AText: string);
Begin
begin
if not WSCheckHandleAllocated(AWincontrol, 'SetText') then Exit;
{$ifdef WindowsUnicodeSupport}
@ -478,7 +478,7 @@ Begin
{$else}
Windows.SetWindowText(AWinControl.Handle, PChar(AText));
{$endif}
End;
end;
class procedure TWin32WSWinControl.SetCursor(const AWinControl: TWinControl;
const ACursor: HCursor);

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

@ -1469,7 +1469,8 @@ begin
iconHeight := GetSystemMetrics(SM_CYMENUCHECK);
if iconHeight > PreferredHeight then
PreferredHeight := iconHeight;
if WithThemeSpace then begin
if WithThemeSpace then
begin
Inc(PreferredWidth, 6);
Inc(PreferredHeight, 6);
end;