Actman: compilation fix

git-svn-id: http://svn.miranda-ng.org/main/trunk@11565 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c

1 files changed, 5 insertions, 11 deletions

diff --git a/plugins/Actman/i_opt_dlg2.inc b/plugins/Actman/i_opt_dlg2.inc
index a8d1b2d2f0..f8d1899fb0 100644
--- a/plugins/Actman/i_opt_dlg2.inc
+++ b/plugins/Actman/i_opt_dlg2.inc
@@ -149,7 +149,7 @@ end;
 procedure SetSave(Dialog:HWND);

 var

   TmpMacroList:tMacroList;

-  TmpMacro:pMacroRecord;

+//  TmpMacro:pMacroRecord;

   wnd:HWND;

   li:LV_ITEMW;

   i,j:integer;

@@ -761,7 +761,7 @@ begin
       begin

         lvi.iItem :=i;

 

-        lvi.lParam:=i or (CurMacro^.flags and ACF_MACROFLAG);

+        lvi.lParam:=LPARAM(i) or LPARAM(CurMacro^.flags and ACF_MACROFLAG);

 {!!

         if (CurMacro^.flags and ACF_FIRSTRUN)<>0 then

           lvi.lParam:=lvi.lParam or ACF_FIRSTRUN;

@@ -995,12 +995,10 @@ begin
           end;

 

           case loword(wParam) of

-

+{

             IDC_GROUP_EXPORT: begin

               if ShowDlgW(xmlfilename,xmlfilename,TranslateW(inoutfilter),false) then

               begin

-aExport(EditMacroList,xmlfilename,0);

-{

                 wnd:=MacroListWindow;

                 for i:=0 to ListView_GetItemCount(wnd)-1 do

                 begin

@@ -1025,19 +1023,15 @@ aExport(EditMacroList,xmlfilename,0);
 // we MUST Export EditMacroList, NOT MacroList

 // OR

 // Use "Apply" code before

-

-//                CallService(MS_ACT_INOUT,i,TLPARAM(@xmlfilename));

-

+                CallService(MS_ACT_INOUT,i,TLPARAM(@xmlfilename));

                 for i:=0 to MaxGroups-1 do

                   with EditMacroList[i] do

                     if (flags and (ACF_EXPORT or ACF_ASSIGNED))=

                                   (ACF_EXPORT or ACF_ASSIGNED) then

                       flags:=flags and not ACF_EXPORT;

-}

               end;

-

             end;

-

+}

             IDC_GROUP_IMPORT: begin

               if ShowDlgW(xmlfilename,xmlfilename,TranslateW(inoutfilter)) then

               begin