Good morning!
I am stucked: I want to use tabs in a dialog, but when I add controls to the tab, the program hangs. Can you help?
I am stucked: I want to use tabs in a dialog, but when I add controls to the tab, the program hangs. Can you help?
Code:
FUNCTION ShowCP(BYVAL hParent AS DWORD) AS LONG
LOCAL lRslt AS LONG
#PBFORMS BEGIN DIALOG %IDD_CP->->
LOCAL hDlg AS DWORD
LOCAL hFont1 AS DWORD
DIALOG NEW hParent, "Camping Platz Info", 70, 70, 491, 395, %WS_POPUP OR _
%WS_BORDER OR %WS_DLGFRAME OR %WS_SYSMENU OR %WS_CLIPSIBLINGS OR _
%WS_VISIBLE OR %DS_MODALFRAME OR %DS_CENTER OR %DS_3DLOOK OR _
%DS_NOFAILCREATE OR %DS_SETFONT, %WS_EX_CONTROLPARENT OR %WS_EX_LEFT _
OR %WS_EX_LTRREADING OR %WS_EX_RIGHTSCROLLBAR, TO hDlg
CONTROL ADD LABEL, hDlg, %IDC_CPNAME, "", 5, 6, 480, 24
CONTROL ADD TEXTBOX, hDlg, %IDC_CPAnschrift, "Anschrift", 10, 54, 225, _
51, %WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP OR %WS_HSCROLL OR _
%WS_VSCROLL OR %ES_LEFT OR %ES_MULTILINE OR %ES_AUTOHSCROLL OR _
%ES_WANTRETURN, %WS_EX_CLIENTEDGE OR %WS_EX_LEFT OR _
%WS_EX_LTRREADING OR %WS_EX_RIGHTSCROLLBAR
CONTROL ADD TEXTBOX, hDlg, %IDC_CPTEL, "", 310, 54, 170, 15
CONTROL ADD TEXTBOX, hDlg, %IDC_CPEMAIL, "", 310, 69, 170, 15
CONTROL ADD TEXTBOX, hDlg, %IDC_CPWEB, "", 310, 84, 170, 15
CONTROL ADD "SysListView32", hDlg, %IDC_CPVISITS, "", 10, 123, 150, 93, _
%WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP OR %LVS_REPORT OR _
%LVS_SINGLESEL OR %LVS_SHOWSELALWAYS, %WS_EX_CLIENTEDGE OR _
%WS_EX_LEFT OR %WS_EX_RIGHTSCROLLBAR
CONTROL ADD OPTION, hDlg, %IDC_NOISE1, "Tag u. Nacht ruhig", 175, 132, _
110, 12, %WS_CHILD OR %WS_VISIBLE OR %WS_GROUP OR %WS_TABSTOP OR _
%BS_TEXT OR %BS_AUTORADIOBUTTON OR %BS_LEFT OR %BS_VCENTER, _
%WS_EX_LEFT OR %WS_EX_LTRREADING
CONTROL ADD OPTION, hDlg, %IDC_NOISE2, "Nachts ruhig", 175, 144, 110, _
12
CONTROL ADD OPTION, hDlg, %IDC_NOISE3, "Überwiegend ruhig", 175, 156, _
110, 12
CONTROL ADD OPTION, hDlg, %IDC_NOISE4, "Geräusche durch Straße oder " + _
"Nachbarplatz", 175, 168, 110, 21
CONTROL ADD OPTION, hDlg, %IDC_NOISE5, "Geräuschvoll, nicht unbedingt " + _
"zu empfehlen", 175, 189, 110, 21
CONTROL ADD "msctls_updown32", hDlg, %IDC_MSCTLS_UPDOWN32_1, _
"msctls_updown32_1", 295, 117, 11, 105, %WS_CHILD OR %WS_VISIBLE
CONTROL ADD IMAGEX, hDlg, %IDC_CPIMAGEX, "", 310, 117, 175, 105, _
%WS_CHILD OR %WS_VISIBLE OR %WS_BORDER OR %SS_BITMAP OR %SS_SUNKEN
CONTROL ADD "SysDateTimePick32", hDlg, %IDC_CPOPEN_FROM, "", 75, 237, 60, _
12, %WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP OR %DTS_SHORTDATEFORMAT, _
%WS_EX_CLIENTEDGE OR %WS_EX_LEFT OR %WS_EX_LTRREADING OR _
%WS_EX_RIGHTSCROLLBAR
CONTROL ADD "SysDateTimePick32", hDlg, %IDC_CPOPEN_TO, _
"SysDateTimePick32_1", 140, 237, 60, 12, %WS_CHILD OR %WS_VISIBLE OR _
%WS_TABSTOP OR %DTS_SHORTDATEFORMAT, %WS_EX_CLIENTEDGE OR _
%WS_EX_LEFT OR %WS_EX_LTRREADING OR %WS_EX_RIGHTSCROLLBAR
CONTROL ADD CHECKBOX, hDlg, %IDC_CPDOGS_MAIN, "Hunde erlaubt in " + _
"Hauptsaison", 10, 252, 190, 12
CONTROL ADD CHECKBOX, hDlg, %IDC_CPDOGS_OUTOFSEASON, "Hunde erlaubt in " + _
"Nebensaison", 10, 264, 190, 12
CONTROL ADD CHECKBOX, hDlg, %IDC_CPWINTER, "Wintercamping", 10, 276, 190, _
12
CONTROL ADD CHECKBOX, hDlg, %IDC_CPALLYEAR, "Dauercamping", 10, 288, 190, _
12
CONTROL ADD CHECKBOX, hDlg, %IDC_CPFKK, "FKK Camp", 10, 300, 190, 12
CONTROL ADD CHECKBOX, hDlg, %IDC_CPBORDERS, "Parzellierte " + _
"Touristenplätze", 10, 312, 190, 12
CONTROL ADD LISTBOX, hDlg, %IDC_CPPITCH, , 10, 324, 190, 15, %WS_CHILD _
OR %WS_VISIBLE OR %WS_TABSTOP OR %WS_VSCROLL OR %LBS_NOTIFY, _
%WS_EX_CLIENTEDGE OR %WS_EX_LEFT OR %WS_EX_LTRREADING OR _
%WS_EX_RIGHTSCROLLBAR
CONTROL ADD LISTBOX, hDlg, %IDC_CPACCESS, , 10, 339, 190, 15, %WS_CHILD _
OR %WS_VISIBLE OR %WS_TABSTOP OR %WS_VSCROLL OR %LBS_NOTIFY, _
%WS_EX_CLIENTEDGE OR %WS_EX_LEFT OR %WS_EX_LTRREADING OR _
%WS_EX_RIGHTSCROLLBAR
CONTROL ADD "SysTabControl32", hDlg, %IDC_SYSTABCONTROL32_1, "", 210, _
237, 270, 117, %WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP OR _
%TCS_SINGLELINE OR %TCS_RIGHTJUSTIFY, %WS_EX_LEFT OR _
%WS_EX_LTRREADING
CONTROL ADD LINE, hDlg, %IDC_LINE1, "Line1", 5, 36, 480, 3
CONTROL ADD FRAME, hDlg, %IDC_UNUSED, "CP-Informationen und " + _
"Infrastruktur", 5, 225, 480, 132
CONTROL ADD FRAME, hDlg, %IDC_UNUSED, "Anschrift", 5, 45, 238, 63
CONTROL ADD FRAME, hDlg, %IDC_UNUSED, "Kontaktdaten", 245, 45, 240, 63
CONTROL ADD LABEL, hDlg, %IDC_UNUSED, "Tel:", 250, 57, 55, 12
CONTROL ADD LABEL, hDlg, %IDC_UNUSED, "email", 250, 72, 55, 12
CONTROL ADD LABEL, hDlg, %IDC_UNUSED, "Web", 250, 90, 55, 12
CONTROL ADD FRAME, hDlg, %IDC_UNUSED, "Besuche", 5, 114, 160, 108
CONTROL ADD FRAME, hDlg, %IDC_UNUSED, "Platz Ruhe / Geräuschspiegel", _
170, 114, 120, 108
CONTROL ADD LABEL, hDlg, %IDC_UNUSED, "Öffnungszeit", 10, 237, 60, 12
hFont1 = PBFormsMakeFont("MS Sans Serif", 18, 700, %FALSE, %FALSE, _
%FALSE, %ANSI_CHARSET)
CONTROL SEND hDlg, %IDC_CPNAME, %WM_SETFONT, hFont1, 0
#PBFORMS END DIALOG
insert_visists_header (hDlg)
insert_Pitch_sizes(hDlg)
insert_Tab_Options(hDlg)
DIALOG SHOW MODAL hDlg, CALL ShowCPProc TO lRslt
#PBFORMS BEGIN CLEANUP %IDD_CP
DeleteObject hFont1
#PBFORMS END CLEANUP
FUNCTION = lRslt
END FUNCTION
FUNCTION AttachACCELERATOR1(BYVAL hDlg AS DWORD) AS DWORD
#PBFORMS BEGIN ACCEL %IDR_ACCELERATOR1->%IDD_AZEL
LOCAL hAccel AS DWORD
LOCAL tAccel() AS ACCELAPI
DIM tAccel(1 TO 1) AS ACCELAPI
ASSIGNACCEL tAccel(1), ASC("I"), %IDM_CPINFO, %FVIRTKEY OR %FCONTROL OR _
%FNOINVERT
ACCEL ATTACH hDlg, tAccel() TO hAccel
#PBFORMS END ACCEL
FUNCTION = hAccel
END FUNCTION
#PBFORMS BEGIN ASSIGNACCEL
FUNCTION ASSIGNACCEL(tAccel AS ACCELAPI, BYVAL wKey AS WORD, BYVAL wCmd AS _
WORD, BYVAL byFVirt AS BYTE) AS LONG
tAccel.fVirt = byFVirt
tAccel.key = wKey
tAccel.cmd = wCmd
END FUNCTION
#PBFORMS END ASSIGNACCEL
SUB insert_visists_header (BYVAL hDlg AS DWORD)
listview INSERT column hDlg, %IDC_CPVISITS, 1,"Besuch", 35, 0
listview INSERT column hDlg, %IDC_CPVISITS, 2,"von",50,0
Listview INSERT column hDlg, %IDC_CPVISITS, 3,"bis",50,0
listview fit header hDlg, %IDC_CPVISITS, 3
END SUB
SUB insert_Pitch_Sizes(BYVAL hDlg AS DWORD)
LISTBOX ADD hDlg, %IDC_CPPITCH, "Stellplatzgröße <= 70 m² (klein)"
LISTBOX ADD hDlg, %IDC_CPPITCH, "Stellplatzgröße > 70 < 100 m² (mittel)"
LISTBOX ADD hDlg, %IDC_CPPITCH, "Stellplatzgröße >= 100 m² (groß)"
LISTBOX ADD hDlg, %IDC_CPACCESS, "Zufahrt zu CP und Stellplatz leicht"
LISTBOX ADD hDlg, %IDC_CPACCESS, "Zufahrt zu CP mittel / Stellplatz leicht"
LISTBOX ADD hDlg, %IDC_CPACCESS, "Zufahrt zu CP schwierig / Stellplatz leicht"
LISTBOX ADD hDlg, %IDC_CPACCESS, "Zufahrt zu CP leicht / Stellplatz mittel"
LISTBOX ADD hDlg, %IDC_CPACCESS, "Zufahrt zu CP leicht / Stellplatz schwierig"
LISTBOX ADD hDlg, %IDC_CPACCESS, "Zufahrt zu CP mittel / Stellplatz leicht"
LISTBOX ADD hDlg, %IDC_CPACCESS, "Zufahrt zu CP und Stellplatz mittel"
LISTBOX ADD hDlg, %IDC_CPACCESS, "Zufahrt zu CP mittel / Stellplatz schwierig"
LISTBOX ADD hDlg, %IDC_CPACCESS, "Zufahrt zu CP schwierig / Stellplatz leicht"
LISTBOX ADD hDlg, %IDC_CPACCESS, "Zufahrt zu CP schwierig / Stellplatz mittel"
LISTBOX ADD hDlg, %IDC_CPACCESS, "Zufahrt zu CP und Stellplatz schwierig"
end sub
sub insert_Tab_Options(byval hDlg as dword)
local hTab1, hTab2, hTab3, hTab4 AS LONG
'TAB 1
TAB INSERT PAGE hDlg, %IDC_CP_OPTIONS, 1, 0, "Infrastruktur" TO hTab1
' CONTROL ADD CHECKBOX, hTab1, %IDC_CP_MAINS, "Strom", 2, 5, 105, 12
' CONTROL ADD CHECKBOX, hTab1, %IDC_CP_WLAN, "Wireless LAN", 2, 17, 105, _
' 12
' CONTROL ADD CHECKBOX, hTab1, %IDC_CP_TERMINAL, "Internet Terminal (am " + _
' "Platz)", 2, 29, 105, 12
' CONTROL ADD CHECKBOX, hTab1, %IDC_CP_WOMO, "Ver- und Entsorgung WoMo", _
' 2, 41, 105, 12
' CONTROL ADD CHECKBOX, hTab1, %IDC_CP_FRESHWATER, "Frischwasseranschluß", _
' 2, 53, 105, 12
' CONTROL ADD CHECKBOX, hTab1, %IDC_CP_GREYWATER, "Ab- (Grau-) " + _
' "Wasseranschluß", 2, 65, 105, 12
' CONTROL ADD CHECKBOX, hTab1, %IDC_CP_SAT, "SAT- / Kabelantenne", 2, 77, _
' 105, 12
' CONTROL ADD CHECKBOX, hTab1, %IDC_CP_GASSUPPLY, "Gasversorgungsanschluß", _
' 2, 89, 105, 12
' CONTROL ADD CHECKBOX, hTab1, %IDC_CP_LEBENSM, "Lebensmittel am Platz", _
' 140, 5, 105, 12
' CONTROL ADD CHECKBOX, hTab1, %IDC_CP_IMBISS, "Imbiß am Platz", 140, 17, _
' 105, 12
' CONTROL ADD CHECKBOX, hTab1, %IDC_CP_RESTAURANT, "Restaurant am Platz", _
' 140, 29, 105, 12
'TAB2
TAB INSERT PAGE hDlg, %IDC_CP_OPTIONS, 2, 0, "Sanitär" TO hTab2
' CONTROL ADD CHECKBOX, hTab2, %IDC_CP_BABY, "Babywickelraum", 2, 5, _
' 120, 12
' CONTROL ADD CHECKBOX, hTab2, %IDC_CP_WASHBOX, "Einzelwaschkabinen", 2, _
' 17, 120, 12
'TAB3
TAB INSERT PAGE hDlg, %IDC_CP_OPTIONS, 3, 0, "Freizeit" TO hTab3
' CONTROL ADD CHECKBOX, hTab3, %IDC_CHILDREN,"Kinderspielplatz",2,5,120,12
'TAB4
TAB INSERT page hDlg, %IDC_CP_OPTIONS, 4, 0, "Eigener Kommentar" TO hTab4
' CONTROL ADD TEXTBOX, hTab4, %IDC_COMMENT, "", 2, 5, 260, 96, _
' %WS_CHILD OR %WS_VISIBLE OR %WS_TABSTOP OR %WS_HSCROLL OR _
' %WS_VSCROLL OR %ES_LEFT OR %ES_MULTILINE OR %ES_AUTOHSCROLL OR _
' %ES_WANTRETURN, %WS_EX_CLIENTEDGE OR %WS_EX_LEFT OR _
' %WS_EX_LTRREADING OR %WS_EX_RIGHTSCROLLBAR
END SUB
Comment