diff options
| author | Vadim Dashevskiy <watcherhd@gmail.com> | 2012-10-08 18:43:29 +0000 |
|---|---|---|
| committer | Vadim Dashevskiy <watcherhd@gmail.com> | 2012-10-08 18:43:29 +0000 |
| commit | 864081102a5f252415f41950b3039a896b4ae9c5 (patch) | |
| tree | c6b764651e9dd1f8f53b98eab05f16ba4a492a79 /plugins/Watrack/i_opt_dlg.inc | |
| parent | db5149b48346c417e18add5702a9dfe7f6e28dd0 (diff) | |
Awkwars's plugins - welcome to our trunk
git-svn-id: http://svn.miranda-ng.org/main/trunk@1822 1316c22d-e87f-b044-9b9b-93d7a3e3ba9c
Diffstat (limited to 'plugins/Watrack/i_opt_dlg.inc')
| -rw-r--r-- | plugins/Watrack/i_opt_dlg.inc | 57 |
1 files changed, 57 insertions, 0 deletions
diff --git a/plugins/Watrack/i_opt_dlg.inc b/plugins/Watrack/i_opt_dlg.inc new file mode 100644 index 0000000000..e97a3df5f5 --- /dev/null +++ b/plugins/Watrack/i_opt_dlg.inc @@ -0,0 +1,57 @@ +{$include i_opt_0.inc}
+{$include i_opt_1.inc}
+
+function OnOptInitialise(wParam:WPARAM;lParam:LPARAM):int;cdecl;
+var
+ odp:TOPTIONSDIALOGPAGE;
+ ptr:pwModule;
+ tmpl:pAnsiChar;
+ name:pansiChar;
+ proc:pointer;
+ i:integer;
+begin
+ if hwndTooltip<>0 then
+ DestroyWindow(hwndTooltip);
+ hwndTooltip:=CreateWindowW(TOOLTIPS_CLASS,nil,TTS_ALWAYSTIP,
+ integer(CW_USEDEFAULT),integer(CW_USEDEFAULT),
+ integer(CW_USEDEFAULT),integer(CW_USEDEFAULT),
+ 0,0,hInstance,nil);
+
+ SendMessage(hwndTooltip,TTM_SETMAXTIPWIDTH,0,300);
+
+ FillChar(odp,SizeOf(odp),0);
+ odp.cbSize :=SizeOf(odp);
+ odp.Position :=900003000;
+ odp.hInstance :=hInstance;
+ odp.szTitle.a :=PluginName;
+ odp.szGroup.a :='Plugins';
+
+ odp.flags :=ODPF_BOLDGROUPS or ODPF_EXPERTONLY;
+ odp.pszTemplate:='PARTS';
+ odp.pfnDlgProc :=@DlgProcOptions0;
+ odp.szTab.a :='Modules';
+ CallService(MS_OPT_ADDPAGE,wParam,tlparam(@odp));
+
+ odp.flags :=ODPF_BOLDGROUPS;
+ odp.pszTemplate:='BASIC';
+ odp.pfnDlgProc :=@DlgProcOptions1;
+ odp.szTab.a :='Basic';
+ CallService(MS_OPT_ADDPAGE,wParam,tlparam(@odp));
+
+ ptr:=ModuleLink;
+ while ptr<>nil do
+ begin
+ if (ptr^.ModuleStat<>0) and (@ptr^.AddOption<>nil) then
+ begin
+ i:=ptr^.AddOption(tmpl,proc,name);
+ odp.pszTemplate:=tmpl;
+ odp.pfnDlgProc :=proc;
+ odp.szTab.a :=name;
+ CallService(MS_OPT_ADDPAGE,wParam,tlparam(@odp));
+ if i>0 then continue;
+ end;
+ ptr:=ptr^.Next;
+ end;
+
+ result:=0;
+end;
|