FiveTech Support Forums

#include "FiveWin.ch"
#include "WColors.ch"

#define SISTEMA   'Sistema de Gestión Integrado JoseNet Versión 2.3'

function Main()

    local oDlg, oTree
    local oMenuTree
    local oItem
    local oLbx
    local aEmpresas  := {'empresa001','empresa002','empresa003','empresa004'}
    local cEmpresa   := aEmpresas[ 1 ]
    local oFont
    local oBtn
    local lVisuales  := .t.
    local lYaEmpre   := .f.
    local oChk
    local oBrush
    local oSay
    local cMsg       := 'aca lo que escogimos '
    local cMsg1      := 'empresa que es la que se escoge con el mouse'

    DEFINE BRUSH oBrush FILE "degrade.bmp"

    DEFINE FONT oFont NAME "Verdana" SIZE 0,-14

    DEFINE DIALOG oDlg TITLE SISTEMA SIZE 600, 400 PIXEL STYLE nOr( DS_MODALFRAME, WS_POPUP, WS_CAPTION) font oFont BRUSH oBrush TRANSPARENT

    @ 005, 005 TREEVIEW oTree OF oDlg SIZE 120, 90 COLOR 0, GetSysColor( COLOR_WINDOW ) PIXEL
    oTree:lTransparent = .t.

    @ 005, 140 LISTBOX oLbx VAR cEmpresa ITEMS aEmpresas SIZE 145, 140 OF oDlg PIXEL
    oLbx:lTransparent = .t.

    @ 170, 130 BTNBMP oBtn PROMPT "Salir" FILENAME "c:\fw2\bitmaps\32x32\no.bmp" SIZE 70, 25 ;
         LEFT NOBORDER ACTION oDlg:End()

    @ 160, 10 CHECKBOX oChk VAR lVisuales PROMPT "&Visuales" SIZE 100, 20 PIXEL
    @ 155, 20 SAY oSay  VAR cMsg  SIZE 100, 20 PIXEL
    @ 145, 20 SAY oSay1 VAR cMsg1 SIZE 290, 20 PIXEL

    ACTIVATE DIALOG oDlg CENTERED ON INIT AddItems( oTree )

return nil


function AddItems( oTree )

   local oItem1
   local oItem2
   local oItem3
   local oItem4
   local oItem5
   local oItem6
   local oItem7
   local oItem8
   local oItem9

   oItem1 = oTree:Add( "Ventas" )

   oTree:bLDblClick = { | nRow, nCol |  veam( nRow, nCol ) }

   oItem2 = oTree:Add( "Auxiliares" )
   oItem3 = oTree:Add( "VentasOff" )
   oItem4 = oTree:Add( "Roles de Pago" )
   oItem5 = oTree:Add( "Contabilidad" )
   oItem6 = oTree:Add( "Importaciones" )
   oItem7 = oTree:Add( "Anexo Transaccional" )
   oItem8 = oTree:Add( "Contabilidades Anteriores" )
   oItem9 = oTree:Add( "Manual" )


return nil

function veam( nRow, nCol )


    do case
        case nRow >= 0 .and. nRow <= 20
            MsgInfo('1')
        case nRow >= 21 .and. nRow <= 40
            MsgInfo('2')
        case nRow >= 41 .and. nRow <= 60
            MsgInfo('3')
        case nRow >= 61 .and. nRow <= 80
            MsgInfo('4')
        case nRow >= 81 .and. nRow <= 100
            MsgInfo('5')
        case nRow >= 101 .and. nRow <= 120
            MsgInfo('6')
        case nRow >= 121 .and. nRow <= 140
            MsgInfo('7')
        case nRow >= 141 .and. nRow <= 160
            MsgInfo('8')
        case nRow >= 161 .and. nRow <= 180
            MsgInfo('9')
    end


return nil

//#Define CLR_WINDOW         RGB( 130, 130, 130 )
#Define CLR_WINDOW       315

    oTree:SetColor( CLR_WINDOW, CLR_WHITE )

   DEFINE BRUSH oBrCyan COLOR CLR_HCYAN

   oTree:bEraseBkgnd = { | hDC | SetBkMode( hDC, 1 ),;
                                 FillRect( hDC, { 0, 0, oTree:nWidth, oTree:nHeight },;
                                 oBrCyan:hBrush ),;
                                 1 }