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

LCL-CustomDrawn-Windows: Fixes compilation

Browse Source 
git-svn-id: trunk@36743 -
This commit is contained in:
sekelsenmat 2012-04-13 12:18:47 +00:00
parent 59fbca4fcd
commit 89ba11a644
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/interfaces/customdrawn/wincallback.inc
View File

@ -97,7 +97,7 @@ end;
Windows or other applications
------------------------------------------------------------------------------}
function WindowProc(Window: HWnd; Msg: UInt; WParam: Windows.WParam;
LParam: Windows.LParam): LResult; {$ifdef win32}stdcall{$else}cdecl{$endif};
LParam: Windows.LParam): LResult; {$if defined(win32) or defined(win64)}stdcall{$else}cdecl{$endif};
Var
LMessage: TLMessage;
PLMsg: PLMessage;
@ -137,7 +137,7 @@ Var
NMHdr: PNMHdr absolute LParam; // used by WM_NOTIFY
TmpSize: TSize; // used by WM_MEASUREITEM
{$ifndef win32}
{$ifdef wince}
Info: SHRGINFO; // used by SHRecognizeGesture in WM_LBUTTONDOWN
{$endif}
@ -635,7 +635,7 @@ begin
end;
WM_LBUTTONDOWN, WM_MBUTTONDOWN, WM_RBUTTONDOWN:
begin
{$ifndef win32}
{$ifdef wince}
// Gesture recognition process to enable popup menus.
if (lWinControl.PopupMenu <> nil) and (Msg = WM_LBUTTONDOWN) then
begin
@ -1288,7 +1288,7 @@ end;
------------------------------------------------------------------------------}
procedure TimerCallBackProc(window_hwnd : hwnd; msg , idEvent: UINT; dwTime: DWORD);
{$ifdef win32}stdcall{$else}cdecl{$endif};
{$if defined(win32) or defined(win64)}stdcall{$else}cdecl{$endif};
Var
TimerInfo: PWinCETimerInfo;
n: Integer;