reactos/subsys/system/regedit/listview.c

   1 /*
   2  * Regedit listviews
   3  *
   4  * Copyright (C) 2002 Robert Dickenson <robd@reactos.org>
   5  *
   6  * This library is free software; you can redistribute it and/or
   7  * modify it under the terms of the GNU Lesser General Public
   8  * License as published by the Free Software Foundation; either
   9  * version 2.1 of the License, or (at your option) any later version.
  10  *
  11  * This library is distributed in the hope that it will be useful,
  12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  14  * Lesser General Public License for more details.
  15  *
  16  * You should have received a copy of the GNU Lesser General Public
  17  * License along with this library; if not, write to the Free Software
  18  * Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
  19  */
  20
  21 #include <windows.h>
  22 #include <windowsx.h>
  23 #include <commctrl.h>
  24 #include <stdlib.h>
  25 #include <tchar.h>
  26 #include <process.h>
  27 #include <stdio.h>
  28
  29 #include "main.h"
  30
  31 #define CX_ICON    16
  32 #define CY_ICON    16
  33 #define NUM_ICONS    2
  34
  35 int Image_String = 0;
  36 int Image_Bin = 0;
  37
  38 typedef struct tagLINE_INFO
  39 {
  40     DWORD dwValType;
  41     LPTSTR name;
  42     void* val;
  43     size_t val_len;
  44 } LINE_INFO, *PLINE_INFO;
  45
  46 /*******************************************************************************
  47  * Global and Local Variables:
  48  */
  49
  50 static DWORD g_columnToSort = ~0UL;
  51 static BOOL  g_invertSort = FALSE;
  52 static LPTSTR g_valueName;
  53
  54 #define MAX_LIST_COLUMNS (IDS_LIST_COLUMN_LAST - IDS_LIST_COLUMN_FIRST + 1)
  55 static int default_column_widths[MAX_LIST_COLUMNS] = { 200, 175, 400 };
  56 static int column_alignment[MAX_LIST_COLUMNS] = { LVCFMT_LEFT, LVCFMT_LEFT, LVCFMT_LEFT };
  57
  58 LPCTSTR GetValueName(HWND hwndLV)
  59 {
  60     int item, len, maxLen;
  61     LPTSTR newStr;
  62     LVITEM LVItem;
  63     PLINE_INFO lineinfo;
  64
  65     if (!g_valueName) g_valueName = HeapAlloc(GetProcessHeap(), 0, 1024);
  66     if (!g_valueName) return NULL;
  67     *g_valueName = 0;
  68     maxLen = HeapSize(GetProcessHeap(), 0, g_valueName);
  69     if (maxLen == (SIZE_T) - 1) return NULL;
  70
  71     item = ListView_GetNextItem(hwndLV, -1, LVNI_FOCUSED | LVNI_SELECTED);
  72     if (item == -1) return NULL;
  73     LVItem.mask = LVIF_PARAM;
  74     LVItem.iItem = item;
  75     for(;;)
  76     {
  77       if(ListView_GetItem(hwndLV, &LVItem))
  78       {
  79         lineinfo = (PLINE_INFO)LVItem.lParam;
  80         if(!lineinfo->name)
  81         {
  82           *g_valueName = 0;
  83           return g_valueName;
  84         }
  85         len = _tcslen(lineinfo->name);
  86         if (len < maxLen - 1) break;
  87         newStr = HeapReAlloc(GetProcessHeap(), 0, g_valueName, maxLen * 2);
  88         if (!newStr) return NULL;
  89         g_valueName = newStr;
  90         maxLen *= 2;
  91       }
  92       else
  93         return NULL;
  94     }
  95     memcpy(g_valueName, lineinfo->name, sizeof(TCHAR) * (len + 1));
  96     return g_valueName;
  97 }
  98
  99 BOOL IsDefaultValue(HWND hwndLV, int i)
 100 {
 101   PLINE_INFO lineinfo;
 102   LVITEM Item;
 103
 104   Item.mask = LVIF_PARAM;
 105   Item.iItem = i;
 106   if(ListView_GetItem(hwndLV, &Item))
 107   {
 108     lineinfo = (PLINE_INFO)Item.lParam;
 109     return lineinfo && (!lineinfo->name || !_tcscmp(lineinfo->name, _T("")));
 110   }
 111   return FALSE;
 112 }
 113
 114 /*******************************************************************************
 115  * Local module support methods
 116  */
 117 static void AddEntryToList(HWND hwndLV, LPTSTR Name, DWORD dwValType, void* ValBuf, DWORD dwCount, int Position)
 118 {
 119     LINE_INFO* linfo;
 120     LVITEM item;
 121     int index;
 122
 123     linfo = HeapAlloc(GetProcessHeap(), HEAP_ZERO_MEMORY, sizeof(LINE_INFO) + dwCount);
 124     linfo->dwValType = dwValType;
 125     linfo->val_len = dwCount;
 126     if(dwCount > 0)
 127     {
 128       memcpy(&linfo[1], ValBuf, dwCount);
 129     }
 130     linfo->name = _tcsdup(Name);
 131
 132     item.mask = LVIF_TEXT | LVIF_PARAM | LVIF_IMAGE;
 133     item.iItem = (Position == -1 ? 0: Position);
 134     item.iSubItem = 0;
 135     item.state = 0;
 136     item.stateMask = 0;
 137     item.pszText = Name;
 138     item.cchTextMax = _tcslen(item.pszText);
 139     if (item.cchTextMax == 0)
 140         item.pszText = LPSTR_TEXTCALLBACK;
 141     item.iImage = 0;
 142     item.lParam = (LPARAM)linfo;
 143     switch(dwValType)
 144     {
 145       case REG_SZ:
 146       case REG_EXPAND_SZ:
 147       case REG_MULTI_SZ:
 148         item.iImage = Image_String;
 149         break;
 150       default:
 151         item.iImage = Image_Bin;
 152         break;
 153     }
 154
 155     /*    item.lParam = (LPARAM)ValBuf; */
 156 #if (_WIN32_IE >= 0x0300)
 157     item.iIndent = 0;
 158 #endif
 159
 160     index = ListView_InsertItem(hwndLV, &item);
 161     if (index != -1) {
 162         switch (dwValType) {
 163         case REG_SZ:
 164         case REG_EXPAND_SZ:
 165             if(dwCount)
 166             {
 167               ListView_SetItemText(hwndLV, index, 2, ValBuf);
 168             }
 169             break;
 170         case REG_MULTI_SZ:
 171             {
 172               LPTSTR src, str, cursrc;
 173               if(dwCount >= 2)
 174               {
 175                   src = (LPTSTR)ValBuf;
 176                   str = HeapAlloc(GetProcessHeap(), 0, dwCount);
 177                   if(str != NULL)
 178                   {
 179                       *str = _T('\0');
 180                       /* concatenate all srings */
 181                       while(*src != _T('\0'))
 182                       {
 183                           _tcscat(str, src);
 184                           _tcscat(str, _T(" "));
 185                           src += _tcslen(src) + 1;
 186                       }
 187                       ListView_SetItemText(hwndLV, index, 2, str);
 188                       HeapFree(GetProcessHeap(), 0, str);
 189                   }
 190                   else
 191                     ListView_SetItemText(hwndLV, index, 2, _T(""));
 192               }
 193               else
 194                 ListView_SetItemText(hwndLV, index, 2, _T(""));
 195             }
 196             break;
 197         case REG_DWORD: {
 198                 TCHAR buf[64];
 199                 wsprintf(buf, _T("0x%08X (%d)"), *(DWORD*)ValBuf, *(DWORD*)ValBuf);
 200                 ListView_SetItemText(hwndLV, index, 2, buf);
 201             }
 202             /*            lpsRes = convertHexToDWORDStr(lpbData, dwLen); */
 203             break;
 204         case REG_NONE:
 205         case REG_BINARY: {
 206                 unsigned int i;
 207                 LPBYTE pData = (LPBYTE)ValBuf;
 208                 LPTSTR strBinary = HeapAlloc(GetProcessHeap(), 0, dwCount * sizeof(TCHAR) * 3 + 1);
 209                 for (i = 0; i < dwCount; i++)
 210                     wsprintf( strBinary + i*3, _T("%02X "), pData[i] );
 211                 strBinary[dwCount * 3] = 0;
 212                 ListView_SetItemText(hwndLV, index, 2, strBinary);
 213                 HeapFree(GetProcessHeap(), 0, strBinary);
 214             }
 215             break;
 216         default:
 217             ListView_SetItemText(hwndLV, index, 2, _T("(value)"));
 218             break;
 219         }
 220     }
 221 }
 222
 223 static BOOL CreateListColumns(HWND hWndListView)
 224 {
 225     TCHAR szText[50];
 226     int index;
 227     LV_COLUMN lvC;
 228
 229     /* Create columns. */
 230     lvC.mask = LVCF_FMT | LVCF_WIDTH | LVCF_TEXT | LVCF_SUBITEM;
 231     lvC.pszText = szText;
 232
 233     /* Load the column labels from the resource file. */
 234     for (index = 0; index < MAX_LIST_COLUMNS; index++) {
 235         lvC.iSubItem = index;
 236         lvC.cx = default_column_widths[index];
 237         lvC.fmt = column_alignment[index];
 238         LoadString(hInst, IDS_LIST_COLUMN_FIRST + index, szText, sizeof(szText)/sizeof(TCHAR));
 239         if (ListView_InsertColumn(hWndListView, index, &lvC) == -1) return FALSE;
 240     }
 241     return TRUE;
 242 }
 243
 244 static BOOL InitListViewImageLists(HWND hwndLV)
 245 {
 246     HIMAGELIST himl;  /* handle to image list  */
 247     HICON hico;       /* handle to icon  */
 248
 249     /* Create the image list.  */
 250     if ((himl = ImageList_Create(CX_ICON, CY_ICON,
 251                                  ILC_MASK, 0, NUM_ICONS)) == NULL)
 252         return FALSE;
 253
 254     hico = LoadIcon(hInst, MAKEINTRESOURCE(IDI_BIN));
 255     Image_Bin = ImageList_AddIcon(himl, hico);
 256
 257     hico = LoadIcon(hInst, MAKEINTRESOURCE(IDI_STRING));
 258     Image_String = ImageList_AddIcon(himl, hico);
 259
 260
 261     /* Fail if not all of the images were added.  */
 262     if (ImageList_GetImageCount(himl) < NUM_ICONS)
 263     {
 264       return FALSE;
 265     }
 266
 267     /* Associate the image list with the tree view control.  */
 268     ListView_SetImageList(hwndLV, himl, LVSIL_SMALL);
 269
 270     return TRUE;
 271 }
 272
 273 /* OnGetDispInfo - processes the LVN_GETDISPINFO notification message.  */
 274
 275 static void OnGetDispInfo(NMLVDISPINFO* plvdi)
 276 {
 277     static TCHAR buffer[200];
 278
 279     plvdi->item.pszText = NULL;
 280     plvdi->item.cchTextMax = 0;
 281
 282     switch (plvdi->item.iSubItem) {
 283     case 0:
 284         plvdi->item.pszText = _T("(Default)");
 285         break;
 286     case 1:
 287         switch (((LINE_INFO*)plvdi->item.lParam)->dwValType) {
 288         case REG_SZ:
 289             plvdi->item.pszText = _T("REG_SZ");
 290             break;
 291         case REG_EXPAND_SZ:
 292             plvdi->item.pszText = _T("REG_EXPAND_SZ");
 293             break;
 294         case REG_BINARY:
 295             plvdi->item.pszText = _T("REG_BINARY");
 296             break;
 297         case REG_DWORD:
 298             plvdi->item.pszText = _T("REG_DWORD");
 299             break;
 300         case REG_DWORD_BIG_ENDIAN:
 301             plvdi->item.pszText = _T("REG_DWORD_BIG_ENDIAN");
 302             break;
 303         case REG_MULTI_SZ:
 304             plvdi->item.pszText = _T("REG_MULTI_SZ");
 305             break;
 306         case REG_LINK:
 307             plvdi->item.pszText = _T("REG_LINK");
 308             break;
 309         case REG_RESOURCE_LIST:
 310             plvdi->item.pszText = _T("REG_RESOURCE_LIST");
 311             break;
 312         case REG_FULL_RESOURCE_DESCRIPTOR:
 313             plvdi->item.pszText = _T("REG_FULL_RESOURCE_DESCRIPTOR");
 314             break;
 315         case REG_RESOURCE_REQUIREMENTS_LIST:
 316             plvdi->item.pszText = _T("REG_RESOURCE_REQUIREMENTS_LIST");
 317             break;
 318         case REG_NONE:
 319             plvdi->item.pszText = _T("REG_NONE");
 320             break;
 321         default:
 322             wsprintf(buffer, _T("unknown(0x%lx)"), ((LINE_INFO*)plvdi->item.lParam)->dwValType);
 323             plvdi->item.pszText = buffer;
 324             break;
 325         }
 326         break;
 327     case 2:
 328         plvdi->item.pszText = _T("(value not set)");
 329         break;
 330     case 3:
 331         plvdi->item.pszText = _T("");
 332         break;
 333     }
 334 }
 335
 336 static int CALLBACK CompareFunc(LPARAM lParam1, LPARAM lParam2, LPARAM lParamSort)
 337 {
 338     LINE_INFO*l, *r;
 339     l = (LINE_INFO*)lParam1;
 340     r = (LINE_INFO*)lParam2;
 341
 342     if (g_columnToSort == ~0UL)
 343         g_columnToSort = 0;
 344
 345     if (g_columnToSort == 1 && l->dwValType != r->dwValType)
 346         return g_invertSort ? (int)r->dwValType - (int)l->dwValType : (int)l->dwValType - (int)r->dwValType;
 347     if (g_columnToSort == 2) {
 348         /* FIXME: Sort on value */
 349     }
 350     return g_invertSort ? _tcscmp(r->name, l->name) : _tcscmp(l->name, r->name);
 351 }
 352
 353 static BOOL _CmdWndProc(HWND hWnd, UINT message, WPARAM wParam, LPARAM lParam)
 354 {
 355     switch (LOWORD(wParam)) {
 356         /*    case ID_FILE_OPEN: */
 357         /*        break; */
 358     default:
 359         return FALSE;
 360     }
 361     return TRUE;
 362 }
 363
 364 BOOL ListWndNotifyProc(HWND hWnd, WPARAM wParam, LPARAM lParam, BOOL *Result)
 365 {
 366     NMLVDISPINFO* Info;
 367     *Result = TRUE;
 368     switch (((LPNMHDR)lParam)->code) {
 369         case LVN_GETDISPINFO:
 370             OnGetDispInfo((NMLVDISPINFO*)lParam);
 371             return TRUE;
 372         case LVN_COLUMNCLICK:
 373             if (g_columnToSort == ((LPNMLISTVIEW)lParam)->iSubItem)
 374                 g_invertSort = !g_invertSort;
 375             else {
 376                 g_columnToSort = ((LPNMLISTVIEW)lParam)->iSubItem;
 377                 g_invertSort = FALSE;
 378             }
 379
 380             ListView_SortItems(hWnd, CompareFunc, (WPARAM)hWnd);
 381             return TRUE;
 382         case NM_DBLCLK:
 383             {
 384                 SendMessage(hFrameWnd, WM_COMMAND, MAKEWPARAM(ID_EDIT_MODIFY, 0), 0);
 385             }
 386             return TRUE;
 387
 388         case LVN_BEGINLABELEDIT:
 389             {
 390               PLINE_INFO lineinfo;
 391               Info = (NMLVDISPINFO*)lParam;
 392               if(Info)
 393               {
 394                 lineinfo = (PLINE_INFO)Info->item.lParam;
 395                 if(!lineinfo->name || !_tcscmp(lineinfo->name, _T("")))
 396                 {
 397                   *Result = TRUE;
 398                 }
 399                 else
 400                 {
 401                   *Result = FALSE;
 402                 }
 403               }
 404               else
 405                 *Result = TRUE;
 406               return TRUE;
 407             }
 408     }
 409     return FALSE;
 410 }
 411
 412
 413 HWND CreateListView(HWND hwndParent, int id)
 414 {
 415     RECT rcClient;
 416     HWND hwndLV;
 417
 418     /* Get the dimensions of the parent window's client area, and create the list view control.  */
 419     GetClientRect(hwndParent, &rcClient);
 420     hwndLV = CreateWindowEx(WS_EX_CLIENTEDGE, WC_LISTVIEW, _T("List View"),
 421                             WS_VISIBLE | WS_CHILD | WS_TABSTOP | LVS_REPORT | LVS_EDITLABELS,
 422                             0, 0, rcClient.right, rcClient.bottom,
 423                             hwndParent, (HMENU)id, hInst, NULL);
 424     if (!hwndLV) return NULL;
 425
 426     /* Initialize the image list, and add items to the control.  */
 427     if (!CreateListColumns(hwndLV)) goto fail;
 428     if (!InitListViewImageLists(hwndLV)) goto fail;
 429
 430     return hwndLV;
 431 fail:
 432     DestroyWindow(hwndLV);
 433     return NULL;
 434 }
 435
 436 BOOL RefreshListView(HWND hwndLV, HKEY hKey, LPCTSTR keyPath)
 437 {
 438     DWORD max_sub_key_len;
 439     DWORD max_val_name_len;
 440     DWORD max_val_size;
 441     DWORD val_count;
 442     HKEY hNewKey;
 443     LONG errCode;
 444     INT count, i;
 445     LVITEM item;
 446     BOOL AddedDefault = FALSE;
 447
 448     if (!hwndLV) return FALSE;
 449
 450     ListView_EditLabel(hwndLV, -1);
 451
 452     SendMessage(hwndLV, WM_SETREDRAW, FALSE, 0);
 453     count = ListView_GetItemCount(hwndLV);
 454     for (i = 0; i < count; i++) {
 455         item.mask = LVIF_PARAM;
 456         item.iItem = i;
 457         ListView_GetItem(hwndLV, &item);
 458         free(((LINE_INFO*)item.lParam)->name);
 459         HeapFree(GetProcessHeap(), 0, (void*)item.lParam);
 460     }
 461     g_columnToSort = ~0UL;
 462     ListView_DeleteAllItems(hwndLV);
 463
 464     if(!hKey) return FALSE;
 465
 466     errCode = RegOpenKeyEx(hKey, keyPath, 0, KEY_READ, &hNewKey);
 467     if (errCode != ERROR_SUCCESS) return FALSE;
 468
 469     /* get size information and resize the buffers if necessary */
 470     errCode = RegQueryInfoKey(hNewKey, NULL, NULL, NULL, NULL, &max_sub_key_len, NULL,
 471                               &val_count, &max_val_name_len, &max_val_size, NULL, NULL);
 472
 473     #define BUF_HEAD_SPACE 2 /* FIXME: check why this is required with ROS ??? */
 474
 475     if (errCode == ERROR_SUCCESS) {
 476         TCHAR* ValName = HeapAlloc(GetProcessHeap(), 0, ++max_val_name_len * sizeof(TCHAR) + BUF_HEAD_SPACE);
 477         DWORD dwValNameLen = max_val_name_len;
 478         BYTE* ValBuf = HeapAlloc(GetProcessHeap(), 0, ++max_val_size/* + BUF_HEAD_SPACE*/);
 479         DWORD dwValSize = max_val_size;
 480         DWORD dwIndex = 0L;
 481         DWORD dwValType;
 482         /*                if (RegQueryValueEx(hNewKey, NULL, NULL, &dwValType, ValBuf, &dwValSize) == ERROR_SUCCESS) { */
 483         /*                    AddEntryToList(hwndLV, _T("(Default)"), dwValType, ValBuf, dwValSize); */
 484         /*                } */
 485         /*                dwValSize = max_val_size; */
 486         while (RegEnumValue(hNewKey, dwIndex, ValName, &dwValNameLen, NULL, &dwValType, ValBuf, &dwValSize) == ERROR_SUCCESS) {
 487             ValBuf[dwValSize] = 0;
 488             AddEntryToList(hwndLV, ValName, dwValType, ValBuf, dwValSize, -1);
 489             dwValNameLen = max_val_name_len;
 490             dwValSize = max_val_size;
 491             dwValType = 0L;
 492             ++dwIndex;
 493             if(!_tcscmp(ValName, _T("")))
 494             {
 495               AddedDefault = TRUE;
 496             }
 497         }
 498         HeapFree(GetProcessHeap(), 0, ValBuf);
 499         HeapFree(GetProcessHeap(), 0, ValName);
 500     }
 501     if(!AddedDefault)
 502     {
 503       AddEntryToList(hwndLV, _T(""), REG_SZ, NULL, 0, 0);
 504     }
 505     ListView_SortItems(hwndLV, CompareFunc, (WPARAM)hwndLV);
 506     RegCloseKey(hNewKey);
 507     SendMessage(hwndLV, WM_SETREDRAW, TRUE, 0);
 508
 509     return TRUE;
 510 }