wordpad: Add search functionality.

programs/wordpad/De.rc

@@ -40,6 +40,9 @@ BEGIN
         MENUITEM "&Lschen\tDEL",               ID_EDIT_CLEAR
         MENUITEM "&Alles markieren\tCtrl+A",    ID_EDIT_SELECTALL
         MENUITEM SEPARATOR
+        MENUITEM "&Find . . .\tCrtl+F",         ID_FIND
+        MENUITEM "Find &next\tF3",              ID_FIND_NEXT
+        MENUITEM SEPARATOR
         MENUITEM "Schreibgesch&tzt",           ID_EDIT_READONLY
         MENUITEM "&Gendert",                   ID_EDIT_MODIFIED
         MENUITEM SEPARATOR
@@ -100,4 +103,5 @@ STRINGTABLE DISCARDABLE
 BEGIN
     STRING_DEFAULT_FILENAME,     "Document"
     STRING_PROMPT_SAVE_CHANGES,  "Save changes to '%s'?"
+    STRING_SEARCH_FINISHED,      "Finished searching the document."
 END

programs/wordpad/En.rc

@@ -40,6 +40,9 @@ BEGIN
         MENUITEM "&Clear\tDEL",                 ID_EDIT_CLEAR
         MENUITEM "&Select all\tCtrl+A",         ID_EDIT_SELECTALL
         MENUITEM SEPARATOR
+        MENUITEM "&Find . . .\tCrtl+F",         ID_FIND
+        MENUITEM "Find &next\tF3",              ID_FIND_NEXT
+        MENUITEM SEPARATOR
         MENUITEM "Read-&only",                  ID_EDIT_READONLY
         MENUITEM "&Modified",                   ID_EDIT_MODIFIED
         MENUITEM SEPARATOR
@@ -100,4 +103,5 @@ STRINGTABLE DISCARDABLE
 BEGIN
     STRING_DEFAULT_FILENAME,     "Document"
     STRING_PROMPT_SAVE_CHANGES,  "Save changes to '%s'?"
+    STRING_SEARCH_FINISHED,      "Finished searching the document."
 END

programs/wordpad/Fr.rc

@@ -40,6 +40,9 @@ BEGIN
         MENUITEM "&Effacer\tDel",                   ID_EDIT_CLEAR
         MENUITEM "&Slectionner tout\tCtrl+A",      ID_EDIT_SELECTALL
         MENUITEM SEPARATOR
+        MENUITEM "&Find . . .\tCrtl+F",             ID_FIND
+        MENUITEM "Find &next\tF3",                  ID_FIND_NEXT
+        MENUITEM SEPARATOR
         MENUITEM "Lecture-&seule",                  ID_EDIT_READONLY
         MENUITEM "&Modifi",                        ID_EDIT_MODIFIED
         MENUITEM SEPARATOR
@@ -100,4 +103,5 @@ STRINGTABLE DISCARDABLE
 BEGIN
     STRING_DEFAULT_FILENAME,     "Document"
     STRING_PROMPT_SAVE_CHANGES,  "Save changes to '%s'?"
+    STRING_SEARCH_FINISHED,      "Finished searching the document."
 END

programs/wordpad/Hu.rc

@@ -40,6 +40,9 @@ BEGIN
         MENUITEM "Tr&ls\tDel",                ID_EDIT_CLEAR
         MENUITEM "M&indet kijelli\tCtrl+A",    ID_EDIT_SELECTALL
         MENUITEM SEPARATOR
+        MENUITEM "&Find . . .\tCrtl+F",         ID_FIND
+        MENUITEM "Find &next\tF3",              ID_FIND_NEXT
+        MENUITEM SEPARATOR
         MENUITEM "Csak &olvashat",             ID_EDIT_READONLY
         MENUITEM "M&dostva",                  ID_EDIT_MODIFIED
         MENUITEM SEPARATOR
@@ -100,4 +103,5 @@ STRINGTABLE DISCARDABLE
 BEGIN
     STRING_DEFAULT_FILENAME,     "Document"
     STRING_PROMPT_SAVE_CHANGES,  "Save changes to '%s'?"
+    STRING_SEARCH_FINISHED,      "Finished searching the document."
 END

programs/wordpad/Ko.rc

@@ -41,6 +41,9 @@ BEGIN
         MENUITEM "지우기(&C)\tDEL",                 ID_EDIT_CLEAR
         MENUITEM "모두 선택(&S)\tCtrl+A",         ID_EDIT_SELECTALL
         MENUITEM SEPARATOR
+        MENUITEM "&Find . . .\tCrtl+F",         ID_FIND
+        MENUITEM "Find &next\tF3",              ID_FIND_NEXT
+        MENUITEM SEPARATOR
         MENUITEM "읽기 전용(&O)",                  ID_EDIT_READONLY
         MENUITEM "수정 가능(&M)",                   ID_EDIT_MODIFIED
         MENUITEM SEPARATOR
@@ -101,4 +104,5 @@ STRINGTABLE DISCARDABLE
 BEGIN
     STRING_DEFAULT_FILENAME,     "문서"
     STRING_PROMPT_SAVE_CHANGES,  "'%s'의 바뀐 것을 저장하겠습니까?"
+    STRING_SEARCH_FINISHED,      "Finished searching the document."
 END

programs/wordpad/Nl.rc

@@ -40,6 +40,9 @@ BEGIN
         MENUITEM "&Verwijderen\tDel",           ID_EDIT_CLEAR
         MENUITEM "&Alles selecteren\tCtrl+A",   ID_EDIT_SELECTALL
         MENUITEM SEPARATOR
+        MENUITEM "&Find . . .\tCrtl+F",         ID_FIND
+        MENUITEM "Find &next\tF3",              ID_FIND_NEXT
+        MENUITEM SEPARATOR
         MENUITEM "Alleen &lezen",               ID_EDIT_READONLY
         MENUITEM "&Gewijzigd",                  ID_EDIT_MODIFIED
         MENUITEM SEPARATOR
@@ -100,4 +103,5 @@ STRINGTABLE DISCARDABLE
 BEGIN
     STRING_DEFAULT_FILENAME,     "Document"
     STRING_PROMPT_SAVE_CHANGES,  "Save changes to '%s'?"
+    STRING_SEARCH_FINISHED,      "Finished searching the document."
 END

programs/wordpad/No.rc

@@ -40,7 +40,10 @@ BEGIN
         MENUITEM "&Fjern\tDEL",               ID_EDIT_CLEAR
         MENUITEM "&Merk alt\tCtrl+A",         ID_EDIT_SELECTALL
         MENUITEM SEPARATOR
-        MENUITEM "&Skrivebeskyttet",          ID_EDIT_READONLY
+        MENUITEM "&Sk etter . . .\tCrtl+F",  ID_FIND
+        MENUITEM "Sk etter &neste\tF3",      ID_FIND_NEXT
+        MENUITEM SEPARATOR
+        MENUITEM "Sk&rivebeskyttet",          ID_EDIT_READONLY
         MENUITEM "E&ndret",                   ID_EDIT_MODIFIED
         MENUITEM SEPARATOR
         POPUP "&Ekstra"
@@ -100,4 +103,5 @@ STRINGTABLE DISCARDABLE
 BEGIN
     STRING_DEFAULT_FILENAME,     "Dokument"
     STRING_PROMPT_SAVE_CHANGES,  "Lagre endringer i %s?"
+    STRING_SEARCH_FINISHED,      "Ferdig med  ske i dokumentet."
 END

programs/wordpad/Pl.rc

@@ -41,6 +41,9 @@ BEGIN
         MENUITEM "&Usu\tDel",                    ID_EDIT_CLEAR
         MENUITEM "&Zaznacz wszystko\tCtrl+A",         ID_EDIT_SELECTALL
         MENUITEM SEPARATOR
+        MENUITEM "&Find . . .\tCrtl+F",           ID_FIND
+        MENUITEM "Find &next\tF3",                ID_FIND_NEXT
+        MENUITEM SEPARATOR
         MENUITEM "Tylko do &odczytu",                  ID_EDIT_READONLY
         MENUITEM "&Zmodifykowany",                   ID_EDIT_MODIFIED
         MENUITEM SEPARATOR
@@ -101,4 +104,5 @@ STRINGTABLE DISCARDABLE
 BEGIN
     STRING_DEFAULT_FILENAME,     "Document"
     STRING_PROMPT_SAVE_CHANGES,  "Save changes to '%s'?"
+    STRING_SEARCH_FINISHED,      "Finished searching the document."
 END

programs/wordpad/Ru.rc

@@ -38,6 +38,9 @@ BEGIN
         MENUITEM "&\tCtrl+X",           ID_EDIT_CUT
         MENUITEM "&\tCtrl+C",         ID_EDIT_COPY
         MENUITEM SEPARATOR
+        MENUITEM "&Find . . .\tCrtl+F",         ID_FIND
+        MENUITEM "Find &next\tF3",              ID_FIND_NEXT
+        MENUITEM SEPARATOR
         MENUITEM "&  ",          ID_EDIT_READONLY
         MENUITEM "&",                    ID_EDIT_MODIFIED
         MENUITEM SEPARATOR
@@ -98,4 +101,5 @@ STRINGTABLE DISCARDABLE
 BEGIN
     STRING_DEFAULT_FILENAME,     "Document"
     STRING_PROMPT_SAVE_CHANGES,  "Save changes to '%s'?"
+    STRING_SEARCH_FINISHED,      "Finished searching the document."
 END

programs/wordpad/Tr.rc

@@ -42,6 +42,9 @@ BEGIN
         MENUITEM "&Sil\tDel",                   ID_EDIT_CLEAR
         MENUITEM "&Tmn se\tCtrl+A",         ID_EDIT_SELECTALL
         MENUITEM SEPARATOR
+        MENUITEM "&Find . . .\tCrtl+F",         ID_FIND
+        MENUITEM "Find &next\tF3",              ID_FIND_NEXT
+        MENUITEM SEPARATOR
         MENUITEM "Salt-&okunur",                ID_EDIT_READONLY
         MENUITEM "&Deimi",                   ID_EDIT_MODIFIED
         MENUITEM SEPARATOR
@@ -102,4 +105,5 @@ STRINGTABLE DISCARDABLE
 BEGIN
     STRING_DEFAULT_FILENAME,     "Document"
     STRING_PROMPT_SAVE_CHANGES,  "Save changes to '%s'?"
+    STRING_SEARCH_FINISHED,      "Finished searching the document."
 END

programs/wordpad/resource.h

@@ -26,6 +26,7 @@
 #define ID_PREVIEW 1006
 
 #define ID_FIND 1007
+#define ID_FIND_NEXT 1008
 
 #define ID_ALIGN_LEFT 1100
 #define ID_ALIGN_CENTER 1101
@@ -83,3 +84,4 @@
 
 #define STRING_DEFAULT_FILENAME 1403
 #define STRING_PROMPT_SAVE_CHANGES 1404
+#define STRING_SEARCH_FINISHED 1405

programs/wordpad/rsrc.rc

@@ -28,6 +28,8 @@ BEGIN
     "L",          ID_ALIGN_LEFT,      VIRTKEY, CONTROL    
     "E",          ID_ALIGN_CENTER,    VIRTKEY, CONTROL    
     "R",          ID_ALIGN_RIGHT,     VIRTKEY, CONTROL    
+    "F",          ID_FIND,            VIRTKEY, CONTROL
+    VK_F3,        ID_FIND_NEXT,       VIRTKEY
     "A",          ID_EDIT_SELECTALL,  VIRTKEY, CONTROL    
     "X",          ID_EDIT_CUT,        VIRTKEY, CONTROL    
     "C",          ID_EDIT_COPY,       VIRTKEY, CONTROL    

programs/wordpad/wordpad.c

@@ -45,6 +45,9 @@ static const WCHAR wszAppTitle[] = {'W','i','n','e',' ','W','o','r','d','p','a',
 
 static HWND hMainWnd;
 static HWND hEditorWnd;
+static HWND hFindWnd;
+
+static UINT ID_FINDMSGSTRING;
 
 static WCHAR wszFilter[MAX_STRING_LEN];
 static WCHAR wszDefaultFileName[MAX_STRING_LEN];
@@ -375,6 +378,109 @@ static void HandleCommandLine(LPWSTR cmdline)
         MessageBox(hMainWnd, "Printing not implemented", "WordPad", MB_OK);
 }
 
+static LRESULT handle_findmsg(LPFINDREPLACEW pFr)
+{
+    if(pFr->Flags & FR_DIALOGTERM)
+    {
+        hFindWnd = 0;
+        pFr->Flags = FR_FINDNEXT;
+        return 0;
+    } else if(pFr->Flags & FR_FINDNEXT)
+    {
+        DWORD flags = FR_DOWN;
+        FINDTEXTW ft;
+        static CHARRANGE cr;
+        LRESULT end, ret;
+        GETTEXTLENGTHEX gt;
+        LRESULT length;
+        int startPos;
+        HMENU hMenu = GetMenu(hMainWnd);
+        MENUITEMINFOW mi;
+
+        mi.cbSize = sizeof(mi);
+        mi.fMask = MIIM_DATA;
+        mi.dwItemData = 1;
+        SetMenuItemInfoW(hMenu, ID_FIND_NEXT, FALSE, &mi);
+
+        gt.flags = GTL_NUMCHARS;
+        gt.codepage = 1200;
+
+        length = SendMessageW(hEditorWnd, EM_GETTEXTLENGTHEX, (WPARAM)&gt, 0);
+
+        if(pFr->lCustData == -1)
+        {
+            SendMessageW(hEditorWnd, EM_GETSEL, (WPARAM)&startPos, (LPARAM)&end);
+            cr.cpMin = startPos;
+            pFr->lCustData = startPos;
+            cr.cpMax = length;
+            if(cr.cpMin == length)
+                cr.cpMin = 0;
+        } else
+        {
+            startPos = pFr->lCustData;
+        }
+
+        if(cr.cpMax > length)
+        {
+            startPos = 0;
+            cr.cpMin = 0;
+            cr.cpMax = length;
+        }
+
+        ft.chrg = cr;
+        ft.lpstrText = pFr->lpstrFindWhat;
+
+        if(pFr->Flags & FR_MATCHCASE)
+            flags |= FR_MATCHCASE;
+        if(pFr->Flags & FR_WHOLEWORD)
+            flags |= FR_WHOLEWORD;
+
+        ret = SendMessageW(hEditorWnd, EM_FINDTEXTW, (WPARAM)flags, (LPARAM)&ft);
+
+        if(ret == -1)
+        {
+            if(cr.cpMax == length && cr.cpMax != startPos)
+            {
+                ft.chrg.cpMin = cr.cpMin = 0;
+                ft.chrg.cpMax = cr.cpMax = startPos;
+
+                ret = SendMessageW(hEditorWnd, EM_FINDTEXTW, (WPARAM)flags, (LPARAM)&ft);
+            }
+        }
+
+        if(ret == -1)
+        {
+            pFr->lCustData = -1;
+            MessageBoxW(hMainWnd, MAKEINTRESOURCEW(STRING_SEARCH_FINISHED), wszAppTitle,
+                        MB_OK | MB_ICONASTERISK);
+        } else
+        {
+            end = ret + lstrlenW(pFr->lpstrFindWhat);
+            cr.cpMin = end;
+            SendMessageW(hEditorWnd, EM_SETSEL, (WPARAM)ret, (LPARAM)end);
+            SendMessageW(hEditorWnd, EM_SCROLLCARET, 0, 0);
+        }
+    }
+
+    return 0;
+}
+
+static void dialog_find(LPFINDREPLACEW fr)
+{
+    static WCHAR findBuffer[MAX_STRING_LEN];
+
+    ZeroMemory(fr, sizeof(FINDREPLACEW));
+    fr->lStructSize = sizeof(FINDREPLACEW);
+    fr->hwndOwner = hMainWnd;
+    fr->Flags = FR_HIDEUPDOWN;
+    fr->lpstrFindWhat = findBuffer;
+    fr->lCustData = -1;
+    fr->wFindWhatLen = MAX_STRING_LEN*sizeof(WCHAR);
+
+    hFindWnd = FindTextW(fr);
+}
+
+
 static void DoDefaultFont(void)
 {
     static const WCHAR szFaceName[] = {'T','i','m','e','s',' ','N','e','w',' ','R','o','m','a','n',0};
@@ -592,6 +698,8 @@ static LRESULT OnCreate( HWND hWnd, WPARAM wParam, LPARAM lParam)
     DoLoadStrings();
     SendMessageW(hEditorWnd, EM_SETMODIFY, FALSE, 0);
 
+    ID_FINDMSGSTRING = RegisterWindowMessageW(FINDMSGSTRINGW);
+
     return 0;
 }
 
@@ -604,6 +712,7 @@ static LRESULT OnUser( HWND hWnd, WPARAM wParam, LPARAM lParam)
     int from, to;
     CHARFORMAT2W fmt;
     PARAFORMAT2 pf;
+    GETTEXTLENGTHEX gt;
 
     ZeroMemory(&fmt, sizeof(fmt));
     fmt.cbSize = sizeof(fmt);
@@ -611,6 +720,12 @@ static LRESULT OnUser( HWND hWnd, WPARAM wParam, LPARAM lParam)
     ZeroMemory(&pf, sizeof(pf));
     pf.cbSize = sizeof(pf);
 
+    gt.flags = GTL_NUMCHARS;
+    gt.codepage = 1200;
+
+    SendMessageW(hwndToolBar, TB_ENABLEBUTTON, ID_FIND,
+                 SendMessageW(hwndEditor, EM_GETTEXTLENGTHEX, (WPARAM)&gt, 0) ? 1 : 0);
+
     SendMessageW(hwndEditor, EM_GETCHARFORMAT, TRUE, (LPARAM)&fmt);
 
     SendMessageW(hwndEditor, EM_GETSEL, (WPARAM)&from, (LPARAM)&to);
@@ -666,12 +781,14 @@ static LRESULT OnCommand( HWND hWnd, WPARAM wParam, LPARAM lParam)
 {
     HWND hwndEditor = GetDlgItem(hWnd, IDC_EDITOR);
     HWND hwndStatus = GetDlgItem(hWnd, IDC_STATUSBAR);
+    static FINDREPLACEW findreplace;
 
     if ((HWND)lParam == hwndEditor)
         return 0;
 
     switch(LOWORD(wParam))
     {
+
     case ID_FILE_EXIT:
         PostMessageW(hWnd, WM_CLOSE, 0, 0);
         break;
@@ -703,9 +820,16 @@ static LRESULT OnCommand( HWND hWnd, WPARAM wParam, LPARAM lParam)
         DialogSaveFile();
         break;
 
+    case ID_FIND:
+        dialog_find(&findreplace);
+        break;
+
+    case ID_FIND_NEXT:
+        handle_findmsg(&findreplace);
+        break;
+
     case ID_PRINT:
     case ID_PREVIEW:
-    case ID_FIND:
         {
             static const WCHAR wszNotImplemented[] = {'N','o','t',' ',
                                                       'i','m','p','l','e','m','e','n','t','e','d','\0'};
@@ -908,6 +1032,9 @@ static LRESULT OnInitPopupMenu( HWND hWnd, WPARAM wParam, LPARAM lParam )
     int nAlignment = -1;
     REBARBANDINFOW rbbinfo;
     int selFrom, selTo;
+    GETTEXTLENGTHEX gt;
+    LRESULT textLength;
+    MENUITEMINFOW mi;
 
     SendMessageW(hEditorWnd, EM_GETSEL, (WPARAM)&selFrom, (LPARAM)&selTo);
     EnableMenuItem(hMenu, ID_EDIT_COPY, MF_BYCOMMAND|(selFrom == selTo) ? MF_GRAYED : MF_ENABLED);
@@ -946,6 +1073,19 @@ static LRESULT OnInitPopupMenu( HWND hWnd, WPARAM wParam, LPARAM lParam )
 
     CheckMenuItem(hMenu, ID_TOGGLE_STATUSBAR, MF_BYCOMMAND|IsWindowVisible(hwndStatus) ?
             MF_CHECKED : MF_UNCHECKED);
+
+    gt.flags = GTL_NUMCHARS;
+    gt.codepage = 1200;
+    textLength = SendMessageW(hEditorWnd, EM_GETTEXTLENGTHEX, (WPARAM)&gt, 0);
+    EnableMenuItem(hMenu, ID_FIND, MF_BYCOMMAND|(textLength ? MF_ENABLED : MF_GRAYED));
+
+    mi.cbSize = sizeof(mi);
+    mi.fMask = MIIM_DATA;
+
+    GetMenuItemInfoW(hMenu, ID_FIND_NEXT, FALSE, &mi);
+
+    EnableMenuItem(hMenu, ID_FIND_NEXT, MF_BYCOMMAND|((textLength && mi.dwItemData) ?
+                   MF_ENABLED : MF_GRAYED));
     return 0;
 }
 
@@ -1003,6 +1143,9 @@ static LRESULT OnSize( HWND hWnd, WPARAM wParam, LPARAM lParam )
 
 static LRESULT CALLBACK WndProc(HWND hWnd, UINT msg, WPARAM wParam, LPARAM lParam)
 {
+    if(msg == ID_FINDMSGSTRING)
+        return handle_findmsg((LPFINDREPLACEW)lParam);
+
     switch(msg)
     {
     case WM_CREATE:
@@ -1079,6 +1222,9 @@ int CALLBACK WinMain(HINSTANCE hInstance, HINSTANCE hOldInstance, LPSTR szCmdPar
 
     while(GetMessageW(&msg,0,0,0))
     {
+        if (IsDialogMessage(hFindWnd, &msg))
+            continue;
+
         if (TranslateAcceleratorW(hMainWnd, hAccel, &msg))
             continue;
         TranslateMessage(&msg);