topic-25093

Posts: 140

Joined: Thu Feb 02, 2006 12:09 PM

fwh 12.09 Quick Access y Quick Button
Posted: Tue Oct 30, 2012 03:28 PM

Saludos.-

Intento ejecutar un programa compilado con 12.09 que corre normalmente en la version anterior FWH 12.08 , pero como uso
QuickButton me da un error

Error BASE/1111 argumento error: LEN

Igualmente el error sale al compilar con esta version 12.09 el samples/testqck.prg

Mario Antonio González Osal

Venezuela

m a g 0 7 1 @ g m a i l. c o m

Antonio Linares

Posts: 44158

Joined: Thu Oct 06, 2005 05:47 PM

Re: fwh 12.09 Quick Access y Quick Button
Posted: Fri Nov 02, 2012 01:31 PM

Mario,

Este pequeño cambio es necesario en bar.prg function GradientFill():

Code (fw): Select all Collapse

function GradientFill( hDC, nTop, nLeft, nBottom, nRight, aGradInfo, lVert )

   local nClr := 1, nClrs, nSize, nSlice

   DEFAULT lVert  := .T.

   if Empty( aGradInfo ) .or. ValType( aGradInfo ) != "A"
      return nil
   else
      nClrs = Len( aGradInfo )
   endif

   ...

regards, saludos

Antonio Linares
www.fivetechsoft.com

FiveTech Support Forums

Continue the discussion