Awkwars's plugins - welcome to our trunk

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

1 files changed, 327 insertions, 0 deletions

diff --git a/plugins/Watrack/kolframe/kolframe.pas b/plugins/Watrack/kolframe/kolframe.pas
new file mode 100644
index 0000000000..615991d810
--- /dev/null
+++ b/plugins/Watrack/kolframe/kolframe.pas
@@ -0,0 +1,327 @@
+{CList frame}

+unit KOLFrame;

+

+interface

+

+implementation

+

+uses windows,kol,commdlg,messages,common,commctrl, KOLCCtrls,

+     wat_api,wrapper,global,m_api,dbsettings,waticons,mirutils,

+     icobuttons,textblock,kolsizer;

+

+{$R frm.res}

+

+{$include frm_data.inc}

+{$include frm_vars.inc}

+

+procedure MouseDown(DummySelf, Sender:PControl;var Mouse:TMouseEventData);

+var

+  wnd:HWND;

+begin

+  wnd:=GetParent(Sender.GetWindowHandle);

+  SendMessage(wnd,WM_SYSCOMMAND,

+     SC_MOVE or HTCAPTION,MAKELPARAM(Mouse.x,Mouse.y));

+end;

+

+// ---------------- frame functions ----------------

+

+procedure SetFrameTitle(title:pointer;icon:HICON;addflag:integer=FO_UNICODETEXT);

+var

+  D:PWATFrameData;

+begin

+  D:=FrameCtrl.CustomData;

+  CallService(MS_CLIST_FRAMES_SETFRAMEOPTIONS,

+      (D.FrameId shl 16)+FO_TBNAME+addflag,dword(title));

+  CallService(MS_CLIST_FRAMES_SETFRAMEOPTIONS,(D.FrameId shl 16)+FO_ICON,icon);

+  CallService(MS_CLIST_FRAMES_UPDATEFRAME,D.FrameId,FU_TBREDRAW);

+end;

+

+// -----------------------

+

+function IsFrameMinimized(FrameId:integer):bool;

+begin

+  result:=(CallService(MS_CLIST_FRAMES_GETFRAMEOPTIONS,

+          (FrameId shl 16)+FO_FLAGS,0) and F_UNCOLLAPSED)=0;

+end;

+

+function IsFrameFloated(FrameId:integer):bool;

+begin

+  result:=CallService(MS_CLIST_FRAMES_GETFRAMEOPTIONS,

+          (FrameId shl 16)+FO_FLOATING,0)>0;

+end;

+

+function IsFrameHidden(FrameId:integer):bool;

+begin

+  result:=(CallService(MS_CLIST_FRAMES_GETFRAMEOPTIONS,

+          (FrameId shl 16)+FO_FLAGS,0) and F_VISIBLE)=0;

+end;

+

+procedure HideFrame(FrameId:integer);

+begin

+  if not IsFrameHidden(FrameId) then

+  begin

+    CallService(MS_CLIST_FRAMES_SHFRAME,FrameId,0);

+    HiddenByMe:=true;

+  end;

+end;

+

+function ShowFrame(FrameId:integer):integer;

+begin

+  result:=0;

+  if IsFrameHidden(FrameId) then

+    if HiddenByMe then

+    begin

+      CallService(MS_CLIST_FRAMES_SHFRAME,FrameId,0);

+      HiddenByMe:=false;

+    end

+    else

+      result:=1;

+end;

+

+{$include frm_rc.inc}

+{$include frm_icogroup.inc}

+{$include frm_trackbar.inc}

+{$include frm_text.inc}

+{$include frm_frame.inc}

+{$include frm_designer.inc}

+

+{$include frm_dlg1.inc}

+{$include frm_dlg2.inc}

+

+// ---------------- basic frame functions ----------------

+

+function NewPlStatus(wParam:WPARAM;lParam:LPARAM):int;cdecl;

+const

+  needToChange:boolean=true;

+var

+  bufw:array [0..511] of WideChar;

+//  FrameWnd:HWND;

+  Cover:pAnsiChar;

+  D:PWATFrameData;

+begin

+  result:=0;

+//  FrameWnd:=FrameCtrl.Form.GetWindowHandle;

+  D:=FrameCtrl.CustomData;

+

+  case wParam of

+    WAT_EVENT_PLAYERSTATUS: begin

+      case Integer(loword(lParam)) of

+        WAT_PLS_NORMAL  : exit;

+        WAT_PLS_NOMUSIC : begin

+          if D.HideNoMusic then

+            HideFrame(D.FrameId)

+          else

+            ShowFrame(D.FrameId); // if was hidden with "no player"

+        end;

+        WAT_PLS_NOTFOUND: begin

+          if D.HideNoPlayer then

+            HideFrame(D.FrameId);

+

+          SetFrameTitle(PluginShort,0,0); // frame update code there

+        end;

+      end;

+      FrameCtrl.ResetFrame;

+    end;

+

+    WAT_EVENT_NEWTRACK: begin

+      // cover

+      if D.UseCover then

+        if (pSongInfo(lParam)^.Cover<>nil) and (pSongInfo(lParam)^.Cover^<>#0) then

+        begin

+          GetShortPathNameW(pSongInfo(lParam)^.Cover,bufw,SizeOf(bufw));

+          WideToAnsi(bufw,Cover);

+          FrameCtrl.RefreshPicture(Cover);

+          mFreeMem(Cover);

+        end;

+

+      // trackbar

+      TrackbarSetRange(D.Trackbar,D.UpdInterval,pSongInfo(lParam)^.total);

+

+      if (D.UpdTimer=0) and (D.UpdInterval>0) then

+        D.UpdTimer:=SetTimer(0,0,D.UpdInterval,@FrameTimerProc);

+

+      // text

+      UpdateTextBlock(D,true);

+

+      ShowFrame(D.FrameId);

+    end;

+

+    WAT_EVENT_NEWPLAYER: begin

+      SetFrameTitle(pSongInfo(lParam)^.player,pSongInfo(lParam)^.icon);

+      // new player must call "no music" at least, so we have chance to show frame

+    end;

+

+    WAT_EVENT_PLUGINSTATUS: begin

+      case lParam of

+        dsEnabled: begin

+          ShowFrame(D.FrameId);

+          // plus - start frame and text timers

+          if D.UpdInterval>0 then

+            D.UpdTimer:=SetTimer(0,0,D.UpdInterval,@FrameTimerProc);

+        end;

+

+        dsPermanent: begin

+          HideFrame(D.FrameId);

+

+          // plus - stop frame and text timers

+          if D.UpdTimer<>0 then

+          begin

+            KillTimer(0,D.UpdTimer);

+            D.UpdTimer:=0;

+          end;

+        end;

+      end;

+    end;

+  end;

+end;

+

+function IconChanged(wParam:WPARAM;lParam:LPARAM):int;cdecl;

+begin

+  result:=0;

+  if PWATFrameData(FrameCtrl.CustomData).FrameId<>0 then

+  begin

+    FrameCtrl.RefreshAllFrameIcons;

+    ShowWindow(FrameCtrl.GetWindowHandle,SW_HIDE);

+    ShowWindow(FrameCtrl.GetWindowHandle,SW_SHOW);

+  end;

+end;

+

+//??const opt_FrmHeight :PAnsiChar = 'frame/frmheight';

+

+function CreateFrame(parent:HWND):boolean;

+var

+  CLFrame:TCLISTFrame;

+  rc:TRECT;

+  FrameWnd:HWND;

+begin

+  result:=false;

+  if ServiceExists(MS_CLIST_FRAMES_ADDFRAME)=0 then

+    exit;

+

+  if parent=0 then

+    parent:=CallService(MS_CLUI_GETHWND,0,0);

+

+  FrameWnd:=CreateFrameWindow(parent);

+

+  if FrameWnd<>0 then

+  begin

+    FillChar(CLFrame,SizeOf(CLFrame),0);

+    with CLFrame do

+    begin

+      cbSize  :=SizeOf(CLFrame);

+      hWnd    :=FrameWnd;

+      hIcon   :=0;

+      align   :=alTop;

+      GetClientRect(FrameWnd,rc);

+//??      height  :=DBReadWord(0,PluginShort,opt_FrmHeight,rc.bottom-rc.top);

+      Flags   :=0;//{F_VISIBLE or} F_SHOWTB;

+      name.a  :=PluginShort;

+      TBName.a:=PluginShort;

+    end;

+    FrameHeight:=CLFrame.height;

+

+    PWATFrameData(FrameCtrl.CustomData).FrameId:=CallService(MS_CLIST_FRAMES_ADDFRAME,dword(@CLFrame),0);

+    if PWATFrameData(FrameCtrl.CustomData).FrameId>=0 then

+    begin

+      plStatusHook:=HookEvent(ME_WAT_NEWSTATUS,@NewPlStatus);

+    end;

+  end;

+  result:=FrameWnd<>0;

+end;

+

+procedure DestroyFrame;

+var

+  id:Integer;

+begin

+  if (FrameCtrl<>nil) and (PWATFrameData(FrameCtrl.CustomData).FrameId>=0) then

+  begin

+    UnhookEvent(plStatusHook);

+

+    id:=PWATFrameData(FrameCtrl.CustomData).FrameId;

+    FrameCtrl.Free;

+    FrameCtrl:=nil;

+    CallService(MS_CLIST_FRAMES_REMOVEFRAME,Id,0);

+  end;

+end;

+

+const

+  opt_ModStatus:PAnsiChar = 'module/frame';

+

+function GetModStatus:integer;

+begin

+  result:=DBReadByte(0,PluginShort,opt_ModStatus,1);

+end;

+

+procedure SetModStatus(stat:integer);

+begin

+  DBWriteByte(0,PluginShort,opt_modStatus,stat);

+end;

+

+// ---------------- base interface procedures ----------------

+

+function InitProc(aGetStatus:boolean=false):integer;

+begin

+  FrameCtrl:=nil;

+  result:=0;

+  if aGetStatus then

+  begin

+    if GetModStatus=0 then

+      exit;

+  end

+  else

+    SetModStatus(1);

+

+  result:=ord(CreateFrame(0));

+  if result<>0 then

+    sic:=HookEvent(ME_SKIN2_ICONSCHANGED,@IconChanged);

+end;

+

+procedure DeInitProc(aSetDisable:boolean);

+begin

+  if aSetDisable then

+    SetModStatus(0);

+

+  if sic<>0 then UnhookEvent(sic);

+  sic:=0;

+  DestroyFrame;

+end;

+

+function AddOptionsPage(var tmpl:pAnsiChar;var proc:pointer;var name:PAnsiChar):integer;

+const

+  count:integer=2;

+begin

+  if count=0 then

+    count:=2;

+  if count=2 then

+  begin

+    tmpl:='FRAME';

+    proc:=@FrameViewDlg;

+    name:='Frame (main)';

+  end

+  else

+  begin

+    tmpl:='FRAME2';

+    proc:=@FrameTextDlg;

+    name:='Frame (text)';

+  end;

+

+  dec(count);

+  result:=count;

+end;

+

+var

+  Frame:twModule;

+

+procedure Init;

+begin

+  Frame.Next      :=ModuleLink;

+  Frame.Init      :=@InitProc;

+  Frame.DeInit    :=@DeInitProc;

+  Frame.AddOption :=@AddOptionsPage;

+  Frame.ModuleName:='Frame';

+  ModuleLink      :=@Frame;

+end;

+

+begin

+  Init;

+end.