Multiline Folders
-
- Posts: 38
- Joined: Tue Jan 09, 2007 2:31 am
- Location: Winston-Salem, NC
Multiline Folders
Antonio -
I have been able to get very nice multiline folders from resources with only some minor changes to Tfolder and by adding a function called TabGetRowcount() to tabctrl.c that I got from Rossine's modified sample file. No changes are needed in the redefine class, as the style is controled by the resources. All you need to do is to add "TCS_MULTILINE" to the style in the .RC file and windows does it automatically.
The only problen I have with this is when I use the RESIZE16 clause. When I do this, none of the controls on the first folder page appear. Clicking on the tab does bring the controls. Or, if I call one of the pages on the second row by setting the option to 5 on INIT, for example, the dialog[5] appears on the front row with all of it's controls. Any of the rear pages appear on the front with controls, and none of the first row pages that are called by the option method appear with their controls.
I've looked at dialog.prg where the initiate method does the resize16 work, but I wouldn't know where to start to fix it. If anybody has any ideas on this I would like to hear them.
Regards,
Charles
I have been able to get very nice multiline folders from resources with only some minor changes to Tfolder and by adding a function called TabGetRowcount() to tabctrl.c that I got from Rossine's modified sample file. No changes are needed in the redefine class, as the style is controled by the resources. All you need to do is to add "TCS_MULTILINE" to the style in the .RC file and windows does it automatically.
The only problen I have with this is when I use the RESIZE16 clause. When I do this, none of the controls on the first folder page appear. Clicking on the tab does bring the controls. Or, if I call one of the pages on the second row by setting the option to 5 on INIT, for example, the dialog[5] appears on the front row with all of it's controls. Any of the rear pages appear on the front with controls, and none of the first row pages that are called by the option method appear with their controls.
I've looked at dialog.prg where the initiate method does the resize16 work, but I wouldn't know where to start to fix it. If anybody has any ideas on this I would like to hear them.
Regards,
Charles
Charles Pratt
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
-
- Posts: 38
- Joined: Tue Jan 09, 2007 2:31 am
- Location: Winston-Salem, NC
-
- Posts: 38
- Joined: Tue Jan 09, 2007 2:31 am
- Location: Winston-Salem, NC
We've still not been able to fix the problem of the controls not showing on the first tab of the multiline folders when RESIZE16 is used. Below is a web address to download a sample with the supporting files.
Problem is solved! See my post below for a sample.
Charles
Problem is solved! See my post below for a sample.
Charles
Last edited by CharlesPratt on Thu May 10, 2007 1:12 pm, edited 3 times in total.
Charles Pratt
-
- Posts: 824
- Joined: Thu Oct 13, 2005 7:39 am
- Location: Germany
-
- Posts: 38
- Joined: Tue Jan 09, 2007 2:31 am
- Location: Winston-Salem, NC
-
- Posts: 38
- Joined: Tue Jan 09, 2007 2:31 am
- Location: Winston-Salem, NC
To everybody who is following this thread -
I have solved the problem with a simple fix. The modified tabctrl.c is no longer needed, and only one line of code needs to be added to folder.prg. To have very nice multiline folders from resources:
1. Add TCS_MULTILINE to the Style in your RC file.
2. Add ::AdjustRect() to the Initiate() method of Tfolder
3. If you use the RESIZE16 Clause, you will need to say:
ON INIT oFld:AdjustRect() in your prg code.
A working example link is below:
www.softraksystems.com/download/MULTFOLD.ZIP
Best regards,
Charles
I have solved the problem with a simple fix. The modified tabctrl.c is no longer needed, and only one line of code needs to be added to folder.prg. To have very nice multiline folders from resources:
1. Add TCS_MULTILINE to the Style in your RC file.
2. Add ::AdjustRect() to the Initiate() method of Tfolder
3. If you use the RESIZE16 Clause, you will need to say:
ON INIT oFld:AdjustRect() in your prg code.
A working example link is below:
www.softraksystems.com/download/MULTFOLD.ZIP
Best regards,
Charles
Charles Pratt
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Charles,CharlesPratt wrote:To everybody who is following this thread -
I have solved the problem with a simple fix. The modified tabctrl.c is no longer needed, and only one line of code needs to be added to folder.prg. To have very nice multiline folders from resources:
1. Add TCS_MULTILINE to the Style in your RC file.
2. Add ::AdjustRect() to the Initiate() method of Tfolder
3. If you use the RESIZE16 Clause, you will need to say:
ON INIT oFld:AdjustRect() in your prg code.
A working example link is below:
www.softraksystems.com/download/MULTFOLD.ZIP
can I test your news?
i compile and found an error at runtime:
Code: Select all
Descrizione: Error BASE/1004 Message not found: TCLIPGET:TYPE
Stack Calls
===========
Called from: tobject.prg => TCLIPGET:ERROR(172)
Called from: tobject.prg => TCLIPGET:MSGNOTFOUND(205)
Called from: tobject.prg => TCLIPGET:TYPE(0)
Called from: tget.prg => TCLIPGET:PARSEPICT(367)
Called from: tget.prg => TCLIPGET:SETPICTURE(2043)
Called from: tget.prg => (b)GET:GET(122)
Called from: TCLIPGET.prg => TCLIPGET:TCLIPGET(0)
Called from: tget.prg => TCLIPGET:NEW(234)
Called from: TCLIPGET.prg => GETNEW(23)
Called from: TGET.prg => TGET:REDEFINE(361)
Called from: FOLDONLY.PRG => SNGLFOLD(86)
Called from: FOLDONLY.PRG => (b)BUILDMENU(34)
Called from: MENU.prg => TMENU:COMMAND(407)
Called from: WINDOW.prg => TWINDOW:COMMAND(937)
Called from: => TWINDOW:HANDLEEVENT(0)
Called from: WINDOW.prg => _FWH(3177)
Called from: => WINRUN(0)
Called from: WINDOW.prg => TWINDOW:ACTIVATE(886)
Called from: FOLDONLY.PRG => MAIN(24)
Ciao, best regards,
Ugo
Ugo
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Ugo,
You can't use Harbour from CVS as Class TGet has been modified and now it does not work fine with FWH.
Please use Harbour from www.fivetechsoft.com/files/harbour.exe
You can't use Harbour from CVS as Class TGet has been modified and now it does not work fine with FWH.
Please use Harbour from www.fivetechsoft.com/files/harbour.exe
I use xHarbour, do not work with this?Antonio Linares wrote:You can't use Harbour from CVS as Class TGet has been modified and now it does not work fine with FWH.
Please use Harbour from www.fivetechsoft.com/files/harbour.exe
Ciao, best regards,
Ugo
Ugo
- Antonio Linares
- Site Admin
- Posts: 37481
- Joined: Thu Oct 06, 2005 5:47 pm
- Location: Spain
- Contact:
Antonio,
I do not receive the replies:
in my profile is set to YES!
I do not receive the replies:
Code: Select all
Always notify me of replies:
Sends an e-mail when someone replies to a topic you have posted in. This can be changed whenever you post.
Ciao, best regards,
Ugo
Ugo
- Raymundo Islas M.
- Posts: 590
- Joined: Tue Mar 14, 2006 11:34 pm
- Location: Acapulco, Gro. MEXICO