Una Consulta
Tengo el siguiente codigo, se me pone transparente todo menos el tree existe una solucion ?
- Code: Select all Expand view
#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
gracias por su ayuda
Wilson
PD: Utilizo ultimo Fwh 14.11 de 32 bits y bcc582
