kapiaba Posted August 20, 2009 Report Share Posted August 20, 2009 citação:Kapiaba vc poderia dar uma olhada na funcao e ver se descobre o pq disso ? Como aqui esta funcionando corretamente fica dificil eu descobrir o erro. Me lembro que vc relatou um erro no seu computador com relacao a trocar fontes ou sumir fontes , nao seria isso ? Como diminuiu a fonte como vc relatou, talvez possa ser isso. Verifique se as fontes utilizadas existem no seu wINDOWS. Ou entao troque a fonte e veja se continua o erro. William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 Editado por - william on 20/08/2009 16:20:11 id=quote>id=quote>Deixe eu testar em casa, meu xp de casa, redondo. 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...
SAOliveira Posted August 20, 2009 Report Share Posted August 20, 2009 Willian, testou com PELLES ? ------------------------------------------------------------------- Boleto with Personal/FastReport it is very, very good, beyond prettier. FWH 904a, xH 1.2.1, SqlLib, MySql, ActiveX Quote Link to comment Share on other sites More sharing options...
william Posted August 20, 2009 Author Report Share Posted August 20, 2009 Oliveira, nao testei com Pelles, uso o BCC aqui. Eu acredito que funcione sim, poderia testar e nos relatar ? Obrigado William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 21, 2009 Report Share Posted August 21, 2009 citação:Kapi, poste uma imagem de como ficou com 800x600 e outra de como ficou com 1024x768. Uma imagem vale mais que mil palavras =D Luis Fernando Jr.(Luisão) "Seize the day or die regretting the time you lost" FWH8.1 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY id=quote>id=quote>Assim que possivel, postarei Luis. 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...
kleyber Posted August 21, 2009 Report Share Posted August 21, 2009 William, Testei aqui e foi 100%. Uso Windows XP SP3. Parabéns. Abraço. Kleyber Derick xHarbour 1.1.0 + FWH 8.02 (BMW Zerada!!!) + xDevStudio + SQLLIB Visite São LuÃs - MA A Ilha dos Amores Quote Link to comment Share on other sites More sharing options...
william Posted August 21, 2009 Author Report Share Posted August 21, 2009 obrigado Kleyber, que bom que vc é + 1 que funcionou ok abraço William Adami Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 Quote Link to comment Share on other sites More sharing options...
Ladinilson Posted August 22, 2009 Report Share Posted August 22, 2009 Aqui ficou show de bola! Parabéns! Quote Link to comment Share on other sites More sharing options...
FGSIST Posted August 22, 2009 Report Share Posted August 22, 2009 Olá Willian, ficou show de bola o problema é que não consegui fazer a resolução acompanhar a buttonbar ou seja em uma resolução 1280x800 eu tenho 15 botões na buttonbar fica legal mas se mudo a resolução pra 800x600 só me mostra 10 botões na buttonbar, tem como resolver isso? No mais voce se superou amigo parabéns. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC / Quote Link to comment Share on other sites More sharing options...
LUIS1361303120 Posted August 22, 2009 Report Share Posted August 22, 2009 Nao e desprezando essa contribuicao nao, mas comigo as telas ficou todas fora do posicionamento,, eu uso essa que vou postar em baixo e nao da esse problema,, vc altera a dialog.prg de sua versao do fw...? e acrescenta essas opcoes, essa contribuicao foi do Ednaldo Rolim, essa alteracao e funciona legal tb.. /* // Ol pessoal... Dias atr s estava com problemas com o tamanho de uma // dialog e acabei encontrando esta solu‡Æo desenvolvida pelo nosso amigo // EDNALDO ROLIM. // Esta Solu‡Æo foi postada no F¢rum por outro amigo o JoÆo Santos "KARINHA" // Testei e achei muito boa, pois resolve quase que na totalidade os problemas // de redirecionamento das Dialogs criadas tanto em WorkShop quanto que em // @ Say nas diversas configura‡äes dos Monitores de nossos clientes... // Existem ainda alguns pequenos problemas com os Botäes, como j havia // mencionado o amigo "KARINHA", m s f¢ra isto, funciona perfeitamente... // Se algu‚m conseguir solucionar o Problema dos Botäes, poste novamente aqui // em Dicas + Dicas a versÆo atualizada... Um abra‡o... Valdir - Jundia¡ - S.P. // Como Usar ? // Inclua esta Dialog.prg nos seus arquivos RMK e LNK // Compile normalmente // Em todos os Activate Dialog Usar Como Segue Abaixo: // ACTIVATE DIALOG oDlg ON INIT oDlg:MISetSize() // É Isto. Show(). // Pronto. Seu diálogo vai se tornar do tamanho da sua tela, // sendo acrescido por um fator aPor. // Esse método usa um array com o percentual de ajuste, mas pode // ser apenas um número, se vc não quiser passar valores fora dos padrões. // Ednaldo Rolim */ #include "FiveWin.ch" #include "Constant.ch" //----------------------------------------------------------------------------// CLASS TDialog FROM TWindow METHOD MISetSize( aPor ) ENDCLASS *------------------------------------------ METHOD MISetSize( aPor ) CLASS TDialog LOCAL hDlg := ::hWnd LOCAL hCtrl:= GetWindow( hDlg, GW_CHILD ) LOCAL hFont, oFont, I, AINFO, aRect, nWidth, nHeight, lRepaint:=.T. LOCAL nPorH, nPorV, nIdControl, nPosControl DEFAULT aPor := DLG_RESOLUCION( Self ) nPorH := aPor[1] nPorV := aPor[2] if nPorh=1 .and. nPorv=1 return nil endif nWidth := ::nWidth * nPorH nHeight:= ::nHeight * nPorV Super:SetSize( nWidth, nHeight, lRepaint ) ::Move( MAX( WndTop( hDlg),1), MAX(WndLeft( hDlg),1) ) **** Redimensionamento dos Controles While hCtrl != 0 .AND. GetParent( hCtrl ) == hDlg aRect := GetClientRect( hCtrl ) nWidth := (aRect[4]-aRect[2]) * nPorH nHeight := (aRect[3]-aRect[1]) * nPorV WndSetSize( hCtrl, nWidth, nHeight, lRepaint ) WndLeft( hCtrl, WndLeft( hCtrl) * nPorh) WndTop( hCtrl, WndTop( hCtrl) * nPorv) hCtrl = GetWindow( hCtrl, GW_HWNDNEXT ) Enddo *** Redimensionamento das Fontes FOR I=1 TO LEN(::aControls) IF ::aControls:ofont != nil hFont := ::aControls:ofont:hFont aInfo = GetFontInfo( hFont ) oFont = TFont():New(::aControls:ofont:cFaceName, ; (aInfo[2]*nPorV), (aInfo[1] * nPorH), , ; ::aControls:ofont:lBold, ; ::aControls:ofont:nEscapement, ; ::aControls:ofont:nOrientation, ; aInfo[3], ::aControls:ofont:lItalic, ; ::aControls:ofont:lUnderline, ; ::aControls:ofont:lStrikeOut, ; ::aControls:ofont:nCharSet, ; ::aControls:ofont:nOutPrecision, ; ::aControls:ofont:nClipPrecision, ; ::aControls:ofont:nQuality, ) ::aControls:SETFONT(ofont) endif NEXT Return Nil //----------------------------------------------------------------------------// FUNCTION DLG_RESOLUCION( oDlg ) LOCAL aPor := {1,1}, nWidth := GetSysMetrics(0), ; nHeight := GetSysMetrics(1) LOCAL nPor_640 := 1, nPor_800 := 1.2500, nPor_1024 := 1.6000, ; nPor_1152 := 1.800 DO CASE // DIALOGO DESENHADO PARA 1152x864 CASE oDlg:nWidth>1360 .OR. oDlg:nHeight>768 nPor_640 := 0.5555 // 0.3 nPor_800 := 0.6944 // 0.5 nPor_1024 := 0.8897 // 0.8 nPor_1152 := 1.0 // DIALOGO DESENHADO PARA 1152x864 CASE oDlg:nWidth>1024 .OR. oDlg:nHeight>768 nPor_640 := 0.5555 // 0.3 nPor_800 := 0.6944 // 0.5 nPor_1024 := 0.8897 // 0.8 nPor_1152 := 1.0 // DIALOGO DESENHADO PARA 1024x768 CASE oDlg:nWidth>800 .OR. oDlg:nHeight>600 nPor_640 := 0.6250 // 0.6250 nPor_800 := 0.7812 // 0.7812 nPor_1024 := 1.0000 // 1.0000 nPor_1152 := 1.2500 // 1.1250 // DIALOGO DESENHADO PARA 800x600 CASE oDlg:nWidth>640 .OR. oDlg:nHeight>480 nPor_640 := 0.8 // 0.8 nPor_800 := 1.0 // 1.0 nPor_1024 := 1.2800 // 1.2800 nPor_1152 := 1.4400 // 1.4400 ENDCASE IF nWidth >= 1280// ESTAMOS EM 1360x768 aPor := { nPor_1024, nPor_1024 } elseif nWidth >= 1152 // ESTAMOS EM 1152x864 aPor := { nPor_1152, nPor_1152 } ELSEIF nWidth >= 1024 // ESTAMOS EM 1024x768 aPor := { nPor_1024, nPor_1024 } ELSEIF nWidth >= 800 // ESTAMOS EM 800x600 aPor := { nPor_800, nPor_800 } ELSEIF nWidth >= 640 // ESTAMOS EM 640x480 aPor := { nPor_640, nPor_640 } ENDIF RETURN aPor e usa esse como exemplo em suas dialogs: on init odlg1:misetsize() Quote Link to comment Share on other sites More sharing options...
FGSIST Posted August 22, 2009 Report Share Posted August 22, 2009 Alguém testou o problema com a buttonbar como eu postei acima? Fico no aguardo. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC / Quote Link to comment Share on other sites More sharing options...
william Posted August 22, 2009 Author Report Share Posted August 22, 2009 Gilson boa tarde, ainda nao testei com barra de botoes, assim que testar e resolver posto as mudancas. Luis, as telas ficaram diferentes no exemplo que eu postei ? Ou em algum exemplo seu ? O unico problema do seu exemplo Luiz é que mexe em classes nativas do FW, daà toda vez que mudar de versao tem que verificar se a classe que vc modificou ainda é compativel com a nova versao , e substitui-la e refazer a LIB... pra mim da muito trabalho. O seu FWH está com a dialog.prg modificada? Talvez a funcao RESIZ() nao funcione corretamente, ela foi feita para trabalhar com a dialog NATIVA do FW. Se puder descobrir o motivo de nao funcionar contigo, fico muito agradecido. Abraço William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 Quote Link to comment Share on other sites More sharing options...
FGSIST Posted August 22, 2009 Report Share Posted August 22, 2009 Valeu Willian fico no aguardo, no mais estou satisfeito com esta função só tá faltando mesmo é a parte da buttonbar, fora isso como já disse show de bola. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC / Quote Link to comment Share on other sites More sharing options...
LUIS1361303120 Posted August 22, 2009 Report Share Posted August 22, 2009 e pode ser isso, vou olhar sem usar a modificacao,, valeu e parabens pela sua iniciativa, eu acho que na minha opniao, todos de uma forma deveria tb se tiver alguma novidade no fw e criaram tb compartilhar com todos nos, para que o fw se torne a biblioteca universal,,, parabens.. Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 24, 2009 Report Share Posted August 24, 2009 William, não consegui usar nem a pau. Coloquei comandos na 1ª. Dialog, funcionou, quando coloquei na segunda dialog, explodiu este erro abaixo: Aplica‡Æo: =========== Caminho(Path): C:\AGENDA\AGENDA.EXE (32 bits) Tamanho: 1,282,048 bytes Hora Inicial: 0 hours 0 mins 2 secs Ocorrencia de Erro: 23/08/2009, 10:55:54 Descri‡Æo do Erro: Error BASE/1089 Erro nos parƒmetros: ABS Argumentos: [ 1] = U Chamada da Pilha: ================= Chamada De: ABS(0) Chamada De: AJA_FLD(618) Chamada De: AUTRESIZ(291) Chamada De: (b)AGENDTEL(594) Chamada De: TDIALOG:INITIATE(0) Chamada De: TDIALOG:HANDLEEVENT(0) Chamada De: DIALOGBOX(0) Chamada De: TDIALOG:ACTIVATE(0) Chamada De: AGENDTEL(594) Chamada De: (b)GERADOR_FW(494) Chamada De: TBUTTON:CLICK(0) Chamada De: TBUTTON:HANDLEEVENT(0) Chamada De: _FWH(3351) Chamada De: SENDMESSAGE(0) Chamada De: TDIALOG:COMMAND(0) Chamada De: TWINDOW:HANDLEEVENT(0) Chamada De: TDIALOG:HANDLEEVENT(0) Chamada De: DIALOGBOX(0) Chamada De: TDIALOG:ACTIVATE(0) Chamada De: GERADOR_FW(620) Chamada De: MAIN(91) 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...
william Posted August 24, 2009 Author Report Share Posted August 24, 2009 Joao bom dia, nao tenho o codigo fonte da sua agenda para ver, mas pelas telas (legais) do seu sistema pude verificar o seguinte: - vc esta usando um say que se move, talvez seja a classe Dsay ou outra, e essa ainda nao implementei no AutResiz() - Vc esta usando Listbox, eu ainda nao testei - Vc esta usando Group sem atribuir uma fonte a ele Lembre-se que é obrigatorio atribuir fonte a todos os controles, aos group, checkboxes, radio, etc... O seu erro parece ser de algum controle sem ter a fonte atribuida, pois a funcao AJA_FLD() faz justamente isso, redimensiona as fontes. verifique e me diga William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 Quote Link to comment Share on other sites More sharing options...
FGSIST Posted August 24, 2009 Report Share Posted August 24, 2009 Olá Willian tá ficando muito bom mesmo, fora o ajuste na buttonbar que estou aguardando, testei na listbox e não deu certo não, ou seja os headers e fields da listbox não acompanham a resolução. Abraços Gilson E-mail: Fgsistem@yahoo.com.br MSN: fgsistem@hotmail.com Clipper 5.3 / Fw 2.6 / BLINKER 7.0 / WORKSHOP 4.5 / Fwh 2.6 / Harbour 0.45 / Bcc 5.6 / Ads 8.0 / PellesC / Quote Link to comment Share on other sites More sharing options...
william Posted August 24, 2009 Author Report Share Posted August 24, 2009 olá Gilson boa tarde, o Listbox eu ainda nao ajustei, mas deve seguir o mesmo principio da Xbrowse. Eu estou tentando arrumar a toolbar e a barbutton, mas ambas estao dando problema e ainda nao finalizei. Assim que tiver adaptado mais controles na funcao, postarei as mudancas para todos. Se puderes ir me ajundando a testar com outros controles , seria bom se tivesse uma lista dos controles que faltam para corrigir. Desta forma o AutResiz() uma hora vai estar completo e redondinho.... abraço William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 Quote Link to comment Share on other sites More sharing options...
kleyber Posted August 24, 2009 Report Share Posted August 24, 2009 citação:Nao e desprezando essa contribuicao nao, mas comigo as telas ficou todas fora do posicionamento,, eu uso essa que vou postar em baixo e nao da esse problema,, vc altera a dialog.prg de sua versao do fw...? e acrescenta essas opcoes, essa contribuicao foi do Ednaldo Rolim, essa alteracao e funciona legal tb.. /* // Ol pessoal... Dias atr s estava com problemas com o tamanho de uma // dialog e acabei encontrando esta solu‡Æo desenvolvida pelo nosso amigo // EDNALDO ROLIM. // Esta Solu‡Æo foi postada no F¢rum por outro amigo o JoÆo Santos "KARINHA" // Testei e achei muito boa, pois resolve quase que na totalidade os problemas // de redirecionamento das Dialogs criadas tanto em WorkShop quanto que em // @ Say nas diversas configura‡äes dos Monitores de nossos clientes... // Existem ainda alguns pequenos problemas com os Botäes, como j havia // mencionado o amigo "KARINHA", m s f¢ra isto, funciona perfeitamente... // Se algu‚m conseguir solucionar o Problema dos Botäes, poste novamente aqui // em Dicas + Dicas a versÆo atualizada... Um abra‡o... Valdir - Jundia¡ - S.P. // Como Usar ? // Inclua esta Dialog.prg nos seus arquivos RMK e LNK // Compile normalmente // Em todos os Activate Dialog Usar Como Segue Abaixo: // ACTIVATE DIALOG oDlg ON INIT oDlg:MISetSize() // É Isto. Show(). // Pronto. Seu diálogo vai se tornar do tamanho da sua tela, // sendo acrescido por um fator aPor. // Esse método usa um array com o percentual de ajuste, mas pode // ser apenas um número, se vc não quiser passar valores fora dos padrões. // Ednaldo Rolim */ #include "FiveWin.ch" #include "Constant.ch" //----------------------------------------------------------------------------// CLASS TDialog FROM TWindow METHOD MISetSize( aPor ) ENDCLASS *------------------------------------------ METHOD MISetSize( aPor ) CLASS TDialog LOCAL hDlg := ::hWnd LOCAL hCtrl:= GetWindow( hDlg, GW_CHILD ) LOCAL hFont, oFont, I, AINFO, aRect, nWidth, nHeight, lRepaint:=.T. LOCAL nPorH, nPorV, nIdControl, nPosControl DEFAULT aPor := DLG_RESOLUCION( Self ) nPorH := aPor[1] nPorV := aPor[2] if nPorh=1 .and. nPorv=1 return nil endif nWidth := ::nWidth * nPorH nHeight:= ::nHeight * nPorV Super:SetSize( nWidth, nHeight, lRepaint ) ::Move( MAX( WndTop( hDlg),1), MAX(WndLeft( hDlg),1) ) **** Redimensionamento dos Controles While hCtrl != 0 .AND. GetParent( hCtrl ) == hDlg aRect := GetClientRect( hCtrl ) nWidth := (aRect[4]-aRect[2]) * nPorH nHeight := (aRect[3]-aRect[1]) * nPorV WndSetSize( hCtrl, nWidth, nHeight, lRepaint ) WndLeft( hCtrl, WndLeft( hCtrl) * nPorh) WndTop( hCtrl, WndTop( hCtrl) * nPorv) hCtrl = GetWindow( hCtrl, GW_HWNDNEXT ) Enddo *** Redimensionamento das Fontes FOR I=1 TO LEN(::aControls) IF ::aControls:ofont != nil hFont := ::aControls:ofont:hFont aInfo = GetFontInfo( hFont ) oFont = TFont():New(::aControls:ofont:cFaceName, ; (aInfo[2]*nPorV), (aInfo[1] * nPorH), , ; ::aControls:ofont:lBold, ; ::aControls:ofont:nEscapement, ; ::aControls:ofont:nOrientation, ; aInfo[3], ::aControls:ofont:lItalic, ; ::aControls:ofont:lUnderline, ; ::aControls:ofont:lStrikeOut, ; ::aControls:ofont:nCharSet, ; ::aControls:ofont:nOutPrecision, ; ::aControls:ofont:nClipPrecision, ; ::aControls:ofont:nQuality, ) ::aControls:SETFONT(ofont) endif NEXT Return Nil //----------------------------------------------------------------------------// FUNCTION DLG_RESOLUCION( oDlg ) LOCAL aPor := {1,1}, nWidth := GetSysMetrics(0), ; nHeight := GetSysMetrics(1) LOCAL nPor_640 := 1, nPor_800 := 1.2500, nPor_1024 := 1.6000, ; nPor_1152 := 1.800 DO CASE // DIALOGO DESENHADO PARA 1152x864 CASE oDlg:nWidth>1360 .OR. oDlg:nHeight>768 nPor_640 := 0.5555 // 0.3 nPor_800 := 0.6944 // 0.5 nPor_1024 := 0.8897 // 0.8 nPor_1152 := 1.0 // DIALOGO DESENHADO PARA 1152x864 CASE oDlg:nWidth>1024 .OR. oDlg:nHeight>768 nPor_640 := 0.5555 // 0.3 nPor_800 := 0.6944 // 0.5 nPor_1024 := 0.8897 // 0.8 nPor_1152 := 1.0 // DIALOGO DESENHADO PARA 1024x768 CASE oDlg:nWidth>800 .OR. oDlg:nHeight>600 nPor_640 := 0.6250 // 0.6250 nPor_800 := 0.7812 // 0.7812 nPor_1024 := 1.0000 // 1.0000 nPor_1152 := 1.2500 // 1.1250 // DIALOGO DESENHADO PARA 800x600 CASE oDlg:nWidth>640 .OR. oDlg:nHeight>480 nPor_640 := 0.8 // 0.8 nPor_800 := 1.0 // 1.0 nPor_1024 := 1.2800 // 1.2800 nPor_1152 := 1.4400 // 1.4400 ENDCASE IF nWidth >= 1280// ESTAMOS EM 1360x768 aPor := { nPor_1024, nPor_1024 } elseif nWidth >= 1152 // ESTAMOS EM 1152x864 aPor := { nPor_1152, nPor_1152 } ELSEIF nWidth >= 1024 // ESTAMOS EM 1024x768 aPor := { nPor_1024, nPor_1024 } ELSEIF nWidth >= 800 // ESTAMOS EM 800x600 aPor := { nPor_800, nPor_800 } ELSEIF nWidth >= 640 // ESTAMOS EM 640x480 aPor := { nPor_640, nPor_640 } ENDIF RETURN aPor e usa esse como exemplo em suas dialogs: on init odlg1:misetsize() id=quote>id=quote>Uma pergunta, Luis: Isto funciona somente com as dialogs, certo? E quanto a Window, como ficaria, por exemplo, um sistema onde a tela principal é uma Window e o restante das telas são dialogs? (que é o meu caso) Kleyber Derick xHarbour 1.1.0 + FWH 8.02 (BMW Zerada!!!) + xDevStudio + SQLLIB Visite São LuÃs - MA A Ilha dos Amores Quote Link to comment Share on other sites More sharing options...
william Posted August 24, 2009 Author Report Share Posted August 24, 2009 Keyber , sua pergunta foi para o Luis mas me deixe te perguntar, vc testou a minha funcao com Window ao inves de dialog ? Funcionou ? Obrigado William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted August 24, 2009 Report Share Posted August 24, 2009 citação:Joao bom dia, nao tenho o codigo fonte da sua agenda para ver, mas pelas telas (legais) do seu sistema pude verificar o seguinte: - vc esta usando um say que se move, talvez seja a classe Dsay ou outra, e essa ainda nao implementei no AutResiz() - Vc esta usando Listbox, eu ainda nao testei - Vc esta usando Group sem atribuir uma fonte a ele Lembre-se que é obrigatorio atribuir fonte a todos os controles, aos group, checkboxes, radio, etc... O seu erro parece ser de algum controle sem ter a fonte atribuida, pois a funcao AJA_FLD() faz justamente isso, redimensiona as fontes. verifique e me diga William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 id=quote>id=quote>William, desculpe a demora, então, você precisa instruir o programa, para avisar, ou ignorar se não achou as fontes, e se eu não quiser fonte em algum lugar?? 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...
william Posted August 24, 2009 Author Report Share Posted August 24, 2009 Kapi , obrigado pela dica. Se nao houver fonte atribuida ao controle a funcao AutResiz() deve pegar a fonte defaut do controle e redimensiona-la. Quando nao se define a fonte no controle, a instrucao odlg:acontrols:oFont retorna NIL , por isso da o erro. Ja anotei e assim que tiver + mudancas postarei novamente. PS: Mas nao custa nada fazer : controle:ofont:= suafonte ate resolver isso. Obrigado William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 Quote Link to comment Share on other sites More sharing options...
LUIS1361303120 Posted August 24, 2009 Report Share Posted August 24, 2009 kleyber nao desmerecendo a telas do William,, mas essa funcao que eu estou usando ate agora nas minhas aplicacoes cumpre certinho, e em todas as dialogs ficaram redondinhas,, mas nao fui eu que fiz, esta aqui no forum, e so coloquei na dialog.prg que acompanha o meu fivewin 9.04 mas parece que as telas do william vai evoluir muito, e isso e muito bom,, parabens, faca um teste ai kleyber.... Quote Link to comment Share on other sites More sharing options...
william Posted August 24, 2009 Author Report Share Posted August 24, 2009 Luis boa noite, nesta funcao que vc mostrou ela redimensiona a Barbutton e a Toolbar corretamente ? O principio de redimensionamento dela é parecido com o da minha , porem nao estou conseguindo fazer redimensionar nem a buttonbar e nem a toolbar. E os folders e todos os controles dentro do folder, ela redimensiona corretamente ? obrigado William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 Editado por - william on 24/08/2009 21:49:26 Quote Link to comment Share on other sites More sharing options...
william Posted August 25, 2009 Author Report Share Posted August 25, 2009 Luis bom dia, testei a funcao que vc postou e veja o que eu notei: - Nao redimensiona as fontes dos headers , footers e colunas do xbrowse - Nao encaixa o say com fonte corretamente no controle (daà vc precisa ficar se preocupando com o tamanho das fontes...) - Nao redimensiona nada que estiver dentro de um folder. (erro grave) - Redimensiona a largura da barra de botoes ( buttonbar ), mas nao redimensiona o tamanho dos botoes. - nao redimensiona a TOOLBAR , nem a largura nem os fontes. Os fontes da toolbar ficaram todos errados (maiores). - Nao redimensiona os botoes da toolbar - na classe timage nao redimensiona e nao posiciona corretamente o controle. - tem que mexer na classe Dialog.prg, nativa do FW (muito trabalhoso) Eu testei em cima do meu exemplo que eu postei (Testfld2.exe) e infelismente nao ficou bom. Portanto concluà que está bem mais incompleta do que a minha... Por isso , sigo tentando melhorar a AutResiz() mesmo, é a + completa. Abraço William Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 Editado por - william on 25/08/2009 10:11:39 Quote Link to comment Share on other sites More sharing options...
LUIS1361303120 Posted August 25, 2009 Report Share Posted August 25, 2009 Willian,, nao fui eu que desenvolvi essa classe ou alterei a dialog.prg,, foi um tal de rolim, que nem conheco.,, entao fica dificil, te dizer se esta certo ou nao,, eu uso, por que foi a primeira opcao que tive para resolver o meu problema,, mas pode ter certeza se o seu funcionar comigo, vou largar mao do dialog.prg e passar a usar o seu,,, a hora que tiver todos resolvivo os problemas com outros usuarios me avise para usar,,,,, fiz uns teste aqui,, mas eu acho que e obrigatorio colocar fonts em todos os objetos, para dar certo, vai ver ai que eu estou errando, e boa sorte para todos nos e parabens + uma vez... luis antonio da paixao sao sebastiao do paraiso/MG fw 905 e xharbour e wokrshop... 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.