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

lcl, win32: formatting + misc

Browse Source 
git-svn-id: trunk@16344 -
This commit is contained in:
paul 2008-09-01 10:00:29 +00:00
parent 2b8043dbe0
commit 0231a67f14
4 changed files with 13 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/customlabel.inc
View File

@ -165,7 +165,7 @@ end;
procedure TCustomLabel.TextChanged;
begin
Invalidate;
invalidate;
InvalidatePreferredSize;
if (Parent<>nil) and Parent.AutoSize then
Parent.AdjustSize;

5
lcl/interfaces/win32/win32callback.inc
View File

@ -19,7 +19,6 @@
// {$C+}
// {$DEFINE ASSERT_IS_ON}
{$ENDIF}
type
TWinControlAccess = class(TWinControl);
TCustomListViewAccess = class(TCustomListView);
@ -1546,10 +1545,10 @@ begin
end;
// disable child windows of for example groupboxes, but not of forms
if assigned(lWinControl) and not (lWinControl is TCustomForm) then
if Assigned(lWinControl) and not (lWinControl is TCustomForm) then
EnableChildWindows(lWinControl, WParam<>0);
If (lWinControl is TCustomFloatSpinEdit) then
if (lWinControl is TCustomFloatSpinEdit) then
EnableFloatSpinEditBuddy(Window, WParam<>0);
// ugly hack to give bitbtns a nice look
// When no theming active, the internal image needs to be

10
lcl/interfaces/win32/win32object.inc
View File

@ -110,11 +110,17 @@ begin
// Common controls only need to be initialized when used
// So they are initialized in the CreateHandle for common controls
InitCommonControls;
ICC.dwSize := SizeOf(TINITCOMMONCONTROLSEX);
ICC.dwICC := ICC_DATE_CLASSES;
if InitCommonControlsEx <> nil then
begin
ICC.dwSize := SizeOf(TINITCOMMONCONTROLSEX);
ICC.dwICC := ICC_DATE_CLASSES;
InitCommonControlsEx(@ICC);
ICC.dwICC := ICC_UPDOWN_CLASS;
InitCommonControlsEx(@ICC);
end;
// Create parent of all windows, 'button on taskbar'
{$ifdef WindowsUnicodeSupport}
if UnicodeEnabledOS then

2
lcl/interfaces/win32/win32proc.pp
View File

@ -404,6 +404,8 @@ begin
$03E7: Result := 'WM_DDE_POKE';
$03E8: Result := 'WM_DDE_EXECUTE or WM_DDE_LAST';
$0400: Result := 'WM_USER';
$0469: Result := 'UDM_SETBUDDY';
$046A: Result := 'UDM_GETBUDDY';
$102C: Result := 'LVM_GETITEMSTATE';
$8000: Result := 'WM_APP';
Else