source: trunk/gotcha.clp@ 3

Last change on this file since 3 was 2, checked in by Gregg Young, 8 years ago

Gotcha 1.78 source from Hobbes

  • Property svn:eol-style set to native
File size: 1.2 KB
Line 
1// ** Settings ************************************************************
2
3
4SETTINGS :: Settings (VOID)
5: ththSettings (apse, PSZ_PROFILENAME, L_PROFILEVERSION)
6{
7 swpMain.x = 98; swpMain.y = 66;
8
9 // get main window data
10 ULONG ul = sizeof (swpMain);
11 PrfQueryProfileData (hini, "Window", "SWP", PVOID (&swpMain), &ul);
12 ul = sizeof (usMain);
13 PrfQueryProfileData (hini, "Window", "US", PVOID (&usMain), &ul);
14
15 // get snapshot window data
16 ul = sizeof (swp);
17 PrfQueryProfileData (hini, "Snapshot", "SWP", PVOID (&swp), &ul);
18 ul = sizeof (us);
19 PrfQueryProfileData (hini, "Snapshot", "US", PVOID (&us), &ul);
20}
21
22// ** ~Settings ***********************************************************
23
24SETTINGS :: ~Settings (VOID)
25{
26 PrfWriteProfileData (hini, "Snapshot", "SWP",
27 PVOID (&swp), sizeof (swp));
28 PrfWriteProfileData (hini, "Snapshot", "US",
29 PVOID (&us), sizeof (us));
30
31 PrfWriteProfileData (hini, "Window", "SWP",
32 PVOID (&swp), sizeof (swpMain));
33 PrfWriteProfileData (hini, "Window", "US",
34 PVOID (&us), sizeof (usMain));
35
36 this->ththSettings::~ththSettings ();
37}
Note: See TracBrowser for help on using the repository browser.