dlls/richedit/richedit.c

   1 /*
   2  * RichEdit32  functions
   3  *
   4  * This module is a simple wrap-arround the edit controls.
   5  * At the point, it is good only for application who use the RICHEDIT control to
   6  * display RTF text.
   7  *
   8  * Copyright 2000 by Jean-Claude Batista
   9  *
  10  */
  11
  12 #include "windows.h"
  13 #include "winbase.h"
  14 #include "heap.h"
  15 #include "debugtools.h"
  16 #include "winerror.h"
  17 #include "riched32.h"
  18 #include "richedit.h"
  19 #include "charlist.h"
  20
  21 #include "rtf.h"
  22 #include "rtf2text.h"
  23
  24 #define ID_EDIT      1
  25
  26 DEFAULT_DEBUG_CHANNEL(richedit)
  27
  28 HANDLE RICHED32_hHeap = (HANDLE)NULL;
  29 DWORD  RICHED32_dwProcessesAttached = 0;
  30 /* LPSTR  RICHED32_aSubclass = (LPSTR)NULL; */
  31 HMODULE RICHED32_hModule = 0;
  32
  33 /*
  34  * RICHED32_LibMain [Internal] Initializes the internal 'RICHED32.DLL'.
  35  *
  36  * PARAMS
  37  *     hinstDLL    [I] handle to the 'dlls' instance
  38  *     fdwReason   [I]
  39  *     lpvReserved [I] reserverd, must be NULL
  40  *
  41  * RETURNS
  42  *     Success: TRUE
  43  *     Failure: FALSE
  44  */
  45
  46 BOOL WINAPI
  47 RICHED32_LibMain (HINSTANCE hinstDLL, DWORD fdwReason, LPVOID lpvReserved)
  48 {
  49
  50     switch (fdwReason) {
  51             case DLL_PROCESS_ATTACH:
  52
  53             if (RICHED32_dwProcessesAttached == 0) {
  54
  55                     /* This will be wrong for any other process attching in this address-space! */
  56                     RICHED32_hModule = (HMODULE)hinstDLL;
  57
  58                         /* create private heap */
  59                         RICHED32_hHeap = HeapCreate (0, 0x10000, 0);
  60
  61                 }
  62
  63                 /* register the Rich Edit class */
  64                 RICHED32_Register ();
  65
  66                 RICHED32_dwProcessesAttached++;
  67                 break;
  68
  69             case DLL_PROCESS_DETACH:
  70                 RICHED32_dwProcessesAttached--;
  71
  72                 /* unregister all common control classes */
  73                 RICHED32_Unregister ();
  74
  75                 if (RICHED32_dwProcessesAttached == 0) {
  76                     HeapDestroy (RICHED32_hHeap);
  77                     RICHED32_hHeap = (HANDLE)NULL;
  78                 }
  79                 break;
  80     }
  81
  82     return TRUE;
  83 }
  84
  85 /*
  86  *
  87  * DESCRIPTION:
  88  * Window procedure of the RichEdit control.
  89  *
  90  */
  91 static LRESULT WINAPI RICHED32_WindowProc(HWND hwnd, UINT uMsg, WPARAM wParam,
  92                                    LPARAM lParam)
  93 {
  94     int RTFToBuffer(char* pBuffer, int nBufferSize);
  95     LONG newstyle = 0;
  96     LONG style = 0;
  97
  98     static HWND hwndEdit;
  99     static char* rtfBuffer;
 100     int rtfBufferSize;
 101
 102     switch (uMsg)
 103     {
 104
 105     case WM_CREATE :
 106
 107             /* remove SCROLLBARS from the current window style */
 108             newstyle = style = ((LPCREATESTRUCTA) lParam)->style;
 109             newstyle &= ~WS_HSCROLL;
 110             newstyle &= ~WS_VSCROLL;
 111             newstyle &= ~ES_AUTOHSCROLL;
 112             newstyle &= ~ES_AUTOVSCROLL;
 113
 114             hwndEdit = CreateWindowA ("edit", ((LPCREATESTRUCTA) lParam)->lpszName,
 115                                    style, 0, 0, 0, 0,
 116                                    hwnd, (HMENU) ID_EDIT,
 117                                    ((LPCREATESTRUCTA) lParam)->hInstance, NULL) ;
 118
 119             SetWindowLongA(hwnd,GWL_STYLE, newstyle);
 120             return 0 ;
 121
 122     case WM_SETFOCUS :
 123             SetFocus (hwndEdit) ;
 124             return 0 ;
 125
 126     case WM_SIZE :
 127             MoveWindow (hwndEdit, 0, 0, LOWORD (lParam), HIWORD (lParam), TRUE) ;
 128             return 0 ;
 129
 130     case WM_COMMAND :
 131             if (LOWORD (wParam) == ID_EDIT)
 132                  if (HIWORD (wParam) == EN_ERRSPACE ||
 133                            HIWORD (wParam) == EN_MAXTEXT)
 134
 135                       MessageBoxA (hwnd, "RichEdit control out of space.",
 136                                   "ERROR", MB_OK | MB_ICONSTOP) ;
 137             return 0 ;
 138
 139     case EM_STREAMIN:
 140
 141             /* setup the RTF parser */
 142             RTFSetEditStream(( EDITSTREAM*)lParam);
 143             WriterInit();
 144             RTFInit ();
 145             BeginFile();
 146
 147             /* do the parsing */
 148             RTFRead ();
 149
 150             rtfBufferSize = RTFToBuffer(NULL, 0);
 151             rtfBuffer = HeapAlloc(RICHED32_hHeap, 0,rtfBufferSize*sizeof(char));
 152             if(rtfBuffer)
 153             {
 154                 RTFToBuffer(rtfBuffer, rtfBufferSize);
 155                 SetWindowTextA(hwndEdit,rtfBuffer);
 156                 HeapFree(RICHED32_hHeap, 0,rtfBuffer);
 157             }
 158             else
 159                 WARN("Not enough memory for a allocating rtfBuffer\n");
 160
 161             return 0;
 162     }
 163     /*return SendMessageA( hwndEdit,uMsg,wParam,lParam);*/
 164     return DefWindowProcA( hwnd,uMsg,wParam,lParam);
 165 }
 166
 167 /*
 168  * DllGetVersion [COMCTL32.25]
 169  *
 170  * Retrieves version information of the 'COMCTL32.DLL'
 171  *
 172  * PARAMS
 173  *     pdvi [O] pointer to version information structure.
 174  *
 175  * RETURNS
 176  *     Success: S_OK
 177  *     Failure: E_INVALIDARG
 178  *
 179  * NOTES
 180  *     Returns version of a comctl32.dll from IE4.01 SP1.
 181  */
 182
 183 HRESULT WINAPI
 184 RICHED32_DllGetVersion (DLLVERSIONINFO *pdvi)
 185 {
 186     if (pdvi->cbSize != sizeof(DLLVERSIONINFO)) {
 187
 188         return E_INVALIDARG;
 189     }
 190
 191     pdvi->dwMajorVersion = 4;
 192     pdvi->dwMinorVersion = 0;
 193     pdvi->dwBuildNumber = 0;
 194     pdvi->dwPlatformID = 0;
 195
 196     return S_OK;
 197 }
 198
 199 /***
 200  * DESCRIPTION:
 201  * Registers the window class.
 202  *
 203  * PARAMETER(S):
 204  * None
 205  *
 206  * RETURN:
 207  * None
 208  */
 209 VOID RICHED32_Register(void)
 210 {
 211     WNDCLASSA wndClass;
 212
 213     ZeroMemory(&wndClass, sizeof(WNDCLASSA));
 214     wndClass.style = CS_HREDRAW | CS_VREDRAW | CS_GLOBALCLASS;
 215     wndClass.lpfnWndProc = (WNDPROC)RICHED32_WindowProc;
 216     wndClass.cbClsExtra = 0;
 217     wndClass.cbWndExtra = 0; /*(sizeof(RICHED32_INFO *);*/
 218     wndClass.hCursor = LoadCursorA(0, IDC_ARROWA);
 219     wndClass.hbrBackground = (HBRUSH)(COLOR_WINDOW + 1);
 220     wndClass.lpszClassName = RICHEDIT_CLASS10A;//WC_RICHED32A;
 221
 222     RegisterClassA (&wndClass);
 223 }
 224
 225 /***
 226  * DESCRIPTION:
 227  * Unregisters the window class.
 228  *
 229  * PARAMETER(S):
 230  * None
 231  *
 232  * RETURN:
 233  * None
 234  */
 235 VOID RICHED32_Unregister(void)
 236 {
 237     UnregisterClassA(RICHEDIT_CLASS10A, (HINSTANCE)NULL);
 238 }