1 files changed, 86 insertions, 0 deletions
diff --git a/plugins/Watrack/global.pas b/plugins/Watrack/global.pas
new file mode 100644
index 0000000000..14d915a973
--- /dev/null
+++ b/plugins/Watrack/global.pas
@@ -0,0 +1,86 @@
+{WATrack global datas}
+unit Global;
+
+interface
+
+uses windows,messages,wat_api;
+
+const
+  hwndTooltip:HWND=0;
+
+var
+  UserCP:dword;
+
+const
+  DLGED_INIT = $1000; // dialog init, not activate Apply button
+
+const
+  dsWait      = -1;
+  dsEnabled   = 0;
+  dsTemporary = 1;
+  dsPermanent = 2;
+
+// --- type definition ---
+type
+  pwModule = ^twModule;
+  twModule = record
+    Next      :pwModule;
+    Init      :function(aGetStatus:boolean=false):integer;
+    DeInit    :procedure(aSetDisable:boolean);
+    AddOption :function(var tmpl:pAnsiChar;var proc:pointer;var name:pAnsiChar):integer;
+    ModuleName:pWideChar;
+    ModuleStat:integer; // filling by the way
+    Button    :HWND;    // checkboxes for switch on/off
+//    AddOption:function(parent:HWND;var Dlg:integer;var name:pWideChar):integer;
+  end;
+
+const
+  PluginName  = 'Winamp Track';
+  PluginShort:PAnsiChar = 'WATrack';
+
+const
+  ModuleLink:pwModule=nil;
+
+const
+  DisablePlugin :integer=0;
+  hHookWATStatus:THANDLE=0;
+
+// --- global functions ---
+
+procedure MakeHint (wnd:HWND;id:integer;txt:pAnsiChar);
+procedure MakeHintW(wnd:HWND;id:integer;txt:pWideChar);
+
+implementation
+
+uses common,commctrl,mirutils,m_api;//,templates;
+
+procedure MakeHint(wnd:HWND;id:integer;txt:pAnsiChar);
+var
+  ti:TTOOLINFOW;
+begin
+//  FillChar(ti,SizeOf(ti),0);
+  ti.cbSize  :=sizeof(TTOOLINFOW);
+  ti.uFlags  :=TTF_IDISHWND or TTF_SUBCLASS;
+  ti.hwnd    :=wnd;
+  ti.hinst   :=hInstance;
+  ti.uId     :=GetDlgItem(wnd,id);
+  ti.lpszText:=TranslateA2W(txt);
+  SendMessageW(hwndTooltip,TTM_ADDTOOLW,0,lparam(@ti));
+  mFreeMem(ti.lpszText);
+end;
+
+procedure MakeHintW(wnd:HWND;id:integer;txt:pWideChar);
+var
+  ti:TTOOLINFOW;
+begin
+//  FillChar(ti,SizeOf(ti),0);
+  ti.cbSize  :=sizeof(TTOOLINFOW);
+  ti.uFlags  :=TTF_IDISHWND or TTF_SUBCLASS;
+  ti.hwnd    :=wnd;
+  ti.hinst   :=hInstance;
+  ti.uId     :=GetDlgItem(wnd,id);
+  ti.lpszText:=TranslateW(txt);
+  SendMessageW(hwndTooltip,TTM_ADDTOOLW,0,lparam(@ti));
+end;
+
+end.