// ----------------------------------------------------------------------- // Register user infos in main ini file void RegisterUserInfos(void) { IniWriteKey("UserInfos", "CompanyName", StringReplace(TmpPrj_CompanyName, TmpPrj_CompanyName.Chr(13) + TmpPrj_CompanyName.Chr(10), TmpPrj_CompanyName.Chr(2), 1, -1, Binary_Compare), MainIniFile); IniWriteKey("UserInfos", "LegalCopyRight", StringReplace(TmpPrj_LegalCopyRight, TmpPrj_LegalCopyRight.Chr(13) + TmpPrj_LegalCopyRight.Chr(10), TmpPrj_LegalCopyRight.Chr(2), 1, -1, Binary_Compare), MainIniFile); IniWriteKey("UserInfos", "LegalTrademarks", StringReplace(TmpPrj_LegalTrademarks, TmpPrj_LegalTrademarks.Chr(13) + TmpPrj_LegalTrademarks.Chr(10), TmpPrj_LegalTrademarks.Chr(2), 1, -1, Binary_Compare), MainIniFile); MiscMsgBox(hMDIform.hWnd, "User infos registered.", MB_INFORMATION, Requesters); }
// ----------------------------------------------------------------------- // Display the form void DisplayDefForm(CStr DefFile) { DllDefFile = DefFile; RealProcList = GetModulesProc(); DllDefArray = StringSplit(RealProcList, RealProcList.Chr(2)); CreateModalDialog(-1, -1, 342, 295, hMDIform.hWnd, &FRMDllDef, WS_BORDER | WS_CAPTION | WS_SYSMENU, 1); }
// ----------------------------------------------------------------------- // Select a font void PropSelectFont(void) { CStr FName; CStr BufString; long FSize = 0; HDC NextDC = 0; int i = 0; // Note: Font name must always be followed by font size if(strlen((char *) GetPropertyDatas(hCurrentObject, CurrentEditControlIndex + 1, PROPERTY_STORAGE)) != 0) { FSize = atol((char *) GetPropertyDatas(hCurrentObject, CurrentEditControlIndex + 1, PROPERTY_STORAGE)); } ControlEnable(FRMDiagToolhwnd, 0); ControlEnable(FRMDiagTBhwnd, 0); ControlEnable(FRMDiagPropshwnd, 0); if(ComDlgChooseFont(FRMDiaghwnd, (char *) GetPropertyDatas(hCurrentObject, CurrentEditControlIndex, PROPERTY_STORAGE), FSize, 0) != 0) { for(i = 0; i <= LF_FACESIZE - 1; i++) { if(MyLogFont.lfFaceName[i] == 0) break; FName = FName + FName.Chr(MyLogFont.lfFaceName[i]); } if(FName.Len() != 0) { BufString = MyFont.iPointSize / 10; SetPropertyDatas(hCurrentObject, CurrentEditControlIndex + 1, PROPERTY_STORAGE, (long) BufString.Get_String()); SetPropertyDatas(hCurrentObject, CurrentEditControlIndex, PROPERTY_STORAGE, (long) FName.Get_String()); ControlSetText(CurrentEditControlSubEdit, FName); // Set size NextDC = GetDC(hPropListbox); GDIWriteClippedText(NextDC, PropCurrentLeft + 1, PropCurrentTop + 1, PropCurrentWidth - 1, PropCurrentHeight, (char *) GetPropertyDatas(hCurrentObject, CurrentEditControlIndex + 1, PROPERTY_STORAGE), GetSysColor(COLOR_WINDOWTEXT), WASerifFont, 0, GetSysColor(COLOR_WINDOW)); ReleaseDC(hPropListbox, NextDC); if(GetPropertyDatas(hCurrentObject, CurrentEditControlIndex, PROPERTY_ROUTINE) != 0) JumpToAddr((FARPROC) GetPropertyDatas(hCurrentObject, CurrentEditControlIndex, PROPERTY_ROUTINE)); } } ControlEnable(FRMDiagToolhwnd, 1); ControlEnable(FRMDiagTBhwnd, 1); ControlEnable(FRMDiagPropshwnd, 1); }
// ----------------------------------------------------------------------- // Load user infos from main ini file void LoadUserInfos(void) { TmpPrj_CompanyName = StringReplace(IniReadKey("UserInfos", "CompanyName", MainIniFile), TmpPrj_CompanyName.Chr(2), TmpPrj_CompanyName.Chr(13) + TmpPrj_CompanyName.Chr(10), 1, -1, Binary_Compare); TmpPrj_LegalCopyRight = StringReplace(IniReadKey("UserInfos", "LegalCopyRight", MainIniFile), TmpPrj_LegalCopyRight.Chr(2), TmpPrj_LegalCopyRight.Chr(13) + TmpPrj_LegalCopyRight.Chr(10), 1, -1, Binary_Compare); TmpPrj_LegalTrademarks = StringReplace(IniReadKey("UserInfos", "LegalTrademarks", MainIniFile), TmpPrj_LegalTrademarks.Chr(2), TmpPrj_LegalTrademarks.Chr(13) + TmpPrj_LegalTrademarks.Chr(10), 1, -1, Binary_Compare); }