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, 343 insertions, 0 deletions

diff --git a/plugins/QuickSearch/sr_frame.pas b/plugins/QuickSearch/sr_frame.pas
new file mode 100644
index 0000000000..bf3e576554
--- /dev/null
+++ b/plugins/QuickSearch/sr_frame.pas
@@ -0,0 +1,343 @@
+unit sr_frame;

+

+interface

+

+uses windows;

+

+procedure CreateFrame(parent:HWND);

+procedure DestroyFrame;

+

+implementation

+

+uses commctrl,Messages,m_api,common,wrapper,mirutils,sr_global;

+

+{.$include resource.inc}

+

+const

+  frm_back:pAnsiChar = 'Frame background';

+const

+  FrameWnd:HWND = 0;

+  FrameId:integer = -1;

+  OldEditProc:pointer=nil;

+  pattern:pWideChar=nil;

+  current: THANDLE = 0;

+var

+  colorhook:THANDLE;

+  hbr:HBRUSH;

+  frm_bkg:TCOLORREF;

+

+function CheckContact(wnd:HWND; hContact:THANDLE):THANDLE;

+var

+  buf:array [0..127] of WideChar;

+begin

+  result:=0;

+

+  SendMessage(wnd,CLM_GETITEMTEXT,hContact,lparam(@buf));

+

+  if StrPosW(CharLowerW(@buf),pattern)<>nil then

+    result:=hContact;

+end;

+

+function GetNextContact(wnd:HWND; root,hContact:THANDLE; direction,skip:integer):THANDLE;

+var

+  tmp:THANDLE;

+//  buf:array [0..127] of WideChar;

+begin

+  result:=0;

+  repeat

+

+    if skip=0 then

+    begin

+      case SendMessage(wnd,CLM_GETITEMTYPE,hContact,0) of

+        CLCIT_GROUP: begin

+          if SendMessage(wnd,CLM_GETEXPAND,hContact,0)=CLE_EXPAND then // expanded only

+          begin

+            tmp:=SendMessage(wnd,CLM_GETNEXTITEM,CLGN_CHILD,hContact);

+            if tmp<>0 then

+            begin

+              hContact:=tmp;

+              if direction=CLGN_PREVIOUS then

+              begin // set on last contact in group

+                repeat

+                  tmp:=SendMessage(wnd,CLM_GETNEXTITEM,CLGN_NEXT,hContact);

+                  if tmp<>0 then

+                    hContact:=tmp

+                  else

+                    break;

+                until false;

+              end;

+              continue;

+            end;

+          end;

+        end;

+        CLCIT_CONTACT: begin

+          result:=CheckContact(wnd,hContact);

+          if result<>0 then

+            break;

+        end;

+      else // CLCIT_INVALID for example

+        break;

+      end;

+    end

+    else

+      skip:=0;

+

+      if hContact=HCONTACT_ISGROUP then

+//    if (hContact=root) and (direction=CLGN_PREVIOUS) then // 1st group, no need to process "root=clist"

+      break;

+

+    tmp:=SendMessage(wnd,CLM_GETNEXTITEM,direction,hContact);

+    if tmp=0 then

+    begin

+      hContact:=SendMessage(wnd,CLM_GETNEXTITEM,CLGN_PARENT,hContact);

+      // not here but where group insert

+      skip:=1;

+      continue;

+      //      hContact:=SendMessage(wnd,CLM_GETNEXTITEM,direction,hContact);

+      if hContact=0 then

+        break;

+    end

+    else

+      hContact:=tmp;

+  until false;

+end;

+

+function SearchContact(direction:integer;skip:integer=1):integer;

+var

+  root,hContact:THANDLE;

+  wnd:HWND;

+begin

+  result:=0;

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

+  begin

+    current:=0; // next seach - from start

+    exit; // pattern empty

+  end;

+

+  wnd:=CallService(MS_CLUI_GETHWNDTREE,0,0);

+

+  root:=SendMessage(wnd,CLM_GETNEXTITEM,CLGN_ROOT,0);

+  if current=0 then

+    hContact:=root

+  else

+    hContact:=current;

+

+  result:=GetNextContact(wnd,root,hContact,direction,skip);

+

+  if result<>0 then

+    SetCListSelContact(result);

+end;

+

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

+begin

+//  result:=0;

+  case hMessage of

+    WM_CHAR: if wParam=27 then

+    begin

+      // clear edit field

+      SendMessage(Dialog,WM_SETTEXT,0,0);

+      // go to top?

+      current:=0;

+    end;

+

+    WM_KEYDOWN: begin

+      case wParam of

+        VK_PRIOR,VK_UP: begin

+          current:=SearchContact(CLGN_PREVIOUS);

+        end;

+        VK_NEXT,VK_DOWN: begin

+          current:=SearchContact(CLGN_NEXT);

+        end;

+      end;

+    end;

+  end;

+  result:=CallWindowProc(OldEditProc,Dialog,hMessage,wParam,lParam);

+end;

+

+function QSDlgResizer(Dialog:HWND;lParam:LPARAM;urc:PUTILRESIZECONTROL):int; cdecl;

+begin

+  case urc^.wId of

+    IDC_FRAME_OPEN: result:=RD_ANCHORX_LEFT  or RD_ANCHORY_CENTRE;

+    IDC_FRAME_EDIT: result:=RD_ANCHORX_WIDTH or RD_ANCHORY_CENTRE;

+    IDC_FRAME_PREV: result:=RD_ANCHORX_RIGHT or RD_ANCHORY_CENTRE;

+    IDC_FRAME_NEXT: result:=RD_ANCHORX_RIGHT or RD_ANCHORY_CENTRE;

+  else

+    result:=0;

+  end;

+end;

+

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

+var

+  urd:TUTILRESIZEDIALOG;

+  tmp:THANDLE;

+  rc:TRECT;

+  ti:TTOOLINFOW;

+  hwndTooltip:HWND;

+begin

+  result:=0;

+  case hMessage of

+    WM_DESTROY: begin

+      DeleteObject(hbr);

+    end;

+

+    WM_INITDIALOG: begin

+      OldEditProc:=pointer(SetWindowLongPtrW(GetDlgItem(Dialog,IDC_FRAME_EDIT),

+         GWL_WNDPROC,LONG_PTR(@NewEditProc)));

+

+      hwndTooltip:=CreateWindowW(TOOLTIPS_CLASS,nil,TTS_ALWAYSTIP,

+          integer(CW_USEDEFAULT),integer(CW_USEDEFAULT),

+          integer(CW_USEDEFAULT),integer(CW_USEDEFAULT),

+          Dialog,0,hInstance,nil);

+

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

+      ti.cbSize  :=sizeof(TOOLINFO);

+      ti.uFlags  :=TTF_IDISHWND or TTF_SUBCLASS;

+      ti.hwnd    :=Dialog;

+      ti.hinst   :=hInstance;

+      ti.uId     :=GetDlgItem(Dialog,IDC_FRAME_PREV);

+

+      ti.lpszText:=pWideChar(TranslateW('Previous item'));

+      SendMessage(hwndTooltip,TTM_ADDTOOLW,0,tlparam(@ti));

+      ti.uId     :=GetDlgItem(Dialog,IDC_FRAME_NEXT);

+      ti.lpszText:=pWideChar(TranslateW('Next item'));

+      SendMessageW(hwndTooltip,TTM_ADDTOOLW,0,tlparam(@ti));

+      ti.uId     :=GetDlgItem(Dialog,IDC_FRAME_OPEN);

+      ti.lpszText:=pWideChar(TranslateW('Open main window'));

+      SendMessageW(hwndTooltip,TTM_ADDTOOLW,0,tlparam(@ti));

+    end;

+

+    WM_SIZE: begin

+      FillChar(urd,SizeOf(TUTILRESIZEDIALOG),0);

+      urd.cbSize    :=SizeOf(urd);

+      urd.hwndDlg   :=Dialog;

+      urd.hInstance :=hInstance;

+      urd.lpTemplate:=MAKEINTRESOURCEA(IDD_FRAME);

+      urd.lParam    :=0;

+      urd.pfnResizer:=@QSDlgResizer;

+      CallService(MS_UTILS_RESIZEDIALOG,0,tlparam(@urd));

+    end;

+

+    WM_ERASEBKGND: begin

+      GetClientRect(Dialog,rc);

+      FillRect(wParam,rc,hbr);

+      result:=1;

+    end;

+

+    WM_COMMAND: begin

+      case wParam shr 16 of

+        EN_CHANGE: begin

+          mFreeMem(pattern);

+          pattern:=GetDlgText(Dialog,IDC_FRAME_EDIT);

+          if pattern<>nil then

+            CharLowerW(pattern);

+

+          tmp:=SearchContact(CLGN_NEXT,0);

+          if tmp=0 then

+            tmp:=SearchContact(CLGN_PREVIOUS,0);

+          current:=tmp;

+        end;

+

+        BN_CLICKED: begin

+          tmp:=0;

+          case loword(wParam) of

+            IDC_FRAME_PREV: tmp:=SearchContact(CLGN_PREVIOUS);

+            IDC_FRAME_NEXT: tmp:=SearchContact(CLGN_NEXT);

+            IDC_FRAME_OPEN: CallService(QS_SHOWSERVICE,twparam(pattern),0);

+          end;

+          if tmp<>0 then current:=tmp;

+        end;

+      end;

+    end;

+

+  else

+    result:=DefWindowProc(Dialog,hMessage,wParam,lParam);

+  end;

+end;

+

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

+var

+  cid:TColourID;

+begin

+  result:=0;

+  cid.cbSize:=SizeOf(cid);

+  StrCopy(cid.group,'QuickSearch');

+  StrCopy(cid.name ,frm_back);

+  frm_bkg:=CallService(MS_COLOUR_GETA,twparam(@cid),0);

+  DeleteObject(hbr);

+  hbr:=CreateSolidBrush(frm_bkg);

+

+  RedrawWindow(FrameWnd,nil,0,RDW_ERASE);

+end;

+

+procedure CreateFrame(parent:HWND);

+var

+  Frame:TCLISTFrame;

+  wnd:HWND;

+  tmp:cardinal;

+  tr:TRECT;

+  cid:TColourID;

+begin

+  if ServiceExists(MS_CLIST_FRAMES_ADDFRAME)=0 then

+    exit;

+  if parent=0 then

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

+

+  if FrameWnd=0 then

+    FrameWnd:=CreateDialog(hInstance,MAKEINTRESOURCE(IDD_FRAME),parent,@QSFrameProc);

+

+  if FrameWnd<>0 then

+  begin

+    GetWindowRect(FrameWnd,tr);

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

+    with Frame do

+    begin

+      cbSize  :=SizeOf(Frame);

+      hWnd    :=FrameWnd;

+      hIcon   :=0;

+      align   :=alTop;

+      height  :=tr.bottom-tr.top+2;

+      Flags   :=F_VISIBLE or F_NOBORDER or F_UNICODE;

+      name.w  :='Quick search';

+      TBName.w:='Quick search';

+    end;

+

+    FrameId:=CallService(MS_CLIST_FRAMES_ADDFRAME,wparam(@Frame),0);

+    if FrameId>=0 then

+    begin

+      CallService(MS_CLIST_FRAMES_UPDATEFRAME,FrameId, FU_FMPOS);

+

+      wnd:=CallService(MS_CLUI_GETHWND{MS_CLUI_GETHWNDTREE},0,0);

+      tmp:=SendMessage(wnd,CLM_GETEXSTYLE,0,0);

+      SendMessage(wnd,CLM_SETEXSTYLE,tmp or CLS_EX_SHOWSELALWAYS,0);

+

+      cid.cbSize:=SizeOf(cid);

+      cid.flags :=0;

+      StrCopy(cid.group,'QuickSearch');

+      StrCopy(cid.dbSettingsGroup,qs_module);

+

+      StrCopy(cid.name   ,frm_back);

+      StrCopy(cid.setting,'frame_back');

+      cid.defcolour:=COLOR_3DFACE;

+      cid.order    :=0;

+      ColourRegister(@cid);

+

+      colorhook:=HookEvent(ME_COLOUR_RELOAD,@ColorReload);

+      ColorReload(0,0);

+    end;

+  end;

+end;

+

+procedure DestroyFrame;

+begin

+  if FrameId>=0 then

+  begin

+    UnhookEvent(colorhook);

+    CallService(MS_CLIST_FRAMES_REMOVEFRAME,FrameId,0);

+    FrameId:=-1;

+  end;

+  DestroyWindow(FrameWnd);

+  FrameWnd:=0;

+  mFreeMem(pattern);

+end;

+

+end.