FiveTech Software tech support forums

Code: Select all

USHORT TmpGetWA( AREAP area, void * ptr)
{   
   proc_I CurFunc = (proc_I)ptr;
   CurFunc(area->uiArea);  
   return 0;
}
 

Code: Select all

...
for i = 255 TO 0 STEP -1


   DEFINE BRUSH oBrush COLOR RGB( 0, i, 0 ) //<--- aqui


   FILLRECT( hDC, aRect, oBrush:hBrush )
   RELEASE BRUSH oBrush
   aRect[ 1 ] += nStep
   aRect[ 3 ] += nStep
next
...