topic-29653

Posts: 842

Joined: Mon Oct 10, 2005 01:29 PM

Error in FW 14.09 with SPLITTER Class
Posted: Fri Nov 21, 2014 04:22 PM

Antonio,

There is a problems with the class SPLITTER with RESOURCE .

Test:
C:\fwh\samples\testspl6.prg chose --> Dialog and Resource Dialog

Code (fw): Select all Collapse

 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 (fw): Select all Collapse

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

Maurizio
www.nipeservice.com

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: Error in FW 14.09 with SPLITTER Class
Posted: Sun Nov 23, 2014 07:27 AM

Maurizio,

Please make this change in source\classes\splitter.prg line 32:

DATA lStatic, l3D, lMoving, lStyle, lMOver INIT .F.

thanks for your feedback :-)

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion