From d83baeb842ea828eaee90a0cd6575872a95240e8 Mon Sep 17 00:00:00 2001 From: Alexey Kulakov Date: Sat, 8 Mar 2014 13:10:05 +0000 Subject: Pascal-style type correction Letter case correction small fixes Actman UA part dialog slightly changed git-svn-id: http://svn.miranda-ng.org/main/trunk@8473 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c --- include/delphi/m_api.pas | 15 +++++++-------- 1 file changed, 7 insertions(+), 8 deletions(-) (limited to 'include/delphi/m_api.pas') diff --git a/include/delphi/m_api.pas b/include/delphi/m_api.pas index 94ff48a9c3..dad86df80c 100644 --- a/include/delphi/m_api.pas +++ b/include/delphi/m_api.pas @@ -72,7 +72,7 @@ type plong = ^long; {$IFDEF VER150} UnicodeString = WideString; - ULONG_PTR = LongWord; + ULONG_PTR = longword; {$ENDIF} DWORD_PTR = ULONG_PTR; size_t = ULONG_PTR; @@ -83,13 +83,13 @@ type int = integer; // uint = Cardinal; // pint = ^int; -// WPARAM = Integer; -// LPARAM = Integer; +// WPARAM = integer; +// LPARAM = integer; TLPARAM = LPARAM; TWPARAM = WPARAM; // My definitions - TWNDPROC = function (Dialog:HWnd; hMessage:uint; wParam:WPARAM;lParam:LPARAM):lresult; stdcall; + TWNDPROC = function (Dialog:HWND; hMessage:uint; wParam:WPARAM;lParam:LPARAM):LRESULT; stdcall; type PTChar = ^TChar; @@ -129,7 +129,7 @@ type TPLUGININFOEX = record cbSize :int; shortName :PAnsiChar; - version :DWORD; + version :dword; description:PAnsiChar; author :PAnsiChar; authorEmail:PAnsiChar; @@ -149,7 +149,7 @@ type //lParam=HINSTANCE of the loaded plugin } const - ME_SYSTEM_MODULELOAD:pAnsiChar = 'Miranda/System/LoadModule'; + ME_SYSTEM_MODULELOAD:PAnsiChar = 'Miranda/System/LoadModule'; { Miranda/System/UnloadModule event @@ -157,7 +157,7 @@ const wParam=PLUGININFOEX* lParam=HINSTANCE of the loaded plugin } - ME_SYSTEM_MODULEUNLOAD:pAnsiChar = 'Miranda/System/UnloadModule'; + ME_SYSTEM_MODULEUNLOAD:PAnsiChar = 'Miranda/System/UnloadModule'; { Each service mode plugin must implement MS_SERVICEMODE_LAUNCH @@ -235,7 +235,6 @@ var {$include m_descbutton.inc} {$include m_iconheader.inc} {$include m_extraicons.inc} - {$include m_errors.inc} {$include m_proto_listeningto.inc} {$include m_toptoolbar.inc} {$include m_msg_buttonsbar.inc} -- cgit v1.2.3