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

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