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

1 files changed, 10 insertions, 10 deletions

diff --git a/include/delphi/m_genmenu.inc b/include/delphi/m_genmenu.inc
index e72e66abef..685b20d512 100644
--- a/include/delphi/m_genmenu.inc
+++ b/include/delphi/m_genmenu.inc
@@ -122,8 +122,8 @@ const
 

 // Group MENU

 type

-  lpGroupMenuParam = ^GroupMenuParam;

-  GroupMenuParam = record

+  PGroupMenuParam = ^TGroupMenuParam;

+  TGroupMenuParam = record

     wParam:WPARAM;

     lParam:LPARAM;

   end;

@@ -245,7 +245,7 @@ type
     root     :HGENMENU;

     flags    :integer;

     hIcon    :HICON;   // or hIcolibItem:THANDLE;

-    hotKey   :DWORD;

+    hotKey   :dword;

     ownerdata:^pointer;

     hLangpack:int;

   end;

@@ -287,18 +287,18 @@ type
 

 //used in MO_BUILDMENU

 type

-  lpListParam = ^ListParam;

-  ListParam = record

+  PListParam = ^TListParam;

+  TListParam = record

     rootlevel       :int;

     MenuObjectHandle:THANDLE;

     wParam          :WPARAM;

     lParam          :LPARAM;

 end;

-  tagListParam = ListParam;

+  tagListParam = TListParam;

 

 type

-  lpProcessCommandParam = ^ProcessCommandParam;

-  ProcessCommandParam = record

+  PProcessCommandParam = ^TProcessCommandParam;

+  TProcessCommandParam = record

     menu  :HMENU;

     ident :int;

     lParam:LPARAM;

@@ -436,8 +436,8 @@ const
   OPT_USERDEFINEDITEMS = 1;

 

 type

-  lpOptParam = ^OptParam;

-  OptParam = record

+  POptParam = ^TOptParam;

+  TOptParam = record

     Handle :THANDLE;

     Setting:int;

     Value  :int_ptr;