![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to btntest.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [OS/2 SDKs] / pmsdk / samples / btntest|
Return to btntest.c CVS log | Up to [OS/2 SDKs] / pmsdk / samples / btntest |
1.1 root 1: /* btntest.c - List box control test application */
2: /* Created by Microsoft Corp., 1988 */
3: /* */
4:
5: #define INCL_PM
6: #include <os2.h>
7: #include "btntest.h"
8:
9: /************* GLOBAL VARIABLES */
10:
11: char szBtntestClass[] = "Btntest";
12: char szAppName[] = "Btntest Application";
13:
14: HAB habBtntest;
15: HMQ hmqBtntest;
16: HWND hwndBtntest;
17: HWND hwndBtntestFrame;
18:
19: INT fOwnerDraw;
20: INT cyText;
21:
22: void FAR PASCAL WinExitWindows(PCH);
23:
24: /************* PROCEDURE DECLARATIONS */
25:
26: MRESULT FAR PASCAL BtnDlgProc(HWND, USHORT, MPARAM, MPARAM);
27: MRESULT FAR PASCAL StyleDlgProc(HWND, USHORT, MPARAM, MPARAM);
28:
29:
30: BOOL BtntestInit()
31: {
32: /*
33: * Initialize the HAB
34: * (just usSet to -1L for now until we get WinInitialize()
35: */
36: habBtntest = WinInitialize(NULL);
37: hmqBtntest = WinCreateMsgQueue(habBtntest, 0);
38:
39: return(TRUE);
40: }
41:
42: int cdecl main(argc, argv)
43: int argc;
44: char *argv[];
45: {
46: QMSG qmsg;
47: USHORT wResult;
48: WRECT rc;
49:
50: if (!BtntestInit())
51: return(0);
52:
53: wResult = WinDlgBox(HWND_DESKTOP, (HWND)NULL, (PFNWP)BtnDlgProc,
54: (HMODULE)NULL, IDD_BTNTEST, (PCH)NULL);
55:
56: WinDestroyMsgQueue(hmqBtntest);
57:
58: WinTerminate(habBtntest);
59: DosExit(EXIT_PROCESS, 0);
60: }
61:
62: USHORT seed;
63: INT cPushed;
64:
65: MRESULT FAR PASCAL BtnDlgProc(hwnd, msg, mp1, mp2)
66: HWND hwnd;
67: USHORT msg;
68: MPARAM mp1;
69: MPARAM mp2;
70: {
71: HWND hwnd1, hwnd2;
72: CHAR rgch[256];
73: ULONG flStyle;
74: BOOL fParse;
75: HPS hps;
76: INT result;
77: ULONG lseed;
78: WRECT rc;
79:
80: hwnd2 = WinWindowFromID(hwnd, 11); /* Input/output edit control */
81: hwnd1 = WinWindowFromID(hwnd, 10); /* button control */
82:
83: switch (msg) {
84: case WM_COMMAND:
85: switch (LOUSHORT(mp1)) {
86: case DID_OK:
87: WinDismissDlg(hwnd, 1234);
88: break;
89: case 14: /* click */
90: WinSendMsg(hwnd1, BM_CLICK, (MPARAM)TRUE, 0L);
91: break;
92: case 15: /* querycheckindex */
93: result = (INT)WinSendMsg(hwnd1, BM_QUERYCHECKINDEX, 0L, 0L);
94: WinSetDlgItemShort(hwnd, 31, result, TRUE);
95: break;
96: case 16: /* queryhilite */
97: result = (INT)WinSendMsg(hwnd1, BM_QUERYHILITE, 0L, 0L);
98: WinSetDlgItemShort(hwnd, 31, result, TRUE);
99: break;
100: case 17: /* sethilite */
101: WinQueryDlgItemShort(hwnd, 31, (PSHORT)&result, FALSE);
102: WinSendMsg(hwnd1, BM_SETHILITE, (MPARAM)result, 0L);
103: break;
104: case 18: /* querycheck */
105: result = (INT)WinSendMsg(hwnd1, BM_QUERYCHECK, 0L, 0L);
106: WinSetDlgItemShort(hwnd, 31, result, TRUE);
107: break;
108: case 19: /* setcheck */
109: WinQueryDlgItemShort(hwnd, 31, (PSHORT)&result, FALSE);
110: WinSendMsg(hwnd1, BM_SETCHECK, (MPARAM)result, 0L);
111: break;
112: case 20: /* querydlgcode */
113: result = (INT)WinSendMsg(hwnd1, WM_QUERYDLGCODE, 0L, 0L);
114: WinSetDlgItemShort(hwnd, 31, result, TRUE);
115: break;
116: case 21: /* querytext */
117: result = WinQueryWindowText(hwnd1, 255, (PSZ)rgch);
118: WinSetWindowText(hwnd2, (PSZ)rgch);
119: WinSetDlgItemShort(hwnd, 31, result, TRUE);
120: break;
121: case 22: /* querytextlength */
122: result = WinQueryWindowTextLength(hwnd1);
123: WinSetDlgItemShort(hwnd, 31, result, TRUE);
124: break;
125: case 23: /* settext */
126: result = WinQueryWindowText(hwnd2, 255, (PSZ)rgch);
127: result = WinSetWindowText(hwnd1, (PSZ)rgch);
128: WinSetDlgItemShort(hwnd, 31, result, TRUE);
129: break;
130: case 25: /* Change flStyle */
131: flStyle = WinQueryWindowULong(hwnd1, QWL_STYLE);
132: result = WinDlgBox(HWND_DESKTOP, hwnd, (PFNWP)StyleDlgProc,
133: (HMODULE)NULL, 2, (PCH)&flStyle);
134: flStyle = (flStyle & 0xffff0000) + result;
135:
136: if (WinSendDlgItemMsg(hwnd, 26, BM_QUERYCHECK, 0L, 0L))
137: flStyle |= BS_HELP;
138: if (WinSendDlgItemMsg(hwnd, 27, BM_QUERYCHECK, 0L, 0L))
139: flStyle |= BS_NOPOINTERFOCUS;
140: if (WinSendDlgItemMsg(hwnd, 28, BM_QUERYCHECK, 0L, 0L))
141: flStyle |= BS_NOBORDER;
142:
143: WinSetWindowULong(hwnd1, QWL_STYLE, flStyle);
144: WinInvalidateRect(hwnd1, (PWRECT)NULL, TRUE);
145: break;
146: default:
147: break;
148: }
149: break;
150: case WM_CONTROL:
151: switch(LOUSHORT(mp1)) {
152: case 10:
153: WinSetDlgItemShort(hwnd, 33, HIUSHORT(mp1), FALSE);
154: switch (HIUSHORT(mp1)) {
155: case BN_CLICKED:
156: break;
157: case BN_PAINT:
158: WinQueryWindowRect(hwnd1, (PRECTL)&rc);
159: seed = ((seed * 23) + 15) & 0xffff;
160: lseed = -(long)(seed % SYSCLR_CSYSCOLORS + 10);
161: hps = WinGetPS(hwnd1);
162: WinFillRect(hps, (PRECTL)&rc, lseed);
163: WinReleasePS(hps);
164: break;
165: default:
166: break;
167: }
168: break;
169: case 24:
170: fParse = (BOOL)WinSendMsg(WinWindowFromID(hwnd, 24), BM_QUERYCHECK,
171: 0L, 0L);
172: WinEnableWindow(hwnd1, !fParse);
173: break;
174: case 26:
175: fParse = (BOOL)WinSendDlgItemMsg(hwnd, 26, BM_QUERYCHECK, 0L, 0L);
176: flStyle = WinQueryWindowULong(hwnd1, QWL_STYLE);
177: if (fParse)
178: flStyle |= BS_HELP;
179: else
180: flStyle &= ~BS_HELP;
181: WinSetWindowULong(hwnd1, QWL_STYLE, flStyle);
182: WinInvalidateRect(hwnd1, (PWRECT)NULL, TRUE);
183: break;
184: case 27:
185: fParse = (BOOL)WinSendDlgItemMsg(hwnd, 27, BM_QUERYCHECK, 0L, 0L);
186: flStyle = WinQueryWindowULong(hwnd1, QWL_STYLE);
187: if (fParse)
188: flStyle |= BS_NOPOINTERFOCUS;
189: else
190: flStyle &= ~BS_NOPOINTERFOCUS;
191: WinSetWindowULong(hwnd1, QWL_STYLE, flStyle);
192: break;
193: case 28:
194: fParse = (BOOL)WinSendDlgItemMsg(hwnd, 28, BM_QUERYCHECK, 0L, 0L);
195: flStyle = WinQueryWindowULong(hwnd1, QWL_STYLE);
196: if (fParse)
197: flStyle |= BS_NOBORDER;
198: else
199: flStyle &= ~BS_NOBORDER;
200: WinSetWindowULong(hwnd1, QWL_STYLE, flStyle);
201: WinInvalidateRect(hwnd1, (PWRECT)NULL, TRUE);
202: break;
203: }
204: break;
205: case WM_INITDLG:
206: /* Set up user button redraws */
207: seed = 12345;
208: cPushed = 0;
209: WinSetFocus(HWND_DESKTOP, hwnd1);
210: return((ULONG)TRUE);
211: break;
212: default:
213: return(WinDefDlgProc(hwnd, msg, mp1, mp2));
214: break;
215: }
216: return 0L;
217: }
218:
219: MRESULT FAR PASCAL StyleDlgProc(hwnd, msg, mp1, mp2)
220: HWND hwnd;
221: USHORT msg;
222: MPARAM mp1;
223: MPARAM mp2;
224: {
225: ULONG flStyle;
226: INT result;
227:
228: switch (msg) {
229: case WM_COMMAND:
230: if (LOUSHORT(mp1) == DID_OK) {
231: result = (INT)WinSendDlgItemMsg(hwnd, 3, BM_QUERYCHECKINDEX, 0L, 0L);
232: WinDismissDlg(hwnd, result);
233: }
234: break;
235: case WM_INITDLG:
236: flStyle = *((ULONG FAR *)mp2);
237: WinSendDlgItemMsg(hwnd, 3 + LOUSHORT(flStyle), BM_SETCHECK,
238: (MPARAM)TRUE, 0L);
239: break;
240: default:
241: return(WinDefDlgProc(hwnd, msg, mp1, mp2));
242: break;
243: }
244: return (FALSE);
245: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.