unneeded delphi folder removed

git-svn-id: http://miranda-plugins.googlecode.com/svn/trunk@107 e753b5eb-9565-29b2-b5c5-2cc6f99dfbcb

1 files changed, 0 insertions, 79 deletions

diff --git a/delphi/Awkward/utils/cbex.pas b/delphi/Awkward/utils/cbex.pas
deleted file mode 100644
index b4f94c6..0000000
--- a/delphi/Awkward/utils/cbex.pas
+++ /dev/null
@@ -1,79 +0,0 @@
-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