// -----------------------------------------------------------------------
// Initialize Form
int CALLBACK FRMPrjPropsProc(HWND hwndDlg, UINT uMsg, WPARAM wParam, LPARAM lParam)
{
PAINTSTRUCT CreatePs;
CStr BufString;
switch(uMsg)
{
case WM_INITDIALOG:
FRMPrjPropshWnd = hwndDlg;
ControlSetText(hwndDlg, "Project properties");
FRMPrjPropsFr1 = CreateFrame(2, -1, 202, 108, hwndDlg, "Application", 0, 0, 0);
FRMPrjPropsFr2 = CreateFrame(206, -1, 194, 108, hwndDlg, "Version", 0, 0, 0);
FRMPrjPropsFr3 = CreateFrame(2, 108, 398, 94, hwndDlg, "Version informations", 14, &FRMPrjPropsFrame3, 0);
CreateLabel(5, 21 + 20, 35, 15, FRMPrjPropsFr1, "Title :", 0, 0, 0, 0);
CreateLabel(5, 41 + 25, 52, 15, FRMPrjPropsFr1, "File type :", 0, 0, 0, 0);
CreateLabel(131, 41 + 25, 34, 15, FRMPrjPropsFr1, "Icon :", 0, 0, 0, 0);
FRMPrjPropsOk = CreateButton(243, 214, 77, 23, hwndDlg, "Ok", 1, 0, 0, 0, BS_DEFPUSHBUTTON | WS_GROUP | WS_TABSTOP, Buttons_StaticEdge);
FRMPrjPropsCancel = CreateButton(322, 214, 77, 23, hwndDlg, "Cancel", 2, 0, 0, 0, WS_TABSTOP, Buttons_StaticEdge);
FRMPrjPropsReg = CreateButton(159, 214, 77, 23, hwndDlg, "Register", 3, 0, 0, 0, WS_TABSTOP, Buttons_StaticEdge);
FRMPrjPropsConstants = CreateButton(3, 214, 77, 23, hwndDlg, "Constants", 4, 0, 0, 0, WS_TABSTOP, Buttons_StaticEdge);
FRMPrjPropsIncludeVersion = CreateCheckBox(7, 18, 140, 15, FRMPrjPropsFr1, "Include version resource", 5, 0, WS_TABSTOP | WS_GROUP, 0);
FRMPrjPropsTxtTitle = CreateTextBox(36, 18 + 20, 159, 20, FRMPrjPropsFr1, "", 6, 0, WS_TABSTOP | ES_AUTOHSCROLL, WS_EX_STATICEDGE);
FRMPrjPropsFileType = CreateComboBox(5, 56 + 25, 123, 150, FRMPrjPropsFr1, "", 7, 0, CBS_DROPDOWNLIST | WS_TABSTOP);
ComboBoxAddItem(FRMPrjPropsFileType, "UNKNOWN", -1);
ComboBoxAddItem(FRMPrjPropsFileType, "APP", -1);
ComboBoxAddItem(FRMPrjPropsFileType, "DLL", -1);
ComboBoxAddItem(FRMPrjPropsFileType, "DRV", -1);
ComboBoxAddItem(FRMPrjPropsFileType, "FONT", -1);
ComboBoxAddItem(FRMPrjPropsFileType, "VXD", -1);
ComboBoxAddItem(FRMPrjPropsFileType, "STATIC_LIB", -1);
ComboBoxSetIndex(FRMPrjPropsFileType, 0);
FRMPrjPropsSetIcon = CreateButton(133, 56 + 25, 25, 21, hwndDlg, "...", 8, 0, 0, 0, WS_TABSTOP, Buttons_StaticEdge);
// Current icon
if(ProjectTypeScheduledImg.Len()) BufString = ProjectTypeScheduledImg;
else BufString = ProjectDir + (CStr) "\\" + (CStr) ProjectTypeImg;
FRMPrjPropsIconhandle = LoadImage(0, BufString.Get_String(), IMAGE_ICON, 0, 0, LR_LOADFROMFILE);
FRMPrjPropsIcon = CreatePictureBox(163, 43 + 25, 35, 34, FRMPrjPropsFr1, FRMPrjPropsIconhandle, IMAGE_ICON, 9, 0, SS_CENTERIMAGE);
CreateLabel(7, 15, 52, 13, FRMPrjPropsFr2, "Major :", 0, 0, 0, 0);
CreateLabel(99, 15, 52, 13, FRMPrjPropsFr2, "Minor :", 0, 0, 0, 0);
CreateLabel(7, 35, 52, 13, FRMPrjPropsFr2, "Revision :", 0, 0, 0, 0);
CreateLabel(99, 35, 52, 13, FRMPrjPropsFr2, "Release :", 0, 0, 0, 0);
FRMPrjPropsTxtMajor = CreateTextBox(59, 12, 33, 20, FRMPrjPropsFr2, "", 10, 0, WS_TABSTOP | ES_NUMBER, WS_EX_STATICEDGE);
FRMPrjPropsTxtMinor = CreateTextBox(151, 12, 33, 20, FRMPrjPropsFr2, "", 11, 0, WS_TABSTOP | ES_NUMBER, WS_EX_STATICEDGE);
FRMPrjPropsTxtRevision = CreateTextBox(59, 32, 33, 20, FRMPrjPropsFr2, "", 12, 0, WS_TABSTOP | ES_NUMBER, WS_EX_STATICEDGE);
FRMPrjPropsTxtRelease = CreateTextBox(151, 32, 33, 20, FRMPrjPropsFr2, "", 13, 0, WS_TABSTOP | ES_NUMBER, WS_EX_STATICEDGE);
CreateLabel(7, 61, 31, 15, FRMPrjPropsFr2, "OS :", 0, 0, 0, 0);
FRMPrjPropsOS = CreateComboBox(34, 57, 150, 150, FRMPrjPropsFr2, "", 14, 0, CBS_DROPDOWNLIST | WS_TABSTOP);
ComboBoxAddItem(FRMPrjPropsOS, "UNKNOWN", -1);
ComboBoxAddItem(FRMPrjPropsOS, "DOS", -1);
ComboBoxAddItem(FRMPrjPropsOS, "NT", -1);
ComboBoxAddItem(FRMPrjPropsOS, "WINDOWS16", -1);
ComboBoxAddItem(FRMPrjPropsOS, "WINDOWS32", -1);
ComboBoxAddItem(FRMPrjPropsOS, "DOS_WINDOWS16", -1);
ComboBoxAddItem(FRMPrjPropsOS, "DOS_WINDOWS32", -1);
ComboBoxAddItem(FRMPrjPropsOS, "NT_WINDOWS32", -1);
ComboBoxSetIndex(FRMPrjPropsOS, 0);
FRMPrjPropsIncludeXPManifest = CreateCheckBox(16, 85, 170, 15, FRMPrjPropsFr2, "Include Windows XP manifest", 15, 0, WS_TABSTOP | WS_GROUP, 0);
CreateLabel(5, 16, 52, 13, FRMPrjPropsFr3, "Type :", 0, 0, 0, 0);
FRMPrjPropsTypeProp = CreateListBox(5, 30, 140, 59, FRMPrjPropsFr3, 16, 0, 0, WS_TABSTOP | WS_HSCROLL, WS_EX_STATICEDGE);
ListBoxAddItem(FRMPrjPropsTypeProp, "Comments", -1);
ListBoxAddItem(FRMPrjPropsTypeProp, "Company name", -1);
ListBoxAddItem(FRMPrjPropsTypeProp, "File description", -1);
ListBoxAddItem(FRMPrjPropsTypeProp, "Legal copyright", -1);
ListBoxAddItem( FRMPrjPropsTypeProp, "Legal trademarks", -1);
ListBoxAddItem(FRMPrjPropsTypeProp, "Product name", -1);
ListBoxSetIndex(FRMPrjPropsTypeProp, 0);
FRMPrjPropsTypeTxt = CreateTextBox(147, 13 - 2, 245, 79, FRMPrjPropsFr3, "", 17, &FRMPrjPropsTypeTxtHook, WS_TABSTOP | ES_MULTILINE | ES_AUTOVSCROLL | WS_VSCROLL | ES_WANTRETURN, WS_EX_STATICEDGE);
LoadUserInfos();
ControlSetText(FRMPrjPropsTxtMajor, Prj_Major);
ControlSetText(FRMPrjPropsTxtMinor, Prj_Minor);
ControlSetText(FRMPrjPropsTxtRevision, Prj_Revision);
ControlSetText(FRMPrjPropsTxtRelease, Prj_Release);
CheckBoxSetState(FRMPrjPropsIncludeVersion, Prj_IncludeVersion);
CheckBoxSetState(FRMPrjPropsIncludeXPManifest, Prj_IncludeManifest);
ComboBoxSetIndex(FRMPrjPropsOS, Prj_OS);
ComboBoxSetIndex(FRMPrjPropsFileType, Prj_FileType);
ControlSetText(FRMPrjPropsTxtTitle, ProjectTitle);
TmpPrj_Comments = Prj_Comments;
if(Prj_CompanyName.Len()) TmpPrj_CompanyName = Prj_CompanyName;
TmpPrj_FileDescription = Prj_FileDescription;
if(Prj_LegalCopyRight.Len()) TmpPrj_LegalCopyRight = Prj_LegalCopyRight;
if(Prj_LegalTrademarks.Len()) TmpPrj_LegalTrademarks = Prj_LegalTrademarks;
TmpPrj_ProductName = Prj_ProductName;
ControlSetText(FRMPrjPropsTypeTxt, TmpPrj_Comments);
FreezeTimer = 1;
return(1);
case WM_COMMAND:
if((HWND) lParam == FRMPrjPropsOk)
{
ProjectTypeScheduledImg = NewIconFile;
SaveProjectProperties();
ControlClose(hwndDlg);
return(0);
}
else if((HWND) lParam == FRMPrjPropsCancel)
{
ControlClose(hwndDlg);
return(0);
}
else if((HWND) lParam == FRMPrjPropsConstants)
{
CreateConstants(hwndDlg);
return(0);
}
else if((HWND) lParam == FRMPrjPropsReg)
{
RegisterUserInfos();
return(0);
}
else if((HWND) lParam == FRMPrjPropsSetIcon)
{
SetProjectIcon();
return(0);
}
break;
case WM_PAINT:
BeginPaint(hwndDlg, &CreatePs);
GDIDrawHorzSep(hwndDlg, 0, 207, 402);
EndPaint(hwndDlg, &CreatePs);
break;
case WM_CLOSE:
FreezeTimer = 0;
EndDialog(hwndDlg, 0);
break;
}
return(0);
}
void Utm_To_Gdc_Converter::Init()
{
CreateConstants(6378137,298.257223563); // default to wgs 84
}
