diff options
| author | Vadim Dashevskiy <watcherhd@gmail.com> | 2014-12-19 20:02:47 +0000 |
|---|---|---|
| committer | Vadim Dashevskiy <watcherhd@gmail.com> | 2014-12-19 20:02:47 +0000 |
| commit | f2cce78db24a0f0a53b8ca41ff112968a5f2d86b (patch) | |
| tree | 5dce24a102dc4117ab993e201811948927842e47 /plugins/Actman/iac_.pas | |
| parent | a1ff366b1634ed741bdc764489f9e715f90900f5 (diff) | |
Actman 2.0 is moved to deprecated, Actman 3.0 is a new default Actman (with database settings converter from older version)
git-svn-id: http://svn.miranda-ng.org/main/trunk@11533 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/Actman/iac_.pas')
| -rw-r--r-- | plugins/Actman/iac_.pas | 155 |
1 files changed, 155 insertions, 0 deletions
diff --git a/plugins/Actman/iac_.pas b/plugins/Actman/iac_.pas new file mode 100644 index 0000000000..5a47ba96a1 --- /dev/null +++ b/plugins/Actman/iac_.pas @@ -0,0 +1,155 @@ +unit iac_;
+
+interface
+
+implementation
+
+uses windows, iac_global, mirutils;
+
+
+type
+ = class(tBaseAction)
+
+ 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 .Create(uid:dword);
+begin
+ inherited Create(uid);
+end;
+
+destructor .Destroy;
+begin
+
+ inherited Destroy;
+end;
+
+function .Clone:tBaseAction;
+begin
+ result:=.Create(0);
+ Duplicate(result);
+
+end;
+
+function .DoAction(var WorkData:tWorkData):LRESULT;
+begin
+ result:=0;
+end;
+
+procedure .Load(node:pointer;fmt:integer);
+var
+ section: array [0..127] of AnsiChar;
+ pc:pAnsiChar;
+begin
+ inherited Load(node,fmt);
+ case fmt of
+ 0: begin
+ pc:=StrCopyE(section,pAnsiChar(node));
+ end;
+{
+ 1: begin
+ end;
+}
+ end;
+end;
+
+procedure .Save(node:pointer;fmt:integer);
+var
+ section: array [0..127] of AnsiChar;
+ pc:pAnsiChar;
+begin
+ inherited Save(node,fmt);
+ case fmt of
+ 0: begin
+ pc:=StrCopyE(section,pAnsiChar(node));
+ end;
+{
+ 1: begin
+ end;
+}
+ end;
+end;
+
+//----- Dialog realization -----
+
+procedure ClearFields(Dialog:HWND);
+begin
+end;
+
+function DlgProc(Dialog:HWND;hMessage:uint;wParam:WPARAM;lParam:LPARAM):LRESULT; stdcall;
+begin
+ result:=0;
+
+ case hMessage of
+ WM_INITDIALOG: begin
+ TranslateDialogDefault(Dialog);
+ end;
+
+ WM_ACT_SETVALUE: begin
+ ClearFields(Dialog);
+ with (lParam) do
+ begin
+ end;
+ end;
+
+ WM_ACT_RESET: begin
+ ClearFields(Dialog);
+ end;
+
+ WM_ACT_SAVE: begin
+ with (lParam) do
+ begin
+ end;
+ end;
+
+ WM_COMMAND: begin
+ case wParam shr 16 of
+ end;
+ end;
+
+ WM_HELP: begin
+ result:=1;
+ end;
+
+ end;
+end;
+
+//----- Export/interface functions -----
+
+var
+ vc:tActModule;
+
+function CreateAction:tBaseAction;
+begin
+ result:=.Create(vc.Hash);
+end;
+
+function CreateDialog(parent:HWND):HWND;
+begin
+ result:=CreateDialogW(hInstance,,parent,@DlgProc);
+end;
+
+procedure Init;
+begin
+ vc.Next :=ModuleLink;
+
+ vc.Name :=;
+ vc.Dialog :=@CreateDialog;
+ vc.Create :=@CreateAction;
+ vc.Icon :=;
+
+ ModuleLink :=@vc;
+end;
+
+begin
+ Init;
+end.
|