Thiagodb
-
Posts
13 -
Joined
-
Last visited
Posts posted by Thiagodb
-
-
Existe alguma função para gerar um Grafico, no mesmo relatorio que eu gero as Informações ,no FW20.
*************
PAGE
***informações
***Grafico das informações ACIMA.
ENDPAGE
***********
Diego
-
Existe alguma função para gerar um Grafico, no mesmo relatorio que eu gero as Informações ,no FW20.
*************
PAGE
***informações
***Grafico das informações ACIMA.
ENDPAGE
***********
Diego
-
Ai vai o exemplo do problema:
*******************
function Main()
Local oWnd,oImageList,oBmp1,oBmp2,oTree
oWnd := TWindow():New( 50 , 150 , 577.5 , 457.5 ,"TESTE" , , , , , ,.F. ,.F. ,"N/W" , , ,"NONE" , , ,.T. ,.F. , .T. )
//New( nTop, nLeft, nBottom, nRight , cTitle ,nStyle,oMenu,oBrush,oIcon,oParent,lVScroll,lHScroll,nClrFore,nClrBack,oCursor,cBorder,lSysMenu,lCaption,lMin, lMax, lPixel ) CONSTRUCTOR
oImageList = TImageList():New(16,16)
oBmp1 = TBitmap():Define( ,"fld_close.bmp", oWnd ) // imagem .bmp (16X16 pix) qdo estiver a TREE estiver fechada
oBmp2 = TBitmap():Define( ,"fld_open.bmp" , oWnd ) // imagem .bmp (16X16 pix) qdo estiver a TREE estiver aberta
oImageList:Add( oBmp1, oBmp2 )
oTree := TTreeView():New( 01 , 01 , oWnd, , , .T. , .F. , 300 , 500 , )
// New( nTop, nLeft, oWnd,nClrFore,nClrBack, lPixel, lDesign, nWidth, nHeight,cMsg )
*--------------------Cria uma nova matrix Classificada por SISTEMA + PAI-----------------------*
oTree:Add("TESTE 1")
oTree:Add("TESTE 2")
oTree:SetImageList( oImageList )
return nil
*******************
Editado por - Thiagodb on 11/08/2005 18:03:53
-
Por favor ... alguem sabe como usar a classe TImageList???
Tento usa-la na classe TTreeView()
oImageList := TImageList():New(16,16)
oBmp1 := TBitmap():Define( ,"fld_close.bmp",oWnd)
oBmp2 := TBitmap():Define( ,"fld_open.bmp" ,oWnd)
oImageList:Add( oBmp1, oBmp2 )
oTree:SetImageList( oImageList )
mas só aparece a imagem de 1º BMP, e em todos os nÃveis da Tree.
Editado por - Thiagodb on 09/08/2005 10:01:13
-
Por favor ... alguem sabe como usar a classe TImageList???
Tento usa-la na classe TTreeView()
oImageList := TImageList():New(16,16)
oBmp1 := TBitmap():Define( ,"fld_close.bmp",oWnd)
oBmp2 := TBitmap():Define( ,"fld_open.bmp" ,oWnd)
oImageList:Add( oBmp1, oBmp2 )
oTree:SetImageList( oImageList )
mas só aparece a imagem de 1º BMP, e em todos os nÃveis da Tree.
Editado por - Thiagodb on 09/08/2005 10:01:13
-
Por favor ... alguem sabe como usar a classe TImageList???
Tento usa-la na classe TTreeView()
oImageList := TImageList():New(16,16)
oBmp1 := TBitmap():Define( ,"fld_close.bmp",oWnd)
oBmp2 := TBitmap():Define( ,"fld_open.bmp" ,oWnd)
oImageList:Add( oBmp1, oBmp2 )
oTree:SetImageList( oImageList )
mas só aparece a imagem de 1º BMP, e em todos os nÃveis da Tree.
Editado por - Thiagodb on 09/08/2005 10:01:13
-
Olá! td bom!?
Tente usar o Access (importar e/ou exportar) - a vs. 2000.
Inteh!
-
Galera... pq no FWH 2.6 - xHarbour 0.99.3 - O aEnable do Folder não mostra desabilitado (até trava a pasta, mão não deixa com a cor diferenciada) ?
Se alguem souber... agradeço!!!
Inteh!!!
-
Galera... sou novato no Forum, mas já vi q é muito útil:
Depois de alguns teste, consegui fazer assim:
meu sistema abre 1º um DIALOG, depois o Menu do Sistema:
If FindWindow(, "Login" ) > 0
FreeResources()
ErrorLevel(1)
Quit
EndIf
oPrincipal:=FindWindow(,"Sistema de Administração Médica" )
If oPrincipal > 0
MsgStop("Já existe uma aplicação aberta!","Atenção")
ShowWindow( oPrincipal , 3 )
FreeResources()
ErrorLevel(1)
Quit
EndIf
EndIf
Obs.: Na abertura do Dialog de Login, no comando ON INIT eu tive de colocar > SetWndApp(oDlg:hWnd )
Obrigado Galera....
-
Valeu velho!!! brigadaum!!!
-
Por favor, alguem sabe como fazer para o executavel só abrir só uma vez ( como era no 16 bits )... estou usando a vs. FWH 2.6 e xHarbour 0.99.3 .
-
Por favor, alguem sabe como fazer para o executavel só abrir uma vez ( como era no 16 bits )... estou usando a vs. FWH 2.6 e xHarbour 0.99.3 .
Obrigado!!!
Thiago@cinformatica.com.br
Relatorio com Grafico do Excel
in Programação
Posted
Existe alguma função para gerar um Grafico, no mesmo relatorio que eu gero as Informações ,no FW20.
*************
PAGE
***informações
***Grafico das informações ACIMA.
ENDPAGE
***********
Diego