There is a problems with the class SPLITTER with RESOURCE .
Test:
C:\fwh\samples\testspl6.prg chose --> Dialog and Resource Dialog
- Code: Select all Expand view
- Time from start: 0 hours 0 mins 4 secs
Error occurred at: 11/21/14, 17:14:19
Error description: Error BASE/1066 Argument error: conditional
Args:
[ 1] = U
Stack Calls
===========
Called from: .\source\classes\SPLITTER.PRG => TSPLITTER:PAINT( 239 )
Called from: .\source\classes\SPLITTER.PRG => TSPLITTER:HANDLEEVENT( 218 )
The problem are the the new DATA
::lStyle
::lMover := .t.
::aGradientOver
::aGradient =
- Code: Select all Expand view
- METHOD ReDefine( nId, lVertical, aPrevCtrols, lAdjPrev, aHindCtrols, lAdjHind, ;
bMargin1, bMargin2, oWnd, bChange, ;
l3D, nClrBack, lUpdate, lStyle, aGradient, aGradientOver ) CLASS TSplitter
DEFAULT lVertical := .t., aPrevCtrols := {}, aHindCtrols := {}, ;
bMargin1 := {|| 0 }, bMargin2 := {|| 0 }
DEFAULT oWnd := GetWndDefault()
DEFAULT ::lStyle := .T.
default ::lMover := .t.
DEFAULT aGradientOver:= { { 1/4, nRGB( 255, 255, 255 ), nRGB( 0, 160, 230) },;
{ 1/2, nRGB( 0, 160, 230), nRGB( 0, 160, 230) },;
{ 1/4, nRGB( 0, 160, 230), nRGB( 255, 255, 255 ) } },;
aGradient := { { 1/4, nRGB( 255, 255, 255 ), nRGB( 190, 210, 220) },;
{ 1/2, nRGB( 190, 210, 220), nRGB( 190, 210, 220) },;
{ 1/4, nRGB( 190, 210, 220), nRGB( 255, 255, 255 ) } }
::aGradientOver = aGradientOver
::aGradient = aGradient
Regards Maurizio
www.nipeservice.com
