Context Navigation

source: trunk/dll/key.c@ 1157

Visit:

Last change on this file since 1157 was 1157, checked in by John Small, 17 years ago
Ticket 187: Draft 1: Functions only
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 9.9 KB

Rev	Line
[2]	1
[119]	2	/***********************************************************************
	3
	4	$Id: key.c 1157 2008-09-05 21:39:52Z jbs $
	5
	6	About dialogs
	7
	8	Copyright (c) 1993-98 M. Kimes
	9	Copyright (c) 2004 Steven H. Levine
	10
[793]	11	Revisions
[775]	12	01 Nov 04 SHL Rename SKULL? defines to avoid rc issues
	13	06 Aug 07 GKY Reduce DosSleep times (ticket 148)
[793]	14	20 Aug 07 GKY Move #pragma alloc_text to end for OpenWatcom compat
[119]	15
[775]	16
[119]	17	***********************************************************************/
	18
[907]	19	#include <string.h>
	20
[2]	21	#define INCL_DOS
	22	#define INCL_WIN
[907]	23	#define INCL_LONGLONG // dircnrs.h
[2]	24
	25	#include "fm3dlg.h"
	26	#include "fm3str.h"
	27	#include "version.h"
[907]	28	#include "errutil.h" // Dos_Error...
	29	#include "strutil.h" // GetPString
[1157]	30	#include "key.h" // AboutDlgProc
[907]	31	#include "fm3dll.h"
[2]	32
	33	#pragma data_seg(DATA1)
	34
[551]	35	MRESULT EXPENTRY AuthorDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
[119]	36	{
[551]	37	return WinDefDlgProc(hwnd, msg, mp1, mp2);
[2]	38	}
	39
[551]	40	MRESULT EXPENTRY AboutDlgProc(HWND hwnd, ULONG msg, MPARAM mp1, MPARAM mp2)
[119]	41	{
[551]	42	SWP swp;
	43	static HAB hab = 0;
	44	BOOL no = FALSE;
[2]	45	static BOOL pause = FALSE;
[551]	46	static INT width, direction, ticktock, counter = 0;
	47	static HPOINTER stick1, stick2, stick3, stick4, stick12, stick22, stick32,
	48	stick42, stick5, stick52;
[2]	49
[551]	50	switch (msg) {
	51	case WM_INITDLG:
	52	if (hab) {
	53	WinDismissDlg(hwnd, 0);
[2]	54	break;
[551]	55	}
	56	if (mp2)
	57	pause = TRUE;
	58	else
	59	pause = FALSE;
	60	AboutBox = hwnd;
	61	hab = WinQueryAnchorBlock(hwnd);
	62	WinQueryWindowPos(hwnd, &swp);
	63	width = swp.cx;
	64	{
	65	CHAR s[81];
[2]	66
[551]	67	sprintf(s,
	68	"%s %d.%02d%s",
	69	GetPString(IDS_VERSIONTEXT), VERMAJOR, VERMINOR, VERREALMINOR);
	70	WinSetDlgItemText(hwnd, ABT_VERSION, s);
	71	}
	72	if (!strcmp(realappname, "FM/4"))
	73	WinSetDlgItemText(hwnd, ABT_PROGNAME, GetPString(IDS_FM2LITETEXT));
	74	if (!pause) {
	75	stick1 = WinLoadPointer(HWND_DESKTOP, FM3ModHandle, ID_STICK1);
	76	stick2 = WinLoadPointer(HWND_DESKTOP, FM3ModHandle, ID_STICK2);
	77	stick3 = WinLoadPointer(HWND_DESKTOP, FM3ModHandle, ID_STICK3);
	78	stick4 = WinLoadPointer(HWND_DESKTOP, FM3ModHandle, ID_STICK4);
	79	stick5 = WinLoadPointer(HWND_DESKTOP, FM3ModHandle, ID_STICK5);
	80	stick12 = WinLoadPointer(HWND_DESKTOP, FM3ModHandle, ID_STICK12);
	81	stick22 = WinLoadPointer(HWND_DESKTOP, FM3ModHandle, ID_STICK22);
	82	stick32 = WinLoadPointer(HWND_DESKTOP, FM3ModHandle, ID_STICK32);
	83	stick42 = WinLoadPointer(HWND_DESKTOP, FM3ModHandle, ID_STICK42);
	84	stick52 = WinLoadPointer(HWND_DESKTOP, FM3ModHandle, ID_STICK52);
	85	direction = 2;
	86	ticktock = 0;
	87	WinStartTimer(hab, hwnd, ID_TIMER, 164);
	88	PostMsg(hwnd, UM_SETUP, MPVOID, MPVOID);
	89	}
	90	break;
[2]	91
[551]	92	case UM_SETUP:
	93	if (counter++ > 1) {
[2]	94
[551]	95	HPOINTER hbm, sk0, sk1, sk2, sk3, sk4, sk5, sk6, sk7, sk8, sk9;
	96
	97	hbm = (HPOINTER) WinSendDlgItemMsg(hwnd,
	98	ABT_ICON,
	99	SM_QUERYHANDLE, MPVOID, MPVOID);
	100	if (hbm) {
	101	sk0 = WinLoadPointer(HWND_DESKTOP, FM3ModHandle, SKULL0_ICON);
	102	sk1 = WinLoadPointer(HWND_DESKTOP, FM3ModHandle, SKULL1_ICON);
	103	sk2 = WinLoadPointer(HWND_DESKTOP, FM3ModHandle, SKULL2_ICON);
	104	sk3 = WinLoadPointer(HWND_DESKTOP, FM3ModHandle, SKULL3_ICON);
	105	sk4 = WinLoadPointer(HWND_DESKTOP, FM3ModHandle, SKULL4_ICON);
	106	sk5 = WinLoadPointer(HWND_DESKTOP, FM3ModHandle, SKULL5_ICON);
	107	sk6 = WinLoadPointer(HWND_DESKTOP, FM3ModHandle, SKULL6_ICON);
	108	sk7 = WinLoadPointer(HWND_DESKTOP, FM3ModHandle, SKULL7_ICON);
	109	sk8 = WinLoadPointer(HWND_DESKTOP, FM3ModHandle, SKULL8_ICON);
	110	sk9 = WinLoadPointer(HWND_DESKTOP, FM3ModHandle, SKULL9_ICON);
	111	if (sk0 && sk1 && sk2 && sk3 && sk4 && sk5 && sk6 && sk7 &&
	112	sk8 && sk9) {
	113	WinShowWindow(WinWindowFromID(hwnd, ABT_ICON), FALSE);
	114	WinSendDlgItemMsg(hwnd, ABT_ICON, SM_SETHANDLE,
	115	MPFROMLONG(sk0), MPVOID);
	116	WinShowWindow(WinWindowFromID(hwnd, ABT_ICON), TRUE);
[771]	117	DosSleep(16);
[551]	118	WinSendDlgItemMsg(hwnd, ABT_ICON, SM_SETHANDLE,
	119	MPFROMLONG(sk1), MPVOID);
[814]	120	DosSleep(16);//05 Aug 07 GKY 33
[551]	121	WinSendDlgItemMsg(hwnd, ABT_ICON, SM_SETHANDLE,
	122	MPFROMLONG(sk2), MPVOID);
[771]	123	DosSleep(16);//05 Aug 07 GKY 33
[551]	124	WinSendDlgItemMsg(hwnd, ABT_ICON, SM_SETHANDLE,
	125	MPFROMLONG(sk3), MPVOID);
[771]	126	DosSleep(16);//05 Aug 07 GKY 33
[551]	127	WinSendDlgItemMsg(hwnd, ABT_ICON, SM_SETHANDLE,
	128	MPFROMLONG(sk4), MPVOID);
[771]	129	DosSleep(16);//05 Aug 07 GKY 33
[551]	130	WinSendDlgItemMsg(hwnd, ABT_ICON, SM_SETHANDLE,
	131	MPFROMLONG(sk5), MPVOID);
[771]	132	DosSleep(16);//05 Aug 07 GKY 33
[551]	133	WinSendDlgItemMsg(hwnd, ABT_ICON, SM_SETHANDLE,
	134	MPFROMLONG(sk6), MPVOID);
[771]	135	DosSleep(16);//05 Aug 07 GKY 33
[551]	136	WinSendDlgItemMsg(hwnd, ABT_ICON, SM_SETHANDLE,
	137	MPFROMLONG(sk7), MPVOID);
[771]	138	DosSleep(16);//05 Aug 07 GKY 33
[551]	139	WinSendDlgItemMsg(hwnd, ABT_ICON, SM_SETHANDLE,
	140	MPFROMLONG(sk8), MPVOID);
[771]	141	DosSleep(16);//05 Aug 07 GKY 33
[551]	142	WinSendDlgItemMsg(hwnd, ABT_ICON, SM_SETHANDLE,
	143	MPFROMLONG(sk9), MPVOID);
[771]	144	DosSleep(100);//05 Aug 07 GKY 257
[551]	145	WinSendDlgItemMsg(hwnd, ABT_ICON, SM_SETHANDLE,
	146	MPFROMLONG(sk8), MPVOID);
[771]	147	DosSleep(16);//05 Aug 07 GKY 33
[551]	148	WinSendDlgItemMsg(hwnd, ABT_ICON, SM_SETHANDLE,
	149	MPFROMLONG(sk7), MPVOID);
[771]	150	DosSleep(16);//05 Aug 07 GKY 33
[551]	151	WinSendDlgItemMsg(hwnd, ABT_ICON, SM_SETHANDLE,
	152	MPFROMLONG(sk6), MPVOID);
[771]	153	DosSleep(16);//05 Aug 07 GKY 33
[551]	154	WinSendDlgItemMsg(hwnd, ABT_ICON, SM_SETHANDLE,
	155	MPFROMLONG(sk5), MPVOID);
[771]	156	DosSleep(16);//05 Aug 07 GKY 33
[551]	157	WinSendDlgItemMsg(hwnd, ABT_ICON, SM_SETHANDLE,
	158	MPFROMLONG(sk4), MPVOID);
[771]	159	DosSleep(16);//05 Aug 07 GKY 33
[551]	160	WinSendDlgItemMsg(hwnd, ABT_ICON, SM_SETHANDLE,
	161	MPFROMLONG(sk3), MPVOID);
[771]	162	DosSleep(16);//05 Aug 07 GKY 33
[551]	163	WinSendDlgItemMsg(hwnd, ABT_ICON, SM_SETHANDLE,
	164	MPFROMLONG(sk2), MPVOID);
[771]	165	DosSleep(16);//05 Aug 07 GKY 33
[551]	166	WinSendDlgItemMsg(hwnd, ABT_ICON, SM_SETHANDLE,
	167	MPFROMLONG(sk1), MPVOID);
[771]	168	DosSleep(16);//05 Aug 07 GKY 33
[551]	169	WinSendDlgItemMsg(hwnd, ABT_ICON, SM_SETHANDLE,
	170	MPFROMLONG(sk0), MPVOID);
[771]	171	DosSleep(16);//05 Aug 07 GKY 33
[551]	172	WinShowWindow(WinWindowFromID(hwnd, ABT_ICON), FALSE);
	173	WinSendDlgItemMsg(hwnd, ABT_ICON, SM_SETHANDLE,
	174	MPFROMLONG(hbm), MPVOID);
	175	WinShowWindow(WinWindowFromID(hwnd, ABT_ICON), TRUE);
	176	}
	177	if (sk0)
	178	WinDestroyPointer(sk0);
	179	if (sk1)
	180	WinDestroyPointer(sk1);
	181	if (sk2)
	182	WinDestroyPointer(sk2);
	183	if (sk3)
	184	WinDestroyPointer(sk3);
	185	if (sk4)
	186	WinDestroyPointer(sk4);
	187	if (sk5)
	188	WinDestroyPointer(sk5);
	189	if (sk6)
	190	WinDestroyPointer(sk6);
	191	if (sk7)
	192	WinDestroyPointer(sk7);
	193	if (sk8)
	194	WinDestroyPointer(sk8);
	195	if (sk9)
	196	WinDestroyPointer(sk9);
[2]	197	}
[551]	198	}
	199	if (counter > 4)
	200	WinDlgBox(HWND_DESKTOP,
	201	hwnd, AuthorDlgProc, FM3ModHandle, AUTHOR_FRAME, NULL);
	202	return 0;
[2]	203
[551]	204	case UM_SETDIR:
	205	WinSetFocus(HWND_DESKTOP, HWND_DESKTOP);
[771]	206	DosSleep(250);//05 Aug 07 GKY 2500
[551]	207	return 0;
[2]	208
[551]	209	case WM_TIMER:
	210	WinQueryWindowPos(WinWindowFromID(hwnd, ABT_STICK1), &swp);
	211	if (swp.x + (swp.cx * 3) > width - 3) {
	212	direction = -2;
	213	WinShowWindow(WinWindowFromID(hwnd, ABT_STICK1), FALSE);
	214	WinSendDlgItemMsg(hwnd,
	215	ABT_STICK1, SM_SETHANDLE, MPFROMLONG(stick3), MPVOID);
	216	WinShowWindow(WinWindowFromID(hwnd, ABT_STICK1), TRUE);
	217	WinShowWindow(WinWindowFromID(hwnd, ABT_STICK2), FALSE);
	218	WinSendDlgItemMsg(hwnd,
	219	ABT_STICK2,
	220	SM_SETHANDLE, MPFROMLONG(stick32), MPVOID);
	221	WinShowWindow(WinWindowFromID(hwnd, ABT_STICK2), TRUE);
	222	no = TRUE;
	223	}
	224	else if (swp.x < 3) {
	225	direction = 2;
	226	WinShowWindow(WinWindowFromID(hwnd, ABT_STICK2), FALSE);
	227	WinSendDlgItemMsg(hwnd, ABT_STICK2,
	228	SM_SETHANDLE, MPFROMLONG(stick32), MPVOID);
	229	WinShowWindow(WinWindowFromID(hwnd, ABT_STICK2), TRUE);
	230	WinShowWindow(WinWindowFromID(hwnd, ABT_STICK1), FALSE);
	231	WinSendDlgItemMsg(hwnd,
	232	ABT_STICK1, SM_SETHANDLE, MPFROMLONG(stick3), MPVOID);
	233	WinShowWindow(WinWindowFromID(hwnd, ABT_STICK1), TRUE);
	234	no = TRUE;
	235	}
	236	swp.x += direction;
	237	WinSetWindowPos(WinWindowFromID(hwnd, ABT_STICK1),
	238	HWND_TOP, swp.x, swp.y, swp.cx, swp.cy, SWP_MOVE);
	239	WinSetWindowPos(WinWindowFromID(hwnd, ABT_ICON),
	240	HWND_TOP,
	241	swp.x + swp.cx, swp.y, swp.cx, swp.cy, SWP_MOVE);
	242	WinSetWindowPos(WinWindowFromID(hwnd, ABT_STICK2),
	243	HWND_TOP,
	244	swp.x + (swp.cx * 2), swp.y, swp.cx, swp.cy, SWP_MOVE);
	245	if (!no) {
	246	if (direction > 0) {
	247	WinShowWindow(WinWindowFromID(hwnd, ABT_STICK1), FALSE);
	248	WinSendDlgItemMsg(hwnd,
	249	ABT_STICK1,
	250	SM_SETHANDLE,
	251	MPFROMLONG((ticktock) ? stick1 : stick2), MPVOID);
	252	WinShowWindow(WinWindowFromID(hwnd, ABT_STICK1), TRUE);
	253	WinShowWindow(WinWindowFromID(hwnd, ABT_STICK2), FALSE);
	254	WinSendDlgItemMsg(hwnd,
	255	ABT_STICK2,
	256	SM_SETHANDLE,
	257	MPFROMLONG((ticktock) ? stick42 : stick52), MPVOID);
	258	WinShowWindow(WinWindowFromID(hwnd, ABT_STICK2), TRUE);
[2]	259	}
[551]	260	else {
	261	WinShowWindow(WinWindowFromID(hwnd, ABT_STICK2), FALSE);
	262	WinSendDlgItemMsg(hwnd,
	263	ABT_STICK2,
	264	SM_SETHANDLE,
	265	MPFROMLONG((ticktock) ? stick12 : stick22), MPVOID);
	266	WinShowWindow(WinWindowFromID(hwnd, ABT_STICK2), TRUE);
	267	WinShowWindow(WinWindowFromID(hwnd, ABT_STICK1), FALSE);
	268	WinSendDlgItemMsg(hwnd,
	269	ABT_STICK1,
	270	SM_SETHANDLE,
	271	MPFROMLONG((ticktock) ? stick4 : stick5), MPVOID);
	272	WinShowWindow(WinWindowFromID(hwnd, ABT_STICK1), TRUE);
[2]	273	}
[551]	274	}
	275	ticktock = (ticktock) ? 0 : 1;
	276	break;
	277
	278	case WM_COMMAND:
	279	switch (SHORT1FROMMP(mp1)) {
	280	case ABT_VERSION:
	281	case DID_CANCEL:
	282	WinDismissDlg(hwnd, 0);
[2]	283	break;
[551]	284	}
	285	return 0;
[2]	286
[551]	287	case WM_CLOSE:
	288	WinDestroyWindow(hwnd);
	289	return 0;
[2]	290
[551]	291	case WM_DESTROY:
	292	if (hab) {
	293	if (!pause) {
	294	WinStopTimer(hab, hwnd, ID_TIMER);
	295	WinDestroyPointer(stick1);
	296	WinDestroyPointer(stick2);
	297	WinDestroyPointer(stick3);
	298	WinDestroyPointer(stick4);
	299	WinDestroyPointer(stick5);
	300	WinDestroyPointer(stick12);
	301	WinDestroyPointer(stick22);
	302	WinDestroyPointer(stick32);
	303	WinDestroyPointer(stick42);
	304	WinDestroyPointer(stick52);
[2]	305	}
[551]	306	hab = 0;
	307	}
	308	AboutBox = (HWND) 0;
	309	break;
[2]	310	}
[551]	311	return WinDefDlgProc(hwnd, msg, mp1, mp2);
[2]	312	}
[793]	313
	314	#pragma alloc_text(ABOUT,AboutDlgProc,AuthorDlgProc)

Note: See TracBrowser for help on using the repository browser.

Download in other formats: