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

lcl, win32: cleanup

Browse Source 
git-svn-id: trunk@29244 -
This commit is contained in:
paul 2011-01-29 09:05:57 +00:00
parent 50f08451fd
commit e24e12ac8d
4 changed files with 1 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/application.inc
View File

@ -320,7 +320,6 @@ end;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TApplication.Minimize; procedure TApplication.Minimize;
begin begin
//debugln('TApplication.Minimize');
WidgetSet.AppMinimize; WidgetSet.AppMinimize;
end; end;
@ -355,7 +354,6 @@ end;
------------------------------------------------------------------------------} ------------------------------------------------------------------------------}
procedure TApplication.Restore; procedure TApplication.Restore;
begin begin
//debugln('TApplication.Restore');
WidgetSet.AppRestore; WidgetSet.AppRestore;
end; end;

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

@ -2208,7 +2208,7 @@ begin
begin begin
if (Window = TWin32WidgetSet(WidgetSet).AppHandle) and if (Window = TWin32WidgetSet(WidgetSet).AppHandle) and
Assigned(TWin32WidgetSet(WidgetSet).FOnAsyncSocketMsg) then Assigned(TWin32WidgetSet(WidgetSet).FOnAsyncSocketMsg) then
exit(TWin32WidgetSet(WidgetSet).FOnAsyncSocketMsg(WParam, LParam)) Exit(TWin32WidgetSet(WidgetSet).FOnAsyncSocketMsg(WParam, LParam))
end; end;
else else
// pass along user defined messages // pass along user defined messages

7
lcl/interfaces/win32/win32int.pp
View File

@ -91,12 +91,6 @@ const
SKIP_LMCHANGE = 1000; SKIP_LMCHANGE = 1000;
type type
PInitCommonControlsEx = ^TInitCommonControlsEx;
TInitCommonControlsEx = record
dwSize: dword;
dwICC: dword;
end;
PPPipeEventInfo = ^PPipeEventInfo; PPPipeEventInfo = ^PPipeEventInfo;
PPipeEventInfo = ^TPipeEventInfo; PPipeEventInfo = ^TPipeEventInfo;
TPipeEventInfo = record TPipeEventInfo = record
@ -249,7 +243,6 @@ uses
Win32WSButtons, Win32WSButtons,
Win32WSExtCtrls, Win32WSExtCtrls,
Win32WSMenus, Win32WSMenus,
Win32WSSpin,
Win32WSStdCtrls, Win32WSStdCtrls,
Win32WSDialogs, Win32WSDialogs,
Win32Themes, Win32Themes,

20
lcl/interfaces/win32/win32wsbuttons.pp
View File

@ -83,19 +83,6 @@ type
{ TWin32WSBitBtn } { TWin32WSBitBtn }
const const
BUTTON_IMAGELIST_ALIGN_LEFT = 0;
BUTTON_IMAGELIST_ALIGN_RIGHT = 1;
BUTTON_IMAGELIST_ALIGN_TOP = 2;
BUTTON_IMAGELIST_ALIGN_BOTTOM = 3;
BUTTON_IMAGELIST_ALIGN_CENTER = 4;
BCM_FIRST = $1600;
BCM_GETIDEALSIZE = BCM_FIRST + 1;
BCM_SETIMAGELIST = BCM_FIRST + 2;
BCM_GETIMAGELIST = BCM_FIRST + 3;
BCM_SETTEXTMARGIN = BCM_FIRST + 4;
BCM_GETTEXTMARGIN = BCM_FIRST + 5;
{ - you do need to destroy the imagelist yourself. { - you do need to destroy the imagelist yourself.
- you'll need 5 images to support all themed xp button states... - you'll need 5 images to support all themed xp button states...
@ -112,13 +99,6 @@ const
BitBtnEnabledToButtonState: array[boolean] of TButtonState = BitBtnEnabledToButtonState: array[boolean] of TButtonState =
(bsDisabled, bsUp); (bsDisabled, bsUp);
type
BUTTON_IMAGELIST = record
himl: Windows.HIMAGELIST;
margin: Windows.RECT;
uAlign: UINT;
end;
function Create32BitHBitmap(ADC: HDC; AWidth, AHeight: Integer; out BitsPtr: Pointer): HBitmap; function Create32BitHBitmap(ADC: HDC; AWidth, AHeight: Integer; out BitsPtr: Pointer): HBitmap;
var var
Info: Windows.TBitmapInfo; Info: Windows.TBitmapInfo;