SOBRE folder IMAGENES

[mantonio_08]

ESTIMADOS COLEGAS DEL FORO..

serian tan gentiles de mostrar q han conseguido sobre estetica de los FOLDER.. ( Solapas ),, con los NATIVO de FW o con terceros.. si pudieran poner algunas imagenes serian genial..


GRACIAS

[Patricio Avalos Aguirre]

hola

Este ejemplo es de FWh\samples\TestFold.prg, con unos pequeños ajustes..

Code: Select all  Expand view

#include "FiveWin.ch"
#include "Folder.ch"

//----------------------------------------------------------------------------//

function Main()

   local oDlg, oFld, oCbx, oSay
   local nValue := 2, oChk, lChk := .t.
   local cItem, oImageList, oBrush

   SET _3DLOOK ON
    DEFINE BRUSH oBrush FILE "C:\FWH\bitmaps\backgrnd\iron.bmp"
   DEFINE DIALOG oDlg RESOURCE "Test" BRUSH oBrush

   REDEFINE FOLDER oFld ID 110 OF oDlg ;
      PROMPT "Cli&pper", "&and", "&Windows", "&Magic" ;
      DIALOGS "Sub1", "Sub2"

    aEval( oFld:aDialogs, { |x| x:oBrush := oBrush } )
   oFld:aEnable = { .t., .t., .f., .f. }

   REDEFINE COMBOBOX oCbx VAR cItem ITEMS { "This", "is", "a test" } ;
      ID 100 OF oFld:aDialogs[ 1 ]

   REDEFINE CHECKBOX oChk VAR lChk ID 92 OF oFld:aDialogs[ 1 ] ON CHANGE MsgBeep()

   REDEFINE SAY oSay ID 10 OF oFld:aDialogs[ 1 ] PROMPT "Test" COLOR "R+/B"

   REDEFINE BUTTON ID 110 OF oFld:aDialogs[ 1 ] ;   // Redefining a child
      ACTION oChk:SetText( Time() )

   REDEFINE BUTTON ID 120 OF oFld:aDialogs[ 1 ] ;
      ACTION DoBrowse()

   REDEFINE BITMAP ID 130 OF oFld:aDialogs[ 1 ] ;
      FILE "C:\FWH\bitmaps\question.bmp" TRANSPARENT

   REDEFINE RADIO nValue ID 110, 120, 130 OF oFld:aDialogs[ 2 ] ;
      ON CHANGE MsgBeep()

   REDEFINE BUTTON ID 104 OF oFld:aDialogs[ 2 ] ;   // Redefining a child
      ACTION oFld:SetPrompts( { "one", "two", "three", "four" } )

   REDEFINE BUTTON ID 120 OF oDlg ;
      ACTION oDlg:End()

   oFld:aDialogs[ 1 ]:bRClicked = { || MsgInfo( "page 1" ) }
   oFld:aDialogs[ 2 ]:bRClicked = { || MsgInfo( "page 2" ) }

   ACTIVATE DIALOG oDlg CENTERED ;
      VALID MsgYesNo( "Want to end ?" ) ;
      ON INIT SetImages( oDlg, oFld )

    oBrush:End()

return nil

//----------------------------------------------------------------------------//

function DoBrowse()

    TRY
    USE Customer
    CATCH
        MsgInfo( "No existe base CUSTOMER.dbf" )
        return nil
    END
   Browse()
   USE

return nil

//----------------------------------------------------------------------------//

function SetImages( oDlg, oFld )

   local oImageList

   DEFINE IMAGELIST oImageList SIZE 16, 16

   oImageList:AddMasked( TBitmap():Define( "new",,    oDlg ), nRGB( 192, 192, 192 ) )
   oImageList:AddMasked( TBitmap():Define( "open",,   oDlg ), nRGB( 192, 192, 192 ) )
   oImageList:AddMasked( TBitmap():Define( "search",, oDlg ), nRGB( 192, 192, 192 ) )
   oImageList:AddMasked( TBitmap():Define( "print",,  oDlg ), nRGB( 192, 192, 192 ) )

   oFld:SetImageList( oImageList )

return nil

//----------------------------------------------------------------------------//

procedure AppSys  // Xbase++ requirement

return

//----------------------------------------------------------------------------//