jc Posted February 19, 2008 Report Share Posted February 19, 2008 Olá amigos!!! Alguém que faça uso da classe BtnGet já utilizou com campos numéricos alinhados à direita? Precisei dessa formatação de tela e percebi que o valor digitado corre para debaixo do botão no BtnGet! Somente comigo ou isso é um bug da classe!? Dicas para correção? Obrigado a todos! Júlio César M. Ferreira Diretor de Tecnologia RS Consultores Ltda. Fone: (81) 4009.5444 Fax: (81) 4009.5400 E-mail: julio.mferreira@gmail.com MSN: julio_mferreira@hotmail.com Recife - PE FWh 2.5, xHarbour 0.99.51, SQL LIB, Pelles 4.50.113 Quote Link to comment Share on other sites More sharing options...
jc Posted February 19, 2008 Author Report Share Posted February 19, 2008 Olá amigos!!! Alguém que faça uso da classe BtnGet já utilizou com campos numéricos alinhados à direita? Precisei dessa formatação de tela e percebi que o valor digitado corre para debaixo do botão no BtnGet! Somente comigo ou isso é um bug da classe!? Dicas para correção? Obrigado a todos! Júlio César M. Ferreira Diretor de Tecnologia RS Consultores Ltda. Fone: (81) 4009.5444 Fax: (81) 4009.5400 E-mail: julio.mferreira@gmail.com MSN: julio_mferreira@hotmail.com Recife - PE FWh 2.5, xHarbour 0.99.51, SQL LIB, Pelles 4.50.113 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 19, 2008 Report Share Posted February 19, 2008 COMO ESTA O SEU ACTIVATE DIALOG?? USA RESIZE 16? SE SIM, RETIRE E USE O 0X4L NO DIALOGO. DESCULPE, NÃO VI QUE USAS O PELLESC.EXE AHI, AFERROSE. 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 Editado por - kapiaba on 19/02/2008 11:16:27 Quote Link to comment Share on other sites More sharing options...
jc Posted February 19, 2008 Author Report Share Posted February 19, 2008 Bom, utilizo o Pelles sim... apesar de já ter notado que vc é um defensor ferrenho do Workshop.... Meu Dialog está sendo ativado desta forma: id=code>id=code>Me explica pq eu me ferrei... Talvez exista alguma possibilidade de adaptar o recurso do teu work para o meu pelles, via código! Valeu João!!! Júlio César M. Ferreira Diretor de Tecnologia RS Consultores Ltda. Fone: (81) 4009.5444 Fax: (81) 4009.5400 E-mail: julio.mferreira@gmail.com MSN: julio_mferreira@hotmail.com Recife - PE FWh 2.5, xHarbour 0.99.51, SQL LIB, Pelles 4.50.113 Quote Link to comment Share on other sites More sharing options...
wanderso Posted February 19, 2008 Report Share Posted February 19, 2008 Vc deve estar usando máscara númerica maior que o campo (get) definido no pelles. Quote Link to comment Share on other sites More sharing options...
jc Posted February 19, 2008 Author Report Share Posted February 19, 2008 Na verdade não "wanderso"... Oq ocorre de fato, é que o alinhamento do campo é a direita... ou seja, independente do tamanho de campo/variável... ele sempre será jogado à direita do get, ficando por baixo do botão. Em campos alinhados à esquerda, basta ampliar o tamanho do get um pouco maior que o tamanho da variável... mas com alinhamento à direita, isso não funciona! Além de ser gambeta não é!! Grato! Júlio César M. Ferreira Diretor de Tecnologia RS Consultores Ltda. Fone: (81) 4009.5444 Fax: (81) 4009.5400 E-mail: julio.mferreira@gmail.com MSN: julio_mferreira@hotmail.com Recife - PE FWh 2.5, xHarbour 0.99.51, SQL LIB, Pelles 4.50.113 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 19, 2008 Report Share Posted February 19, 2008 DESCULPEM, É UM ERRO NA CLASSE MESMO. VOU PERGUNTAR QUAL A SAIDA NO FORUM INTERNACIONAL. TALVEZ, TENHA SIDO ALGUMA ALTERAÇÃO NA TGET.PRG QUE QUEBRA A BTNGET.PRG 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...
kapiaba Posted February 19, 2008 Report Share Posted February 19, 2008 //-> Senhores prestem atencao, se esta certo ou nao, so deus sabe... Testem. //----------------------------------------------------------------------------// METHOD Paint() CLASS TGet local aInfo := ::DispBegin() Local hOldFont //-> Mudancas Feitas em 22/12/2005 Por Antonio Linares //-> Para que o When(.F.) do GET, fique colorido normal. Muito bom. Joao. if ::oBrush != nil FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush ) else CallWindowProc( ::nOldProc, ::hWnd, WM_ERASEBKGND, ::hDC, 0 ) endif if IsWindowEnabled( ::hWnd ) CallWindowProc( ::nOldProc, ::hWnd, WM_PAINT, ::hDC, 0 ) else SetTextColor( ::hDC, ::nClrText ) SetBkColor( ::hDC, ::nClrPane ) hOldFont = SelectObject( ::hDC, ::oFont:hFont ) do case case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_CENTER ) SetTextAlign( ::hDC, TA_CENTER ) ExtTextOut( ::hDC, 0, ::nWidth() / 2, ; { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) ) /* //-> Original Modificado Por Antonio Linares - GET Normal case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_RIGHT ) SetTextAlign( ::hDC, TA_RIGHT ) ExtTextOut( ::hDC, 0, ::nWidth() - 4, ; { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) ) */ //-> Em 19/02/2008 - Mudei Para Que a BTNGET.PRG Funcione - Joao //-> Com o Alinhamento a Direita do GET - RIGHT Ligado do Workshop.exe //-> Mudei de - 4 Para - 64 e Aparentemente Funcionou. case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_RIGHT ) SetTextAlign( ::hDC, TA_RIGHT ) ExtTextOut( ::hDC, 0, ::nWidth() - 64, ; { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) ) otherwise SetTextAlign( ::hDC, TA_LEFT ) ExtTextOut( ::hDC, 0, 0, ; { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) ) endcase SelectObject( ::hDC, hOldFont ) endif if ValType( ::bPainted ) == "B" Eval( ::bPainted, ::hDC, ::cPS, Self ) endif ::DispEnd( aInfo ) return 1 id=code>id=code>//-> Agora, eu gostaria de saber como checar quando entra a classe TGET.PRG //-> E quando entra a classe BTNGET.PRG para poder decidir se e uma ou outra // Vagner da uma luz ahi... 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...
kapiaba Posted February 19, 2008 Report Share Posted February 19, 2008 //-> isto deve ser incorporado ao inicio da TGET.PRG #define ES_CENTER 1 #define ES_RIGHT 2 #define ES_LEFT 0 #Define TA_LEFT 0 #Define TA_RIGHT 2 #Define TA_CENTER 6 id=code>id=code>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...
vagner Posted February 19, 2008 Report Share Posted February 19, 2008 citação:Vagner da uma luz ahi... id=quote>id=quote>VGETid=size5>id=blue> Vagner Wirts VI Encontro está chegando , não perca Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 19, 2008 Report Share Posted February 19, 2008 citação: citação:Vagner da uma luz ahi... id=quote>id=quote>VGETid=size5>id=blue> Vagner Wirts VI Encontro está chegando , não perca id=quote>id=quote>HAHAHAHAHA. Gracinha da mamãe... O que eu quero saber, é programação lindinho... IF FOR A CLASSE == ´TGET´ FACA ISSO ELSEIF CLASSE == ´BTNGET´ FACA ISSO ENDIF id=code>id=code>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...
jc Posted February 19, 2008 Author Report Share Posted February 19, 2008 João... tenta dessa forma: IF oObj:className() == "TGET" ... ELSEIF oObj:className() == "BTNGET" ... ENDIF id=code>id=code>Júlio César M. Ferreira Diretor de Tecnologia RS Consultores Ltda. Fone: (81) 4009.5444 Fax: (81) 4009.5400 E-mail: julio.mferreira@gmail.com MSN: julio_mferreira@hotmail.com Recife - PE FWh 2.5, xHarbour 0.99.51, SQL LIB, Pelles 4.50.113 Quote Link to comment Share on other sites More sharing options...
jc Posted February 19, 2008 Author Report Share Posted February 19, 2008 Ô João... percebi que existem alguns fontes da BtnGet alterados em que o método className() está idêntico ao TGET, oq não pode! METHOD ClassName() INLINE "TGET" id=code>id=code>Deveria ser assim: METHOD ClassName() INLINE "BTNGET" id=code>id=code>É a identificação da classe... Vê se ajuda! Júlio César M. Ferreira Diretor de Tecnologia RS Consultores Ltda. Fone: (81) 4009.5444 Fax: (81) 4009.5400 E-mail: julio.mferreira@gmail.com MSN: julio_mferreira@hotmail.com Recife - PE FWh 2.5, xHarbour 0.99.51, SQL LIB, Pelles 4.50.113 Quote Link to comment Share on other sites More sharing options...
jc Posted February 19, 2008 Author Report Share Posted February 19, 2008 Fiz as devidas alterações, mas não funcionou Júlio César M. Ferreira Diretor de Tecnologia RS Consultores Ltda. Fone: (81) 4009.5444 Fax: (81) 4009.5400 E-mail: julio.mferreira@gmail.com MSN: julio_mferreira@hotmail.com Recife - PE FWh 2.5, xHarbour 0.99.51, SQL LIB, Pelles 4.50.113 Quote Link to comment Share on other sites More sharing options...
jc Posted February 19, 2008 Author Report Share Posted February 19, 2008 Ô Vagner... Essa sua classe VGet corrige esse problema de get com botão, valor numérico, alinhado a direita? Se positivo, como faço para começar a utilizá-la? Júlio César M. Ferreira Diretor de Tecnologia RS Consultores Ltda. Fone: (81) 4009.5444 Fax: (81) 4009.5400 E-mail: julio.mferreira@gmail.com MSN: julio_mferreira@hotmail.com Recife - PE FWh 2.5, xHarbour 0.99.51, SQL LIB, Pelles 4.50.113 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 19, 2008 Report Share Posted February 19, 2008 Na Minha Funciona... Voce alterou a classe TGET.PRG?? e incorporou ao seu projeto?? Veja: //-> Pensei em algo assim, pois pelo nome da classe, retornara sempre TGET. //-> Ja que a BTNGET.PRG Herda a Classe TGET.PRG //-> Alguem pode pensar em algo melhor?? Arre... //----------------------------------------------------------------------------// METHOD Paint() CLASS TGet local aInfo := ::DispBegin() Local hOldFont if ::oBrush != nil FillRect( ::hDC, GetClientRect( ::hWnd ), ::oBrush:hBrush ) else CallWindowProc( ::nOldProc, ::hWnd, WM_ERASEBKGND, ::hDC, 0 ) endif if IsWindowEnabled( ::hWnd ) CallWindowProc( ::nOldProc, ::hWnd, WM_PAINT, ::hDC, 0 ) else SetTextColor( ::hDC, ::nClrText ) SetBkColor( ::hDC, ::nClrPane ) hOldFont = SelectObject( ::hDC, ::oFont:hFont ) do case case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_CENTER ) SetTextAlign( ::hDC, TA_CENTER ) ExtTextOut( ::hDC, 0, ::nWidth() / 2, ; { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) ) case lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_RIGHT ) //-> Checa o Tamanho do Get If ::nWidth() < 149 SetTextAlign( ::hDC, TA_RIGHT ) ExtTextOut( ::hDC, 0, ::nWidth() - 4, ; { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) ) ElseIf ::nWidth() >= 150 SetTextAlign( ::hDC, TA_RIGHT ) ExtTextOut( ::hDC, 0, ::nWidth() - 67, ; { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) ) Endif otherwise SetTextAlign( ::hDC, TA_LEFT ) ExtTextOut( ::hDC, 0, 0, ; { 0, 0, ::nHeight(), ::nWidth() }, GetWindowText( ::hWnd ) ) endcase SelectObject( ::hDC, hOldFont ) endif if ValType( ::bPainted ) == "B" Eval( ::bPainted, ::hDC, ::cPS, Self ) endif ::DispEnd( aInfo ) return 1 id=code>id=code>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...
kapiaba Posted February 19, 2008 Report Share Posted February 19, 2008 Queres que te envie minha TGET.PRG modificada?? 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...
kapiaba Posted February 19, 2008 Report Share Posted February 19, 2008 BTNGET.PRG Original. *-- PROGRAM FILE ------------------------------------------------------- * Application: Addon for FiveWin * Description: TBtnGet - Colored TGet class with button * File Name: tbtnget.prg * Author: Ricardo Ramirez Tester: Ricardo Ramirez * Date created: 1998-01-01 Date updated: þ2001-03-26 * Time created: 8:17:12PM Time updated: þ16:028:17M * Copyright: © 1998-2000 by Punto-Co * * $Id: btnget.prg,v 1.4 2001/08/10 18:12:21 RRamirez Exp $ * * Compliments of: * George Georguiev *----------------------------------------------------------------------- #include "FiveWin.ch" #define GWL_STYLE -16 #define GWL_EXSTYLE -20 #define DS_3DLOOK 4 #define SM_CYVSCROLL 20 CLASS TBtnGet FROM TGet DATA bAction, cResName, oBtn, lBtnORBmp DATA nClrPFoText, nClrPFoPane, nClrDef DATA nBmpWidth, bTmpValid DATA nClrFocusText, nClrFocusPane // added. There was erased from FW 2.2c METHOD ClassName() INLINE "TGET" METHOD New( nRow, nCol, bSetGet, oWnd, nWidth, nHeight, cPict, ; bValid, nClrFore, nClrBack, oFont, lDesign, oCursor, ; lPixel, cMsg, lUpdate, bWhen, lCenter, lRight, bChanged,; lReadOnly, lPassword, lNoBorder, nHelpId, cResName, ; bAction, lSpinner, bUp, bDown, bMin, bMax, nBmpWidth ) ; CONSTRUCTOR METHOD ReDefine( nId, bSetGet, oWnd, nHelpId, cPict, bValid, ; nClrFore, nClrBack, oFont, oCursor, cMsg, lUpdate, ; bWhen, bChanged, lReadOnly, lSpinner, bUp, bDown, bMin, ; bMax, cResName, bAction ) CONSTRUCTOR METHOD Default() METHOD Initiate( hDlg ) INLINE Super:Initiate( hDlg ), ::Default() METHOD SetIniClr() METHOD Move() METHOD CalcDims( nTop, nLeft, nWidth, nHeight ) END CLASS METHOD New( nRow, nCol, bSetGet, oWnd, nWidth, nHeight, cPict, bValid,; nClrFore, nClrBack, oFont, lDesign, oCursor, lPixel, cMsg,; lUpdate, bWhen, lCenter, lRight, bChanged, lReadOnly,; lPassword, lNoBorder, nHelpId, cResName, bAction, lSpinner,; bUp, bDown, bMin, bMax, nBmpWidth ) CLASS TBtnGet Super:New( nRow, nCol, bSetGet, oWnd, nWidth, nHeight, cPict, ; bValid, nClrFore, nClrBack, oFont, lDesign, oCursor, ; lPixel, cMsg, lUpdate, bWhen, lCenter, lRight, bChanged, ; lReadOnly, lPassword, lNoBorder, nHelpId, lSpinner,; bUp, bDown, bMin, bMax ) DEFAULT nBmpWidth := 17 ::nStyle := nOr( ::nStyle, ES_MULTILINE ) ::bAction := bAction ::cResName := cResName ::lBtnORBmp := .F. ::nBmpWidth := nBmpWidth ::SetIniClr() Return Self METHOD ReDefine( nId, bSetGet, oWnd, nHelpId, cPict, bValid, nClrFore,; nClrBack, oFont, oCursor, cMsg, lUpdate, bWhen, ; bChanged, lReadOnly, lSpinner, bUp, bDown, bMin, ; bMax, cResName, bAction, nBmpWidth ) CLASS TBtnGet Super:ReDefine( nId, bSetGet, oWnd, nHelpId, cPict, bValid, ; nClrFore, nClrBack, oFont, oCursor, cMsg, lUpdate, ; bWhen, bChanged, lReadOnly, lSpinner, bUp, bDown, ; bMin, bMax ) DEFAULT nBmpWidth := 22 ::nStyle := nOr(::nStyle, ES_MULTILINE ) ::bAction := bAction ::cResName := cResName ::lBtnORBmp := .F. ::nBmpWidth := nBmpWidth ::SetIniClr() SetWindowLong( ::hWnd, GWL_STYLE, nOr( GetWindowLong( ::hWnd, GWL_STYLE ) , ES_MULTILINE ) ) Return Self METHOD Default() CLASS TBtnGet local nRectLen, l3Dlook Local nTop, nLeft, nWidth, nHeight IF empty( ::bAction ) Return Nil ENDIF //MSGINFO( GetWindowLong( ::oWnd:hWnd, GWL_STYLE )) IF !lAnd( GetWindowLong( ::hWnd, GWL_STYLE ), ES_MULTILINE ) //MsgStop("Sorry, but you need to define the ID " + ltrim( str( ::nId ) ) + " as MULTILINE ") endif if lAnd( GetWindowLong( ::hWnd, GWL_STYLE ) , ES_MULTILINE ) //MsgInfo("Si soy") else //MsgInfo("no soy") Endif //SetWindowLong( ::hWnd, GWL_EXSTYLE, nOr( GetWindowLong( ::hWnd, GWL_EXSTYLE ) , ES_MULTILINE ) ) nRectLen := ::CalcDims( @nTop, @nLeft, @nWidth, @nHeight ) ::oBtn := TBtnDown():New( nTop, nLeft, nWidth, nHeight, ; ::cResName,, ::cResName,, {|| Self:SetFocus(), ; eval( ::bAction ) }, Self,"",, .F., .F.,"", ,, , .f. ) /* ::bKeyDown := { | nKey | IIF( nKey == VK_F7, ; eval( ::bAction ), "" ) } */ //-> Para nao ter acionamento duplo ::bKeyDown := { | nKey | If( nKey == VK_F7, ( Eval( ::bAction ), 0 ),) } ::oBtn:bGotFocus := {|| ::bTmpValid := ::bValid, ::bValid := nil, ; ::oWnd:nLastKey := 0 } ::oBtn:bLostFocus := {|| ::bValid := ::bTmpValid } GetBtn( ::hWnd, nRectLen ) Return Nil METHOD SetIniClr() CLASS TBtnGet ::nClrFocusText := nRGB( 000, 000, 000 ) ::nClrFocusPane := nRGB( 243, 250, 200 ) ::nClrPFoText := ::nClrText ::nClrPFoPane := ::nClrPane // ::bGotFocus := {|| ::SetColor( ::nClrFocusText, ::nClrFocusPane) } ::bLostFocus := {|| ::SetColor( ::nClrPFoText , ::nClrPFoPane ) } Return Self METHOD Move( nTop, nLeft, nWidth, nHeight, lRepaint ) CLASS TBtnGet Local nRectLen Super:Move( nTop, nLeft, nWidth, nHeight, lRepaint ) IF ::oBtn != Nil nRectLen := ::CalcDims( @nTop, @nLeft, @nWidth, @nHeight ) ::oBtn:Move( nTop, nLeft, nWidth, nHeight ) ENDIF Return Nil METHOD CalcDims( nTop, nLeft, nWidth, nHeight ) CLASS TBtnGet Local nRectLen nRectLen := ::nBmpWidth + 4 IF lAnd( GetWindowLong( ::oWnd:hWnd, GWL_STYLE ), DS_3DLOOK ) IF empty( ::cResName ) nLeft := ::nWidth() - 16 nWidth := 12 else nLeft := ::nWidth() - 26 nWidth := 22 endif nTop := 0 nHeight := ::nHeight() - 4 else IF empty( ::cResName ) nLeft := ::nWidth() - 15 nWidth := 14 Else nLeft := ::nWidth() - 25 nWidth := 24 ENDIF nTop := 1 nHeight := ::nHeight() - 2 ENDIF IF empty( ::cResName ) nRectLen -= 9 endif if ::oVScroll != Nil nLeft -= GetSysMetrics( SM_CYVSCROLL ) nLeft++ endif Return nRectLen id=code>id=code>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...
jc Posted February 19, 2008 Author Report Share Posted February 19, 2008 Pow João... Valeu mesmo, vou testar aqui no meu fonte e te retorno qualquer coisa! Grato. Júlio César M. Ferreira Diretor de Tecnologia RS Consultores Ltda. Fone: (81) 4009.5444 Fax: (81) 4009.5400 E-mail: julio.mferreira@gmail.com MSN: julio_mferreira@hotmail.com Recife - PE FWh 2.5, xHarbour 0.99.51, SQL LIB, Pelles 4.50.113 Quote Link to comment Share on other sites More sharing options...
jc Posted February 19, 2008 Author Report Share Posted February 19, 2008 Caro João... sua classe infelizmente ainda está do mesmo jeito que a minha. Faça um extremo favor e envie para mim, um .exe mostrando o danado do BtnGet com variável numérica alinhado a direita!! Se for possÃvel! Grato! Júlio César M. Ferreira Diretor de Tecnologia RS Consultores Ltda. Fone: (81) 4009.5444 Fax: (81) 4009.5400 E-mail: julio.mferreira@gmail.com MSN: julio_mferreira@hotmail.com Recife - PE FWh 2.5, xHarbour 0.99.51, SQL LIB, Pelles 4.50.113 Quote Link to comment Share on other sites More sharing options...
kapiaba Posted February 19, 2008 Report Share Posted February 19, 2008 citação:Caro João... sua classe infelizmente ainda está do mesmo jeito que a minha. Faça um extremo favor e envie para mim, um .exe mostrando o danado do BtnGet com variável numérica alinhado a direita!! Se for possÃvel! Grato! Júlio César M. Ferreira Diretor de Tecnologia RS Consultores Ltda. Fone: (81) 4009.5444 Fax: (81) 4009.5400 E-mail: julio.mferreira@gmail.com MSN: julio_mferreira@hotmail.com Recife - PE FWh 2.5, xHarbour 0.99.51, SQL LIB, Pelles 4.50.113 id=quote>id=quote>Assim que possivel, pois tá roça... Também estou ´apanhando´. 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...
vagner Posted February 19, 2008 Report Share Posted February 19, 2008 citação:Ô Vagner... Essa sua classe VGet corrige esse problema de get com botão, valor numérico, alinhado a direita? Se positivo, como faço para começar a utilizá-la? Júlio César M. Ferreira Diretor de Tecnologia RS Consultores Ltda. Fone: (81) 4009.5444 Fax: (81) 4009.5400 E-mail: julio.mferreira@gmail.com MSN: julio_mferreira@hotmail.com Recife - PE FWh 2.5, xHarbour 0.99.51, SQL LIB, Pelles 4.50.113 id=quote>id=quote>Funciona Sim, Além de ter já um calendário e uma calculadora embutida http://www.fivewin.com.br/exibedicas.asp?id=348 Vagner Wirts VI Encontro está chegando , não perca Ah!, esqueci de colocar , ela faz degradê também Quote Link to comment Share on other sites More sharing options...
Luiz Arruda (ICO) Posted February 19, 2008 Report Share Posted February 19, 2008 citação:Ô Vagner... Essa sua classe VGet corrige esse problema de get com botão, valor numérico, alinhado a direita? Se positivo, como faço para começar a utilizá-la? Júlio César M. Ferreira Diretor de Tecnologia RS Consultores Ltda. Fone: (81) 4009.5444 Fax: (81) 4009.5400 E-mail: julio.mferreira@gmail.com MSN: julio_mferreira@hotmail.com Recife - PE FWh 2.5, xHarbour 0.99.51, SQL LIB, Pelles 4.50.113 id=quote>id=quote>Facim Facim... Redefine vGet oget Var cValor id 109 of odlg; Picture "99,999.99" font ofont CALCULADORAid=code>id=code>Fica assim.. a Cor vc. poe a seu gosto... ou alterando a classe ou via codigo mesmo... Luiz Arruda - Corumbá/MS FWH 2.4 - WS - xHB 09950 - xDev ico.corumba@gmail.com Editado por - ico on 19/02/2008 18:35:15 Quote Link to comment Share on other sites More sharing options...
vagner Posted February 19, 2008 Report Share Posted February 19, 2008 citação: citação:Ô Vagner... Essa sua classe VGet corrige esse problema de get com botão, valor numérico, alinhado a direita? Se positivo, como faço para começar a utilizá-la? Júlio César M. Ferreira Diretor de Tecnologia RS Consultores Ltda. Fone: (81) 4009.5444 Fax: (81) 4009.5400 E-mail: julio.mferreira@gmail.com MSN: julio_mferreira@hotmail.com Recife - PE FWh 2.5, xHarbour 0.99.51, SQL LIB, Pelles 4.50.113 id=quote>id=quote>Facim Facim... Redefine vGet oget Var cValor id 109 of odlg; Picture "99,999.99" font ofont CALCULADORAid=code>id=code>Fica assim.. a Cor vc. poe a seu gosto... ou alterando a classe ou via codigo mesmo... Luiz Arruda - Corumbá/MS FWH 2.4 - WS - xHB 09950 - xDev ico.corumba@gmail.com Editado por - ico on 19/02/2008 18:35:15 id=quote>id=quote>Né por me "Gamba" não , mas ficou bonita pra caramba 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 Tà CUASI DOMINADO, AGUARDE MAIS UM POUQUINHO... SE EU NÃO POSTAR HOJE, É PORQUE FICAMOS SEM INTERNET, JA QUE TROCA-SE O SPEED PELO VIRTUA POR AQUI... E AI... O TÉCNICO É NOVO... ISSO VAI BABAR... 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...
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.