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

LCL: wince: cosmetic: align to win32 interface

Browse Source 
git-svn-id: trunk@59355 -
This commit is contained in:
lacak 2018-10-26 12:39:37 +00:00
parent 50e68f7730
commit 6b055a5b5c
2 changed files with 4 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/interfaces/wince/winceproc.pp
View File

@ -793,16 +793,14 @@ var
TM: TextMetric; TM: TextMetric;
DC: HDC; DC: HDC;
Handle: HWND; Handle: HWND;
TheWinControl: TWinControl; TheWinControl: TWinControl absolute Sender;
ARect: TRect; ARect: TRect;
Ignore: Integer;
begin begin
Result:=false; Result:=false;
if (Sender = nil) or (not (Sender is TWinControl)) then exit; if (Sender = nil) or (not (Sender is TWinControl)) then exit;
TheWinControl:=TWinControl(Sender);
FillChar(ORect, SizeOf(ORect), 0);
if not TheWinControl.HandleAllocated then exit; if not TheWinControl.HandleAllocated then exit;
Handle := TheWinControl.Handle; Handle := TheWinControl.Handle;
FillChar(ORect, SizeOf(ORect), 0);
if TheWinControl is TScrollingWinControl then if TheWinControl is TScrollingWinControl then
with TScrollingWinControl(TheWinControl) do with TScrollingWinControl(TheWinControl) do
begin begin

4
lcl/interfaces/wince/wincewsstdctrls.pp
View File

@ -329,7 +329,7 @@ const
function ScrollBarWindowProc(Window: HWnd; Msg: UInt; WParam: Windows.WParam; function ScrollBarWindowProc(Window: HWnd; Msg: UInt; WParam: Windows.WParam;
LParam: Windows.LParam): LResult; {$ifdef Win32}stdcall;{$else}cdecl;{$endif} LParam: Windows.LParam): LResult; {$ifdef win32}stdcall;{$else}cdecl;{$endif}
begin begin
case Msg of case Msg of
WM_PAINT, WM_PAINT,
@ -412,11 +412,11 @@ begin
// customization of Params // customization of Params
with Params do with Params do
begin begin
SubClassWndProc := @GroupBoxPanelWindowProc;
pClassName := @ButtonClsName; pClassName := @ButtonClsName;
WindowTitle := StrCaption; WindowTitle := StrCaption;
end; end;
// create window // create window
Params.SubClassWndProc := @GroupBoxPanelWindowProc;
FinishCreateWindow(AWinControl, Params, false); FinishCreateWindow(AWinControl, Params, false);
Result := Params.Window; Result := Params.Window;
end; end;