topic-30568

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

FolderEx COLOR
Posted: Mon Apr 20, 2015 12:55 PM

Se podria añadir al metodo NEW la posibilidad de definir el color de fondo del FOLDEREX ?
No es que sea demasiado importante pero ....

En el DEFINE

Code (fw): Select all Collapse

.../...
             [ <dlg: DIALOG, DIALOGS, PAGE, PAGES> <cDlgsName,...> ] ;
             [ <lBorder: NOBORDER > ] ;
             [ COLOR <nClrPane> ] ;
       => ;
             [<oFolder> := ] TCFoldereX():New( <nRow>, <nCol>, <nWidth>, <nHeight>,;

.../...

             <.lAnimate.>, [<nSpeed>], <oFont>, <.lTransparent.>, [\{<cDlgsName>\}], <.lBorder.>, <nClrPane> )

Code (fw): Select all Collapse

DEFAULT            nClrPane := CLR_WHITE


.../..

   if ::lTransparent
      if ::oWnd:oBrush != NIL
         ::SetBrush( ::oWnd:oBrush )
      else
         ::oBrush = TBrush():New( , ::oWnd:nClrPane )
      endif
   else
      ::oBrush = TBrush():New( , nClrPane ) 
   endif

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

FiveTech Support Forums

Continue the discussion