![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to poepoem.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [OS/2 SDKs] / pmsdk / samples / petzold / chap12|
Return to poepoem.c CVS log | Up to [OS/2 SDKs] / pmsdk / samples / petzold / chap12 |
1.1 root 1: /*--------------------------------------------------------
2: POEPOEM.C -- Demonstrates Programmer-Defined Resources
3: --------------------------------------------------------*/
4:
5: #define INCL_WIN
6: #define INCL_GPI
7: #define INCL_DOS
8: #include <os2.h>
9: #include <stdlib.h>
10: #include "poepoem.h"
11:
12: MRESULT EXPENTRY ClientWndProc (HWND, USHORT, MPARAM, MPARAM) ;
13:
14: int main (void)
15: {
16: static CHAR szClientClass [10] ;
17: static CHAR szTitleBar [40] ;
18: static ULONG flFrameFlags = FCF_TITLEBAR | FCF_SYSMENU |
19: FCF_SIZEBORDER | FCF_MINMAX |
20: FCF_SHELLPOSITION | FCF_TASKLIST |
21: FCF_VERTSCROLL | FCF_ICON ;
22: HAB hab ;
23: HMQ hmq ;
24: HWND hwndFrame, hwndClient ;
25: QMSG qmsg ;
26:
27: hab = WinInitialize (0) ;
28: hmq = WinCreateMsgQueue (hab, 0) ;
29:
30: WinLoadString (hab, NULL, IDS_CLASS, sizeof szClientClass, szClientClass);
31: WinLoadString (hab, NULL, IDS_TITLE, sizeof szTitleBar, szTitleBar) ;
32:
33: WinRegisterClass (hab, szClientClass, ClientWndProc, CS_SIZEREDRAW, 0) ;
34:
35: hwndFrame = WinCreateStdWindow (HWND_DESKTOP, WS_VISIBLE,
36: &flFrameFlags, szClientClass, szTitleBar,
37: 0L, NULL, ID_RESOURCE, &hwndClient) ;
38:
39: while (WinGetMsg (hab, &qmsg, NULL, 0, 0))
40: WinDispatchMsg (hab, &qmsg) ;
41:
42: WinDestroyWindow (hwndFrame) ;
43: WinDestroyMsgQueue (hmq) ;
44: WinTerminate (hab) ;
45: return 0 ;
46: }
47:
48: MRESULT EXPENTRY ClientWndProc (HWND hwnd, USHORT msg, MPARAM mp1, MPARAM mp2)
49: {
50: static HWND hwndScroll ;
51: static PCHAR pResource ;
52: static SEL selResource ;
53: static SHORT cxClient, cyClient, cxChar, cyChar, cyDesc,
54: sScrollPos, sNumLines ;
55: FONTMETRICS fm ;
56: HPS hps ;
57: PCHAR pText ;
58: POINTL ptl ;
59: SHORT sLineLength, sLine ;
60: ULONG ulSegSize ;
61:
62: switch (msg)
63: {
64: case WM_CREATE:
65:
66: /*-----------------------------------------
67: Load the resource, get size and address
68: -----------------------------------------*/
69:
70: DosGetResource (NULL, IDT_TEXT, IDT_POEM, &selResource) ;
71: DosSizeSeg (selResource, &ulSegSize) ;
72: pResource = MAKEP (selResource, 0) ;
73:
74: /*-----------------------------------------------
75: Determine how many text lines are in resource
76: -----------------------------------------------*/
77:
78: pText = pResource ;
79:
80: while (pText - pResource < (USHORT) ulSegSize)
81: {
82: if (*pText == '\0' || *pText == '\x1A')
83: break ;
84:
85: if (*pText == '\r')
86: sNumLines ++ ;
87:
88: pText++ ;
89: }
90:
91: /*------------------------------------------
92: Initialize scroll bar range and position
93: ------------------------------------------*/
94:
95: hwndScroll = WinWindowFromID (
96: WinQueryWindow (hwnd, QW_PARENT, FALSE),
97: FID_VERTSCROLL) ;
98:
99: WinSendMsg (hwndScroll, SBM_SETSCROLLBAR,
100: MPFROM2SHORT (sScrollPos, 0),
101: MPFROM2SHORT (0, sNumLines - 1)) ;
102:
103: /*----------------------
104: Query character size
105: ----------------------*/
106:
107: hps = WinGetPS (hwnd) ;
108:
109: GpiQueryFontMetrics (hps, (LONG) sizeof fm, &fm) ;
110: cxChar = (SHORT) fm.lAveCharWidth ;
111: cyChar = (SHORT) fm.lMaxBaselineExt ;
112: cyDesc = (SHORT) fm.lMaxDescender ;
113:
114: WinReleasePS (hps) ;
115: return 0 ;
116:
117: case WM_SIZE:
118: cxClient = SHORT1FROMMP (mp2) ;
119: cyClient = SHORT2FROMMP (mp2) ;
120: return 0 ;
121:
122: case WM_CHAR:
123: return WinSendMsg (hwndScroll, msg, mp1, mp2) ;
124:
125: case WM_VSCROLL:
126: switch (SHORT2FROMMP (mp2))
127: {
128: case SB_LINEUP:
129: sScrollPos -= 1 ;
130: break ;
131:
132: case SB_LINEDOWN:
133: sScrollPos += 1 ;
134: break ;
135:
136: case SB_PAGEUP:
137: sScrollPos -= cyClient / cyChar ;
138: break ;
139:
140: case SB_PAGEDOWN:
141: sScrollPos += cyClient / cyChar ;
142: break ;
143:
144: case SB_SLIDERPOSITION:
145: sScrollPos = SHORT1FROMMP (mp2) ;
146: break ;
147: }
148: sScrollPos = max (0, min (sScrollPos, sNumLines - 1)) ;
149:
150: if (sScrollPos != (SHORT) WinSendMsg (hwndScroll,
151: SBM_QUERYPOS, 0L, 0L))
152: {
153: WinSendMsg (hwndScroll, SBM_SETPOS,
154: MPFROM2SHORT (sScrollPos, 0), NULL) ;
155: WinInvalidateRect (hwnd, NULL, FALSE) ;
156: }
157: return 0 ;
158:
159: case WM_PAINT:
160: hps = WinBeginPaint (hwnd, NULL, NULL) ;
161: GpiErase (hps) ;
162:
163: pText = pResource ;
164:
165: for (sLine = 0 ; sLine < sNumLines ; sLine++)
166: {
167: sLineLength = 0 ;
168:
169: while (pText [sLineLength] != '\r')
170: sLineLength ++ ;
171:
172: ptl.x = cxChar ;
173: ptl.y = cyClient - cyChar * (sLine + 1 - sScrollPos)
174: + cyDesc ;
175:
176: GpiCharStringAt (hps, &ptl, (LONG) sLineLength, pText) ;
177:
178: pText += sLineLength + 2 ;
179: }
180: WinEndPaint (hps) ;
181: return 0 ;
182:
183: case WM_DESTROY:
184: DosFreeSeg (selResource) ;
185: return 0 ;
186: }
187: return WinDefWindowProc (hwnd, msg, mp1, mp2) ;
188: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.