Artifact
8c7b795e28dee476f5b7ab92495e208a620b06df:
0000: 23 69 66 6e 64 65 66 20 46 4f 52 4d 5f 43 4f 4d #ifndef FORM_COM
0010: 4d 4f 4e 5f 48 0d 0a 23 64 65 66 69 6e 65 20 46 MON_H..#define F
0020: 4f 52 4d 5f 43 4f 4d 4d 4f 4e 5f 48 0d 0a 0d 0a ORM_COMMON_H....
0030: 23 70 72 61 67 6d 61 20 6f 6e 63 65 0d 0a 0d 0a #pragma once....
0040: 0d 0a 63 6c 61 73 73 20 43 50 72 6f 66 69 6c 65 ..class CProfile
0050: 37 5f 20 3a 20 70 75 62 6c 69 63 20 43 50 72 6f 7_ : public CPro
0060: 66 69 6c 65 37 0d 0a 7b 0d 0a 70 75 62 6c 69 63 file7..{..public
0070: 3a 0d 0a 09 76 6f 69 64 20 50 72 6f 70 54 6f 53 :...void PropToS
0080: 74 72 69 6e 67 28 69 6e 74 20 69 2c 20 43 53 74 tring(int i, CSt
0090: 72 69 6e 67 20 26 73 29 0d 0a 09 7b 0d 0a 09 09 ring &s)...{....
00a0: 43 50 72 6f 66 69 6c 65 37 3a 3a 50 72 6f 70 54 CProfile7::PropT
00b0: 6f 53 74 72 69 6e 67 28 69 2c 20 73 29 3b 0d 0a oString(i, s);..
00c0: 09 7d 3b 0d 0a 09 76 6f 69 64 20 50 72 6f 70 46 .};...void PropF
00d0: 72 6f 6d 53 74 72 69 6e 67 28 69 6e 74 20 69 2c romString(int i,
00e0: 20 63 68 61 72 20 63 6f 6e 73 74 20 2a 20 73 29 char const * s)
00f0: 0d 0a 09 7b 0d 0a 09 09 43 50 72 6f 66 69 6c 65 ...{....CProfile
0100: 37 3a 3a 50 72 6f 70 46 72 6f 6d 53 74 72 69 6e 7::PropFromStrin
0110: 67 28 69 2c 20 73 29 3b 0d 0a 09 7d 3b 0d 0a 7d g(i, s);...};..}
0120: 3b 0d 0a 0d 0a 63 6c 61 73 73 20 43 42 4c 43 6f ;....class CBLCo
0130: 6e 74 65 78 74 45 78 74 20 3a 20 70 75 62 6c 69 ntextExt : publi
0140: 63 20 43 42 4c 43 6f 6e 74 65 78 74 0d 0a 7b 0d c CBLContext..{.
0150: 0a 70 75 62 6c 69 63 3a 0d 0a 09 76 6f 69 64 20 .public:...void
0160: 47 65 74 50 72 6f 70 56 61 6c 42 79 4e 61 6d 65 GetPropValByName
0170: 28 4c 50 43 53 54 52 20 52 75 4e 61 6d 65 2c 20 (LPCSTR RuName,
0180: 4c 50 43 53 54 52 20 45 6e 4e 61 6d 65 2c 20 43 LPCSTR EnName, C
0190: 56 61 6c 75 65 20 26 76 61 6c 29 0d 0a 09 7b 0d Value &val)...{.
01a0: 0a 09 09 69 6e 74 20 6e 50 72 6f 70 3b 0d 0a 09 ...int nProp;...
01b0: 09 69 66 20 28 30 20 3c 3d 20 28 6e 50 72 6f 70 .if (0 <= (nProp
01c0: 20 3d 20 46 69 6e 64 50 72 6f 70 28 52 75 4e 61 = FindProp(RuNa
01d0: 6d 65 29 29 29 0d 0a 09 09 09 47 65 74 50 72 6f me))).....GetPro
01e0: 70 56 61 6c 28 6e 50 72 6f 70 2c 20 76 61 6c 29 pVal(nProp, val)
01f0: 3b 0d 0a 09 09 65 6c 73 65 20 69 66 20 28 30 20 ;....else if (0
0200: 3c 3d 20 28 6e 50 72 6f 70 20 3d 20 46 69 6e 64 <= (nProp = Find
0210: 50 72 6f 70 28 45 6e 4e 61 6d 65 29 29 29 0d 0a Prop(EnName)))..
0220: 09 09 09 47 65 74 50 72 6f 70 56 61 6c 28 6e 50 ...GetPropVal(nP
0230: 72 6f 70 2c 20 76 61 6c 29 3b 0d 0a 09 09 65 6c rop, val);....el
0240: 73 65 0d 0a 09 09 09 76 61 6c 2e 52 65 73 65 74 se.....val.Reset
0250: 28 29 3b 0d 0a 09 7d 3b 0d 0a 7d 3b 0d 0a 0d 0a ();...};..};....
0260: 76 6f 69 64 20 44 6f 4d 73 67 4c 69 6e 65 28 4c void DoMsgLine(L
0270: 50 43 53 54 52 20 66 6f 72 6d 61 74 2c 20 4d 65 PCSTR format, Me
0280: 73 73 61 67 65 4d 61 72 6b 65 72 20 6d 61 72 6b ssageMarker mark
0290: 65 72 20 3d 20 6d 6d 4e 6f 6e 65 2c 20 2e 2e 2e er = mmNone, ...
02a0: 29 3b 0d 0a 0d 0a 23 64 65 66 69 6e 65 20 4d 53 );....#define MS
02b0: 47 5f 43 4c 41 53 53 5f 53 49 5a 45 28 63 6c 61 G_CLASS_SIZE(cla
02c0: 73 73 5f 6e 61 6d 65 29 5c 0d 0a 44 6f 4d 73 67 ss_name)\..DoMsg
02d0: 4c 69 6e 65 28 22 73 69 7a 65 20 6f 66 20 25 73 Line("size of %s
02e0: 20 69 73 20 25 58 68 22 2c 20 6d 6d 4e 6f 6e 65 is %Xh", mmNone
02f0: 2c 20 23 63 6c 61 73 73 5f 6e 61 6d 65 2c 20 73 , #class_name, s
0300: 69 7a 65 6f 66 20 63 6c 61 73 73 5f 6e 61 6d 65 izeof class_name
0310: 29 0d 0a 0d 0a 76 6f 69 64 20 47 65 74 52 54 43 )....void GetRTC
0320: 46 75 6c 6c 28 43 52 75 6e 74 69 6d 65 43 6c 61 Full(CRuntimeCla
0330: 73 73 2a 20 72 74 63 2c 20 43 53 74 72 69 6e 67 ss* rtc, CString
0340: 26 20 53 74 72 29 3b 0d 0a 76 6f 69 64 20 4d 65 & Str);..void Me
0350: 73 73 61 67 65 46 75 6c 6c 52 54 43 28 43 4f 62 ssageFullRTC(COb
0360: 6a 65 63 74 2a 20 6f 62 6a 2c 20 43 53 74 72 69 ject* obj, CStri
0370: 6e 67 20 49 6e 64 65 6e 74 3d 22 22 29 3b 0d 0a ng Indent="");..
0380: 76 6f 69 64 20 4d 65 73 73 61 67 65 46 75 6c 6c void MessageFull
0390: 52 54 43 28 43 52 75 6e 74 69 6d 65 43 6c 61 73 RTC(CRuntimeClas
03a0: 73 2a 20 72 74 63 2c 20 43 53 74 72 69 6e 67 20 s* rtc, CString
03b0: 49 6e 64 65 6e 74 3d 22 22 29 3b 0d 0a 0d 0a 76 Indent="");....v
03c0: 6f 69 64 20 54 72 61 63 65 50 72 6f 66 69 6c 65 oid TraceProfile
03d0: 28 43 50 72 6f 66 69 6c 65 37 2a 20 70 50 72 6f (CProfile7* pPro
03e0: 66 3d 4e 55 4c 4c 2c 20 43 53 74 72 69 6e 67 20 f=NULL, CString
03f0: 49 6e 64 65 6e 74 3d 22 22 29 3b 0d 0a 76 6f 69 Indent="");..voi
0400: 64 20 54 72 61 63 65 57 69 6e 64 6f 77 73 28 43 d TraceWindows(C
0410: 57 6e 64 2a 20 70 57 6e 64 2c 20 42 4f 4f 4c 20 Wnd* pWnd, BOOL
0420: 62 57 69 74 68 4d 73 67 4d 61 70 20 3d 20 46 41 bWithMsgMap = FA
0430: 4c 53 45 2c 20 55 49 4e 54 20 6e 4d 65 73 73 61 LSE, UINT nMessa
0440: 67 65 46 69 6c 74 65 72 3d 30 2c 20 55 49 4e 54 geFilter=0, UINT
0450: 20 6e 49 44 46 69 6c 74 65 72 3d 30 2c 20 43 53 nIDFilter=0, CS
0460: 74 72 69 6e 67 20 49 6e 64 65 6e 74 3d 22 22 29 tring Indent="")
0470: 3b 0d 0a 76 6f 69 64 20 54 72 61 63 65 4d 65 6e ;..void TraceMen
0480: 75 28 43 4d 65 6e 75 2a 20 4d 65 6e 75 2c 20 43 u(CMenu* Menu, C
0490: 53 74 72 69 6e 67 20 49 6e 64 65 6e 74 3d 22 22 String Indent=""
04a0: 29 3b 0d 0a 76 6f 69 64 20 54 72 61 63 65 42 4c );..void TraceBL
04b0: 43 6f 6e 74 65 78 74 28 43 42 4c 43 6f 6e 74 65 Context(CBLConte
04c0: 78 74 2a 20 70 42 4c 43 2c 20 43 53 74 72 69 6e xt* pBLC, CStrin
04d0: 67 20 49 6e 64 65 6e 74 3d 22 22 29 3b 0d 0a 76 g Indent="");..v
04e0: 6f 69 64 20 54 72 61 63 65 47 43 28 43 42 4c 43 oid TraceGC(CBLC
04f0: 6f 6e 74 65 78 74 2a 20 70 42 4c 43 2c 20 43 53 ontext* pBLC, CS
0500: 74 72 69 6e 67 20 49 6e 64 65 6e 74 3d 22 22 2c tring Indent="",
0510: 20 42 4f 4f 4c 20 44 65 74 61 69 6c 3d 54 52 55 BOOL Detail=TRU
0520: 45 29 3b 0d 0a 76 6f 69 64 20 54 72 61 63 65 4d E);..void TraceM
0530: 65 73 73 61 67 65 4d 61 70 28 63 6f 6e 73 74 20 essageMap(const
0540: 41 46 58 5f 4d 53 47 4d 41 50 2a 20 70 4d 53 47 AFX_MSGMAP* pMSG
0550: 4d 41 50 2c 20 55 49 4e 54 20 6e 4d 65 73 73 61 MAP, UINT nMessa
0560: 67 65 46 69 6c 74 65 72 3d 30 2c 20 55 49 4e 54 geFilter=0, UINT
0570: 20 6e 49 44 46 69 6c 74 65 72 3d 30 2c 20 43 53 nIDFilter=0, CS
0580: 74 72 69 6e 67 20 49 6e 64 65 6e 74 3d 22 22 29 tring Indent="")
0590: 3b 0d 0a 76 6f 69 64 20 54 72 61 63 65 4d 65 73 ;..void TraceMes
05a0: 73 61 67 65 4d 61 70 28 43 43 6d 64 54 61 72 67 sageMap(CCmdTarg
05b0: 65 74 2a 20 70 54 61 72 67 65 74 2c 20 55 49 4e et* pTarget, UIN
05c0: 54 20 6e 4d 65 73 73 61 67 65 46 69 6c 74 65 72 T nMessageFilter
05d0: 3d 30 2c 20 55 49 4e 54 20 6e 49 44 46 69 6c 74 =0, UINT nIDFilt
05e0: 65 72 3d 30 2c 20 43 53 74 72 69 6e 67 20 49 6e er=0, CString In
05f0: 64 65 6e 74 3d 22 22 29 3b 0d 0a 43 42 4c 43 6f dent="");..CBLCo
0600: 6e 74 65 78 74 2a 20 47 65 74 43 6f 6e 74 46 72 ntext* GetContFr
0610: 6f 6d 47 43 28 43 47 72 6f 75 70 43 6f 6e 74 65 omGC(CGroupConte
0620: 78 74 2a 20 70 47 43 2c 20 43 52 75 6e 74 69 6d xt* pGC, CRuntim
0630: 65 43 6c 61 73 73 2a 20 70 52 54 43 29 3b 0d 0a eClass* pRTC);..
0640: 43 42 4c 43 6f 6e 74 65 78 74 2a 20 47 65 74 43 CBLContext* GetC
0650: 6f 6e 74 46 72 6f 6d 47 43 28 43 47 72 6f 75 70 ontFromGC(CGroup
0660: 43 6f 6e 74 65 78 74 2a 20 70 47 43 2c 20 43 53 Context* pGC, CS
0670: 74 72 69 6e 67 20 52 54 43 4e 61 6d 65 29 3b 0d tring RTCName);.
0680: 0a 0d 0a 76 6f 69 64 20 46 6f 72 6d 61 74 4d 65 ...void FormatMe
0690: 73 73 61 67 65 41 6e 64 52 75 6e 74 69 6d 65 45 ssageAndRuntimeE
06a0: 72 72 6f 72 28 44 57 4f 52 44 20 64 77 4d 65 73 rror(DWORD dwMes
06b0: 73 61 67 65 49 64 29 3b 0d 0a 0d 0a 43 53 74 72 sageId);....CStr
06c0: 69 6e 67 20 47 65 74 4d 6f 64 75 6c 65 56 65 72 ing GetModuleVer
06d0: 73 69 6f 6e 49 6e 66 6f 28 48 4d 4f 44 55 4c 45 sionInfo(HMODULE
06e0: 20 68 4d 6f 64 75 6c 65 2c 20 43 53 74 72 69 6e hModule, CStrin
06f0: 67 20 56 65 72 49 6e 66 6f 4e 61 6d 65 29 3b 0d g VerInfoName);.
0700: 0a 43 53 74 72 69 6e 67 20 47 65 74 4d 6f 64 75 .CString GetModu
0710: 6c 65 56 65 72 73 69 6f 6e 49 6e 66 6f 28 43 53 leVersionInfo(CS
0720: 74 72 69 6e 67 20 4d 6f 64 75 6c 65 4e 61 6d 65 tring ModuleName
0730: 2c 20 43 53 74 72 69 6e 67 20 56 65 72 49 6e 66 , CString VerInf
0740: 6f 4e 61 6d 65 29 3b 0d 0a 0d 0a 23 65 6e 64 69 oName);....#endi
0750: 66 0d 0a f..