SAOliveira Posted October 31, 2012 Report Share Posted October 31, 2012 Vi em um sistema alheio, algo interessante. Supondo que para ajuste de tela foi determinado o nWidth para cada coluna do xbrowse, e em algum casos este tamanho foi insuficiente. Na xBrowse, clcar na linha divisória e arrastar. O que vi foi, se der 2 clicks no reader, ajusta automaticamente. Quem usa o MySqlFront, e clicar 2 vezes na linha divisória, faz o mesmo ajuste. Dicas ? "Um diamante é um pedaço de carvão que se saiu bem sob pressão.†Quote Link to comment Share on other sites More sharing options...
SAOliveira Posted October 31, 2012 Author Report Share Posted October 31, 2012 Vi em um sistema alheio, algo interessante. Supondo que para ajuste de tela foi determinado o nWidth para cada coluna do xbrowse, e em algum casos este tamanho foi insuficiente. Na xBrowse, clcar na linha divisória e arrastar. O que vi foi, se der 2 clicks no reader, ajusta automaticamente. Quem usa o MySqlFront, e clicar 2 vezes na linha divisória, faz o mesmo ajuste. Dicas ? "Um diamante é um pedaço de carvão que se saiu bem sob pressão.†Quote Link to comment Share on other sites More sharing options...
vagner Posted October 31, 2012 Report Share Posted October 31, 2012 citação:Vi em um sistema alheio, algo interessante. Supondo que para ajuste de tela foi determinado o nWidth para cada coluna do xbrowse, e em algum casos este tamanho foi insuficiente. Na xBrowse, clcar na linha divisória e arrastar. O que vi foi, se der 2 clicks no reader, ajusta automaticamente. Quem usa o MySqlFront, e clicar 2 vezes na linha divisória, faz o mesmo ajuste. Dicas ? "Um diamante é um pedaço de carvão que se saiu bem sob pressão.†id=quote>id=quote>Olá, Não utilizo a XBrowse, mas na Browse, vc poderia pegar o tamanho do browse, subtrair os tamanhos das colunas que não foram clicadas e aumentar o resto na coluna clicada +- assim : nTamTot := oBrw:nWidht For nX := 1 To Len(oBrw:aColuns) If nX != oBrow:nColAct nTamTot -= oBrw:aColuns[nX] Endif Next oBrw:aColuns[oBrow] += nTamTot id=code>id=code>Vagner Wirts "Ele não sabendo que era impossÃvel, foi lá e fez" Quote Link to comment Share on other sites More sharing options...
Erciley Junior Posted October 31, 2012 Report Share Posted October 31, 2012 Olá Vagner, creio que faltou o nWidth... For nX := 1 To Len(oBrw:aColuns) If nX != oBrow:nColAct nTamTot -= oBrw:aColuns[nX]:nWidht Endif Next oBrw:aColuns[oBrow]:nWidht += nTamTotid=code>id=code>Sérgio, outra forma de fazer esse redimensionamento, é você chamar uma função como esta que o Vagner colocou, através do bLDblClick, e verificar o LEN da String, a fonte utilizada, e com isso, há como fazer um cálculo da largura ocupada aà seria só atribuir no nWidth da coluna clicada se eu achar este cálculo da fonte mais LEN, eu dou uma postada Erciley Junior (FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY) NÃO ABANDONE O POST, QUEREMOS SABER SE SUA DÚVIDA/PROBLEMA TEVE SOLUÇÃO Quote Link to comment Share on other sites More sharing options...
Erciley Junior Posted October 31, 2012 Report Share Posted October 31, 2012 Achei ^^ isso é bastante usado na classe TPrinter, qq coisa, da uma olhada nela citação:GetTextWidth() Calculates the width of a string. Syntax: GetTextWidth( , , [] ) --> Parameters: The handle of the device context. The string whose width is to be calculated. The handle of the font. id=quote>id=quote>Erciley Junior (FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY) NÃO ABANDONE O POST, QUEREMOS SABER SE SUA DÚVIDA/PROBLEMA TEVE SOLUÇÃO Quote Link to comment Share on other sites More sharing options...
vagner Posted October 31, 2012 Report Share Posted October 31, 2012 citação:Olá Vagner, creio que faltou o nWidth... For nX := 1 To Len(oBrw:aColuns) If nX != oBrow:nColAct nTamTot -= oBrw:aColuns[nX]:nWidht Endif Next oBrw:aColuns[oBrow]:nWidht += nTamTotid=code>id=code>Sérgio, outra forma de fazer esse redimensionamento, é você chamar uma função como esta que o Vagner colocou, através do bLDblClick, e verificar o LEN da String, a fonte utilizada, e com isso, há como fazer um cálculo da largura ocupada aà seria só atribuir no nWidth da coluna clicada se eu achar este cálculo da fonte mais LEN, eu dou uma postada Erciley Junior (FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY) NÃO ABANDONE O POST, QUEREMOS SABER SE SUA DÚVIDA/PROBLEMA TEVE SOLUÇÃO id=quote>id=quote>Olá, Como disse, não utilizo a xBrowse, na Browse normal, o tamanho é direto no array aColuns Mas se funcionou blz Vagner Wirts "Ele não sabendo que era impossÃvel, foi lá e fez" Quote Link to comment Share on other sites More sharing options...
Erciley Junior Posted October 31, 2012 Report Share Posted October 31, 2012 Só fiz uma "correção", testei nada não ^^ isso aà é com o Sérgio, heehehehe A propósito, corrigindo minha correção, seria oBrw:aCols[n]:nWidth Erciley Junior (FWH8.01 + SQLLIB 1.9d + xHB 1.10 + xDev 0.65 + @SAY) NÃO ABANDONE O POST, QUEREMOS SABER SE SUA DÚVIDA/PROBLEMA TEVE SOLUÇÃO 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.