From cb4a46e7fbe62d788e66ed6121c717a2d22a4d7c Mon Sep 17 00:00:00 2001
From: watcherhd <watcherhd@e753b5eb-9565-29b2-b5c5-2cc6f99dfbcb>
Date: Thu, 21 Apr 2011 14:14:52 +0000
Subject: svn.miranda.im is moving to a new home!

git-svn-id: http://miranda-plugins.googlecode.com/svn/trunk@7 e753b5eb-9565-29b2-b5c5-2cc6f99dfbcb
---
 delphi/Awkward/utils/cbex.pas | 79 +++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 79 insertions(+)
 create mode 100644 delphi/Awkward/utils/cbex.pas

(limited to 'delphi/Awkward/utils/cbex.pas')

diff --git a/delphi/Awkward/utils/cbex.pas b/delphi/Awkward/utils/cbex.pas
new file mode 100644
index 0000000..b4f94c6
--- /dev/null
+++ b/delphi/Awkward/utils/cbex.pas
@@ -0,0 +1,79 @@
+unit CBEx;
+interface
+
+uses windows,commctrl;
+
+// build combobox with xstatus icons and names
+
+function AddCBEx(wnd:HWND;proto:PAnsiChar):HWND;
+
+implementation
+
+uses messages,m_api,kol,common,mirutils;
+
+function AddCBEx(wnd:HWND;proto:PAnsiChar):HWND;
+var
+  cbei:TCOMBOBOXEXITEMW;
+  total,cnt:integer;
+  il:HIMAGELIST;
+  icon:HICON;
+  buf,buf1:array [0..127] of AnsiChar;
+  b:array [0..63] of WideChar;
+  ics:TICQ_CUSTOM_STATUS;
+begin
+  result:=0;
+  SendMessage(wnd,CB_RESETCONTENT,0,0);
+  StrCopy(buf,proto);
+  StrCat (buf,PS_ICQ_GETCUSTOMSTATUSICON);
+  if PluginLink^.ServiceExists(buf)=0 then
+    exit;
+
+  il:=ImageList_Create(16,16,ILC_COLOR32 or ILC_MASK,0,1);
+  if il=0 then exit;
+
+  cnt:=0;
+  StrCopy(buf1,proto);
+  StrCat (buf1,PS_ICQ_GETCUSTOMSTATUSEX);
+  cbei.mask:=CBEIF_IMAGE or CBEIF_SELECTEDIMAGE or CBEIF_TEXT; //!!
+  ics.cbSize  :=SizEOf(ics);
+  ics.flags   :=CSSF_STATUSES_COUNT;
+  ics.szName.w:=@b;
+  ics.wParam  :=@total;
+  CallService(buf1,0,dword(@ics));
+  ics.flags :=CSSF_DEFAULT_NAME or CSSF_MASK_NAME or CSSF_UNICODE;
+
+  while cnt<=total do
+  begin
+    if cnt=0 then
+    begin
+      ImageList_AddIcon(il,CallService(MS_SKIN_LOADICON,SKINICON_OTHER_SMALLDOT,0));
+      cbei.pszText:=TranslateW('None');
+    end
+    else
+    begin
+      icon:=CallService(buf,cnt,LR_SHARED);
+      if icon=0 then break;
+      if ImageList_AddIcon(il,icon)=-1 then break;
+      ics.wParam:=@cnt;
+      CallService(buf1,0,dword(@ics));
+      cbei.pszText:=TranslateW(@b);
+    end;
+    cbei.iItem         :=cnt;
+    cbei.iImage        :=cnt;
+    cbei.iSelectedImage:=cnt;
+    if SendMessageW(wnd,CBEM_INSERTITEMW,0,dword(@cbei))=-1 then break;
+    inc(cnt);
+//    DestroyIcon(icon);
+  end;
+
+  if cnt=0 then
+    ImageList_Destroy(il)
+  else
+  begin
+    ImageList_Destroy(SendMessage(wnd,CBEM_SETIMAGELIST,0,il));
+    SendMessage(wnd,CB_SETCURSEL,0,0);
+    result:=wnd;
+  end;
+end;
+
+end.
\ No newline at end of file
-- 
cgit v1.2.3