Missing folder tabs

Missing folder tabs

Postby DonDrew » Mon Aug 23, 2010 8:26 pm

I'm having trouble with something that has worked for me quite well in the past.

I have a shell folder that normally contains 6 tabbed dialogs.

DEFINE DIALOG oMembDlg RESOURCE "DLG_FLDRSHELL" ;
TITLE allTrim(Z_MMNAME) +", Members" ;
ICON oIcon

REDEFINE FOLDER oFld ID 5000 OF oMembDlg ;
DIALOGS "DLG_GENL" ,"DLG_STATUS", "DLG_DCO" , "DLG_NON_DCO", "DLG_CLAIMS","DLG_BENEFICIARY" ;
PROMPT "General", "Status-Activity", "DCO Pmt", "NON-DCO Pmt", "Claims", "Beneficiary" ;
ADJUST

From the RC file:

DLG_FLDRSHELL DIALOG DISCARDABLE 5, 65520, 605, 418
STYLE WS_MINIMIZEBOX | WS_MAXIMIZEBOX | WS_POPUP | WS_CAPTION | WS_SYSMENU
FONT 6, "MS Sans Serif"
BEGIN
CONTROL "",5000,"TFolder",WS_TABSTOP,4,26,523,383
PUSHBUTTON "&Shave",1,543,28,38,14
PUSHBUTTON "&Cancel",2,542,49,38,14
PUSHBUTTON "&Help",998,542,71,38,14
END

Again, from the RC file, this is the is the dialoge to appear under the first tab. The dialog appears, but no tab.
DLG_GENL DIALOG DISCARDABLE 29, 11, 365, 255
STYLE WS_CHILD
FONT 8, "MS Sans Serif"
BEGIN
LTEXT "First Name",-1,42,10,36,8
LTEXT "MI",-1,146,10,9,8
LTEXT "Last Name",-1,220,10,38,8
EDITTEXT 2100,14,24,104,12
EDITTEXT 2101,142,24,16,12
EDITTEXT 2102,182,24,110,12
LTEXT "SSN:",-1,54,43,19,8
LTEXT "DOB",-1,123,44,17,8
LTEXT "_",-1,169,44,16,8
LTEXT "SP. SS #",-1,226,44,33,8
EDITTEXT 2103,30,56,67,12
EDITTEXT 2104,106,56,50,12
EDITTEXT 2105,169,56,16,12
EDITTEXT 2106,209,56,68,12
LTEXT "EID #:",-1,11,83,23,8
EDITTEXT 2107,36,81,52,12
LTEXT "Local Number",-1,93,83,46,8
COMBOBOX 2108,142,82,33,102,CBS_DROPDOWNLIST | WS_TABSTOP
LTEXT "Local Code",-1,182,83,39,8
EDITTEXT 2109,225,81,22,12,NOT WS_TABSTOP
LTEXT "FT Officer",-1,250,83,34,8
EDITTEXT 2110,288,81,16,12
LTEXT "Address",-1,24,105,29,8
EDITTEXT 2111,68,103,176,12
EDITTEXT 2112,68,122,176,12
EDITTEXT 2113,68,142,176,12
LTEXT "City",-1,40,163,16,8
EDITTEXT 2114,69,161,87,12
LTEXT "State",-1,162,163,20,8
COMBOBOX 2115,184,161,28,76,CBS_DROPDOWNLIST | WS_TABSTOP
LTEXT "Zip",-1,221,164,15,8
EDITTEXT 2116,241,161,47,12
LTEXT "EMail",-1,34,182,22,8
EDITTEXT 2117,69,181,156,12
LTEXT "Comments:",-1,22,203,37,8
EDITTEXT 2118,69,202,252,12
END
DonDrew
 
Posts: 63
Joined: Mon Aug 02, 2010 5:38 pm

Re: Missing folder tabs

Postby Daniel Garcia-Gil » Mon Aug 23, 2010 8:33 pm

DonDrew wrote:CONTROL "",5000,"TFolder",WS_TABSTOP,4,26,523,383


change to

Code: Select all  Expand view
CONTROL "",5000,"SysTabControl32",WS_TABSTOP,4,26,523,383
User avatar
Daniel Garcia-Gil
 
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita

Re: Missing folder tabs

Postby DonDrew » Mon Aug 23, 2010 9:22 pm

That worked! Thank you.
DonDrew
 
Posts: 63
Joined: Mon Aug 02, 2010 5:38 pm


Return to FiveWin for Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 41 guests