HRESULT CluiLoadModule()
{
CreateServiceFunction(MS_CLUI_GETCAPS,CLUIGetCapsService);
InitDisplayNameCache();
hookSystemShutdown_CListMod = ModernHookEvent(ME_SYSTEM_SHUTDOWN,CListMod_ContactListShutdownProc);
hookOptInitialise_CList = ModernHookEvent(ME_OPT_INITIALISE,CListOptInit);
hookOptInitialise_Skin = ModernHookEvent(ME_OPT_INITIALISE,SkinOptInit);
CreateServiceFunction("ModernSkinSel/Active", SvcActiveSkin);
CreateServiceFunction("ModernSkinSel/Preview", SvcPreviewSkin);
CreateServiceFunction("ModernSkinSel/Apply", SvcApplySkin);
hookContactAdded_CListSettings = ModernHookEvent(ME_DB_CONTACT_ADDED,ContactAdded);
CreateServiceFunction(MS_CLIST_TRAYICONPROCESSMESSAGE,cli_TrayIconProcessMessage);
CreateServiceFunction(MS_CLIST_PAUSEAUTOHIDE,TrayIconPauseAutoHide);
CreateServiceFunction(MS_CLIST_CONTACTCHANGEGROUP,ContactChangeGroup);
CreateServiceFunction(MS_CLIST_TOGGLEHIDEOFFLINE,ToggleHideOffline);
CreateServiceFunction(MS_CLIST_TOGGLEGROUPS,ToggleGroups);
CreateServiceFunction(MS_CLIST_TOGGLESOUNDS,ToggleSounds);
CreateServiceFunction(MS_CLIST_SETUSEGROUPS,SetUseGroups);
CreateServiceFunction(MS_CLIST_GETCONTACTICON,GetContactIcon);
MySetProcessWorkingSetSize=(BOOL (WINAPI*)(HANDLE,SIZE_T,SIZE_T))GetProcAddress(GetModuleHandle(TEXT("kernel32")),"SetProcessWorkingSetSize");
hCListImages = ImageList_Create(16, 16, ILC_MASK|ILC_COLOR32, 32, 0);
InitCustomMenus();
InitTray();
{
HINSTANCE hUser = GetModuleHandleA("USER32");
MyMonitorFromPoint = ( pfnMyMonitorFromPoint )GetProcAddress( hUser,"MonitorFromPoint" );
MyMonitorFromWindow = ( pfnMyMonitorFromWindow )GetProcAddress( hUser, "MonitorFromWindow" );
#if defined( _UNICODE )
MyGetMonitorInfo = ( pfnMyGetMonitorInfo )GetProcAddress( hUser, "GetMonitorInfoW");
#else
MyGetMonitorInfo = ( pfnMyGetMonitorInfo )GetProcAddress( hUser, "GetMonitorInfoA");
#endif
}
CLUI::InitClui();
return S_OK;
}
LRESULT CALLBACK ContactListControlWndProc(HWND hwnd, UINT msg, WPARAM wParam, LPARAM lParam)
{
struct ClcData *dat = (struct ClcData*)GetWindowLongPtr(hwnd,0);
if ( msg >= CLM_FIRST && msg < CLM_LAST )
return pcli->pfnProcessExternalMessages(hwnd,dat,msg,wParam,lParam);
switch (msg) {
case WM_CREATE:
dat = (struct ClcData*)mir_calloc( sizeof(struct ClcData));
SetWindowLong(hwnd,0,(LPARAM)dat);
InitDisplayNameCache(&dat->lCLCContactsCache);
break;
case INTM_ICONCHANGED:
{ struct ClcContact *contact=NULL;
struct ClcGroup *group=NULL;
int recalcScrollBar=0,shouldShow;
HANDLE hSelItem=NULL;
struct ClcContact *selcontact=NULL;
pdisplayNameCacheEntry cacheEntry = GetContactFullCacheEntry((HANDLE)wParam);
WORD status;
int NeedResort=0;
char *szProto = cacheEntry->szProto;
if(szProto==NULL) status=ID_STATUS_OFFLINE;
else status=cacheEntry->status;
shouldShow=(GetWindowLong(hwnd,GWL_STYLE)&CLS_SHOWHIDDEN || !cacheEntry->Hidden) && (!pcli->pfnIsHiddenMode(dat,status)||cacheEntry->noHiddenOffline || CallService(MS_CLIST_GETCONTACTICON,wParam,0)!=LOWORD(lParam)); //this means an offline msg is flashing, so the contact should be shown
if(!FindItem(hwnd,dat,(HANDLE)wParam,&contact,&group,NULL)) {
if(shouldShow && CallService(MS_DB_CONTACT_IS, wParam, 0)) {
if(dat->selection>=0 && GetRowByIndex(dat,dat->selection,&selcontact,NULL)!=-1)
hSelItem=pcli->pfnContactToHItem(selcontact);
AddContactToTree(hwnd,dat,(HANDLE)wParam,0,0);
NeedResort=1;
recalcScrollBar=1;
FindItem(hwnd,dat,(HANDLE)wParam,&contact,NULL,NULL);
if (contact) {
contact->iImage=(WORD)lParam;
pcli->pfnNotifyNewContact(hwnd,(HANDLE)wParam);
dat->NeedResort=1;
}
}
}
else {
//item in list already
DWORD style=GetWindowLong(hwnd,GWL_STYLE);
if(contact->iImage== (WORD)lParam) break;
if (sortByStatus) dat->NeedResort=1;
if(!shouldShow && !(style&CLS_NOHIDEOFFLINE) && (style&CLS_HIDEOFFLINE || group->hideOffline)) {
if(dat->selection>=0 && GetRowByIndex(dat,dat->selection,&selcontact,NULL)!=-1)
hSelItem=pcli->pfnContactToHItem(selcontact);
RemoveItemFromGroup(hwnd,group,contact,0);
recalcScrollBar=1;
dat->NeedResort=1;
}
else {
int oldflags;
contact->iImage=(WORD)lParam;
oldflags=contact->flags;
if(!pcli->pfnIsHiddenMode(dat,status)||cacheEntry->noHiddenOffline) contact->flags|=CONTACTF_ONLINE;
else contact->flags&=~CONTACTF_ONLINE;
if (oldflags!=contact->flags)
dat->NeedResort=1;
} }
if(hSelItem) {
struct ClcGroup *selgroup;
if(FindItem(hwnd,dat,hSelItem,&selcontact,&selgroup,NULL))
dat->selection=GetRowsPriorTo(&dat->list,selgroup,li.List_IndexOf((SortedList*)&selgroup->cl, selcontact));
else
dat->selection=-1;
}
SortClcByTimer(hwnd);
if(recalcScrollBar) RecalcScrollBar(hwnd,dat);
goto LBL_Exit;
}
case INTM_STATUSMSGCHANGED:
{ struct ClcContact *contact=NULL;
struct ClcGroup *group=NULL;
DBVARIANT dbv;
if (!(dat->style&CLS_SHOWSTATUSMESSAGES)) break;
if(FindItem(hwnd,dat,(HANDLE)wParam,&contact,&group,NULL) && contact!=NULL) {
contact->flags &= ~CONTACTF_STATUSMSG;
if (!DBGetContactSettingTString((HANDLE)wParam, "CList", "StatusMsg", &dbv)) {
int j;
if (dbv.ptszVal==NULL||_tcslen(dbv.ptszVal)==0) break;
lstrcpyn(contact->szStatusMsg, dbv.ptszVal, SIZEOF(contact->szStatusMsg));
for (j=(int)_tcslen(contact->szStatusMsg)-1;j>=0;j--) {
if (contact->szStatusMsg[j]=='\r' || contact->szStatusMsg[j]=='\n' || contact->szStatusMsg[j]=='\t') {
contact->szStatusMsg[j] = ' ';
}
}
DBFreeVariant(&dbv);
if (_tcslen(contact->szStatusMsg)>0) {
contact->flags |= CONTACTF_STATUSMSG;
dat->NeedResort=TRUE;
}
}
}
InvalidateRect(hwnd,NULL,TRUE);
SortClcByTimer(hwnd);
RecalcScrollBar(hwnd,dat);
goto LBL_Exit;
}
case WM_TIMER:
if (wParam==TIMERID_DELAYEDREPAINT) {
KillTimer(hwnd,TIMERID_DELAYEDREPAINT);
InvalidateRect(hwnd,NULL,FALSE);
break;
}
if ( wParam == TIMERID_SUBEXPAND) {
KillTimer(hwnd,TIMERID_SUBEXPAND);
if (hitcontact) {
if (hitcontact->SubExpanded) hitcontact->SubExpanded=0; else hitcontact->SubExpanded=1;
DBWriteContactSettingByte(hitcontact->hContact,"CList","Expanded",hitcontact->SubExpanded);
}
hitcontact=NULL;
dat->NeedResort=1;
SortCLC(hwnd,dat,1);
RecalcScrollBar(hwnd,dat);
break;
}
break;
case WM_DESTROY:
FreeDisplayNameCache(&dat->lCLCContactsCache);
stopStatusUpdater = 1;
break;
}
{ LRESULT res = saveContactListControlWndProc(hwnd, msg, wParam, lParam);
switch (msg) {
case WM_CREATE:
mir_forkthread(StatusUpdaterThread,0);
break;
}
return res;
}
LBL_Exit:
return DefWindowProc(hwnd, msg, wParam, lParam);
}
int LoadContactListModule(void)
{
/* HANDLE hContact = (HANDLE) CallService(MS_DB_CONTACT_FINDFIRST, 0, 0);
while (hContact!=NULL) {
DBWriteContactSettingString(hContact, "CList", "StatusMsg", "");
hContact = (HANDLE) CallService(MS_DB_CONTACT_FINDNEXT, (WPARAM) hContact, 0);
}
*/
HookEvent(ME_SYSTEM_SHUTDOWN,ContactListShutdownProc);
HookEvent(ME_SYSTEM_MODULESLOADED,ContactListModulesLoaded);
HookEvent(ME_OPT_INITIALISE,CListOptInit);
HookEvent(ME_OPT_INITIALISE,SkinOptInit);
hSettingChanged=HookEvent(ME_DB_CONTACT_SETTINGCHANGED,ContactSettingChanged);
HookEvent(ME_DB_CONTACT_ADDED,ContactAdded);
HookEvent(ME_DB_CONTACT_DELETED,ContactDeleted);
hProtoAckHook=(HANDLE)HookEvent(ME_PROTO_ACK,ProtocolAck);
hContactDoubleClicked=CreateHookableEvent(ME_CLIST_DOUBLECLICKED);
hStatusModeChangeEvent=CreateHookableEvent(ME_CLIST_STATUSMODECHANGE);
hContactIconChangedEvent=CreateHookableEvent(ME_CLIST_CONTACTICONCHANGED);
CreateServiceFunction(MS_CLIST_CONTACTDOUBLECLICKED,ContactDoubleClicked);
CreateServiceFunction(MS_CLIST_CONTACTFILESDROPPED,ContactFilesDropped);
CreateServiceFunction(MS_CLIST_SETSTATUSMODE,SetStatusMode);
CreateServiceFunction(MS_CLIST_GETSTATUSMODE,GetStatusMode);
CreateServiceFunction(MS_CLIST_GETSTATUSMODEDESCRIPTION,GetStatusModeDescription);
CreateServiceFunction(MS_CLIST_GETCONTACTDISPLAYNAME,GetContactDisplayName);
CreateServiceFunction(MS_CLIST_INVALIDATEDISPLAYNAME,InvalidateDisplayName);
CreateServiceFunction(MS_CLIST_TRAYICONPROCESSMESSAGE,TrayIconProcessMessage);
CreateServiceFunction(MS_CLIST_PAUSEAUTOHIDE,TrayIconPauseAutoHide);
CreateServiceFunction(MS_CLIST_CONTACTSCOMPARE,CompareContacts);
CreateServiceFunction(MS_CLIST_CONTACTCHANGEGROUP,ContactChangeGroup);
CreateServiceFunction(MS_CLIST_SHOWHIDE,ShowHide);
CreateServiceFunction(MS_CLIST_SETHIDEOFFLINE,SetHideOffline);
CreateServiceFunction(MS_CLIST_TOGGLEHIDEOFFLINE,ToggleHideOffline);
CreateServiceFunction(MS_CLIST_DOCKINGPROCESSMESSAGE,Docking_ProcessWindowMessage);
CreateServiceFunction(MS_CLIST_DOCKINGISDOCKED,Docking_IsDocked);
CreateServiceFunction(MS_CLIST_HOTKEYSPROCESSMESSAGE,HotkeysProcessMessage);
CreateServiceFunction(MS_CLIST_GETCONTACTICON,GetContactIcon);
MySetProcessWorkingSetSize=(BOOL (WINAPI*)(HANDLE,SIZE_T,SIZE_T))GetProcAddress(GetModuleHandle(TEXT("kernel32")),"SetProcessWorkingSetSize");
hCListImages = ImageList_Create(16, 16, ILC_MASK|ILC_COLOR32, 32, 0);
InitDisplayNameCache(&lContactsCache);
InitCListEvents();
InitCustomMenus();
InitGroupServices();
InitTray();
{ CLISTMENUITEM mi;
ZeroMemory(&mi,sizeof(mi));
mi.cbSize=sizeof(mi);
CreateServiceFunction("CList/DeleteContactCommand",MenuItem_DeleteContact);
mi.position=2000070000;
mi.flags=0;
mi.hIcon=LoadIcon(GetModuleHandle(NULL),MAKEINTRESOURCE(IDI_DELETE));
mi.pszContactOwner=NULL; //on every contact
mi.pszName=Translate("De&lete");
mi.pszService="CList/DeleteContactCommand";
CallService(MS_CLIST_ADDCONTACTMENUITEM,0,(LPARAM)&mi);
CreateServiceFunction("CList/AddToListContactCommand",MenuItem_AddContactToList);
mi.position=-2050000000;
mi.flags=CMIF_NOTONLIST;
mi.hIcon=LoadIcon(GetModuleHandle(NULL),MAKEINTRESOURCE(IDI_ADDCONTACT));
mi.pszName=Translate("&Add permanently to list");
mi.pszService="CList/AddToListContactCommand";
CallService(MS_CLIST_ADDCONTACTMENUITEM,0,(LPARAM)&mi);
}
HookEvent(ME_SKIN_ICONSCHANGED,CListIconsChanged);
CreateServiceFunction(MS_CLIST_GETICONSIMAGELIST,GetIconsImageList);
ImageList_AddIcon(hCListImages, LoadIcon(GetModuleHandle(NULL),MAKEINTRESOURCE(IDI_BLANK)));
{ int i;
for(i=0;i<sizeof(statusModeList)/sizeof(statusModeList[0]);i++)
ImageList_AddIcon(hCListImages, LoadSkinnedIcon(skinIconStatusList[i]));
}
//see IMAGE_GROUP... in clist.h if you add more images above here
ImageList_AddIcon(hCListImages, LoadSkinnedIcon(SKINICON_OTHER_GROUPOPEN));
ImageList_AddIcon(hCListImages, LoadSkinnedIcon(SKINICON_OTHER_GROUPSHUT));
//InitGroupMenus();
return 0;
}
