paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-12 10:39:08 +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;
DC: HDC;
Handle: HWND;
TheWinControl: TWinControl;
TheWinControl: TWinControl absolute Sender;
ARect: TRect;
Ignore: Integer;
begin
Result:=false;
if (Sender = nil) or (not (Sender is TWinControl)) then exit;
TheWinControl:=TWinControl(Sender);
FillChar(ORect, SizeOf(ORect), 0);
if not TheWinControl.HandleAllocated then exit;
Handle := TheWinControl.Handle;
FillChar(ORect, SizeOf(ORect), 0);
if TheWinControl is TScrollingWinControl then
with TScrollingWinControl(TheWinControl) do
begin

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

@ -329,7 +329,7 @@ const
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
case Msg of
WM_PAINT,
@ -412,11 +412,11 @@ begin
// customization of Params
with Params do
begin
SubClassWndProc := @GroupBoxPanelWindowProc;
pClassName := @ButtonClsName;
WindowTitle := StrCaption;
end;
// create window
Params.SubClassWndProc := @GroupBoxPanelWindowProc;
FinishCreateWindow(AWinControl, Params, false);
Result := Params.Window;
end;