Source code of Windows XP (NT5)
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 
 
 

2151 lines
58 KiB

#include "progman.h"
#include "ime.h"
BOOL FAR PASCAL IMEStringWindow(HWND,HANDLE);
int FAR PASCAL IMEWindowGetCnt(LPTSTR,LPTSTR);
#define HK_SHIFT 0x0100
#define HK_CONTROL 0x0200
#define HK_ALT 0x0400
#define HK_EXT 0x0800
#define F_EXT 0x01000000L
#define OBJ_ITEM 1
BOOL bNoScrollCalc = FALSE;
RECT rcArrangeRect;
HWND hwndScrolling = NULL;
BOOL APIENTRY InQuotes(LPTSTR sz);
void NEAR PASCAL ViewActiveItem(PGROUP pGroup);
/* Make the first item in a list the last and return a pointer to it.*/
PITEM PASCAL MakeFirstItemLast(PGROUP pGroup)
{
PITEM pItemCur;
/* Just quit if there's no list.*/
if ((pItemCur = pGroup->pItems) == NULL)
return NULL;
/* Find the end of the list.*/
for( ; pItemCur->pNext ; pItemCur = pItemCur->pNext)
;
/* End of the list.*/
/* This works even if there is only one item in the */
/* list, it's a waste of time though.*/
pItemCur->pNext = pGroup->pItems;
pGroup->pItems = pGroup->pItems->pNext;
pItemCur->pNext->pNext = NULL;
return pItemCur->pNext;
}
VOID PASCAL GetItemText(PGROUP pGroup, PITEM pItem, LPTSTR lpT, int index)
{
LPITEMDEF lpid;
LPGROUPDEF lpgd;
lpid = LockItem(pGroup,pItem);
if (!lpid) {
UnlockGroup(pGroup->hwnd);
*lpT = 0;
return;
}
lpgd = (LPGROUPDEF)GlobalLock(pGroup->hGroup);
switch (index) {
case 0:
lstrcpy(lpT, (LPTSTR) PTR(lpgd, lpid->pName));
break;
case 1:
lstrcpy(lpT, (LPTSTR) PTR(lpgd, lpid->pCommand));
break;
case 2:
lstrcpy(lpT, (LPTSTR) PTR(lpgd, lpid->pIconPath));
break;
default:
*lpT = 0;
break;
}
GlobalUnlock(pGroup->hGroup);
UnlockGroup(pGroup->hwnd);
}
ULONG Color16Palette[] = {
0x00000000, 0x00800000, 0x00008000, 0x00808000,
0x00000080, 0x00800080, 0x00008080, 0x00808080,
0x00c0c0c0, 0x00ff0000, 0x0000ff00, 0x00ffff00,
0x000000ff, 0x00ff00ff, 0x0000ffff, 0x00ffffff
};
ULONG Color256Palette[] = {
0x00000000, 0x00800000, 0x00008000, 0x00808000, 0x00000080, 0x00800080, 0x00008080, 0x00c0c0c0,
0x00c0dcc0, 0x00a6caf0, 0x00cccccc, 0x00580800, 0x00600800, 0x00680800, 0x00700800, 0x00780800,
0x00801000, 0x00881000, 0x00901000, 0x00981000, 0x00a01000, 0x00a81000, 0x00b01000, 0x00b81000,
0x00c01800, 0x00c81800, 0x00d01800, 0x00d81800, 0x00e01800, 0x00e81800, 0x00f01800, 0x00f81800,
0x00002000, 0x00082000, 0x00102000, 0x00182000, 0x00202000, 0x00282000, 0x00302000, 0x00382000,
0x00402800, 0x00482800, 0x00502800, 0x00582800, 0x00602800, 0x00682800, 0x00702800, 0x00782800,
0x00803000, 0x00883000, 0x00903000, 0x00983000, 0x00a03000, 0x00a83000, 0x00b03000, 0x00b83000,
0x00c03800, 0x00c83800, 0x00d03800, 0x00d83800, 0x00e03800, 0x00e83800, 0x00f03800, 0x00f83800,
0x00004010, 0x00084010, 0x00104010, 0x00184010, 0x00204010, 0x00284010, 0x00304010, 0x00384010,
0x00404810, 0x00484810, 0x00504810, 0x00584810, 0x00604810, 0x00684810, 0x00704810, 0x00784810,
0x00805010, 0x00885010, 0x00905010, 0x00985010, 0x00a05010, 0x00a85010, 0x00b05010, 0x00b85010,
0x00c05810, 0x00c85810, 0x00d05810, 0x00d85810, 0x00e05810, 0x00e85810, 0x00f05810, 0x00f85810,
0x00006010, 0x00086010, 0x00106010, 0x00186010, 0x00206010, 0x00286010, 0x00306010, 0x00386010,
0x00406810, 0x00486810, 0x00506810, 0x00586810, 0x00606810, 0x00686810, 0x00706810, 0x00786810,
0x00807010, 0x00887010, 0x00907010, 0x00987010, 0x00a07010, 0x00a87010, 0x00b07010, 0x00b87010,
0x00c07810, 0x00c87810, 0x00d07810, 0x00d87810, 0x00e07810, 0x00e87810, 0x00f07810, 0x00f87810,
0x00008020, 0x00088020, 0x00108020, 0x00188020, 0x00208020, 0x00288020, 0x00308020, 0x00388020,
0x00408820, 0x00488820, 0x00508820, 0x00588820, 0x00608820, 0x00688820, 0x00708820, 0x00788820,
0x00809020, 0x00889020, 0x00909020, 0x00989020, 0x00a09020, 0x00a89020, 0x00b09020, 0x00b89020,
0x00c09820, 0x00c89820, 0x00d09820, 0x00d89820, 0x00e09820, 0x00e89820, 0x00f09820, 0x00f89820,
0x0000a020, 0x0008a020, 0x0010a020, 0x0018a020, 0x0020a020, 0x0028a020, 0x0030a020, 0x0038a020,
0x0040a820, 0x0048a820, 0x0050a820, 0x0058a820, 0x0060a820, 0x0068a820, 0x0070a820, 0x0078a820,
0x0080b020, 0x0088b020, 0x0090b020, 0x0098b020, 0x00a0b020, 0x00a8b020, 0x00b0b020, 0x00b8b020,
0x00c0b820, 0x00b820c8, 0x00b820d0, 0x00b820d8, 0x00b820e0, 0x00b820e8, 0x00b820f0, 0x00b820f8,
0x0000c030, 0x00c03008, 0x00c03010, 0x00c03018, 0x00c03020, 0x00c03028, 0x00c03030, 0x00c03038,
0x0040c830, 0x00c83048, 0x00c83050, 0x00c83058, 0x00c83060, 0x00c83068, 0x00c83070, 0x00c83078,
0x0080d030, 0x00d03088, 0x00d03090, 0x00d03098, 0x00d030a0, 0x00d030a8, 0x00d030b0, 0x00d030b8,
0x00c0d830, 0x00c8d830, 0x00d0d830, 0x00d8d830, 0x00e0d830, 0x00e8d830, 0x00f0d830, 0x00f8d830,
0x0000e030, 0x0008e030, 0x0010e030, 0x0018e030, 0x0020e030, 0x0028e030, 0x0030e030, 0x0038e030,
0x0040e830, 0x0048e830, 0x0050e830, 0x0058e830, 0x0060e830, 0x0068e830, 0x0070e830, 0x0078e830,
0x0080f030, 0x0088f030, 0x0090f030, 0x0098f030, 0x00a0f030, 0x00a8f030, 0x00fffbf0, 0x00a0a0a4,
0x00808080, 0x00ff0000, 0x0000ff00, 0x00ffff00, 0x000000ff, 0x00ff00ff, 0x0000ffff, 0x00ffffff
};
HICON APIENTRY GetItemIcon(HWND hwnd, PITEM pitem)
{
LPGROUPDEF lpgd;
LPITEMDEF lpid;
HICON hIcon = NULL;
DWORD dwVer;
HANDLE h;
LPBYTE p;
INT id = 0;
INT cb;
DWORD colors, size;
PBITMAPINFOHEADER pbih, pbihNew;
LPVOID palette;
lpgd = LockGroup(hwnd);
if (!lpgd)
return DuplicateIcon(hAppInstance, hItemIcon);
//return hItemIcon;
lpid = ITEM(lpgd,pitem->iItem);
if ((SHORT)lpid->cbIconRes > 0) {
if (lpid->wIconVer == 2)
dwVer = 0x00020000;
else
dwVer = 0x00030000;
pbihNew = NULL;
pbih = (PBITMAPINFOHEADER)PTR(lpgd, lpid->pIconRes);
size = lpid->cbIconRes;
if (pbih->biClrUsed == -1) {
colors = (1 << (pbih->biPlanes * pbih->biBitCount));
size += colors * sizeof(RGBQUAD);
if (colors == 16) {
palette = Color16Palette;
} else if (colors == 256) {
palette = Color256Palette;
} else {
palette = NULL;
}
if (palette != NULL)
pbihNew = (PBITMAPINFOHEADER)LocalAlloc(LPTR, size);
if (pbihNew != NULL) {
RtlCopyMemory(pbihNew, pbih, sizeof( *pbih ));
pbihNew->biClrUsed = 0;
RtlCopyMemory((pbihNew+1), palette, colors * sizeof(RGBQUAD));
RtlCopyMemory((PCHAR)(pbihNew+1) + (colors * sizeof(RGBQUAD)),
(pbih+1),
lpid->cbIconRes - sizeof(*pbih)
);
pbih = pbihNew;
}
else {
//
// reset size
//
size = lpid->cbIconRes;
}
}
hIcon = CreateIconFromResource((PBYTE)pbih, size, TRUE, dwVer);
if (pbihNew != NULL)
LocalFree(pbihNew);
}
if (!hIcon) {
if (h = FindResource(hAppInstance, (LPTSTR) MAKEINTRESOURCE(ITEMICON), RT_GROUP_ICON)) {
h = LoadResource(hAppInstance, h);
p = LockResource(h);
id = LookupIconIdFromDirectory(p, TRUE);
UnlockResource(h);
FreeResource(h);
}
if (h = FindResource(hAppInstance, (LPTSTR) MAKEINTRESOURCE(id), (LPTSTR) MAKEINTRESOURCE(RT_ICON))) {
cb = SizeofResource(hAppInstance, h);
h = LoadResource(hAppInstance, h);
p = LockResource(h);
hIcon = CreateIconFromResource(p, cb, TRUE, 0x00030000);
UnlockResource(h);
FreeResource(h);
}
}
UnlockGroup(hwnd);
return hIcon;
}
COLORREF PASCAL GetTitleTextColor(VOID)
{
COLORREF color;
color = GetSysColor(COLOR_WINDOW);
if (((WORD)LOBYTE(LOWORD(color)) +
(WORD)HIBYTE(LOWORD(color)) +
(WORD)LOBYTE(HIWORD(color))) >= 3*127)
{
return RGB(0,0,0);
}
else
{
return RGB(255,255,255);
}
}
#define REVERSEPAINT
/*-------------------------------------------------------------------------*/
/*-------------------------------------------------------------------------*/
void NEAR PASCAL ReverseGroupList(PGROUP pGroup)
{
PITEM pitem, p1, p2;
for (p1 = pGroup->pItems, p2 = p1->pNext, p1->pNext = NULL; p2; ) {
pitem = p2->pNext;
p2->pNext = p1;
p1 = p2;
p2 = pitem;
}
pGroup->pItems = p1;
}
VOID PASCAL PaintGroup(HWND hwnd)
{
register HDC hdc;
PGROUP pGroup;
PITEM pitem;
PAINTSTRUCT ps;
LPGROUPDEF lpgd;
LPITEMDEF lpid;
int fontheight;
HBRUSH hbrTitle;
HFONT hFontT;
RECT rcWin;
TEXTMETRIC tm;
HDC hdcMem;
HBITMAP hbmTemp;
HBRUSH hbr, hbrTemp;
INT nMax;
HICON hIcon;
pGroup = (PGROUP)GetWindowLongPtr(hwnd, GWLP_PGROUP);
hdc = BeginPaint(hwnd, &ps);
if (!pGroup->pItems) {
goto Exit;
}
GetClientRect(hwnd, &rcWin);
#ifdef WEIRDBUG
/* DavidPe - 05/15/91
* For some reason RectVisible() will return FALSE in
* situations it shouldn't. Since this is only a
* performance optimization, we can ignore the problem
* for now.
*/
if (!RectVisible(hdc, &rcWin))
goto Exit;
#endif
if (!(lpgd = LockGroup(hwnd)))
goto Exit;
hFontT = SelectObject(hdc, hFontTitle);
GetTextMetrics(hdc, &tm);
// ToddB: This seems like a good point, I don't see why tmExternalLeading should ever
// need to be considered. The result of decreasing the FontHeight is that DrawText
// will be used instead of TextOut in some cases, which should be harmless but might
// effect the apearence of some single line icon titles.
//#ifdef JAPAN
// Why we should think about ExternalLeading though we calculate the
// title rectange by DrawText() without DT_EXTERNALLEADING. -YN
fontheight = tm.tmHeight;
//#else
// fontheight = tm.tmHeight + tm.tmExternalLeading;
//#endif
SetBkMode(hdc, TRANSPARENT);
SetTextColor(hdc, GetTitleTextColor());
hbrTitle = NULL;
hdcMem = CreateCompatibleDC(hdc);
if (!hdcMem)
goto BitmapSetupComplete;
if (pGroup->hbm) {
hbmTemp = SelectObject(hdcMem, pGroup->hbm);
if (hbmTemp)
goto BitmapSetupComplete;
else
DeleteObject(pGroup->hbm);
}
for (nMax = 1, pitem = pGroup->pItems; pitem; pitem = pitem->pNext) {
if (nMax <= pitem->iItem)
nMax = pitem->iItem + 1;
}
pGroup->hbm = CreateDiscardableBitmap(hdc, cxIcon*lpgd->cItems, cyIcon);
if (!pGroup->hbm)
goto NukeMemDC;
hbmTemp = SelectObject(hdcMem, pGroup->hbm);
if (!hbmTemp)
goto NukeBitmap;
hbr = CreateSolidBrush(GetSysColor(COLOR_WINDOW));
if (!hbr)
goto NukeBitmap;
hbrTemp = SelectObject(hdcMem, hbr);
if (!hbrTemp)
goto NukeBrush;
PatBlt(hdcMem, 0, 0, cxIcon * lpgd->cItems, cyIcon, PATCOPY);
SelectObject(hdcMem, hbrTemp);
DeleteObject(hbr);
for (pitem = pGroup->pItems; pitem != NULL; pitem = pitem->pNext) {
if (hIcon = GetItemIcon(hwnd, pitem)) {
DrawIcon(hdcMem, pitem->iItem * cxIcon, 0, hIcon);
DestroyIcon(hIcon);
} else {
goto DeselectAndNukeBitmap;
}
}
goto BitmapSetupComplete;
NukeBrush:
DeleteObject(hbr);
DeselectAndNukeBitmap:
SelectObject(hdcMem, hbmTemp);
NukeBitmap:
DeleteObject(pGroup->hbm);
pGroup->hbm = NULL;
NukeMemDC:
DeleteDC(hdcMem);
hdcMem = NULL;
BitmapSetupComplete:
ReverseGroupList(pGroup); // reverse the icon list
/* Paint the icons */
for (pitem = pGroup->pItems; pitem; pitem = pitem->pNext) {
if (!pitem->pNext
&& pGroup == pCurrentGroup
&& hwndProgman == GetActiveWindow()) {
hbrTitle = (HANDLE)1; // Use it as a flag
}
else
hbrTitle = (HANDLE)0;
lpid = ITEM(lpgd,pitem->iItem);
if (!bMove || !hbrTitle) {
if (hdcMem) {
BitBlt(hdc, pitem->rcIcon.left + cxOffset,
pitem->rcIcon.top + cyOffset,
lpgd->cxIcon, lpgd->cyIcon, hdcMem,
lpgd->cxIcon*pitem->iItem, 0,
SRCCOPY);
}
else {
if (RectVisible(hdc,&pitem->rcIcon)) {
if (hIcon = GetItemIcon(hwnd,pitem)) {
DrawIcon(hdc, pitem->rcIcon.left + cxOffset,
pitem->rcIcon.top + cyOffset, hIcon);
}
else {
PatBlt(hdc,pitem->rcIcon.left + cxOffset,
pitem->rcIcon.top + cyOffset,
cxIcon, cyIcon, BLACKNESS);
}
}
}
}
}
/* Paint the titles. */
for (pitem = pGroup->pItems; pitem; pitem = pitem->pNext) {
/* test for the active icon */
if (!pitem->pNext
&& pGroup == pCurrentGroup
&& hwndProgman == GetActiveWindow()) {
SetTextColor(hdc, GetSysColor(COLOR_CAPTIONTEXT));
hbrTitle = CreateSolidBrush(GetSysColor(COLOR_ACTIVECAPTION));
}
else {
hbrTitle = (HANDLE)0;
}
lpid = ITEM(lpgd,pitem->iItem);
if (!bMove || !hbrTitle) {
if (hbrTitle)
FillRect(hdc, &(pitem->rcTitle), hbrTitle);
/* draw multi line titles like USER does */
if (pitem->rcTitle.bottom - pitem->rcTitle.top < fontheight*2)
TextOut(hdc, pitem->rcTitle.left+cxOffset, pitem->rcTitle.top,
(LPTSTR) PTR(lpgd, lpid->pName), lstrlen((LPTSTR) PTR(lpgd, lpid->pName)));
else {
if (RectVisible(hdc,&pitem->rcTitle)) {
DrawText(hdc,
(LPTSTR)PTR(lpgd, lpid->pName), -1,
&(pitem->rcTitle),
bIconTitleWrap ?
DT_CENTER | DT_WORDBREAK | DT_NOPREFIX :
DT_CENTER | DT_WORDBREAK | DT_NOPREFIX | DT_SINGLELINE);
}
}
}
if (hbrTitle) {
SetTextColor(hdc, GetTitleTextColor());
DeleteObject(hbrTitle);
hbrTitle = NULL;
}
}
ReverseGroupList(pGroup); // re-reverse the icon list
if (hFontT) {
SelectObject(hdc, hFontT);
}
if (hdcMem) {
SelectObject(hdcMem, hbmTemp);
DeleteDC(hdcMem);
}
UnlockGroup(hwnd);
Exit:
SetBkMode(hdc, OPAQUE);
EndPaint(hwnd, &ps);
#ifdef DEBUG
ProfStop();
{
TCHAR buf[80];
wsprintf(buf, TEXT("msec to paint group = %ld\r\n"), GetTickCount() - dwStartTime);
OutputDebugString(buf);
}
#endif
}
/*-------------------------------------------------------------------------*/
/* */
/* Draw the group icon. */
/* */
/*-------------------------------------------------------------------------*/
VOID DrawGroupIcon(HWND hwnd)
{
PAINTSTRUCT ps;
HDC hDC;
PGROUP pGroup;
hDC = BeginPaint(hwnd, &ps);
pGroup = (PGROUP)GetWindowLongPtr(hwnd,GWLP_PGROUP);
if (pGroup->fCommon) {
DrawIcon(hDC, cxOffset, cyOffset, hCommonGrpIcon);
}
else {
DrawIcon(hDC, cxOffset, cyOffset, hGroupIcon);
}
EndPaint(hwnd, &ps);
}
PITEM PASCAL ItemHitTest(
PGROUP pGroup,
POINTS pts)
{
PITEM pItem;
POINT pt;
pt.x = (int)pts.x;
pt.y = (int)pts.y;
for (pItem = pGroup->pItems; pItem; pItem = pItem->pNext) {
if (PtInRect(&pItem->rcIcon, pt) || PtInRect(&pItem->rcTitle, pt)) {
break;
}
}
return pItem;
}
HRGN PASCAL IconExcludedRgn(PGROUP pGroup, PITEM pItem)
{
RECT rc;
PITEM pItemT;
HRGN hrgn, hrgnT;
hrgn = CreateRectRgn(0,0,0,0);
if (!hrgn)
return NULL;
hrgnT = CreateRectRgn(0,0,0,0);
if (!hrgnT)
{
return hrgn;
}
for (pItemT = pGroup->pItems;
pItemT && pItemT != pItem;
pItemT = pItemT->pNext)
{
if (IntersectRect(&rc,&pItem->rcIcon,&pItemT->rcIcon))
{
SetRectRgn(hrgnT,rc.left,rc.top,rc.right,rc.bottom);
CombineRgn(hrgn,hrgn,hrgnT,RGN_OR);
}
if (IntersectRect(&rc,&pItem->rcIcon,&pItemT->rcTitle))
{
SetRectRgn(hrgnT,rc.left,rc.top,rc.right,rc.bottom);
CombineRgn(hrgn,hrgn,hrgnT,RGN_OR);
}
}
DeleteObject(hrgnT);
return hrgn;
}
VOID APIENTRY InvalidateIcon(PGROUP pGroup, PITEM pItem)
{
RECT rc;
if (!pGroup || !pItem)
return;
UnionRect(&rc, &pItem->rcIcon, &pItem->rcTitle);
if (bAutoArranging)
UnionRect(&rcArrangeRect, &rcArrangeRect, &rc);
else
InvalidateRect(pGroup->hwnd,&rc,TRUE);
}
VOID PASCAL BringItemToTop(PGROUP pGroup, PITEM pItem, BOOL fUpdate)
{
PITEM pItemT;
HRGN hrgn;
if (pItem == pGroup->pItems) {
return;
}
if (hrgn = IconExcludedRgn(pGroup, pItem)) {
InvalidateRgn(pGroup->hwnd, hrgn, TRUE);
DeleteObject(hrgn);
}
/*
* At this point we know there is at least two items, and we're not the
* first one...
*/
for (pItemT = pGroup->pItems; pItemT->pNext != pItem; pItemT = pItemT->pNext)
;
pItemT->pNext = pItem->pNext;
pItem->pNext = pGroup->pItems;
pGroup->pItems = pItem;
/*
* Invalidate the whole titles in order to change the color.
*/
if (fUpdate) {
InvalidateRect(pGroup->hwnd, &pItem->rcTitle, TRUE);
InvalidateRect(pGroup->hwnd, &pItem->pNext->rcTitle, TRUE);
}
}
VOID PASCAL ClickOn(HWND hwnd, POINTS pts)
{
PGROUP pGroup;
PITEM pItem;
POINT pt;
pGroup = (PGROUP)GetWindowLongPtr(hwnd, GWLP_PGROUP);
pItem = ItemHitTest(pGroup, pts);
if (!pItem) {
return;
}
BringItemToTop(pGroup, pItem, TRUE);
ViewActiveItem(pGroup);
pt.x = (int)pts.x;
pt.y = (int)pts.y;
*(LPPOINT)&rcDrag.left = pt;
*(LPPOINT)&rcDrag.right = pt;
hwndDrag = hwnd;
InflateRect(&rcDrag, GetSystemMetrics(SM_CXDOUBLECLK) / 2,
GetSystemMetrics(SM_CYDOUBLECLK) / 2);
}
VOID PASCAL DragItem(HWND hwnd)
{
PGROUP pGroup;
PITEM pItem;
HICON hIcon;
pGroup = (PGROUP)GetWindowLongPtr(hwnd,GWLP_PGROUP);
pItem = pGroup->pItems;
if (!pItem || hwndDrag != hwnd)
goto ProcExit;
/* If the control key isn't down, do a Move operation. */
bMove = !(GetKeyState(VK_CONTROL) & 0x8000);
/* Don't allow "moves" from RO groups. */
if (pGroup->fRO && bMove == TRUE)
goto ProcExit;
/*
* Redraw the window minus the item we're moving.
* REVIEW - if you just painted the background colour into the
* pItem->rcIcon area then you could remove the bMove code from
* PaintGroup().
*/
if (bMove) {
InvalidateIcon(pGroup,pItem);
UpdateWindow(hwnd);
}
hIcon = GetItemIcon(hwnd,pItem);
// BUG BUG MAKELONG(pGroup,pItem) doesn't make sense since all
// pointers all LOMG in WIN32. Will need to change the parameters!
// johannec 08-19-91
if (DragObject(hwndMDIClient, hwnd, (UINT)OBJ_ITEM,
MAKELONG(pGroup,pItem), hIcon) == DRAG_COPY) {
if (bMove)
DeleteItem(pGroup,pItem);
}
else {
/* Drag was SWP or drag failed... just show the item. */
if (bMove) {
bMove = FALSE;
InvalidateIcon(pGroup,pItem);
}
}
DestroyIcon(hIcon);
ProcExit:
bMove = FALSE;
}
void PASCAL GetRealClientRect(
HWND hwnd,
DWORD dwStyle,
LPRECT lprcClient)
{
DWORD Style;
Style = GetWindowLong(hwnd, GWL_STYLE);
/*BUG BUG will GWL_STYLE work???*/
SetWindowLong(hwnd,GWL_STYLE,dwStyle);
GetWindowRect(hwnd,lprcClient);
ScreenToClient(hwnd,(LPPOINT)&lprcClient->left);
ScreenToClient(hwnd,(LPPOINT)&lprcClient->right);
SendMessage(hwnd,WM_NCCALCSIZE,0,(LPARAM)lprcClient);
}
VOID APIENTRY CalcGroupScrolls(HWND hwnd)
{
register PGROUP pGroup;
register PITEM pItem;
RECT rcClient;
RECT rcRange;
RECT rcT;
DWORD dwStyle, dwStyleNew, dwStyleT;
int iMinPos, iMaxPos;
if (bNoScrollCalc || IsIconic(hwnd))
return;
// Stop re-entrance of this routine.
bNoScrollCalc = TRUE;
pGroup = (PGROUP)GetWindowLongPtr(hwnd,GWLP_PGROUP);
if (!pGroup->pItems) {
// No items...
SetRectEmpty(&rcRange);
goto ChangeStyle;
}
hwndScrolling = hwnd;
// If the user has selected auto arranging then make
// the next item in the z-order visable.
if (bAutoArrange)
ViewActiveItem(pGroup);
SetRectEmpty(&rcRange);
for (pItem = pGroup->pItems; pItem; pItem = pItem->pNext)
{
UnionRect(&rcRange,&rcRange,&pItem->rcIcon);
rcT.top = pItem->rcTitle.top; // don't include the
rcT.bottom = pItem->rcTitle.bottom; // title overhang part
rcT.left = pItem->rcIcon.left;
rcT.right = pItem->rcIcon.right;
UnionRect(&rcRange,&rcRange,&rcT);
}
if (rcRange.left != rcRange.right)
{
// Add on a bit for the left border here.
rcRange.left -= ((cxArrange-cxIconSpace)/2)+cxOffset;
// Don't add on a right border so we can cram as many icons in as poss.
// rcRange.right += ((cxArrange-cxIconSpace)/2);
// ADJUST THE RECT SO THAT WE DON'T GET SCROLL BARS IF ONLY THE BORDERS
// OF TEXT ARE NOT VISIBLE ~~~
}
ChangeStyle:
dwStyleNew = dwStyle = GetWindowLong(hwnd,GWL_STYLE);
dwStyleNew &= ~(WS_HSCROLL | WS_VSCROLL);
for (;;)
{
dwStyleT = dwStyleNew;
GetRealClientRect(hwnd, dwStyleNew, &rcClient);
if (rcRange.left < rcClient.left || rcRange.right > rcClient.right)
dwStyleNew |= WS_HSCROLL;
if (rcRange.top < rcClient.top || rcRange.bottom > rcClient.bottom)
dwStyleNew |= WS_VSCROLL;
if (dwStyleNew == dwStyleT)
break;
}
if (dwStyleNew == dwStyle && !(dwStyle & (WS_VSCROLL|WS_HSCROLL)))
{
/* none there and don't need to add 'em!
*/
goto ProcExit;
}
UnionRect(&rcRange,&rcClient,&rcRange);
/* union garantees that left==right or top==bottom in case of no
* scrollbar.
*/
rcRange.right -= rcClient.right-rcClient.left;
rcRange.bottom -= rcClient.bottom-rcClient.top;
/* if the style changed, don't redraw in sb code, just redraw the
* frame at the end cause the whole ncarea has to be repainted
* if it hasn't changed, just move the thumb
*/
if (dwStyleNew==dwStyle)
{
if (dwStyleNew & WS_HSCROLL)
{
if (GetScrollPos(hwnd,SB_HORZ)!=0)
goto SetScrollInfo;
GetScrollRange(hwnd,SB_HORZ,&iMinPos,&iMaxPos);
if ((iMinPos != rcRange.left) || (iMaxPos != rcRange.right))
goto SetScrollInfo;
}
if (dwStyleNew & WS_VSCROLL)
{
if (GetScrollPos(hwnd,SB_VERT)!=0)
goto SetScrollInfo;
GetScrollRange(hwnd,SB_VERT,&iMinPos,&iMaxPos);
if ((iMinPos != rcRange.top) || (iMaxPos != rcRange.bottom))
goto SetScrollInfo;
}
goto ProcExit;
}
SetScrollInfo:
SetScrollPos(hwnd,SB_HORZ,0,FALSE);
SetScrollPos(hwnd,SB_VERT,0,FALSE);
SetScrollRange(hwnd,SB_HORZ,rcRange.left,rcRange.right,FALSE);
SetScrollRange(hwnd,SB_VERT,rcRange.top,rcRange.bottom,FALSE);
SetWindowPos(hwnd, NULL, 0, 0, 0, 0, SWP_NOZORDER | SWP_NOSIZE
| SWP_NOMOVE | SWP_NOACTIVATE
| SWP_DRAWFRAME);
ProcExit:
// Allow other scroll calculations.
bNoScrollCalc = FALSE;
}
VOID PASCAL ScrollGroup(PGROUP pGroup, int xMove, int yMove, BOOL fCalc)
{
register PITEM pItem;
for (pItem = pGroup->pItems; pItem; pItem = pItem->pNext)
{
OffsetRect(&pItem->rcIcon,xMove,yMove);
OffsetRect(&pItem->rcTitle,xMove,yMove);
}
ScrollWindow(pGroup->hwnd,xMove,yMove,NULL,NULL);
UpdateWindow(pGroup->hwnd);
if (fCalc)
CalcGroupScrolls(pGroup->hwnd);
}
VOID APIENTRY ViewActiveItem(PGROUP pGroup)
{
RECT rcClient, rc;
int xMove = 0, yMove = 0;
GetClientRect(pGroup->hwnd,&rcClient);
UnionRect(&rc, &pGroup->pItems->rcIcon, &pGroup->pItems->rcTitle);
// Clip width to that of icon i.e. ignore width of text.
rc.left = pGroup->pItems->rcIcon.left;
rc.right = pGroup->pItems->rcIcon.right;
if (rc.left < rcClient.left)
xMove = rcClient.left - rc.left;
else if (rc.right > rcClient.right)
xMove = rcClient.right - rc.right;
if (rc.top < rcClient.top)
yMove = rcClient.top - rc.top;
else if (rc.bottom > rcClient.bottom)
yMove = rcClient.bottom - rc.bottom;
if (xMove || yMove)
ScrollGroup(pGroup, xMove, yMove,TRUE);
}
BOOL FAR PASCAL CheckHotKey(WPARAM wParam, LPARAM lParam)
{
HWND hwndT;
PGROUP pGroup;
PITEM pItem;
switch (wParam)
{
case VK_SHIFT:
case VK_CONTROL:
case VK_MENU:
case VK_RETURN:
return FALSE;
}
if (GetKeyState(VK_SHIFT) < 0) {
// DBG((" + SHIFT"));
wParam |= HK_SHIFT;
}
if (GetKeyState(VK_CONTROL) < 0) {
// DBG((" + CONTROL"));
wParam |= HK_CONTROL;
}
if (GetKeyState(VK_MENU) < 0) {
// DBG((" + ALT"));
wParam |= HK_ALT;
}
if (lParam & F_EXT) {
// DBG((" EXTENDED"));
wParam |= HK_EXT;
}
// DBG(("... Full code %4.4X...\r\n",wParam));
for (hwndT = GetWindow(hwndMDIClient,GW_CHILD);
hwndT;
hwndT = GetWindow(hwndT,GW_HWNDNEXT)) {
if (GetWindow(hwndT,GW_OWNER))
continue;
pGroup = (PGROUP)GetWindowLongPtr(hwndT,GWLP_PGROUP);
for (pItem = pGroup->pItems; pItem; pItem = pItem->pNext) {
// DBG(("Checking (%4.4X,%4.4X)...\r\n",pGroup,pItem));
if (GroupFlag(pGroup,pItem,(WORD)ID_HOTKEY) == (WORD)wParam) {
// DBG(("F*O*U*N*D\r\n"));
ExecItem(pGroup,pItem,FALSE,FALSE);
return TRUE;
}
}
}
return FALSE;
}
VOID APIENTRY KeyWindow(HWND hwnd, WORD wDirection)
{
int wT;
int wNext;
RECT rc;
RECT rcT;
POINT ptA;
POINT ptT;
PGROUP pGroup;
PITEM pItem, pItemNext;
pGroup = (PGROUP)GetWindowLongPtr(hwnd,GWLP_PGROUP);
if (!pGroup->pItems)
return;
wNext = 0x7FFF;
pItemNext = NULL;
CopyRect(&rc,&pGroup->pItems->rcIcon);
for (pItem = pGroup->pItems->pNext; pItem; pItem = pItem->pNext) {
CopyRect(&rcT,&pItem->rcIcon);
ptT.x = rcT.left - rc.left;
ptT.y = rcT.top - rc.top;
ptA.x = (ptT.x < 0) ? -ptT.x : ptT.x;
ptA.y = (ptT.y < 0) ? -ptT.y : ptT.y;
switch (wDirection) {
case VK_LEFT:
if ((ptT.x >= 0) || (ptA.x < ptA.y))
continue;
break;
case VK_RIGHT:
if ((ptT.x <= 0) || (ptA.x < ptA.y))
continue;
break;
case VK_DOWN:
if ((ptT.y <= 0) || (ptA.y < ptA.x))
continue;
break;
case VK_UP:
if ((ptT.y >= 0) || (ptA.y < ptA.x))
continue;
break;
default:
/* illegal key
*/
return;
}
wT = ptA.y + ptA.x;
if (wT <= wNext) {
wNext = wT;
pItemNext = pItem;
}
}
if (pItemNext) {
BringItemToTop(pGroup,pItemNext, TRUE);
ViewActiveItem(pGroup);
}
}
VOID APIENTRY CharWindow(register HWND hwnd, register WORD wChar)
{
LPGROUPDEF lpgd;
LPITEMDEF lpid;
PGROUP pGroup;
PITEM pItem, pItemLast;
pGroup = (PGROUP)GetWindowLongPtr(hwnd,GWLP_PGROUP);
if (!pGroup->pItems)
return;
lpgd = LockGroup(hwnd);
if (!lpgd)
return;
/* Search for item, skip the currently selected one.*/
for ( pItem = pGroup->pItems->pNext; pItem; pItem=pItem->pNext)
{
lpid = ITEM(lpgd,pItem->iItem);
if (CharUpper((LPTSTR)(DWORD_PTR)wChar)
== CharUpper((LPTSTR)(DWORD_PTR)(BYTE)*PTR(lpgd, lpid->pName)))
{
pItemLast = MakeFirstItemLast(pGroup);
BringItemToTop(pGroup,pItem, FALSE);
/* Handle updates.*/
InvalidateRect(pGroup->hwnd,&pItem->rcTitle,TRUE);
InvalidateRect(pGroup->hwnd,&pItemLast->rcTitle,TRUE);
ViewActiveItem(pGroup);
break;
}
}
UnlockGroup(hwnd);
}
VOID APIENTRY ScrollMessage(HWND hwnd, UINT uiMsg, WPARAM wParam, LPARAM lParam)
{
int wMin;
int wMax;
int wPos;
int wInc;
int wPage;
int wNewPos;
RECT rcClient;
int yMove;
int xMove;
BOOL fTemp;
GetClientRect(hwnd, &rcClient);
if (uiMsg == WM_HSCROLL) {
GetScrollRange(hwnd, SB_HORZ, &wMin, &wMax);
wPos = GetScrollPos(hwnd, SB_HORZ);
wInc = cxIconSpace + cxArrange / 2;
wPage = rcClient.right-rcClient.left;
}
else {
GetScrollRange(hwnd, SB_VERT, &wMin, &wMax);
wPos = GetScrollPos(hwnd, SB_VERT);
wInc = cyArrange;
wPage = rcClient.bottom-rcClient.top;
}
switch (GET_WM_VSCROLL_CODE(wParam, lParam)) {
case SB_BOTTOM:
wNewPos = wMax;
break;
case SB_TOP:
wNewPos = wMin;
break;
case SB_LINEDOWN:
wNewPos = wPos + wInc;
break;
case SB_LINEUP:
wNewPos = wPos - wInc;
break;
case SB_PAGEDOWN:
wNewPos = wPos + wPage;
break;
case SB_PAGEUP:
wNewPos = wPos - wPage;
break;
case SB_THUMBTRACK:
case SB_THUMBPOSITION:
wNewPos = (INT)(SHORT)GET_WM_VSCROLL_POS(wParam, lParam);
break;
case SB_ENDSCROLL:
// We might suddenly not need the scroll bars anymore so
// check now.
// Stop CGS from moving the view.
fTemp = bAutoArrange;
bAutoArrange = FALSE;
CalcGroupScrolls(hwnd);
bAutoArrange = fTemp;
/*** FALL THRU ***/
default:
return;
}
if (wNewPos < wMin)
wNewPos = wMin;
else if (wNewPos > wMax)
wNewPos = wMax;
if (uiMsg == WM_VSCROLL) {
SetScrollPos(hwnd, SB_VERT, wNewPos, TRUE);
yMove = wPos - wNewPos;
xMove = 0;
}
else {
SetScrollPos(hwnd, SB_HORZ, wNewPos, TRUE);
yMove = 0;
xMove = wPos - wNewPos;
}
ScrollGroup((PGROUP)GetWindowLongPtr(hwnd,GWLP_PGROUP),xMove,yMove,FALSE);
}
VOID PASCAL OfficialRect(
LPRECT lprc,
int x,
int y,
int xOffset,
int yOffset)
{
// Work out were the icon should go in the icon grid, taking
// note of where the scroll bars are.
lprc->right = (lprc->left = x-xOffset + (cxIconSpace - cxArrange) / 2) +
cxArrange - 1;
lprc->bottom = (lprc->top = y-yOffset) + cyArrange - 1;
}
BOOL PASCAL IconOverlaps(
PGROUP pGroup,
LPRECT lprc,
int xOffset,
int yOffset)
{
PITEM pItem;
RECT rcT;
for (pItem = pGroup->pItems; pItem; pItem = pItem->pNext) {
// Ignore icons at -1. This is where icon's get put when
// we don't know where to put them and they will get moved
// later.
if (pItem->rcIcon.left == -1) {
continue;
}
OfficialRect(&rcT, pItem->rcIcon.left, pItem->rcIcon.top, xOffset, yOffset);
if (IntersectRect(&rcT, &rcT, lprc)) {
return TRUE;
}
}
return FALSE;
}
/*
* NB This is called for every icon at init time so put anything to do with
* finding icon positions inside the `if' because that's skipped on init.
* If you don't it'll get tres slow.
*/
VOID PASCAL ComputeIconPosition(
PGROUP pGroup,
POINT pt,
LPRECT lprcIcon,
LPRECT lprcTitle,
LPTSTR lpText)
{
HDC hdc;
int cch;
RECT rcClient, rcT;
HFONT hFontT;
int xsp, ysp; // Current position of scrollbar.
int vMax, vMin; // Range.
int hMax, hMin; // Range.
int xOffset, yOffset;
DWORD dwStyle;
if (pt.x == -1) {
/*
* Icon is in "find me a default position" mode...
* so search the icon space for it...
*/
// Get the current window style.
dwStyle = GetWindowLong(pGroup->hwnd,GWL_STYLE);
if (dwStyle & WS_MINIMIZE) {
// DBG(("PM.CIP: Window Minimised\n\r"));
// We want to use the restored state of the window.
GetInternalWindowPos(pGroup->hwnd, &rcClient, NULL);
// Convert from screen coords to client coords.
OffsetRect(&rcClient, -rcClient.left, -rcClient.top);
}
else {
// DBG(("PM.CIP: Window normal or maxed.\n\r"));
// Take into account scroll bars.
GetClientRect(pGroup->hwnd, &rcClient);
}
if (dwStyle & WS_HSCROLL) {
xsp = GetScrollPos(pGroup->hwnd, SB_HORZ);
GetScrollRange(pGroup->hwnd, SB_HORZ, &hMin, &hMax);
xOffset = xsp-hMin; // Offset icon grid to match scroll bar pos.
}
else {
xOffset = 0;
}
if (dwStyle & WS_VSCROLL) {
ysp = GetScrollPos(pGroup->hwnd, SB_VERT);
GetScrollRange(pGroup->hwnd, SB_VERT, &vMin, &vMax);
yOffset = ysp-vMin; // Offset icon grid.
}
else {
yOffset = 0;
}
pt.x = (cxArrange - cxIconSpace) / 2 + cxOffset - xOffset;
pt.y = 0 - yOffset;
/* Set this icon's left to -1 so that it'll be excluded
* by the IconOverlaps check.
*/
lprcIcon->left = -1;
for (;;) {
OfficialRect(&rcT, pt.x, pt.y, xOffset, yOffset);
if (!IconOverlaps(pGroup, &rcT, xOffset, yOffset)) {
break;
}
if (rcT.right + cxArrange > rcClient.right) {
pt.x = (cxArrange-cxIconSpace)/2 + cxOffset - xOffset;
pt.y += cyArrange;
}
else {
pt.x += cxArrange;
}
}
}
SetRect(lprcIcon, pt.x, pt.y, pt.x+cxIconSpace, pt.y+cyIconSpace);
if (IsRectEmpty(lprcTitle)) {
cch = lstrlen(lpText);
hdc = GetDC(pGroup->hwnd);
hFontT = SelectObject(hdc, hFontTitle);
/*
* Compute the icon rect using DrawText.
*/
lprcTitle->right = cxArrange - (2 * cxOffset);
DrawText(hdc, lpText, -1, lprcTitle, bIconTitleWrap ?
(WORD)(DT_CALCRECT | DT_WORDBREAK | DT_NOPREFIX) :
(WORD)(DT_CALCRECT | DT_WORDBREAK | DT_NOPREFIX | DT_SINGLELINE));
if (hFontT) {
SelectObject(hdc, hFontT);
}
ReleaseDC(pGroup->hwnd, hdc);
lprcTitle->right += cxOffset * 2;
lprcTitle->bottom += dyBorder * 2;
}
else {
SetRect(lprcTitle, 0, 0, lprcTitle->right - lprcTitle->left,
lprcTitle->bottom - lprcTitle->top);
}
OffsetRect(lprcTitle, pt.x+(cxIconSpace/2)-((lprcTitle->right-lprcTitle->left)/2),
pt.y + cyIconSpace - dyBorder);
// REVIEW Very expensive to do this here.
// if ((bAutoArrange) && (!bAutoArranging))
// ArrangeItems(pGroup->hwnd);
}
VOID APIENTRY MoveItem(PGROUP pGroup, PITEM pItem, POINT pt)
{
LPITEMDEF lpid;
LPGROUPDEF lpgd;
lpgd = (LPGROUPDEF)GlobalLock(pGroup->hGroup);
/*
* If the position is the same, ignore
*/
if ((pt.x == pItem->rcIcon.left) && (pt.y == pItem->rcIcon.top)) {
GlobalUnlock(pGroup->hGroup);
return;
}
/*
* Repaint the original position
*/
InvalidateIcon(pGroup, pItem);
lpid = LockItem(pGroup,pItem);
if (!lpid) {
GlobalUnlock(pGroup->hGroup);
return;
}
ComputeIconPosition(pGroup, pt, &pItem->rcIcon, &pItem->rcTitle,
(LPTSTR) PTR(lpgd, lpid->pName));
UnlockGroup(pGroup->hwnd);
GlobalUnlock(pGroup->hGroup);
/*
* Repaint the new position
*/
InvalidateIcon(pGroup,pItem);
// CalcGroupScrolls(pGroup->hwnd);
}
/*--------------------------------------------------------------------------*/
/* */
/* DropObject() - */
/* */
/*--------------------------------------------------------------------------*/
LONG NEAR PASCAL DropObject(HWND hWnd, LPDROPSTRUCT lpds)
{
BOOL fNC;
BOOL fOk;
POINT pt;
LPPOINT lppt;
PGROUP pGroup;
PITEM pItem;
RECT rcClient;
pGroup = pCurrentGroup;
pItem = pGroup->pItems;
pt = lpds->ptDrop;
// A drop anywhere in the window is valid.
GetWindowRect(hWnd, &rcClient);
// Convert to client coords.
ScreenToClient(hWnd,(LPPOINT)&(rcClient.left));
ScreenToClient(hWnd,(LPPOINT)&(rcClient.right));
if (pt.x >= rcClient.left && pt.y >= rcClient.top && pt.x <= rcClient.right
&& pt.y <= rcClient.bottom) {
/* Dropped in given point of client area. */
fNC = FALSE;
pt.x -= (GetSystemMetrics(SM_CXICON) / 2) + 2;
pt.y -= (GetSystemMetrics(SM_CYICON) / 2) + 2;
lppt = &pt;
}
else {
/* Dropped in nonclient area. */
fNC = TRUE;
lppt = NULL;
}
/* Are we iconic ? */
if (IsIconic(hWnd)) {
// Yep, we'll need to use default positioning.
fNC = TRUE;
lppt = NULL;
}
#if 0
// this if statement code if obsolete, it is never called. - johannec 8/11/93
if (lpds->wFmt == DOF_EXECUTABLE || lpds->wFmt == DOF_DOCUMENT) {
BuildDescription(szNameField, szPathName);
return((LONG)(CreateNewItem(hWnd,
szNameField, szPathName, szPathName, TEXT(""),
0, FALSE, 0, 0, NULL, lppt, CI_SET_DOS_FULLSCRN) != NULL));
}
#endif
if ((hWnd == pGroup->hwnd) && (bMove)) {
/* Don't drop on our own non-client area. */
if (fNC)
return 0L;
/* We are just moving the item within its own group.
* Hide it first so the icon title is treated correctly.
*/
MoveItem(pGroup,pItem, pt);
if ((bAutoArrange) && (!bAutoArranging))
ArrangeItems(pGroup->hwnd);
else if (!bAutoArranging)
CalcGroupScrolls(pGroup->hwnd);
return(DRAG_SWP);
}
else {
/* Copy the item to the new group... Set the hourglass
* cursor (it will get unset after the message returns),
* select the new group, and add the item at the specified
* point.
*/
fOk = DuplicateItem(pGroup,pItem,
(PGROUP)GetWindowLongPtr(hWnd,GWLP_PGROUP),lppt) != NULL;
/*
* Re-Arrange items within the destination group.
* NB The source will been taken care of by the DeleteItem routine
* called from DragItem.
*/
if ((bAutoArrange) && (!bAutoArranging)) {
/* Destination */
ArrangeItems(hWnd);
}
else if (!bAutoArranging) {
/* Destination */
CalcGroupScrolls(hWnd);
}
/* View the current item. */
BringItemToTop(pGroup,pItem, TRUE);
ViewActiveItem(pGroup);
/* If the dest isn't minimised then move the focus to it. */
if (!IsIconic(hWnd))
SetFocus(hWnd);
return (fOk ? DRAG_COPY : 0L);
}
}
LONG APIENTRY DropFiles(HWND hwnd, HANDLE hDrop)
{
POINT pt;
LPPOINT lppt;
UINT i;
HCURSOR hCursor;
DWORD dwRet;
DWORD dwFlags = CI_ACTIVATE | CI_SET_DOS_FULLSCRN;
hCursor = SetCursor(LoadCursor(NULL, IDC_WAIT));
ShowCursor(TRUE);
if (!DragQueryPoint(hDrop, &pt) ||
DragQueryFile(hDrop, (UINT)-1, NULL, 0) != 1) {
lppt = NULL;
}
else {
pt.x -= (GetSystemMetrics(SM_CXICON) / 2) + 2;
pt.y -= (GetSystemMetrics(SM_CYICON) / 2) + 2;
lppt = &pt;
}
for (i=0; DragQueryFile(hDrop, i, szPathField, MAXITEMPATHLEN); i++) {
//
// if filename or directory have spaces, put the path
// between quotes.
//
CheckEscapes(szPathField, MAXITEMPATHLEN+1);
/* Verify the file's existance... */
dwRet = ValidatePath(hwndProgman, szPathField, NULL, szIconPath);
if (dwRet == PATH_INVALID) {
continue;
}
else if (dwRet == PATH_INVALID_OK) {
dwFlags |= CI_NO_ASSOCIATION;
}
BuildDescription(szNameField,szPathField);
GetDirectoryFromPath(szPathField, szDirField);
if (!InQuotes(szDirField)) {
CheckEscapes(szDirField, MAXITEMPATHLEN+1);
}
HandleDosApps(szIconPath);
if (!CreateNewItem(hwnd,
szNameField, /* name*/
szPathField, /* command*/
szIconPath , /* icon path*/
szDirField, /* no default dir*/
0,0, /* no hotkey, no min on run*/
0,0,0, /* default icon*/
lppt, /* at this point*/
dwFlags))
break;
}
DragFinish(hDrop);
ShowCursor(FALSE);
SetCursor(hCursor);
if ((bAutoArrange) && (!bAutoArranging))
ArrangeItems(hwnd);
else if (!bAutoArranging)
CalcGroupScrolls(hwnd);
return 1L;
}
LRESULT APIENTRY GroupWndProc(HWND hwnd, UINT uiMsg, WPARAM wParam, LPARAM lParam)
{
POINT pt;
switch (uiMsg) {
case WM_CREATE:
{
LPMDICREATESTRUCT lpmdics;
lpmdics = (LPMDICREATESTRUCT)(((LPCREATESTRUCT)lParam)->lpCreateParams);
SetWindowLongPtr(hwnd, GWLP_PGROUP, lpmdics->lParam);
DragAcceptFiles(hwnd,TRUE);
SetFocus(hwnd);
break;
}
case WM_ERASEBKGND:
if (IsIconic(hwnd)) {
//
// Erase background with the APPWORKSPACE color
//
RECT rc;
if (!hbrWorkspace)
hbrWorkspace = CreateSolidBrush(GetSysColor(COLOR_APPWORKSPACE));
GetUpdateRect(hwnd, &rc, FALSE);
if (IsRectEmpty(&rc)) {
GetClientRect(hwnd, &rc);
}
FillRect((HDC)wParam, &rc, hbrWorkspace);
}
else {
goto DefProc;
}
break;
case WM_PAINT:
if (IsIconic(hwnd)) {
DrawGroupIcon(hwnd);
}
else {
PaintGroup(hwnd);
}
break;
case WM_QUERYDRAGICON:
{
PGROUP pGroup;
HICON hIcon = NULL;
pGroup = (PGROUP)GetWindowLongPtr(hwnd, GWLP_PGROUP);
if (pGroup->fCommon) {
hIcon = LoadIcon(hAppInstance, (LPTSTR) MAKEINTRESOURCE(COMMGROUPICON));
}
else {
hIcon = LoadIcon(hAppInstance, (LPTSTR) MAKEINTRESOURCE(PERSGROUPICON));
}
if (hIcon) {
return((LRESULT)hIcon);
}
else {
goto DefProc;
}
break;
}
case WM_LBUTTONDOWN:
ClickOn(hwnd, MAKEPOINTS(lParam));
break;
case WM_MOUSEMOVE:
if (wParam & MK_LBUTTON) {
pt.x = (int)(MAKEPOINTS(lParam).x);
pt.y = (int)(MAKEPOINTS(lParam).y);
if (!IsRectEmpty(&rcDrag) && !PtInRect(&rcDrag, pt)
&& !fNoFileMenu && (dwEditLevel < 2)) {
SetRect(&rcDrag,0,0,0,0);
DragItem(hwnd);
}
}
else {
SetRect(&rcDrag,0,0,0,0);
}
break;
case WM_LBUTTONUP:
SetRect(&rcDrag,0,0,0,0);
break;
case WM_NCLBUTTONDBLCLK:
if (IsIconic(hwnd) && (GetKeyState(VK_MENU) < 0)) {
PostMessage(hwndProgman, WM_COMMAND, IDM_PROPS, 0L);
} else {
goto DefProc;
}
break;
case WM_LBUTTONDBLCLK:
if (ItemHitTest((PGROUP)GetWindowLongPtr(hwnd,GWLP_PGROUP),
MAKEPOINTS(lParam))) {
if (GetKeyState(VK_MENU) < 0) {
if (!fNoFileMenu)
PostMessage(hwndProgman,WM_COMMAND,IDM_PROPS,0L);
} else {
PostMessage(hwndProgman,WM_COMMAND,IDM_OPEN,0L);
}
} else {
/*
* Check for Alt-dblclk on nothing to get new item.
*/
if (GetKeyState(VK_MENU) < 0 && !fNoFileMenu &&
(dwEditLevel <= 1) && !(pCurrentGroup->fRO) ) {
MyDialogBox(ITEMDLG, hwndProgman, NewItemDlgProc);
}
}
break;
case WM_VSCROLL:
case WM_HSCROLL:
ScrollMessage(hwnd,uiMsg,wParam,lParam);
break;
case WM_CLOSE:
SendMessage(hwnd, WM_SYSCOMMAND, SC_MINIMIZE, 0L);
break;
case WM_SYSCOMMAND:
{
PGROUP pGroup;
LPGROUPDEF lpgd;
TCHAR szCommonGroupSuffix[MAXKEYLEN];
TCHAR szCommonGroupTitle[2*MAXKEYLEN];
if (wParam == SC_MINIMIZE) {
//
// if the group is common remove the common suffix from the group
// window title
//
pGroup = (PGROUP)GetWindowLongPtr(hwnd, GWLP_PGROUP);
if (pGroup->fCommon) {
lpgd = (LPGROUPDEF)GlobalLock(pGroup->hGroup);
SetWindowText(hwnd, (LPTSTR) PTR(lpgd, lpgd->pName));
GlobalUnlock(pGroup->hGroup);
}
}
if (wParam == SC_RESTORE) {
if (!LockGroup(hwnd)) {
if (wLockError == LOCK_LOWMEM) {
MyMessageBox(hwndProgman, IDS_GROUPFILEERR, IDS_LOWMEM, NULL, MB_OK | MB_ICONEXCLAMATION | MB_SYSTEMMODAL);
break;
}
else {
/*
* Lock failed for some other reason - hopefully just
* a group change. Stop the icon group from being
* restored.
*/
break;
}
}
else {
UnlockGroup(hwnd);
}
}
if ((wParam == SC_MAXIMIZE) || (wParam == SC_RESTORE)) {
//
// if the group is common add the common suffix to the group
// window title
//
pGroup = (PGROUP)GetWindowLongPtr(hwnd, GWLP_PGROUP);
if (pGroup->fCommon) {
lpgd = (LPGROUPDEF)GlobalLock(pGroup->hGroup);
if (!lpgd)
goto DefProc;
lstrcpy(szCommonGroupTitle, (LPTSTR) PTR(lpgd, lpgd->pName));
GlobalUnlock(pGroup->hGroup);
if (LoadString(hAppInstance, IDS_COMMONGRPSUFFIX, szCommonGroupSuffix,
CharSizeOf(szCommonGroupSuffix))) {
lstrcat(szCommonGroupTitle, szCommonGroupSuffix);
}
SetWindowText(pGroup->hwnd, szCommonGroupTitle);
}
InvalidateRect(hwnd, NULL, 0);
}
if (wParam == SC_MAXIMIZE)
SetWindowLong(hwnd, GWL_STYLE,
(GetWindowLong(hwnd,GWL_STYLE) & ~(WS_HSCROLL | WS_VSCROLL)));
goto DefProc;
}
case WM_SYSKEYDOWN:
if (!CheckHotKey(wParam,lParam))
goto DefProc;
break;
case WM_KEYDOWN:
if (!CheckHotKey(wParam,lParam))
KeyWindow(hwnd,(WORD)wParam);
break;
//IME Support
//by yutakas 1992.10.22
// When user input DBCS, go and activate icon which has that
// DBCS charcter in the first of description.
case WM_IME_REPORT:
switch (wParam)
{
case IR_STRING:
IMEStringWindow(hwnd,(HANDLE)lParam);
return TRUE;
default:
goto DefProc;
}
break;
case WM_CHAR:
CharWindow(hwnd, (WORD) wParam);
break;
case WM_QUERYDROPOBJECT:
{
#define lpds ((LPDROPSTRUCT)lParam)
PGROUP pGroup;
pGroup = (PGROUP)GetWindowLongPtr(hwnd,GWLP_PGROUP);
if (pGroup->fRO) {
return FALSE;
}
if (lpds->wFmt == OBJ_ITEM) {
return TRUE;
}
#undef lpds
goto DefProc;
}
case WM_DROPOBJECT:
#define lpds ((LPDROPSTRUCT)lParam)
if (lpds->wFmt == OBJ_ITEM)
return DropObject(hwnd, lpds);
#undef lpds
goto DefProc;
case WM_DROPFILES:
return DropFiles(hwnd,(HANDLE)wParam);
case WM_NCACTIVATE:
{
PGROUP pGroup = (PGROUP)GetWindowLongPtr(hwnd,GWLP_PGROUP);
if (pGroup->pItems != NULL) {
InvalidateRect(hwnd,&pGroup->pItems->rcTitle,TRUE);
}
goto DefProc;
}
case WM_QUERYOPEN:
{
PGROUP pGroup;
LPGROUPDEF lpgd;
TCHAR szCommonGroupSuffix[MAXKEYLEN];
TCHAR szCommonGroupTitle[2*MAXKEYLEN];
//
// if the group is common add the common suffix to the group
// window title
//
pGroup = (PGROUP)GetWindowLongPtr(hwnd, GWLP_PGROUP);
if (pGroup->fCommon) {
lpgd = (LPGROUPDEF)GlobalLock(pGroup->hGroup);
if (!lpgd)
goto DefProc;
lstrcpy(szCommonGroupTitle,(LPTSTR) PTR(lpgd, lpgd->pName));
GlobalUnlock(pGroup->hGroup);
if (LoadString(hAppInstance, IDS_COMMONGRPSUFFIX, szCommonGroupSuffix,
CharSizeOf(szCommonGroupSuffix))) {
lstrcat(szCommonGroupTitle, szCommonGroupSuffix);
}
SetWindowText(pGroup->hwnd, szCommonGroupTitle);
}
goto DefProc;
}
case WM_SIZE:
lParam = DefMDIChildProc(hwnd, uiMsg, wParam, lParam);
if (wParam != SIZEICONIC) {
if ((bAutoArrange) && (!bAutoArranging)) {
ArrangeItems(hwnd);
} else if (!bArranging) {
CalcGroupScrolls(hwnd);
}
}
else {
PGROUP pGroup;
LPGROUPDEF lpgd;
//
// reset window text of common groups
//
pGroup = (PGROUP)GetWindowLongPtr(hwnd, GWLP_PGROUP);
if (pGroup->fCommon) {
lpgd = (LPGROUPDEF)GlobalLock(pGroup->hGroup);
SetWindowText(pGroup->hwnd, (LPTSTR) PTR(lpgd, lpgd->pName));
GlobalUnlock(pGroup->hGroup);
}
}
return lParam;
case WM_MDIACTIVATE:
if (!pCurrentGroup) {
goto DefProc;
}
/*
* If we are de-activating this window...
*/
if (lParam == 0) {
/*
* We're the last window... punt.
*/
pCurrentGroup = NULL;
} else if (hwnd == (HWND)wParam) {
/*
* We're being deactivated. Update pCurrentGroup
* to the node being activated.
*/
pCurrentGroup = (PGROUP)GetWindowLongPtr((HWND)lParam, GWLP_PGROUP);
} else {
SetFocus(hwnd);
}
goto DefProc;
case WM_MENUSELECT:
//
// to handle F1 on group window system menu
//
if (lParam) { /*make sure menu handle isn't null*/
wMenuID = GET_WM_COMMAND_ID(wParam, lParam); /*get cmd from loword of wParam*/
hSaveMenuHandle = (HANDLE)lParam; /*Save hMenu into one variable*/
wSaveFlags = HIWORD(wParam);/*Save flags into another*/
bFrameSysMenu = FALSE;
}
break;
default:
DefProc:
return DefMDIChildProc(hwnd, uiMsg, wParam, lParam);
}
return 0L;
}
/*--------------------------------------------------------------------------*/
/* */
/* ArrangeItems() - */
/* */
/* Arranges iconic windows within a group. */
/* */
/*--------------------------------------------------------------------------*/
VOID FAR PASCAL ArrangeItems(HWND hwnd)
{
PGROUP pGroup;
register PITEM pItem;
PITEM pItemT;
int xSlots;
register int i;
int j,k;
RECT rc;
LPGROUPDEF lpgd;
PITEM rgpitem[CITEMSMAX];
POINT pt;
int t1, t2;
LONG style;
if (bAutoArranging || IsIconic(hwnd))
return;
pGroup = (PGROUP)GetWindowLongPtr(hwnd,GWLP_PGROUP);
if (!pGroup)
return;
/*
* If the group is RO then don't rearrange the items, just update the
* scroll bars
*/
if (!GroupCheck(pGroup)) {
CalcGroupScrolls(hwnd);
return;
}
bAutoArranging = TRUE;
SetRectEmpty(&rcArrangeRect);
style = GetWindowLong(hwnd,GWL_STYLE);
GetRealClientRect(hwnd,style&~(WS_VSCROLL|WS_HSCROLL),&rc);
SetWindowLong(hwnd,GWL_STYLE,style);
xSlots = (rc.right - rc.left)/cxArrange;
if (xSlots < 1)
xSlots = 1;
/* sort the items by x location within a row, or by row if the
* rows are different
*/
k = 0;
for (pItem = pGroup->pItems; pItem; pItem = pItem->pNext) {
/* find nearest row
*/
t1 = pItem->rcIcon.top + cyArrange/2;
if (t1 >= 0)
t1 -= t1 % cyArrange;
else
t1 += t1 % cyArrange;
for (i = 0; i < k; i++) {
pItemT = rgpitem[i];
t2 = pItemT->rcIcon.top + cyArrange/2;
if (t2 >= 0)
t2 -= t2 % cyArrange;
else
t2 += t2 % cyArrange;
if (t2 > t1)
break;
else if (t2 == t1 && pItemT->rcIcon.left > pItem->rcIcon.left)
break;
}
for (j = k; j > i; j--) {
rgpitem[j] = rgpitem[j-1];
}
rgpitem[i] = pItem;
k++;
}
lpgd = LockGroup(hwnd);
if (!lpgd) {
bAutoArranging = FALSE;
return;
}
bNoScrollCalc = TRUE;
for (i = 0; i < k; i++) {
pItem = rgpitem[i];
/* cxOffset necessary to match (buggy???) win 3 USER
*/
pt.x = (i%xSlots)*cxArrange + (cxArrange-cxIconSpace)/2 + cxOffset;
pt.y = (i/xSlots)*cyArrange;
MoveItem(pGroup,pItem,pt);
}
if (!IsRectEmpty(&rcArrangeRect))
InvalidateRect(pGroup->hwnd,&rcArrangeRect,TRUE);
UnlockGroup(hwnd);
bNoScrollCalc = FALSE;
CalcGroupScrolls(hwnd);
bAutoArranging = FALSE;
}
/****************************************************************************
*
* IMEStringWindow(hwnd,hstr)
*
* Change activate item by the strings come from IME.
* When Get WM_IME_REPORT with IR_STRING,this function is called.
*
* by yutakas 1992.10.22
*
****************************************************************************/
BOOL FAR PASCAL IMEStringWindow(HWND hwnd, HANDLE hStr)
{
LPTSTR lpStr;
LPGROUPDEF lpgd;
LPITEMDEF lpid;
PGROUP pGroup;
PITEM pItem = NULL;
PITEM pItemLast,pTItem;
int nCnt = 0;
int nTCnt = 0;
BOOL ret = FALSE;
if (!hStr)
return ret;
if (!(lpStr = GlobalLock(hStr)))
return ret;
pGroup = (PGROUP)GetWindowLongPtr(hwnd,GWLP_PGROUP);
if (!pGroup->pItems)
return ret;
lpgd = LockGroup(hwnd);
if (!lpgd)
return ret;
#ifdef _DEBUG
{
TCHAR szDev[80];
OutputDebugString((LPTSTR)TEXT("In IME Winsdow\r\n"));
wsprintf ((LPTSTR)szDev,TEXT("IMEStringWindow: lpStr is %s \r\n"),lpStr);
OutputDebugString((LPSTR)szDev);
}
#endif
// Search for item, skip the currently selected one.
for ( pTItem = pGroup->pItems->pNext; pTItem; pTItem=pTItem->pNext)
{
lpid = ITEM(lpgd,pTItem->iItem);
nTCnt = IMEWindowGetCnt(lpStr,(LPTSTR)PTR(lpgd,lpid->pName));
if (nCnt < nTCnt)
{
nCnt = nTCnt;
pItem = pTItem;
}
}
lpid = ITEM(lpgd,pGroup->pItems->iItem);
nTCnt = IMEWindowGetCnt(lpStr,(LPTSTR)PTR(lpgd,lpid->pName));
if ((nCnt >= nTCnt) && pItem)
{
pItemLast = MakeFirstItemLast(pGroup);
BringItemToTop(pGroup,pItem, FALSE);
// Handle updates.
InvalidateRect(pGroup->hwnd,&pItem->rcTitle,TRUE);
InvalidateRect(pGroup->hwnd,&pItemLast->rcTitle,TRUE);
ViewActiveItem(pGroup);
ret = TRUE;
}
GlobalUnlock(hStr);
UnlockGroup(hwnd);
#ifdef _DEBUG
{
TCHAR szDev[80];
wsprintf ((LPTSTR)szDev,TEXT("IMEStringWindow: ret is %s \r\n"),ret);
OutputDebugString((LPTSTR)szDev);
}
#endif
return ret;
}
/****************************************************************************
*
* IMEWindowGetCnt(LPSTR,LPSTR)
*
* Compare strings from ahead and return the number of same character
*
* by yutakas 1992.10.22
*
*
****************************************************************************/
int FAR PASCAL IMEWindowGetCnt(LPTSTR lp1, LPTSTR lp2)
{
int cnt = 0;
while (*lp1 && *lp2)
{
// ToddB: This typecasting is to prevent lp1 and lp2 from being modified
// by CharUpper'ing one char at a time instead of the whole string
if (CharUpper((LPTSTR)(DWORD_PTR)(BYTE)*lp1) ==
CharUpper((LPTSTR)(DWORD_PTR)(BYTE)*lp2))
{
cnt++;
}
else
break;
lp1++;
lp2++;
}
return (*lp1 ? 0 : cnt);
}