Eroni Posted February 15, 2008 Report Share Posted February 15, 2008 Alguém saberia me dizer se é possÃvel isto? Nao vi nada igual nos samples. Obrigado e abraços. Eroni (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf Quote Link to comment Share on other sites More sharing options...
Eroni Posted February 15, 2008 Author Report Share Posted February 15, 2008 Alguém saberia me dizer se é possÃvel isto? Nao vi nada igual nos samples. Obrigado e abraços. Eroni (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf Quote Link to comment Share on other sites More sharing options...
aferra Posted February 18, 2008 Report Share Posted February 18, 2008 Olá Eroni, blz??? Kra o que vc está precisando afinal? Alessandroid=blue> FW20d+CL53b+Blk7+@Say+CDX "Aceita o conselho dos outros, mas nunca desistas da tua própria opinião"id=red> Quote Link to comment Share on other sites More sharing options...
Eroni Posted February 18, 2008 Author Report Share Posted February 18, 2008 Olá, obrigado pela atenção, o que eu queria era colocar Ãcones como em: Mas com código fonte apenas consigo isto: Abraços. (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 18, 2008 Report Share Posted February 18, 2008 Nao funciona assim??? REDEFINE TREE oTree ID 110 OF oDlg ; BITMAPS { "1Paper", ; "1FoldClose", "1FoldOpen", ; "1BookClose", "1BookOpen", ; "TREEF", "TREET", "TREEC", ; "1Server", "1Ejecutivo", "1Respaldo" ; } ; ON CHANGE( oTree:Refresh() ) ; COLORS CLR_BLACK, nRGB( 143, 188, 143 ) ; FONT oFont ; ON DBLCLICK( ClickTree( oTree ) ) id=code>id=code>Em contrario, pergunte no forum internacional. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
jcleoner Posted February 18, 2008 Report Share Posted February 18, 2008 Olá O que voce quer tem na pasta samples. Programa testtree.prg e testtrer.prg Quote Link to comment Share on other sites More sharing options...
Eroni Posted February 18, 2008 Author Report Share Posted February 18, 2008 Amigos, obrigado, porém não uso com recursos e sim com código fontes, o testtree.prg e com janela e não dialogo e o testtrer utiliza dialogo feito com editor de recursos, o que não é meu caso. O mais próximo exemplo seria o treedlg.prg que monta o tree a partir de código fonte, porém sem Ãcones. Abraços (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 18, 2008 Report Share Posted February 18, 2008 citação:Amigos, obrigado, porém não uso com recursos e sim com código fontes, o testtree.prg e com janela e não dialogo e o testtrer utiliza dialogo feito com editor de recursos, o que não é meu caso. O mais próximo exemplo seria o treedlg.prg que monta o tree a partir de código fonte, porém sem Ãcones. Abraços (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf id=quote>id=quote>NÃO ENTENDI, ICONES E BITMAPS, SÃO RECURSOS, VEJA COMO SE CARREGA RECURSOS, DIRETO DA HD, Jà QUE NÃO QUERES PEGAR DE UM ARQUIVO.RES - DIRECIONE PARA O DIRETORIO EM QUE SE ENCONTRA A BITMAP E PEGUE VIA CODIGO COM O COMANDO QUE CARREGA A BITMAP. Se bem, que eu SAY NÃO... Não é minha praia, NÃO SAY NADA. LOAD... ALGUMA COISA... Espere um pouco, que o Vagner Wirts, manja muito de @...SAY. I´m sorry! João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
emotta Posted February 18, 2008 Report Share Posted February 18, 2008 tente assim: oImageList = TImageList():New() oImageList:Add( TBitmap():Define( , oAplication:cPathBMP+"folder.bmp", oWndMain ),; TBitmap():Define( , oAplication:cPathBMP+"folder.bmp", oWndMain ) ) oImageList:Add( TBitmap():Define( , oAplication:cPathBMP+"mark.bmp", oWndMain ),; TBitmap():Define( , oAplication:cPathBMP+"mark.bmp", oWndMain ) ) oImageList:Add( TBitmap():Define( , oAplication:cPathBMP+"nomark.bmp", oWndMain ),; TBitmap():Define( , oAplication:cPathBMP+"nomark.bmp", oWndMain ) ) oTree := TTreeView():New(01,01,oDlg,,,.t.,,214,210) oTree:SetImageList( oImageList ) oTree10 := oTree:Add("Cadastros",0) oTree20 := oTree:Add("Processamentos",1) oTree30 := oTree:Add("Relatórios",2) oTree40 := oTree:Add("Utilitários",3) No metodo add do oTree vc define qual a imagem (pelo numero) abraço, Eduardo Motta Quote Link to comment Share on other sites More sharing options...
Pablo.Softgraf Posted February 19, 2008 Report Share Posted February 19, 2008 E se ele quiser mudar estes icones em tempo de execução, ele está perdido. vc saber adiciona métodos em classes ? Pablo Andrés Reyes Rivera FWH 2.7 - xHarbour Compiler build 0.99.61 (SimpLex) - PellesC Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 19, 2008 Report Share Posted February 19, 2008 citação:E se ele quiser mudar estes icones em tempo de execução, ele está perdido. vc saber adiciona métodos em classes ? Pablo Andrés Reyes Rivera FWH 2.7 - xHarbour Compiler build 0.99.61 (SimpLex) - PellesC id=quote>id=quote>Mudar BITMAP en TREE en tiempo real??? Estais Loco?? No hay problemas. jejeje. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
Eroni Posted February 19, 2008 Author Report Share Posted February 19, 2008 Eduaro, obrigado, seu código (adaptado), produziu o seguinte: Abaixo seu código modificado: #include "FiveWin.ch" FUNCTION Main() DEFINE dialog oDlg from 00,00 TO 20,60 oImageList = TImageList():New() oImageList:Add( TBitmap():Define( , oSistema:cFolder_+"imagens\folder.bmp", oDlg ),; TBitmap():Define( , oSistema:cFolder_+"imagens\folder.bmp", oDlg ) ) oImageList:Add( TBitmap():Define( , oSistema:cFolder_+"imagens\fldmask.bmp", oDlg ),; TBitmap():Define( , oSistema:cFolder_+"imagens\fldmask.bmp", oDlg ) ) oTree := TTreeView():New(02,02,oDlg,,,.T.,,200,100) oTree:SetImageList( oImageList ) ACTIVATE DIALOG oDlg ON init Monta( oTree ) RETURN( NIL ) STATIC FUNCTION Monta( oTree ) oTree10 := oTree:Add("Cadastros",0) oTree20 := oTree:Add("Processamentos",1) oTree30 := oTree:Add("Relatórios",2) RETURN( NIL ) Já o codigo fonte original de treedlg.prg do samples, produz isto: Em ambos os códigos, os caminhos das imagens estão corretos, não sei onde estou errando. Abraços (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf Quote Link to comment Share on other sites More sharing options...
Pablo.Softgraf Posted February 19, 2008 Report Share Posted February 19, 2008 Na minha versão Kápi , ele não faz isso ! eu tive de mudar a classe pra ele fazer isso e mudar o icone que eu quiser Pablo Andrés Reyes Rivera FWH 2.7 - xHarbour Compiler build 0.99.61 (SimpLex) - PellesC Quote Link to comment Share on other sites More sharing options...
gibaf Posted February 19, 2008 Report Share Posted February 19, 2008 precisa ter algumas classes alteradas... Inclusive, muda em tempo de execucao !!! Eroni, me mande 1 e-mail com o seu msn ! Att Gilberto Frohlich - Toledo/PR giba_f@hotmail.com giba_f@yahoo.com.br xHarbour Comercial xBuild Mar_06+Fivewin 2.7+PellesC+(Postgres+DB2) Quote Link to comment Share on other sites More sharing options...
jcleoner Posted February 19, 2008 Report Share Posted February 19, 2008 E aà Eduardo Quanto tempo não nos falamos meu amigo Espero que esteja tudo bem com voce Grande abraço. Quote Link to comment Share on other sites More sharing options...
vagner Posted February 19, 2008 Report Share Posted February 19, 2008 citação:Eduardo Motta id=quote>id=quote>Grande Motta , enorme prazer ter vc aqui para auxiliar Grande Abraço meu irmão Vagner Wirts VI Encontro está chegando , não perca Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 20, 2008 Report Share Posted February 20, 2008 citação:Na minha versão Kápi , ele não faz isso ! eu tive de mudar a classe pra ele fazer isso e mudar o icone que eu quiser Pablo Andrés Reyes Rivera FWH 2.7 - xHarbour Compiler build 0.99.61 (SimpLex) - PellesC id=quote>id=quote>A minha faz, mas eu tenho LIB enviada pelo EDNALDO ROLIM. Não disponivel para ninguém. Exclusividade minha. Abraços. João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br Fone: (11) 3106-2832 FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
emotta Posted February 20, 2008 Report Share Posted February 20, 2008 Valeu Vagner, vou tentar participar mais aqui neste forum. Abraço pra vc tb ! Quote Link to comment Share on other sites More sharing options...
Eroni Posted February 20, 2008 Author Report Share Posted February 20, 2008 Giba, já te adicionei no msn. Para quem quiser add: eroniamerico@hotmail.com Abraços Eroni (48) 3045-1575 xHarbour 0.99.5 & FWH 2.4 SqlLib, MySql & Dbf Quote Link to comment Share on other sites More sharing options...
Recommended Posts
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.