Actman 3.0: added INI action type

(still not full sync with private repo)

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

6 files changed, 457 insertions, 3 deletions

diff --git a/plugins/Actman30/actman30.dpr b/plugins/Actman30/actman30.dpr
index 149ffeb744..404b2f1054 100644
--- a/plugins/Actman30/actman30.dpr
+++ b/plugins/Actman30/actman30.dpr
@@ -57,6 +57,7 @@ uses
   iac_chain,

   iac_contact,

   iac_call,

+  iac_ini,

   inoutxml,

   sedit,

   strans,

@@ -203,9 +204,6 @@ begin
   HookEvent(ME_SYSTEM_SHUTDOWN{ME_SYSTEM_OKTOEXIT},@PreShutdown);

   NotifyEventHooks(hHookChanged,twparam(ACTM_LOADED),0);

 

-  //----- DBEDITOR support -----

-//  CallService(MS_DBEDIT_REGISTERSINGLEMODULE,twparam(PluginShort),0);

-

   IsMultiThread:=true;

   // Load additional modules

   ptr:=ActionLink;

diff --git a/plugins/Actman30/i_cnst_ini.inc b/plugins/Actman30/i_cnst_ini.inc
new file mode 100644
index 0000000000..85212e9c56
--- /dev/null
+++ b/plugins/Actman30/i_cnst_ini.inc
@@ -0,0 +1,13 @@
+{INI file processing}

+const

+  IDC_INI_READ    = 2701;

+  IDC_INI_WRITE   = 2702;

+  IDC_INI_DELETE  = 2703;

+  IDC_INI_PATH    = 2704;

+  IDC_INI_INIBTN  = 2705;

+  IDC_INI_SECTION = 2706;

+  IDC_INI_PARAM   = 2707;

+  IDC_INI_TYPE    = 2708;

+  IDC_INI_VALUE   = 2709;

+  IDC_INI_LR      = 2710;

+  IDC_INI_UTF     = 2711;

diff --git a/plugins/Actman30/iac_ini.pas b/plugins/Actman30/iac_ini.pas
new file mode 100644
index 0000000000..12a1074563
--- /dev/null
+++ b/plugins/Actman30/iac_ini.pas
@@ -0,0 +1,416 @@
+unit iac_ini;

+

+interface

+

+implementation

+

+uses

+  windows,messages,commctrl,

+  iac_global,global,

+  common,m_api,wrapper,

+  dbsettings,editwrapper,mirutils;

+

+{$include i_cnst_ini.inc}

+{$resource iac_ini.res}

+

+const

+  opt_file   :PAnsiChar = 'inifile';

+  opt_section:PAnsiChar = 'section';

+  opt_param  :PAnsiChar = 'param';

+  opt_value  :PAnsiChar = 'value';

+

+const

+  ACF_INI_WRITE   = $00000001;

+  ACF_INI_DELETE  = $00000002;

+  ACF_INI_LR      = $00000004;

+  ACF_INI_UTF     = $00000008;

+  ACF_INI_FILE    = $00000010;

+  ACF_INI_SECTION = $00000020;

+  ACF_INI_PARAM   = $00000040;

+  ACF_INI_VALUE   = $00000080;

+type

+  tINIAction = class(tBaseAction)

+    inifile  :pWideChar;

+    section  :pWideChar;

+    parameter:pWideChar;

+    value    :pWideChar;

+

+    constructor Create(uid:dword);

+    destructor Destroy; override;

+//    function  Clone:tBaseAction; override;

+    function  DoAction(var WorkData:tWorkData):LRESULT; override;

+    procedure Save(node:pointer;fmt:integer); override;

+    procedure Load(node:pointer;fmt:integer); override;

+  end;

+

+//----- Support functions -----

+

+//----- Object realization -----

+

+constructor tINIAction.Create(uid:dword);

+begin

+  inherited Create(uid);

+end;

+

+destructor tINIAction.Destroy;

+begin

+  mFreeMem(inifile);

+  mFreeMem(section);

+  mFreeMem(parameter);

+  mFreeMem(value);

+

+  inherited Destroy;

+end;

+{

+function tINIAction.Clone:tBaseAction;

+begin

+  result:=tServiceAction.Create(0);

+  Duplicate(result);

+

+end;

+}

+function tINIAction.DoAction(var WorkData:tWorkData):LRESULT;

+var

+  linifile,

+  lsection,

+  lparam,

+  lvalue:pWideChar;

+  ainifile,

+  asection,

+  aparam,

+  avalue:pAnsiChar;

+  buf:pAnsiChar;

+  cond:bool;

+begin

+  result:=0;

+  cond:=true;

+

+  if (flags and ACF_INI_FILE)<>0 then

+    linifile:=ParseVarString(inifile,WorkData.Parameter,pWideChar(WorkData.LastResult))

+  else

+    linifile:=inifile;

+  if (linifile=nil) or (linifile^=#0) then

+    cond:=false;

+

+  if cond then

+  begin

+    if (flags and ACF_INI_SECTION)<>0 then

+      lsection:=ParseVarString(section,WorkData.Parameter,pWideChar(WorkData.LastResult))

+    else

+      lsection:=section;

+    if (lsection=nil) or (lsection^=#0) then

+      cond:=false;

+  end

+  else

+    lsection:=nil;

+

+  if cond then

+  begin

+    if (flags and ACF_INI_PARAM)<>0 then

+      lparam:=ParseVarString(parameter,WorkData.Parameter,pWideChar(WorkData.LastResult))

+    else

+      lparam:=parameter;

+  end

+  else

+    lparam:=nil;

+

+  if cond then

+  begin

+    if (flags and ACF_INI_DELETE)<>0 then

+    begin

+      WritePrivateProfileStringW(lsection,lparam,nil,linifile);

+    end

+    else

+    begin

+      if (lparam<>nil) and (lparam^<>#0) then

+      begin

+        if (flags and ACF_INI_LR)<>0 then

+          lvalue:=pWideChar(WorkData.LastResult)

+        else if (flags and ACF_INI_VALUE)<>0 then

+          lvalue:=ParseVarString(value,WorkData.Parameter,pWideChar(WorkData.LastResult))

+        else

+          lvalue:=value;

+

+        WideToAnsi(linifile,ainifile);

+        WideToAnsi(lsection,asection);

+        WideToAnsi(lparam  ,aparam);

+

+        if (flags and ACF_INI_WRITE)<>0 then

+        begin

+          if (flags and ACF_INI_UTF)=0 then

+            WideToAnsi(lvalue,avalue,MirandaCP)

+          else

+            WideToUTF8(lvalue,avalue);

+

+          WritePrivateProfileStringA(asection,aparam,avalue,ainifile);

+

+          mFreeMem(avalue);

+        end

+

+        else // single line only (Windows-way)

+        begin

+          mGetMem(buf,4096); buf^:=#0;

+          GetPrivateProfileStringA(asection,aparam,avalue,buf,4096,ainifile);

+          ClearResult(WorkData);

+

+          if GetTextFormat(pByte(buf),StrLen(buf))=CP_UTF8 then

+            UTF8ToWide(buf,pWideChar(WorkData.LastResult))

+          else

+            AnsiToWide(buf,pWideChar(WorkData.LastResult),MirandaCP);

+          WorkData.ResultType:=rtWide;

+          mFreeMem(buf);

+        end;

+

+        mFreeMem(ainifile);

+        mFreeMem(asection);

+        mFreeMem(aparam);

+

+        if ((flags and ACF_INI_VALUE)<>0) and

+           ((flags and ACF_INI_LR   ) =0) then mFreeMem(lvalue);

+      end;

+    end;

+  end;

+

+  if (flags and ACF_INI_FILE   )<>0 then mFreeMem(linifile);

+  if (flags and ACF_INI_SECTION)<>0 then mFreeMem(lsection);

+  if (flags and ACF_INI_PARAM  )<>0 then mFreeMem(lparam);

+end;

+

+procedure tINIAction.Load(node:pointer;fmt:integer);

+var

+  lsection: array [0..127] of AnsiChar;

+  pc:pAnsiChar;

+begin

+  inherited Load(node,fmt);

+  case fmt of

+    0: begin

+      pc:=StrCopyE(lsection,pAnsiChar(node));

+      StrCopy(pc,opt_file   ); inifile  :=DBReadUnicode(0,DBBranch,lsection,nil);

+      StrCopy(pc,opt_section); section  :=DBReadUnicode(0,DBBranch,lsection,nil);

+      StrCopy(pc,opt_param  ); parameter:=DBReadUnicode(0,DBBranch,lsection,nil);

+      StrCopy(pc,opt_value  ); value    :=DBReadUnicode(0,DBBranch,lsection,nil);

+    end;

+{

+    1: begin

+    end;

+}

+  end;

+end;

+

+procedure tINIAction.Save(node:pointer;fmt:integer);

+var

+  lsection: array [0..127] of AnsiChar;

+  pc:pAnsiChar;

+begin

+  inherited Save(node,fmt);

+  case fmt of

+    0: begin

+      pc:=StrCopyE(lsection,pAnsiChar(node));

+      StrCopy(pc,opt_file   ); DBWriteUnicode(0,DBBranch,lsection,inifile);

+      StrCopy(pc,opt_section); DBWriteUnicode(0,DBBranch,lsection,section);

+      StrCopy(pc,opt_param  ); DBWriteUnicode(0,DBBranch,lsection,parameter);

+      StrCopy(pc,opt_value  ); DBWriteUnicode(0,DBBranch,lsection,value);

+    end;

+{

+    1: begin

+    end;

+}

+  end;

+end;

+

+//----- Dialog realization -----

+

+function FillFileName(Dialog:HWND;idc:integer):boolean;

+var

+  pw,ppw:pWideChar;

+begin

+  mGetMem(pw,1024*SizeOf(WideChar));

+  ppw:=GetDlgText(Dialog,idc);

+  result:=ShowDlgW(pw,ppw);

+  if result then

+  begin

+    SetDlgItemTextW(Dialog,idc,pw);

+    SetEditFlags(Dialog,idc,EF_SCRIPT,0);

+  end;

+  mFreeMem(ppw);

+  mFreeMem(pw);

+end;

+

+procedure ClearFields(Dialog:HWND);

+begin

+  CheckDlgButton(Dialog,IDC_INI_READ  ,BST_UNCHECKED);

+  CheckDlgButton(Dialog,IDC_INI_WRITE ,BST_UNCHECKED);

+  CheckDlgButton(Dialog,IDC_INI_DELETE,BST_UNCHECKED);

+

+  CheckDlgButton(Dialog,IDC_INI_LR ,BST_UNCHECKED);

+  CheckDlgButton(Dialog,IDC_INI_UTF,BST_UNCHECKED);

+

+  EnableEditField(Dialog,IDC_INI_VALUE,true);

+end;

+

+function DlgProc(Dialog:HWnd;hMessage:UINT;wParam:WPARAM;lParam:LPARAM):lresult; stdcall;

+const

+  NoProcess:boolean=true;

+begin

+  result:=0;

+

+  case hMessage of

+    WM_INITDIALOG: begin

+      TranslateDialogDefault(Dialog);

+

+      MakeEditField(Dialog,IDC_INI_PATH);

+      MakeEditField(Dialog,IDC_INI_SECTION);

+      MakeEditField(Dialog,IDC_INI_PARAM);

+      MakeEditField(Dialog,IDC_INI_VALUE);

+    end;

+

+    WM_ACT_SETVALUE: begin

+      NoProcess:=true;

+      ClearFields(Dialog);

+      with tINIAction(lParam) do

+      begin

+        SetDlgItemTextW(Dialog,IDC_INI_PATH   ,inifile);

+        SetDlgItemTextW(Dialog,IDC_INI_SECTION,section);

+        SetDlgItemTextW(Dialog,IDC_INI_PARAM  ,parameter);

+        SetDlgItemTextW(Dialog,IDC_INI_VALUE  ,value);

+

+        SetEditFlags(Dialog,IDC_INI_PATH   ,EF_SCRIPT,ord((flags and ACF_INI_FILE   )<>0));

+        SetEditFlags(Dialog,IDC_INI_SECTION,EF_SCRIPT,ord((flags and ACF_INI_SECTION)<>0));

+        SetEditFlags(Dialog,IDC_INI_PARAM  ,EF_SCRIPT,ord((flags and ACF_INI_PARAM  )<>0));

+

+        SetEditFlags(Dialog,IDC_INI_VALUE,EF_SCRIPT,ord((flags and ACF_INI_VALUE)<>0));

+        if ((flags and ACF_INI_DELETE)<>0) or

+           ((flags and ACF_INI_LR    )<>0) then

+          EnableEditField(Dialog,IDC_INI_VALUE,false);

+

+        if (flags and ACF_INI_WRITE)<>0 then

+          CheckDlgButton(Dialog,IDC_INI_WRITE,BST_CHECKED)

+        else if (flags and ACF_INI_DELETE)<>0 then

+          CheckDlgButton(Dialog,IDC_INI_DELETE,BST_CHECKED)

+        else

+          CheckDlgButton(Dialog,IDC_INI_READ,BST_CHECKED);

+

+        EnableWindow(GetDlgItem(Dialog,IDC_INI_LR),(flags and ACF_INI_DELETE)=0);

+        if (flags and ACF_INI_LR)<>0 then

+          CheckDlgButton(Dialog,IDC_INI_LR,BST_CHECKED);

+

+        EnableWindow(GetDlgItem(Dialog,IDC_INI_UTF),(flags and ACF_INI_WRITE)<>0);

+        if (flags and ACF_INI_UTF)<>0 then

+          CheckDlgButton(Dialog,IDC_INI_UTF,BST_CHECKED);

+      end;

+      NoProcess:=false;

+    end;

+

+    WM_ACT_RESET: begin

+      NoProcess:=true;

+      ClearFields(Dialog);

+

+      SetDlgItemTextW(Dialog,IDC_INI_PATH   ,nil);

+      SetDlgItemTextW(Dialog,IDC_INI_SECTION,nil);

+      SetDlgItemTextW(Dialog,IDC_INI_PARAM  ,nil);

+      SetDlgItemTextW(Dialog,IDC_INI_VALUE  ,nil);

+      SetEditFlags(Dialog,IDC_INI_PATH   ,EF_ALL,0);

+      SetEditFlags(Dialog,IDC_INI_SECTION,EF_ALL,0);

+      SetEditFlags(Dialog,IDC_INI_PARAM  ,EF_ALL,0);

+      SetEditFlags(Dialog,IDC_INI_VALUE  ,EF_ALL,0);

+

+      EnableWindow(GetDlgItem(Dialog,IDC_INI_LR ),true);

+      EnableWindow(GetDlgItem(Dialog,IDC_INI_UTF),false);

+

+      CheckDlgButton(Dialog,IDC_INI_READ,BST_CHECKED);

+      NoProcess:=false;

+    end;

+

+    WM_ACT_SAVE: begin

+      with tINIAction(lParam) do

+      begin

+        if IsDlgButtonChecked(Dialog,IDC_INI_WRITE)<>BST_UNCHECKED then

+          flags:=flags or ACF_INI_WRITE

+        else if IsDlgButtonChecked(Dialog,IDC_INI_DELETE)<>BST_UNCHECKED then

+          flags:=flags or ACF_INI_DELETE;

+

+        if IsDlgButtonChecked(Dialog,IDC_INI_LR )<>BST_UNCHECKED then flags:=flags or ACF_INI_LR;

+        if IsDlgButtonChecked(Dialog,IDC_INI_UTF)<>BST_UNCHECKED then flags:=flags or ACF_INI_UTF;

+

+        inifile  :=GetDlgText(Dialog,IDC_INI_PATH);

+        section  :=GetDlgText(Dialog,IDC_INI_SECTION);

+        parameter:=GetDlgText(Dialog,IDC_INI_PARAM);

+        value    :=GetDlgText(Dialog,IDC_INI_VALUE);

+        if (GetEditFlags(Dialog,IDC_INI_PATH   ) and EF_SCRIPT)<>0 then flags:=flags or ACF_INI_FILE;

+        if (GetEditFlags(Dialog,IDC_INI_SECTION) and EF_SCRIPT)<>0 then flags:=flags or ACF_INI_SECTION;

+        if (GetEditFlags(Dialog,IDC_INI_PARAM  ) and EF_SCRIPT)<>0 then flags:=flags or ACF_INI_PARAM;

+        if (GetEditFlags(Dialog,IDC_INI_VALUE  ) and EF_SCRIPT)<>0 then flags:=flags or ACF_INI_VALUE;

+      end;

+    end;

+

+    WM_COMMAND: begin

+      case wParam shr 16 of

+        EN_CHANGE: if not NoProcess then

+          SendMessage(GetParent(GetParent(Dialog)),PSM_CHANGED,0,0);

+

+        BN_CLICKED: begin

+          case loword(wParam) of

+            IDC_INI_INIBTN: begin

+              if not FillFileName(Dialog,IDC_INI_PATH) then

+                exit;

+            end;

+

+            IDC_INI_READ,

+            IDC_INI_WRITE,

+            IDC_INI_DELETE: begin

+              EnableEditField(Dialog,IDC_INI_VALUE,loword(wParam)<>IDC_INI_DELETE);

+

+              EnableWindow(GetDlgItem(Dialog,IDC_INI_LR),

+                IsDlgButtonChecked(Dialog,IDC_INI_DELETE)=BST_UNCHECKED);

+              EnableWindow(GetDlgItem(Dialog,IDC_INI_UTF),

+                IsDlgButtonChecked(Dialog,IDC_INI_WRITE)<>BST_UNCHECKED);

+            end;

+

+            IDC_INI_LR: begin

+              EnableEditField(Dialog,IDC_INI_VALUE,IsDlgButtonChecked(Dialog,IDC_INI_LR)=BST_UNCHECKED);

+            end;

+          end;

+

+          if not NoProcess then

+            SendMessage(GetParent(GetParent(Dialog)),PSM_CHANGED,0,0);

+        end;

+      end;

+    end;

+

+    WM_HELP: begin

+      result:=1;

+    end;

+

+  end;

+end;

+

+//----- Export/interface functions -----

+

+var

+  vc:tActModule;

+

+function CreateAction:tBaseAction;

+begin

+  result:=tINIAction.Create(vc.Hash);

+end;

+

+function CreateDialog(parent:HWND):HWND;

+begin

+  result:=CreateDialogW(hInstance,'IDD_INI',parent,@DlgProc);

+end;

+

+procedure Init;

+begin

+  vc.Next    :=ModuleLink;

+

+  vc.Name    :='INI';

+  vc.Dialog  :=@CreateDialog;

+  vc.Create  :=@CreateAction;

+  vc.Icon    :='IDI_INI';

+

+  ModuleLink :=@vc;

+end;

+

+begin

+  Init;

+end.

diff --git a/plugins/Actman30/iac_ini.rc b/plugins/Actman30/iac_ini.rc
new file mode 100644
index 0000000000..56658b91c4
--- /dev/null
+++ b/plugins/Actman30/iac_ini.rc
@@ -0,0 +1,27 @@
+#include "i_cnst_ini.inc"

+

+LANGUAGE 0,0

+

+IDD_INI DIALOGEX 0, 0, 168, 200, 0

+STYLE DS_SETFONT | DS_FIXEDSYS | WS_CHILD | WS_VISIBLE

+EXSTYLE  WS_EX_CONTROLPARENT

+FONT 8, "MS Shell Dlg", 0, 0

+{

+  AUTORADIOBUTTON "Read"   , IDC_INI_READ   ,   4,   2,  52, 11, WS_GROUP

+  AUTORADIOBUTTON "Write"  , IDC_INI_WRITE  ,  57,   2,  52, 11

+  AUTORADIOBUTTON "Delete" , IDC_INI_DELETE , 110,   2,  52, 11

+  LTEXT           "INI file name", -1       ,   4   15, 160, 11

+  EDITTEXT                   IDC_INI_PATH   ,   4,  26, 140, 12, ES_AUTOHSCROLL

+  PUSHBUTTON      "..."    , IDC_INI_INIBTN , 147,  26,  16, 12

+  LTEXT           "Section", -1             ,   4   40, 160, 11

+  EDITTEXT                   IDC_INI_SECTION,   4,  51, 160, 12, ES_AUTOHSCROLL

+  LTEXT           "Parameter", -1           ,   4   65, 160, 11

+  EDITTEXT                   IDC_INI_PARAM  ,   4,  76, 160, 12, ES_AUTOHSCROLL

+

+  LTEXT           "Value", -1               ,   4   90, 160, 11

+  EDITTEXT                   IDC_INI_VALUE  ,   4, 101, 160, 12, ES_AUTOHSCROLL

+  AUTOCHECKBOX "Use LastResult", IDC_INI_LR ,   4, 113, 160, 11

+  AUTOCHECKBOX "UTF8 encoding" , IDC_INI_UTF,   4, 125, 160, 11

+}

+

+IDI_INI ICON "ico\ini.ico"

diff --git a/plugins/Actman30/iac_ini.res b/plugins/Actman30/iac_ini.res
new file mode 100644
index 0000000000..177a309738
--- /dev/null
+++ b/plugins/Actman30/iac_ini.res
diff --git a/plugins/Actman30/ico/ini.ico b/plugins/Actman30/ico/ini.ico
new file mode 100644
index 0000000000..481da4dbaf
--- /dev/null
+++ b/plugins/Actman30/ico/ini.ico