jcleoner Posted December 4, 2006 Report Share Posted December 4, 2006 Alguem sabe como faço para consertar o get da 2a tela. As duas estão no mesmo sistema. A primeira normal feita no Pelles e a segunda utilizando @ Say / Get. Nessa segunda tela os get não saem com a borda como na primeira tela. Vagner, o Style 4 que voce me sugeriu não funcionou. José Carlos Guarulhos-SP FW 2.0 / Clipper 5.2e / WS | FWH 2.7 / xHarbour 99.51 / xDev / Pelles / SqlLib(MySql) Quote Link to comment Share on other sites More sharing options...
jcleoner Posted December 4, 2006 Author Report Share Posted December 4, 2006 Alguem sabe como faço para consertar o get da 2a tela. As duas estão no mesmo sistema. A primeira normal feita no Pelles e a segunda utilizando @ Say / Get. Nessa segunda tela os get não saem com a borda como na primeira tela. Vagner, o Style 4 que voce me sugeriu não funcionou. José Carlos Guarulhos-SP FW 2.0 / Clipper 5.2e / WS | FWH 2.7 / xHarbour 99.51 / xDev / Pelles / SqlLib(MySql) Quote Link to comment Share on other sites More sharing options...
pauloaraujo Posted December 4, 2006 Report Share Posted December 4, 2006 Zé, Se eu não me engano, você tem que colocar a opção BORDER no GET e o SET 3DLOOK ON Agora, porque você não faz as 2 com o Pelles??? Quote Link to comment Share on other sites More sharing options...
jcleoner Posted December 5, 2006 Author Report Share Posted December 5, 2006 Paulo Porque existem situações em que uma forma se encaixa melhor que outra. No Get não existe BORDER, só o NOBORDER. SET 3DLOOK ON tambem não resolve. Se eu tirar o MANIFEST resolve, mas aà ele deixa de ficar igual ao XP. José Carlos Guarulhos-SP FW 2.0 / Clipper 5.2e / WS | FWH 2.7 / xHarbour 99.51 / xDev / Pelles / SqlLib(MySql) Editado por - jcleoner on 05/12/2006 07:51:28 Editado por - jcleoner on 05/12/2006 07:53:05 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted December 5, 2006 Report Share Posted December 5, 2006 Mostre o Código zé... João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
jcleoner Posted December 5, 2006 Author Report Share Posted December 5, 2006 aà está João DEFINE FONT oFont NAME 'Arial' SIZE 0, -12 cLinha = 175 cColuna = 191 cCompr = 450 cAltura = 193 DEFINE DIALOG oDlg PIXEL ; FROM cLinha, cColuna TO (cLinha+cAltura) , cColuna+cCompr-2 ; Font oFont ; Style 4 ; TITLE "Teste" // MDICHILD @ 2, 4 GROUP oGroup TO 74 , 218 ; PROMPT "Grupo" PIXEL OF oDlg (oGap02:cAlias)->(DbGoTop()) Do while (oGap02:cAlias)->(!Eof()) n++ cText[n]:=Space(30) do case case Alltrim((oGAP02:cAlias)->Tipo) = "Say" @ (oGAP02:cAlias)->Linha, (oGAP02:cAlias)->Coluna ; SAY oCtl[n] PROMPT AllTrim((oGAP02:cAlias)->Titulo) ; SIZE (oGAP02:cAlias)->Compr, 10 ; FONT oFont Right ; PIXEL OF oDlg case Alltrim((oGAP02:cAlias)->Tipo) = "Get" @ (oGAP02:cAlias)->Linha, (oGAP02:cAlias)->Coluna ; GET oCtl[n] VAR cText[n] ; SIZE (oGAP02:cAlias)->Compr, 10 ; //Info->Height/2 ; FONT oFONT ; PIXEL OF oDlg case (oGAP02:cAlias)->Tipo == "CHK" @ (oGAP02:cAlias)->Linha, (oGAP02:cAlias)->Coluna ; CHECKBOX oCtl[n] VAR lTest ; SIZE (oGAP02:cAlias)->Compr, 10 ; PIXEL OF oDlg case (oGAP02:cAlias)->Tipo == "BOT" @ (oGAP02:cAlias)->Linha, (oGAP02:cAlias)->Coluna ; BUTTONBMP oCtl[n] BITMAP 'BOT_SALVAR'; SIZE (oGAP02:cAlias)->Compr , 14 ; PIXEL OF oDlg FONT oFONT endcase (oGAP02:cAlias)->(DBSKIP()) end (oGAP02:cAlias)->(DBgobottom()) @ (oGAP02:cAlias)->Linha+19, 20 ; BUTTONBMP oCtl[n] BITMAP 'BOT_SALVAR'; SIZE 44,12 ; PIXEL OF oDlg FONT oFONT ACTIVATE DIALOG oDlg Centered José Carlos Guarulhos-SP FW 2.0 / Clipper 5.2e / WS | FWH 2.7 / xHarbour 99.51 / xDev / Pelles / SqlLib(MySql) Quote Link to comment Share on other sites More sharing options...
DougDba Posted December 5, 2006 Report Share Posted December 5, 2006 Ola !!! Basta acrescentar a clausula SIZE Ex. @ Lin, Col get oObj Var cObj Picture "@!" Size 60,11 Abraços, "Não subestime seu usuário. Aprenda com ele." IV Encontro de Programadores FiveWin "I´ll be there" Doug Cajamar - SP FWH / xHarbour 0.99.61 Msn-dba2000@hotmail.com Quote Link to comment Share on other sites More sharing options...
kapiaba Posted December 5, 2006 Report Share Posted December 5, 2006 //-> Teste Este Exemplo... Abraços. #Include "FiveWin.Ch" FUNCTION Main() LOCAL cLinha, cColuna, cCompr, cAltura, oGet1, oSaida LOCAL oDlg, oFont, oGroup, nTest := 0 cLinha := 175 cColuna := 191 cCompr := 450 cAltura := 222 DEFINE FONT oFont NAME 'Arial' SIZE 0, -14 BOLD DEFINE DIALOG oDlg FROM cLinha, cColuna ; TO ( cLinha + cAltura ), cColuna+cCompr-2 ; Font oFont ; TITLE "Teste do Get" ; PIXEL ; STYLE nOR( DS_MODALFRAME ) oDlg:lHelpIcon := .F. @ 2, 4 GROUP oGroup TO 74 , 218 ; PROMPT "Grupo" PIXEL OF oDlg @ 15, 30 GET oGet1 VAR nTest PICTURE "@K 99999999.99" ; UPDATE ; SIZE 60, 14 PIXEL OF oDlg ; RIGHT ; FONT oFont @ 080, 080 BUTTON oSaida PROMPT "&Saida " ; SIZE 50, 12 PIXEL OF oDlg ; ACTION ( oDlg:End() ) CANCEL SET FONT OF oSaida TO oFont ACTIVATE DIALOG oDlg CENTERED RESIZE16 oFont:End() Release All RETURN NIL id=code>id=code>João Santos - São Paulo. kmt_karinha@pop.com.br kapiaba@brfree.com.br FWH 2.7 - xHARBOUR 0.99.61 - WorkShop.Exe Quote Link to comment Share on other sites More sharing options...
jcleoner Posted December 5, 2006 Author Report Share Posted December 5, 2006 Doug, veja que já tem o Size no get. João, negativo meu amigo. Não funcionou. Espero achar uma solução para isso José Carlos Guarulhos-SP FW 2.0 / Clipper 5.2e / WS | FWH 2.7 / xHarbour 99.51 / xDev / Pelles / SqlLib(MySql) Editado por - jcleoner on 05/12/2006 13:31:15 Quote Link to comment Share on other sites More sharing options...
jcleoner Posted December 5, 2006 Author Report Share Posted December 5, 2006 João e amigos Resolvido o problema Ocorre que a tela anterior que dispara essa que esta com problema tem um brush e isso está afetando os gets. Chamei ela de outro ponto sem que existisse brush e aà ficou perfeita. Grato a todos. José Carlos Guarulhos-SP FW 2.0 / Clipper 5.2e / WS | FWH 2.7 / xHarbour 99.51 / xDev / Pelles / SqlLib(MySql) Quote Link to comment Share on other sites More sharing options...
helio1361303486 Posted December 5, 2006 Report Share Posted December 5, 2006 Jose Carlos, que botões são esses que vc esta usando ? dá para alterar a fonte e colocar o bitmaps em qualquer lado do botão? Abraço. Hélio xharbour Quote Link to comment Share on other sites More sharing options...
jcleoner Posted December 5, 2006 Author Report Share Posted December 5, 2006 Oi Hélio Esse botão está com a classe ButtomBmp do fivewin. Na verdade voce faz cria uma imagem junto com o tÃtulo e depois chama pelo seguinte comando REDEFINE BUTTONBMP o151 ID 4001 OF oDlg BITMAP "BOT_ABRIR" ; ACTION ( CAMINHO(oTitulo,@cTitulo,wPar) ) veja um exemplo de uns botões no software que vou lançar em janeiro José Carlos Guarulhos-SP FW 2.0 / Clipper 5.2e / WS | FWH 2.7 / xHarbour 99.51 / xDev / Pelles / SqlLib(MySql) Quote Link to comment Share on other sites More sharing options...
vagner Posted December 5, 2006 Report Share Posted December 5, 2006 Olá Zé Bom, e se o pessoal usar a VGet ou a VBtnBmp ? que está na VLib ?, poderá ser acrescentado nesse seu programa também ? Vagner Wirts Clipper 5.2 Lib 5.3 - Blinker 5.0 FW 2.0, Harbour 43.0 (Flex), xHarbour 99.1 99.2 99.3 (Simplex) FW 2.5 Quote Link to comment Share on other sites More sharing options...
jcleoner Posted December 6, 2006 Author Report Share Posted December 6, 2006 Oi Vagner Teria que testar, mas acredito que funcionaria sem problemas. José Carlos Guarulhos-SP FW 2.0 / Clipper 5.2e / WS | FWH 2.7 / xHarbour 99.51 / xDev / Pelles / SqlLib(MySql) Quote Link to comment Share on other sites More sharing options...
evandro Posted December 6, 2006 Report Share Posted December 6, 2006 Olá, Poderia até ter a opção de gerar o código com a VGet. []s, Evandro G. de Paula Curvelo - MG evandro@skillnet.com.br (Escr. - na Cidade) imortal@skillnet.com.br (Res. - na Roça) FWH 2.6+PellesC+MyMake+xHarbour.org 0.99.5+SqlLib 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.