Error in Class TSelex adding Title ( Resource ) ?

[ukoenig]

I wanted to add a Title and Font to TSelex from Resource, but getting a Error :
( from Code it works fine without any Problems )

REDEFINE SELEX nOption3 OF oDlg ID 100;
ITEMS "&FiveWin", "&Power", "&Amazing", "&Exit";
THUMBSIZE 40, 30 ROUNDSIZE 5 ;
TITLE "Test Title" TOP ; // added to Sample testselx.prg
FONT oFont1 ;
ACTION( If( nOption == 4, oDlg:End(), ) )

The new Painter works perfect, but I still want to add the Titles :
< Position > and < Direction >



Application
===========
Path and name: E:\FWH\samples\testselx.exe (32 bits)
Size: 1,558,528 bytes
Time from start: 0 hours 0 mins 2 secs
Error occurred at: 12/16/10, 21:22:48
Error description: Error BASE/1004 Class: 'CHARACTER' has no exported method: NCOUNT
Args:
[ 1] = C MDI-Frame

Stack Calls
===========
Called from: => NCOUNT(0)
Called from: .\source\classes\WINDOW.PRG => TCONTROL:SETFONT(2779)
Called from: .\source\classes\TSELEX.PRG => (b)TSELEX:TSELEX(90)
Called from: => TSELEX:SETFONT(0)
Called from: .\source\classes\TSELEX.PRG => TSELEX:REDEFINE(274)
Called from: testselx.prg => LAUNCHDIALOG(47)
Called from: testselx.prg => (b)MAIN(27)
Called from: .\source\classes\TSELEX.PRG => TSELEX:SETOPTION(670)
Called from: .\source\classes\TSELEX.PRG => TSELEX:LBUTTONDOWN(427)
Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT(1483)
Called from: .\source\classes\TSELEX.PRG => TSELEX:HANDLEEVENT(354)
Called from: .\source\classes\WINDOW.PRG => _FWH(3394)
Called from: => WINRUN(0)
Called from: .\source\classes\WINDOW.PRG => TWINDOW:ACTIVATE(978)
Called from: testselx.prg => MAIN(33)

Best Regards
Uwe

[Daniel Garcia-Gil]

Uwe

is missing a comma after <oFont> inside tselsex.ch

Code: Select all  Expand view

[ <oSelex> := ] TSelex():Redefine( <nID>, <oWnd>, [\{<aOptions>\}], [{|nOption,nOldOption|<uAction>}], ;
                                        <.lUpdate.>, <aGradOut>, <aGradIn>, <nClrBoxIn>, ;
                                        <nClrBoxOut>, <nClrThumb>, ;
                                        <nClrText>, bSETGET( <nOption> ), <nClrOptSel>,;
                                        <nWidthThumb>, <nHeightThumb>, <nRound>, <oFont>,;
                                        <cTitle>, <nClrTitle>, [<.lTop.>] )

[ukoenig]

Daniel,

thank You very much. It works fine now.
I nearly finished my new MDI-Test-tool.
We can test any Background-combinations on a MDI-frame from Child, Button-display and Dialog.
The Reset ( new Start ) works perfect, to show a new selected MDI-frame-background.
All settings are saved to a INI and loaded from there at new Start.

Added :
1. Dialog-test on MDI-frame ( Background used the same like for CHILD ) .
2. Start-position on Ribbonbar ( Info )
3. A PRG can be created, to use all selected Settings inside another Application.



Best Regards
Uwe