TyperZJ 文本编辑器——Windows编程上机作业之四

要求：
1. 改正typer程序中的不足
2. 增加读、写文件功能
3. 使用鼠标指定插入点
4. 在窗口标题中显示该程序运行的总时间（每秒更新一次）
5. 增加垂直滚动条，处理相应的操作。

实现：
1.水平滚动条与垂直滚动条都有，可使用鼠标滚轮，文件宽高都可多页（编辑过程中Caret移出窗口时，窗口会自动滚动）；
2.可以新建，打开，编辑，保存，另存为文件（未考虑实际的文件编码，而是使用自定义的文件格式）；
3.使用鼠标指定插入点；
4.文件修改未保存时新建或关闭会有询问；
5.窗口标题栏显示正在编辑的文件名，及程序运行总时间；
6.支持中英文混合编辑；

源码：
resource.h

1 // {{NO_DEPENDENCIES}}
2 // Microsoft Visual C++ generated include file.
3 // Used by TyperZJ.rc
4 //
5 #define IDR_MENU                        101
6 #define IDR_ACCE                        102
7
8 // Next default values for new objects
9 //
10 #ifdef APSTUDIO_INVOKED
11 #ifndef APSTUDIO_READONLY_SYMBOLS
12 #define _APS_NEXT_RESOURCE_VALUE        103
13 #define _APS_NEXT_COMMAND_VALUE         40003
14 #define _APS_NEXT_CONTROL_VALUE         1001
15 #define _APS_NEXT_SYMED_VALUE           101
16 #endif
17 #endif
18

TyperZJ.rc

1 // Microsoft Visual C++ generated resource script.
2 //
3 #include " resource.h "
4
5 #define APSTUDIO_READONLY_SYMBOLS
6 /**/ /////////////////////////////////////////////////////////////////////////////
7 //
8 // Generated from the TEXTINCLUDE 2 resource.
9 //
10 #include " afxres.h "
11
12 /**/ /////////////////////////////////////////////////////////////////////////////
13 #undef APSTUDIO_READONLY_SYMBOLS
14
15 /**/ /////////////////////////////////////////////////////////////////////////////
16 // Chinese (Simplified, PRC) resources
17
18 #if !defined(AFX_RESOURCE_DLL) || defined(AFX_TARG_CHS)
19 LANGUAGE LANG_CHINESE, SUBLANG_CHINESE_SIMPLIFIED
20
21 #ifdef APSTUDIO_INVOKED
22 /**/ /////////////////////////////////////////////////////////////////////////////
23 //
24 // TEXTINCLUDE
25 //
26
27 1 TEXTINCLUDE
28 BEGIN
29      " resource.h\0 "
30 END
31
32 2 TEXTINCLUDE
33 BEGIN
34      " #include "" afxres.h "" \r\n "
35      " \0 "
36 END
37
38 3 TEXTINCLUDE
39 BEGIN
40      " \r\n "
41      " \0 "
42 END
43
44 #endif      // APSTUDIO_INVOKED
45
46
47 /**/ /////////////////////////////////////////////////////////////////////////////
48 //
49 // Menu
50 //
51
52 IDR_MENU MENU
53 BEGIN
54     POPUP " 文件(&F) "
55     BEGIN
56         MENUITEM " 新建(&N)\tCtrl+N " ,              ID_FILE_NEW
57         MENUITEM " 打开(&O)\tCtrl+O " ,              ID_FILE_OPEN
58         MENUITEM " 保存(&S)\tCtrl+S " ,              ID_FILE_SAVE
59         MENUITEM " 另存为(&A) " ,                    ID_FILE_SAVE_AS
60         MENUITEM SEPARATOR
61         MENUITEM " 退出(&X)\tCtrl+X " ,              ID_FILE_CLOSE
62     END
63 END
64
65
66 /**/ /////////////////////////////////////////////////////////////////////////////
67 //
68 // Accelerator
69 //
70
71 IDR_ACCE  ACCELERATORS
72 BEGIN
73      " N " ,            ID_FILE_NEW,            VIRTKEY, CONTROL, NOINVERT
74      " O " ,            ID_FILE_OPEN,           VIRTKEY, CONTROL, NOINVERT
75      " S " ,            ID_FILE_SAVE,           VIRTKEY, CONTROL, NOINVERT
76      " X " ,            ID_FILE_CLOSE,          VIRTKEY, CONTROL, NOINVERT
77 END
78
79 #endif      // Chinese (Simplified, PRC) resources
80 /**/ /////////////////////////////////////////////////////////////////////////////
81
82
83
84 #ifndef APSTUDIO_INVOKED
85 /**/ /////////////////////////////////////////////////////////////////////////////
86 //
87 // Generated from the TEXTINCLUDE 3 resource.
88 //
89
90
91 /**/ /////////////////////////////////////////////////////////////////////////////
92 #endif      // not APSTUDIO_INVOKED
93
94

TyperZJ.cpp

  1 #ifndef  UNICODE
  2 #define   UNICODE
  3 #endif
  4 #ifndef  _UNICODE
  5 #define   _UNICODE
  6 #endif
  7
  8
  9 #include " resource.h "
10 #include " afxres.h "
11 #include < windows.h >
12
13 #include < list >
14 using std::list;
15
16
17 // 半角，全角字符宽高硬编码
18 #define   CX_HALF  8
19 #define   CY_HALF  16
20 #define   CX_FULL  (CX_HALF+CX_HALF)
21 #define   CY_FULL  CY_HALF
22
23
24 /**/ //////// 文本
25 // 内存中不保存回车换行，内存中的文本至少一行，会有空行
26
27 typedef list < TCHAR > TLINE;
28 typedef list < TLINE > TTEXT;
29 typedef TTEXT::iterator   TPOSLINE;
30 typedef TLINE::iterator   TPOSCHAR;
31
32          // 当前行中当前字符宽度
33 inline INT GetDeltaX( const TLINE & line, const TPOSCHAR & pc )

{
34 return ( ((pc==line.end())||(((UINT)(*pc))<0x80)) ? CX_HALF : CX_FULL );
35}
36 // 当前行中当前字符左侧 X 坐标
37 INT GetX( TLINE & line, const TPOSCHAR & pc )

{
38        TPOSCHAR p;
39        INT x = 0;
40        for ( p = line.begin(); (p!=line.end())&&(p!=pc); ++p )

{
41                x += ::GetDeltaX( line, p );
42        }
43        return x;
44}
45          // 当前行中当前 X 坐标右侧字符
46 TPOSCHAR GetPoschar( TLINE & line, INT x )

{
47 TPOSCHAR p;
48 for ( p = line.begin(); (p!=line.end())&&(x>0); ++p )

{
49                x -= ::GetDeltaX( line, p );
50        }
51        return p;
52}
53          // 当前行中当前字符高度
54 inline INT GetDeltaY( const TLINE & line, const TPOSCHAR & pc )

{
55 return ( ((pc==line.end())||(((UINT)(*pc))<0x80)) ? CY_HALF : CY_FULL );
56}
57 // 当前文本中当前行高度
58 inline INT GetDeltaY( const TTEXT & text, const TPOSLINE & pl )

{
59 return ( (pl==text.end()) ? (CY_HALF) : (::GetDeltaY(*pl,pl->begin())) );
60}
61 // 当前文本中当前文本行上方 Y 坐标
62 INT GetY( TTEXT & text, const TPOSLINE & pl )

{
63        TPOSLINE p;
64        INT y = 0;
65        for ( p = text.begin(); (p!=text.end())&&(p!=pl); ++p )

{
66                y += ::GetDeltaY( text, p );
67        }
68        return y;
69}
70          // 当前文本中当前 Y 坐标下方文本行
71 TPOSLINE GetPosline( TTEXT & text, INT y )

{
72 TPOSLINE p;
73 for ( p = text.begin(); (p!=text.end())&&(y>0); ++p )

{
74                y -= ::GetDeltaY( text, p );
75        }
76        if ( p == text.end() )

{
77                --p;
78        }
79        return p;
80}
81
82          // 当前文本中最长的行的长度，单位字符数
83 INT GetLineMaxLength( TTEXT & text )

{
84        INT iMax = 0, tmp;
85        TPOSLINE p;
86        for ( p = text.begin(); p != text.end(); ++p )

{
87 tmp = p->size();
88 if ( tmp > iMax )

{
89                        iMax = tmp;
90                }
91        }
92        return iMax;
93}
94          // 文本宽度，单位字符
95 inline INT GetTextWidth( TTEXT & text )

{
96 return ::GetLineMaxLength( text );
97}
98 // 文本高度，单位字符
99 inline INT GetTextHeight( TTEXT & text )

{
100 return text.size();
101}
102 // 文本区宽度，单位像素
103 INT GetTextAreaWidth( TTEXT & text )

{
104        INT res = 0, tmp;
105        TPOSLINE pl;
106        for ( pl = text.begin(); pl != text.end(); ++pl )

{
107 tmp = ::GetX( *pl, pl->end() );
108 if ( tmp > res )

{
109                        res = tmp;
110                }
111        }
112        return res;
113}
114          // 文本区高度，单位像素
115 inline INT GetTextAreaHeight( TTEXT & text )

{
116        return ::GetTextHeight(text) * CY_FULL; // 偷懒，因高度硬编码
117}
118
119
120 /**/ //////// 文件
121 // 只能读入自己保存的文件，因为未考虑实际的文件编码
122 // 内存中的文本与磁盘上的文件内容有些差别，但保证读写过程不会对文件造成修改，如：
123 // 读入空文件会得到非空的有一个空行的文本，写文件时会将其过滤
124 // szFileDir    "F:\\ZJ\\"
125 // szFileName   "a.txt"
126
127          // 文件对话框，bOpen TRUE OPEN,  FALSE SAVE；目录与文件名既输入也输出；放弃返回FALSE
128          // iMaxLen 为 szFileDir, szFileName 字符数组的大小，包括结尾的 NULL
129 BOOL GetFileName( HWND hWnd, LPTSTR szFileDir, LPTSTR szFileName, INT iMaxLen, BOOL bOpen )

{
130 ::OPENFILENAME ofn =

{0};
131        ofn.lStructSize = sizeof(ofn);
132        ofn.hwndOwner   = hWnd;
133        ofn.hInstance   = NULL;
134        TCHAR szFilter[100] = TEXT("文本文件\0*.txt\0所有文件\0*.*\0\0");
135        ofn.lpstrFilter = szFilter;
136        ofn.nFilterIndex = 1;
137        const int L = 1024;
138        TCHAR szFile[ L ];
139        ::lstrcpy( szFile, szFileName );
140        ofn.lpstrFile   = szFile;
141        ofn.nMaxFile    = L;
142        ofn.lpstrFileTitle   = NULL;
143        ofn.lpstrInitialDir  = szFileDir;
144        ofn.lpstrTitle  = ( bOpen ? TEXT("打开文件") : TEXT("保存文件") );
145        ofn.Flags       = OFN_EXPLORER;
146        BOOL res = ( bOpen ? ::GetOpenFileName( &ofn ) :  ::GetSaveFileName( &ofn ) );
147        if ( res )

{
148                ::lstrcpy( szFileName, szFile + ofn.nFileOffset );
149                szFile[ ofn.nFileOffset ] = 0;
150                ::lstrcpy( szFileDir, szFile );
151                // test begin
152                // ::MessageBox( hWnd, szFileDir, szFileName, MB_OK );
153                // test end
154                return TRUE;
155        }
156        return FALSE;
157}
158          // 文件若存在，就覆盖；不存在，就新建
159 BOOL SaveFile( TTEXT & text, LPCTSTR szFileDir, LPCTSTR szFileName )

{
160        TCHAR szFile[ 1024 ];
161        ::lstrcpy( szFile, szFileDir );
162        ::lstrcat( szFile, szFileName );
163        HANDLE hFile = ::CreateFile( szFile, GENERIC_WRITE, 0, NULL,
164                CREATE_ALWAYS, FILE_ATTRIBUTE_NORMAL, NULL );
165        if ( hFile == INVALID_HANDLE_VALUE )

{
166                return FALSE;
167        }
168
169        INT iMaxLen = ::GetLineMaxLength( text );
170        HGLOBAL hMem = ::GlobalAlloc( GMEM_FIXED, sizeof(TCHAR)*(iMaxLen+20) ); // +20 防空行
171        LPVOID  pMem = ::GlobalLock( hMem );
172
173        TPOSLINE pl;
174        for ( pl = text.begin(); pl != text.end(); /**//*++pl*/ )

{
175                TCHAR *buf = (TCHAR*)pMem;
176                TPOSCHAR pc;
177                DWORD n = 0, nw = 0;
178                for ( pc = pl->begin(); pc != pl->end(); ++pc )

{
179                        buf[ n++ ] = *pc;
180                }
181                if ( (++pl) != text.end() )

{
182                        buf[ n++ ] = TEXT('\n'); // 最后一行尾不要加换行符
183                }
184                n *= sizeof(TCHAR);
185                BYTE *pByte = (BYTE*)pMem;
186                while ( n > 0 )

{
187                        ::WriteFile( hFile, pByte, n, &nw, NULL );
188                        pByte += nw;
189                        n -= nw;
190                }
191        }
192
193        ::GlobalUnlock( hMem );
194        ::GlobalFree( hMem );
195        ::CloseHandle( hFile );
196        return TRUE;
197}
198          // 文件若不存在，就返回FALSE表示失败
199 BOOL LoadFile( TTEXT & text, LPCTSTR szFileDir, LPCTSTR szFileName )

{
200         TCHAR szFile[ 1024 ];
201        ::lstrcpy( szFile, szFileDir );
202        ::lstrcat( szFile, szFileName );
203        HANDLE hFile = ::CreateFile( szFile, GENERIC_READ, 0, NULL,
204                OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, NULL );
205        if ( hFile == INVALID_HANDLE_VALUE )

{
206                return FALSE;
207        }
208
209        INT iMaxLen = 1024 * 4;
210        HGLOBAL hMem = ::GlobalAlloc( GMEM_FIXED, iMaxLen+20 );
211        LPVOID  pMem = ::GlobalLock( hMem );
212
213        DWORD nr = 0, nm = 0;
214        text.clear();
215        text.push_back( TLINE() );
216        TPOSLINE pl = text.begin();
217        BYTE *pByte = (BYTE*)pMem;
218        // 考虑一次成功读入的字节数不是 sizeof(TCHAR) 的整数倍
219        while ( ::ReadFile( hFile, pByte+nm, iMaxLen-nm, &nr, NULL ) && (nr>0) )

{
220                DWORD i;
221                TCHAR *buf = (TCHAR*)pMem;
222                nr += nm;
223                nm = nr % (sizeof(TCHAR));
224                nr /= sizeof(TCHAR);
225                for ( i = 0; i < nr; ++i )

{
226 if ( buf[ i ] == TEXT('\n') )

{
227                                text.push_back( TLINE() );
228                                pl = text.end();
229                                --pl;
230                        }
231                        else

{
232                                pl->push_back( buf[ i ] );
233                        }
234                }
235                nr *= sizeof(TCHAR);
236                for ( i = 0; i < nm; ++i )

{
237                        pByte[ i ] = pByte[ nr + i ];
238                }
239        }
240
241        ::GlobalUnlock( hMem );
242        ::GlobalFree( hMem );
243        ::CloseHandle( hFile );
244        return TRUE;
245}
246
247
248 /**/ //////// 滚动条
249 // 滚动范围  0..文本宽度-窗口客户区宽度  0..文本高度-窗口客户区高度  单位 CX_HALE, CY_HALF
250 // 位置      窗口客户区左上角半字符在整个文本中的位置
251          // nPage, nMin, nMax
252 void CalcScrollInfo( HWND hWnd, TTEXT & text, INT nBar, ::SCROLLINFO & si )

{
253        RECT rt;
254        ::GetClientRect( hWnd, &rt );
255        if ( nBar == SB_HORZ )

{
256                si.nPage = ( rt.right - rt.left ) / CX_FULL * CX_FULL;
257                si.nMax  = ::GetTextAreaWidth( text );
258        }
259        if ( nBar == SB_VERT )

{
260                si.nPage = ( rt.bottom - rt.top ) / CY_FULL * CY_FULL;
261                si.nMax  = ::GetTextAreaHeight( text );
262        }
263        si.nMin = 0;
264}
265          // 获取两个滚动条的所有信息
266 void GetBothScrollInfo( HWND hWnd, ::SCROLLINFO & sih, ::SCROLLINFO & siv )

{
267        sih.cbSize = sizeof(sih);
268        sih.fMask  = SIF_ALL;
269        ::GetScrollInfo( hWnd, SB_HORZ, &sih );
270        siv.cbSize = sizeof(siv);
271        siv.fMask  = SIF_ALL;
272        ::GetScrollInfo( hWnd, SB_VERT, &siv );
273}
274          // nMin, nMax, nPage,  if ( bInit ) nPos=0
275 void   UpdateScrollBar( HWND hWnd, TTEXT & text, BOOL bInit = FALSE )

{
276 INT i, sb[] =

{ SB_HORZ, SB_VERT };
277 ::SCROLLINFO si, sio;
278 for ( i = 0; i < sizeof(sb)/sizeof(sb[0]); ++i )

{
279                sio.cbSize = sizeof(sio);
280                sio.fMask  = SIF_ALL;
281                ::GetScrollInfo( hWnd, sb[i], &sio );
282
283                ::CalcScrollInfo( hWnd, text, sb[i], si );
284                si.cbSize = sizeof(si);
285                si.fMask = SIF_DISABLENOSCROLL | SIF_ALL;
286                if ( bInit )

{
287                        si.nPos  = 0;
288                }
289                else

{
290                        si.nPos = sio.nPos;
291                }
292                if ( si.nPos < si.nMin )

{
293                        si.nPos = si.nMin;
294                }
295                if ( si.nPos > si.nMax )

{
296                        si.nPos = si.nMax;
297                }
298                si.nTrackPos = sio.nTrackPos;
299                ::SetScrollInfo( hWnd, sb[i], &si, TRUE );
300        }
301}
302          // 窗口客户区左上角在文本区中的位置
303 inline void GetLeftTopDelta( HWND hWnd, INT & leftX, INT & topY )

{
304        ::SCROLLINFO sih, siv;
305        ::GetBothScrollInfo( hWnd, sih, siv );
306        leftX = sih.nPos;
307        topY  = siv.nPos;
308}
309
310 /**/ //////// Caret
311 void UpdateCaretPos( HWND hWnd, TTEXT & text, TPOSLINE & pl, TPOSCHAR & pc )

{
312        INT leftX, topY;
313        ::GetLeftTopDelta( hWnd, leftX, topY );
314        ::SetCaretPos( ::GetX( *pl, pc ) - leftX, ::GetY( text, pl ) - topY );
315}
316
317
318 /**/ //////// 窗口
319 TCHAR  szClassName[]    = TEXT( " TyperZJ " );
320 TCHAR  szWndNameMid[]   = TEXT( " - TyperZJ - " );
321
322          // 利用常量相等 SB_LINEUP==SB_LINELEFT,
323          // SB_LINEDOWN==SB_LINERIGHT, SB_PAGEUP==SB_PAGELEFT, SB_PAGEDOWN==SB_PAGERIGHT
324          // SB_TOP==SB_LEFT, SB_BOTTOM==SB_RIGHT
325 void   OnScroll( HWND hWnd, INT nBar, WPARAM wParam, TTEXT & text, TPOSLINE & pl, TPOSCHAR & pc )

{
326        ::SCROLLINFO si;
327        si.cbSize = sizeof(si);
328        si.fMask  = SIF_ALL;
329        ::GetScrollInfo( hWnd, nBar, &si );
330
331        switch ( LOWORD(wParam) )

{
332        case SB_LINELEFT :
333                si.nPos -= CX_FULL;
334                break;
335        case SB_LINERIGHT :
336                si.nPos += CY_FULL;
337                break;
338        case SB_PAGELEFT :
339                si.nPos -= si.nPage;
340                break;
341        case SB_PAGERIGHT :
342                si.nPos += si.nPage;
343                break;
344        case SB_THUMBTRACK :
345                si.nPos = si.nTrackPos;
346                break;
347        }
348        if ( si.nPos < si.nMin )

{
349                si.nPos = si.nMin;
350        }
351        if ( si.nPos > si.nMax )

{
352                si.nPos = si.nMax;
353        }
354
355        si.fMask = SIF_POS;
356        ::SetScrollInfo( hWnd, nBar, &si, TRUE );
357        ::UpdateCaretPos( hWnd, text, pl, pc );
358        ::InvalidateRect( hWnd, NULL, TRUE );
359}
360          // 文本修改并更新滚动条nMin,nMax,nPage后，修改滚动条nPos，Caret
361 void OnTextChange( HWND hWnd, TTEXT & text, TPOSLINE & pl, TPOSCHAR & pc )

{
362        ::SCROLLINFO sih, siv;
363        ::GetBothScrollInfo( hWnd, sih, siv );
364
365        INT x  = ::GetX( *pl, pc );
366        INT xP = sih.nPos;
367        if ( x < sih.nPos )

{
368                sih.nPos =  x;
369        }
370        else if ( x >= sih.nPos + (INT)sih.nPage )

{
371                sih.nPos = x - sih.nPage;
372        }
373        if ( sih.nPos < sih.nMin )

{
374                sih.nPos = sih.nMin;
375        }
376        if ( sih.nPos > sih.nMax )

{
377                sih.nPos = sih.nMax;
378        }
379        if ( xP != sih.nPos )

{
380                sih.cbSize = sizeof(sih);
381                sih.fMask = SIF_POS;
382                ::SetScrollInfo( hWnd, SB_HORZ, &sih, TRUE );
383        }
384
385        INT y  = ::GetY( text, pl );
386        INT yP = siv.nPos;
387        if ( y < siv.nPos )

{
388                siv.nPos = y;
389        }
390        else if ( y >= siv.nPos + (INT)siv.nPage )

{
391                siv.nPos = y - siv.nPage;
392        }
393        if ( siv.nPos < siv.nMin )

{
394                siv.nPos = siv.nMin;
395        }
396        if ( siv.nPos > siv.nMax )

{
397                siv.nPos = siv.nMax;
398        }
399        if ( yP != siv.nPos )

{
400                siv.cbSize = sizeof(siv);
401                siv.fMask  = SIF_POS;
402                ::SetScrollInfo( hWnd, SB_VERT, &siv, TRUE );
403        }
404
405        ::UpdateCaretPos( hWnd, text, pl, pc );
406
407        ::InvalidateRect( hWnd, NULL, TRUE );
408}
409          // 更新窗口标题  文件名 + 程序名 + 程序运行时间
410 void UpdateWindowText( HWND hWnd, LONG time, LPCTSTR szFileName )

{
411        static TCHAR text[ 1024 ];
412        TCHAR szTime[ 1024 ];
413        ::swprintf( szTime, TEXT(" <已运行 %ld 秒> "), time );
414        ::lstrcpy( text, szFileName );
415        ::lstrcat( text, szWndNameMid );
416        ::lstrcat( text, szTime );
417        ::SetWindowText( hWnd, text );
418}
419
420          // 窗口过程函数
421 LRESULT CALLBACK WndProc( HWND hWnd, UINT uMsg, WPARAM wParam, LPARAM lParam )

{
422        // 文本
423        static TTEXT text;
424        static TPOSLINE pl;
425        static TPOSCHAR pc;
426
427        // 文件
428        static BOOL   bModified = FALSE;
429        static BOOL   bNamed    = FALSE;
430        #define  FILE_LEN  1024
431        static TCHAR  szFileDir[ FILE_LEN ] =

{0};
432 static TCHAR szFileName[ FILE_LEN ] =

{0};
433
434        // 时间
435        // 误差在200毫秒以内，系统运行 49.7 天以内正确计时
436        static LONG  totTime = 0;  // 程序运行总时间，单位秒
437        static DWORD preTick;  // 单位毫秒
438
439        switch ( uMsg )

{
440        case WM_CREATE :
441                ::SendMessage( hWnd, WM_COMMAND, ID_FILE_NEW, 0 );
442                ::SetTimer( hWnd, 0, 200, NULL );
443                preTick = ::GetTickCount();
444                ::UpdateWindowText( hWnd, totTime, szFileName );
445                return 0;
446
447        case WM_TIMER :
448

{
449 DWORD cnt = ::GetTickCount();
450 if ( cnt - preTick >= 1000 )

{
451                                totTime += ( cnt - preTick ) / 1000;
452                                ::UpdateWindowText( hWnd, totTime, szFileName );
453                                preTick = cnt;
454                        }
455                }
456                return 0;
457
458        case WM_PAINT :
459

{
460                        ::PAINTSTRUCT ps;
461                        ::HDC hdc;
462
463                        hdc = ::BeginPaint( hWnd, &ps );
464
465                        TPOSLINE il;
466                        INT  leftX, topY, y;
467                        ::GetLeftTopDelta( hWnd, leftX, topY );
468                        y = -topY;
469                        HFONT hf = ::CreateFont( 0, 0, 0, 0, 0, 0, 0, 0,
470                                DEFAULT_CHARSET, 0, 0, 0, FIXED_PITCH, NULL );
471                        HFONT hfOld = (HFONT)::SelectObject( hdc, hf );
472                        for ( il = text.begin(); il != text.end(); ++il )

{
473                                TPOSCHAR ic;
474                                TCHAR sz[ 3 ];
475                                INT x = -leftX;
476                                for ( ic = il->begin(); ic != il->end(); ++ic )

{
477                                        sz[ 0 ] = (*ic);
478                                        ::TextOut( hdc, x, y, sz, 1 );
479                                        x += ::GetDeltaX( *il, ic );
480                                }
481                                y += ::GetDeltaY( text, il );
482                        }
483                        ::SelectObject( hdc, hfOld );
484                        ::DeleteObject( hf );
485
486                        ::EndPaint( hWnd, &ps );
487                }
488                return 0;
489
490        // 鼠标选取，点击插入点
491        case WM_LBUTTONDOWN :
492

{
493                        INT  leftX, topY;
494                        ::GetLeftTopDelta( hWnd, leftX, topY );
495                        INT x = leftX + LOWORD(lParam) - ( CX_HALF / 2 );      // 微调，找最近
496                        INT y = topY  + HIWORD(lParam) - ( CY_HALF / 3 * 2 );  //

.
497                        pl = ::GetPosline( text, y );
498                        pc = ::GetPoschar( *pl, x );
499                        ::UpdateCaretPos( hWnd, text, pl, pc );
500                        ::InvalidateRect( hWnd, NULL, TRUE );
501                }
502                return 0;
503
504        // 输入
505        case WM_KEYDOWN :
506                switch ( wParam )

{
507                case VK_HOME :
508                        pc = pl->begin();
509                        break;
510                case VK_END :
511                        pc = pl->end();
512                        break;
513                case VK_LEFT :
514                        if ( pc != pl->begin() )

{
515                                --pc;
516                        }
517                        else if ( pl != text.begin() )

{
518                                --pl;
519                                pc = pl->end();
520                        }
521                        break;
522                case VK_RIGHT :
523                        if ( pc != pl->end() )

{
524                                ++pc;
525                        }
526                        else if ( ++pl != text.end() )

{
527                                pc = pl->begin();
528                        }
529                        else

{
530                                --pl;
531                        }
532                        break;
533                case VK_UP :
534                        if ( pl != text.begin() )

{
535                                INT x = ::GetX( *pl, pc );
536                                --pl;
537                                pc = ::GetPoschar( *pl, x );
538                        }
539                        break;
540                case VK_DOWN :
541                        if ( ++pl != text.end() )

{
542                                --pl;
543                                INT x = ::GetX( *pl, pc );
544                                ++pl;
545                                pc = ::GetPoschar( *pl, x );
546                        }
547                        else

{
548                                --pl;
549                        }
550                        break;
551                case VK_DELETE :
552

{
553                                TPOSLINE pln = pl;
554                                ++pln;
555                                if ( pc != pl->end() )

{
556                                        pc = pl->erase( pc );
557                                }
558                                else if ( pln != text.end() )

{
559                                        INT x = ::GetX( *pl, pc );
560                                        INT y = ::GetY( text, pl );
561                                        TPOSCHAR pcn;
562                                        for ( pcn = pln->begin(); pcn != pln->end(); ++pcn )

{
563                                                pl->push_back( *pcn );
564                                        }
565                                        text.erase( pln );
566                                        pl = ::GetPosline( text, y );
567                                        pc = ::GetPoschar( *pl, x );
568                                }
569                                bModified = TRUE;
570                                ::UpdateScrollBar( hWnd, text );
571                        }
572                        break;
573                case VK_RETURN :
574

{
575                                TLINE line( pc, pl->end() );
576                                pl->erase( pc, pl->end() );
577                                ++pl;
578                                if ( pl == text.end() )

{
579                                        text.push_back( line );
580                                        pl = text.end();
581                                        --pl;
582                                        pc = pl->begin();
583                                }
584                                else

{
585                                        pl = text.insert( pl, line );
586                                        pc = pl->begin();
587                                }
588                                bModified = TRUE;
589                                ::UpdateScrollBar( hWnd, text );
590                        }
591                        break;
592                }
593                ::OnTextChange( hWnd, text, pl, pc );
594                return 0;
595
596        case WM_CHAR :
597                switch ( wParam )

{
598 case TEXT('\b') :
599 if ( pc != pl->begin() )

{
600                                ::SendMessage( hWnd, WM_KEYDOWN, VK_LEFT, 1 );
601                                ::SendMessage( hWnd, WM_KEYDOWN, VK_DELETE, 1 );
602                        }
603                        break;
604                case TEXT('\t') :
605

{
606                                TPOSCHAR p;
607                                INT ip = 0;
608                                for ( p = pl->begin(); (p!=pl->end())&&(p!=pc); ++p )

{
609                                        ++ip;
610                                }
611                                --ip;
612                                do

{
613                                        ++ip;
614                                        ::SendMessage( hWnd, WM_CHAR, TEXT(' '), 1 );
615                                } while ( ip % 8 != 7 );
616                                bModified = TRUE;
617                                ::UpdateScrollBar( hWnd, text );
618                        }
619                        break;
620                case TEXT('\r') :
621                        break;
622                case TEXT('\n') :
623                        break;
624                case TEXT('\x1B') :
625                        break;
626                default :
627

{
628 TCHAR ch = wParam;
629 if ( pc == pl->end() )

{
630                                        pl->push_back( ch );
631                                        pc = pl->end();
632                                }
633                                else

{
634                                        pc = pl->insert( pc, ch );
635                                        ++pc;
636                                }
637                                bModified = TRUE;
638                                ::UpdateScrollBar( hWnd, text );
639                        }
640                        break;
641                }
642                ::OnTextChange( hWnd, text, pl, pc );
643                return 0;
644
645        // 滚动
646        case WM_HSCROLL :
647                ::OnScroll( hWnd, SB_HORZ, wParam, text, pl, pc );
648                return 0;
649        case WM_VSCROLL :
650                ::OnScroll( hWnd, SB_VERT, wParam, text, pl, pc );
651                return 0;
652        case WM_MOUSEWHEEL :
653

{
654 SHORT delta = HIWORD(wParam);
655 if ( delta > 0 )

{
656                                ::SendMessage( hWnd, WM_VSCROLL, SB_LINEUP, 0 );
657                        }
658                        else if ( delta < 0 )

{
659                                ::SendMessage( hWnd, WM_VSCROLL, SB_LINEDOWN, 0 );
660                        }
661                }
662                return 0;
663
664        case WM_SIZE :
665                ::UpdateScrollBar( hWnd, text );
666                ::UpdateCaretPos( hWnd, text, pl, pc );
667                ::InvalidateRect( hWnd, NULL, TRUE );
668                return 0;
669
670        // 输入焦点
671        case WM_SETFOCUS :
672                ::CreateCaret( hWnd, NULL, 2, ::GetDeltaY( *pl, pc ) );
673                ::UpdateCaretPos( hWnd, text, pl, pc );
674                ::ShowCaret( hWnd );
675                return 0;
676        case WM_KILLFOCUS :
677                ::HideCaret( hWnd );
678                ::DestroyCaret();
679                return 0;
680
681        // 菜单命令
682        case WM_COMMAND :
683                switch ( LOWORD(wParam) )

{
684                // 文件
685                case ID_FILE_NEW :
686                        if ( bModified )

{
687                                // 已修改
688                                INT res = ::MessageBox( hWnd, TEXT("文件已修改，是否保存？"), TEXT("文件已修改"), MB_YESNOCANCEL | MB_ICONQUESTION );
689                                if ( IDYES == res )

{
690 if ( ! ::SendMessage( hWnd, WM_COMMAND, ID_FILE_SAVE, 0 ) )

{
691                                                // 保存文件时放弃
692                                                return 0;
693                                        }
694                                }
695                                else if ( IDCANCEL == res )

{
696                                        // 放弃
697                                        return 0;
698                                }
699                        }
700                        text.clear();
701                        text.push_back( TLINE() );
702                        pl = text.begin();
703                        pc = pl->begin();
704                        ::lstrcpy( szFileName, TEXT("未命名.txt") );
705                        bNamed    = FALSE;
706                        bModified = FALSE;
707                        ::UpdateScrollBar( hWnd, text, TRUE );
708                        ::UpdateCaretPos( hWnd, text, pl, pc );
709                        ::InvalidateRect( hWnd, NULL, TRUE );
710                        // 成功
711                        return 1;
712
713                case ID_FILE_OPEN :
714                        if ( bModified )

{
715                                // 已修改
716                                INT res = ::MessageBox( hWnd, TEXT("文件已修改，是否保存？"), TEXT("文件已修改"), MB_YESNOCANCEL | MB_ICONQUESTION );
717                                if ( IDYES == res )

{
718 if ( ! ::SendMessage( hWnd, WM_COMMAND, ID_FILE_SAVE, 0 ) )

{
719                                                // 保存文件时放弃
720                                                return 0;
721                                        }
722                                }
723                                else if ( IDCANCEL == res )

{
724                                        // 放弃
725                                        return 0;
726                                }
727                        }
728                        if ( ::GetFileName( hWnd, szFileDir, szFileName, FILE_LEN, TRUE ) )

{
729 if ( ::LoadFile( text, szFileDir, szFileName ) )

{
730                                        bModified = FALSE;
731                                        bNamed    = TRUE;
732                                        pl = text.begin();
733                                        pc = pl->begin();
734                                        ::UpdateScrollBar( hWnd, text, TRUE );
735                                        ::UpdateCaretPos( hWnd, text, pl, pc );
736                                        ::InvalidateRect( hWnd, NULL, TRUE );
737                                        // 成功
738                                        return 1;
739                                }
740                                // 读入文件失败
741                                return 0;
742                        }
743                        // 打开时放弃
744                        return 0;
745
746                case ID_FILE_SAVE :
747                        if ( bNamed )

{
748 // 已命名
749 if ( bModified )

{
750 // 已修改
751 if ( ::SaveFile( text, szFileDir, szFileName ) )

{
752                                                bModified = FALSE;
753                                                // 成功
754                                                return 1;
755                                        }
756                                        // 保存失败
757                                        return 0;
758                                }
759                                // 未修改
760                                return 1;
761                        }
762                        // 尚未命名
763                        return ::SendMessage( hWnd, WM_COMMAND, ID_FILE_SAVE_AS, 0 );
764
765                case ID_FILE_SAVE_AS :
766                        if ( ::GetFileName( hWnd, szFileDir, szFileName, FILE_LEN, FALSE ) )

{
767 if ( ::SaveFile( text, szFileDir, szFileName ) )

{
768                                        bModified = FALSE;
769                                        bNamed    = TRUE;
770                                        // 成功
771                                        return 1;
772                                }
773                                // 保存失败
774                                return 0;
775                        }
776                        // 放弃
777                        return 0;
778
779                case ID_FILE_CLOSE :
780                        if ( bModified )

{
781 INT res = ::MessageBox( hWnd, TEXT("文件已修改，是否保存？"), TEXT("文件已修改"), MB_YESNOCANCEL | MB_ICONQUESTION );
782 if ( IDYES == res )

{
783 if ( ! ::SendMessage( hWnd, WM_COMMAND, ID_FILE_SAVE, 0 ) )

{
784                                                // 保存时放弃
785                                                return 0;
786                                        }
787                                }
788                                else if ( IDCANCEL == res )

{
789                                        // 放弃
790                                        return 0;
791                                }
792                        }
793                        ::DestroyWindow( hWnd );
794                        return 0;
795                }
796                break;
797
798        case WM_CLOSE :
799                ::SendMessage( hWnd, WM_COMMAND, ID_FILE_CLOSE, 0 );
800                return 0;
801
802        case WM_DESTROY :
803                ::KillTimer( hWnd, 0 );
804                ::PostQuitMessage( 0 );
805                return 0;
806        }
807        return ::DefWindowProc( hWnd, uMsg, wParam, lParam );
808}
809
810
811 INT  APIENTRY  WinMain( HINSTANCE hInst, HINSTANCE hPrevInst, LPSTR szCmd, INT iShowCmd )

{
812        WNDCLASSEX wc;
813        wc.cbClsExtra    = 0;
814        wc.cbSize        = sizeof(wc);
815        wc.cbWndExtra    = 0;
816        wc.hbrBackground = (HBRUSH)::GetStockObject( WHITE_BRUSH );
817        wc.hCursor       = ::LoadCursor( NULL, IDC_IBEAM );
818        wc.hIcon         = ::LoadIcon( NULL, IDI_APPLICATION );
819        wc.hIconSm       = ::LoadIcon( NULL, IDI_APPLICATION );
820        wc.hInstance     = hInst;
821        wc.lpfnWndProc   = WndProc;
822        wc.lpszClassName = szClassName;
823        wc.lpszMenuName  = MAKEINTRESOURCE( IDR_MENU );
824        wc.style         = CS_HREDRAW | CS_VREDRAW;
825
826        if ( ! ::RegisterClassEx( &wc ) )

{
827                ::MessageBox( NULL, TEXT("RegisterClassEx  Failed"), TEXT("ERROR"), MB_OK | MB_ICONERROR );
828                return 0;
829        }
830
831        HWND hWnd = ::CreateWindowEx( 0, szClassName, szWndNameMid,
832                WS_OVERLAPPEDWINDOW | WS_HSCROLL | WS_VSCROLL,
833                100, 30, 800, 600,
834                NULL, NULL, wc.hInstance, NULL );
835        if ( ! hWnd )

{
836                ::MessageBox( NULL, TEXT("CreateWindowEx Failed"), TEXT("ERROR"), MB_OK | MB_ICONERROR );
837                return 0;
838        }
839        ::ShowWindow( hWnd, iShowCmd );
840        ::UpdateWindow( hWnd );
841
842        MSG msg;
843        HACCEL hAcce = ::LoadAccelerators( hInst, MAKEINTRESOURCE(IDR_ACCE) );
844        while ( ::GetMessage( &msg, NULL, 0, 0 ) )

{
845 if ( ! ::TranslateAccelerator( hWnd, hAcce, &msg ) )

{
846                        ::TranslateMessage( &msg );
847                        ::DispatchMessage( &msg );
848                }
849        }
850        return msg.wParam;
851}
852

TyperZJ 文本编辑器——Windows编程上机作业之四

TyperZJ 文本编辑器——Windows编程上机作业之四

你可能感兴趣的:(TyperZJ 文本编辑器——Windows编程上机作业之四)