Hi,
There is a TMultiGet control with a vertical scrollbar (initially the scrollbar is disable).
I enter some data into Get and as soon as they go outside the window of this Get, the scrollbar becomes enable.
How can I find out the status of this scrollbar ?
Dear Yuri,
> How can I find out the status of this scrollbar ?
Do you mean if it is enabled or disabled ?
Please provide a self contained small PRG to test, thanks
#include "FiveWin.ch"
function Main()
local cRes := ""
local oFont, oGet
private oDlg
DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, -21
DEFINE DIALOG oDlg SIZE 225, 120 TITLE "Example" FONT oFont
@ 0.1, 0.5 GET oGet VAR cRes OF oDlg ;
MULTILINE SIZE 105, 45 COLOR CLR_BLUE, CLR_WHITE
ACTIVATE DIALOG oDlg CENTER VALID ( oFont:End(), .T.)
return NILI didn't understand. What purpose?
No entendí. ¿Que propósito?
Regards, saludos.
I didn't understand. What purpose?This is necessary to understand that the text is not fully visible in MultiGet control.
REDEFINE GET oGet[17] VAR wTEXTO MULTILINE ID 217 OF oDlg ;
COLOR CLR_BLUE, CLR_WHITE UPDATE FONT oFont WHEN( lLigaCombo ) ;
ON CHANGE( SB_LimitText( oGet[17], oSay, oTransmite ) ) // By AleSB
// oMemo:bChange := { | o | if( Len( o:GetText() ) > 500, MsgInfo("longitud maxima excedida","Atencion"), )
// oGet[17]:bChange := { | o | if( Len( o:GetText() ) > 20, MsgInfo("longitud maxima excedida","Atencion"), )
// se mudar o foco ou perder o foco?
/*
oGet[17]:bChange = { || lCambiado := .T. }
//oGet[17]:bLostFocus := {|| If(lCambiado, Graba(), nil) }
oGet[17]:bLostFocus := {|| If(lCambiado, MsgInfo("longitud maxima excedida","Atencion"), nil) }
*/
// http://forums.fivetechsupport.com/viewtopic.php?f=3&t=34507
/*
oGet[17]:bGotFocus = { || oGet[17]:SetSel( 0, 0 ),;
oGet[17]:Goto( oGet[17]:GetLineCount() ),;
__Keyboard( Chr( VK_END ) ) }
*/
oGet[17]:bGotFocus = { || oGet[17]:SetSel( 0, 0 ),;
oGet[17]:Goto( oGet[17]:GetLineCount() ),;
__Keyboard( Chr( VK_HOME ) ) }
//oGet[17]:bGotFocus = { || oGet[17]:SetSel( 0, 0 ) }
//oGet[17]:SETPOS(0)
// FUNCAO PARA LIMITAR O TEXTO DA CARTA...
//FUNCTION SB_LimitText( oGet, oSay, nSize )
FUNCTION SB_LimitText( oGet, oSay, oTransmite )
///////////////////////////////////////////////////////////////////////////
// Autor..........: Peguei no Forum FiveWin Brasil //
// Modificaçoes...: Ale SB - Soft Camus //
// Descricao......: Restringe o Tamanho de um Texto. //
// Parametros ==> //
// - oGet : oBjeto Get. //
// - nSize : Tamanho que deve ter o Texto. //
// Dependencias ==> //
// Retorno ==> nil //
///////////////////////////////////////////////////////////////////////////
LOCAL nTam, nSize
DEFAULT nSize := 999 // maximo ‚ 1000 caracteres
nTam := LEN( ALLTRIM( oGet:cText ) )
IF nTam > nSize
MsgInfo( "A Mensagem da Carta já Alcançou o Tamanho Limite de " + ;
"1000 Caracteres Permitidos Pela Sefaz!", ;
"..:: Atenção ::.." )
oGet:cText := Substr(oGet:cText, 1, nTam-1)
RETURN( .F. )
ENDIF
// Mostra a qtde de caracteres digitados na carta de correcao
oSay:VarPut( Strzero( nTam, 3, 0 ) )
oSay:Refresh()
IF nTam <= 14 // caracteres
lLigaBotao := .F.
// Botao da Transmissao
oTransmite:Disable()
oTransmite:Refresh()
ELSE
lLigaBotao := .T.
// Botao da Transmissao
oTransmite:Enable()
oTransmite:Refresh()
ENDIF
RETURN( .T. )Thank you, Karinha!