Geraldo (gbsilva) Posted September 8, 2011 Report Share Posted September 8, 2011 Pessoal já incomodei o Willian, mas não consegui resolver. Desenhei uma tela no Pelles na resolução 1024 x 768 e compilei e no meu prg fiz assim: ACTIVATE DIALOG oDlg ON INIT display(oDlg,3,.t.) CENTERED Enquanto estou nessa resolução fica normal, mas ai mudo a resolução do meu monitor para testar que é 1400 x 1050, lembrando que inclui essa resolução no prg da display (ver link abaixo). Veja imagens no link a imagem1 estou na resolução 1024 e ao mudar veja como fica, o Dialog não redimensiona. Lembrando que é um teste o dialog foi feito e salva na resolução menor. Grato a todos, Fotos das Telas http://imageshack.us/g/851/imagem1vg.jpg/ Link do Tópico sobre incluir nova resolução entre outros http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=17683 Geraldo B. Silva FWH 2.6 Junho/2005, xHarbour 0.99.50 (Simplex), Bcc55, Pelles, xDev, MyMake, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP Quote Link to comment Share on other sites More sharing options...
Geraldo (gbsilva) Posted September 8, 2011 Author Report Share Posted September 8, 2011 Pessoal já incomodei o Willian, mas não consegui resolver. Desenhei uma tela no Pelles na resolução 1024 x 768 e compilei e no meu prg fiz assim: ACTIVATE DIALOG oDlg ON INIT display(oDlg,3,.t.) CENTERED Enquanto estou nessa resolução fica normal, mas ai mudo a resolução do meu monitor para testar que é 1400 x 1050, lembrando que inclui essa resolução no prg da display (ver link abaixo). Veja imagens no link a imagem1 estou na resolução 1024 e ao mudar veja como fica, o Dialog não redimensiona. Lembrando que é um teste o dialog foi feito e salva na resolução menor. Grato a todos, Fotos das Telas http://imageshack.us/g/851/imagem1vg.jpg/ Link do Tópico sobre incluir nova resolução entre outros http://www.fivewin.com.br/forum/topic.asp?TOPIC_ID=17683 Geraldo B. Silva FWH 2.6 Junho/2005, xHarbour 0.99.50 (Simplex), Bcc55, Pelles, xDev, MyMake, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP Quote Link to comment Share on other sites More sharing options...
william Posted September 8, 2011 Report Share Posted September 8, 2011 Olá Gilberto, se vc desenhou o dialog na resolucao de 1024 X 768 , nao precisa acrescentar a resolucao de 1400 X 1050 . Só precisaria incluir se vc desenhasse inicialmente o dialog em 1400 X 1050. A chamada da funcao display(oDlg,3,.t.) tambem esta correta, nao sei o que pode estar acontecendo. Se puder colocar o codigo seria melhor para analizar... William Sonhei que estava acordado... acordei pra ver e estava dormindo... Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 , Display 3.0 Quote Link to comment Share on other sites More sharing options...
Geraldo (gbsilva) Posted September 9, 2011 Author Report Share Posted September 9, 2011 William fiz um novo teste, criei do zero na resolução menor, mas veja que pelo menos nesse teste o texto do Pelles é que não ajusta, talvez seja alguma configuração que tenha que ser feita. Coloquei 3 imagens: A Tela desenhada no Pelles, a tela em 1024 x 768 e por fim na resolução do meu monitor 1400 x 1050. Grato pelo retorno, #include "tsbutton.ch" #Include "DbCombo.Ch" #Include "SSay.ch" #Include "sqllib.Ch" Function CadFun() local oBrw,oFont,nFont,oHand,oIco,oDlg,oSay,IdCor local oGrava,oFecha,oLanca local oFunc,oEmpresa,oCargo,oSetor,oSuper,oEstado local aStatus,aRede local nTop,nLeft,aCoor[4] local oCad[40] //-> Instanciando Objetos oFunc := TFuncionario():new() oFunc:Open() ***************************** oEmpresa := TEmpresa():new() oEmpresa:Open() ***************************** DEFINE FONT nFont NAME "Ms Sans Serif" SIZE 0,-10 DEFINE FONT oFont NAME "Time New Roman" SIZE 0,14 BOLD DEFINE CURSOR oHand RESOURCE "Dedo" DEFINE ICON OICO RESOURCE "MONEY" DEFINE DIALOG oDlg RESOURCE "TESTE" OF oDlg ; ICON oIco Title "Cadastro de Funcionários" COLOR CLR_VERDEAGUA,CLR_CREME oDlg:lHelpIcon := .F. REDEFINE GET oCad[1] VAR oFunc:registro ID 21 OF oDlg PICTURE "@K 9999999999" ; FONT oFont REDEFINE DBCOMBO oCad[2] VAR oEmpresa:id_empresa ID 101 OF oDlg ; ALIAS "cad_empresa" ; ITEMFIELD "id_empresa" ; LISTFIELD "empresa" ; COLORS CLR_BLUE, CLR_WHITE ; UPDATE oCad[2]:oFont:=oFont REDEFINE SBUTTON oGrava RESOURCE "SAVE" PROMPT "Gravar" ID 701 OF oDlg oGrava:SetFont(oFont) REDEFINE SBUTTON oFecha RESOURCE "FECHAR" PROMPT "Fechar" ID 702 OF oDlg ; ACTION( oDlg:End() ) TOOLTIP "Fecha tela" oFecha:SetFont(oFont) oFecha:lCancel := .T. ACTIVATE DIALOG oDlg ON INIT display(oDlg,3,.t.) CENTERED //desenhada em 1024 X 768 oFunc:Close() oEmpresa:Close() return(.t.) id=code>id=code>Link para imagens: http://imageshack.us/g/801/telaem14001050.jpg/ Se alguém usa a display com Pelles, poderia dar a dica se existe alguma configuração a ser feita na Dialog. Grato, Geraldo B. Silva FWH 2.6 Junho/2005, xHarbour 0.99.50 (Simplex), Bcc55, Pelles, xDev, MyMake, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP Quote Link to comment Share on other sites More sharing options...
elitenet Posted September 12, 2011 Report Share Posted September 12, 2011 Geraldo Ja quebrei cabeça com esta classe usando PellesC e não consegui 100% de sucesso de forma alguma. Sempre fica controles que não redimensiona. Muriaé-MG FWH 2.6/XHARBOUR/C/C++/JAVA/DELPHI/MYSQL/FIREBIRD Quote Link to comment Share on other sites More sharing options...
william Posted September 13, 2011 Report Share Posted September 13, 2011 boa noite, vendo seu codigo vi que o say nao redimensiona porque vc nao declarou o say no seu codigo: Faltou vc inserir no seu codigo: redefine say id ... of odlg prompt "Digite o Codigo" redefine say id ... of odlg prompt "Empresas" por isso nao redimensionou. Lembre-se que todos os controles devem ser declarados no codigo, inclusive os says estaticos dos dialogs. Abraço William Sonhei que estava acordado... acordei pra ver e estava dormindo... Xharbour 1.0 - Fwh - Sqlrdd , Mysql 5.0, PHP, WS , Timprime 4.0 , Display 3.0 Editado por - william on 13/09/2011 21:10:55 Quote Link to comment Share on other sites More sharing options...
joaosolution Posted September 14, 2011 Report Share Posted September 14, 2011 Bom dia Desculpe a intromissão, mas utilizo estaa classe em um sistema inteiro e não tive problema nenhum em redimensinamento. Basta sempre declarar todos os SAY´s e GET´s e etc. Você deve declarar todos os controles no seu PRG até os Groupbox. Att João Bosco Contagem/MG FWH 10.6b xHb 1.2.1 WorkShop 4.5 PellesC SQLLIB SQLRDD Quote Link to comment Share on other sites More sharing options...
edutraini Posted September 14, 2011 Report Share Posted September 14, 2011 esse programa display funciona para botoes desenhados no workshop pois estou fazendo os testes e algums botoes nao redimensiona FW24 + xharbour email :edutraini@uol.com.br Quote Link to comment Share on other sites More sharing options...
Geraldo (gbsilva) Posted September 14, 2011 Author Report Share Posted September 14, 2011 Obrigado Willian já tinha até desistido, mas depois da sua observação e do João vou voltar a testar essa implementação. Grato, Geraldo B. Silva FWH 2.6 Junho/2005, xHarbour 0.99.50 (Simplex), Bcc55, Pelles, xDev, MyMake, Sqllib e MySql. lucgera@terra.com.br São Paulo - SP 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.