TSrvObject

TSrvObject(): ClassName ( ) --> cClasse

cClasse(caracter)
• Retorna o nome da classe.

oObject:ClassName()   // Result: "TButton"

TSrvObject(): CoorsUpdate ( ) -->

oObject:CoorsUpdate()

TSrvObject(): Disable ( ) -->

oObject:Disable()

TSrvObject(): Enable ( ) -->

oObject:Enable()

TSrvObject(): FreeChildren ( ) -->

oObject:FreeChildren()

TSrvObject(): GetClientRect ( ) --> aCoords

aCoords()
• Retorna um array com as coordenadas de posicionamento e dimensão (vertical superior, horizontal esquerda, vertical inferior e horizontal direita) do objeto.

O retorno é o valor real do objeto criado, que na verdade é diferente do parâmetro da criação. Isso porque o sistema sempre duplica os valores passados no momento da criação.

oObject:GetClientRect()   // Result: {10,10,240,340}

TSrvObject(): GetFont ( ) --> oFont

oFont()
• Retorna o objeto do tipo TFont utilizado para definir as características da fonte aplicada na exibição do conteúdo do controle visual.

oObject:GetFont()

TSrvObject(): GetText ( ) --> cCaption

cCaption(caracter)
• Retorna o título do objeto.

oObject:GetText()

TSrvObject(): Hide ( ) -->

oObject:Hide()

TSrvObject(): hWHandle ( ) --> nHdl

nHdl()
• Retorna o handle do objeto.

oObject:hWHandle()   // Result: 3001

TSrvObject(): lCanGotFocus ( < lFoco> ) -->

oBtn:lCanGotFocus := .T.

TSrvObject(): Move ( [ nTop], [ nLeft], [ nWidth], [ nHeight], [ uParam5], [ lRealCoords] ) -->

oObject:Move(oObject:nTop,oObject:nLeft,498,250,,.T.)

TSrvObject(): Owner ( ) --> xObjeto

xObjeto()
• Retorna o objeto do tipo tWindow ou tDialog onde este foi criado.

oObject:Owner()

TSrvObject(): Refresh ( ) -->

oObject:Refresh()

TSrvObject(): SaveAsBMP ( ) --> lOk

lOk(logico)
• Retorna verdadeiro (.T.), se a imagem for salva com sucesso; caso contrário, retorna falso (.F.).

oObject:SaveAsBMP("c:\Dir\Imagem.BMP")

TSrvObject(): SetColor ( [ nClrFore], [ nClrBack] ) -->

oObject:SetColor(CLR_BLACK,CLR_WHITE)

TSrvObject(): SetCoors ( < oRect> ) -->

Para mais informações sobre a parametrização, consulte a documentação da classe TRect.

oRect := TRect():New(32,2,100,100)oObject:SetCoors(oRect)

TSrvObject(): SetCSS ( < cCssText> ) -->

oObject:SetCSS("QLabel{ border:1px; }")

TSrvObject(): SetDisable ( < lEnable> ) -->

oObject:SetDisable(.T.)

TSrvObject(): SetEnable ( < lEnable> ) -->

oObject:SetEnable(.F.)

TSrvObject(): SetFocus ( ) -->

oObject:SetFocus()

TSrvObject(): SetFont ( < oFont> ) -->

oFont := TFont():New('Courier new',,-16,.T.)oObject:SetFont( oFont )

TSrvObject(): SetProperty ( < cProp>, < xValue> ) -->

oObject:SetProperty( "cName", novoValor )

TSrvObject(): SetText ( < cTexto> ) -->

oObject:SetText("texto")

TSrvObject(): SetUpdatesEnabled ( [ lEnable] ) -->

Utilize esse método quando um determinado conjunto de operações são necessárias mas a visualização de seus passos não.

Exemplo:

É necessário adicionar 20 itens num objeto do tipo Browse e a visualização da inserção não é relevante ao processo.

// Desabilita a atualizaçãooObject:SetUpdatesEnabled( .F. )for nX := 1 to  20 ... insere// Habilita a atualizaçãooObject:SetUpdatesEnabled( .T. )

oObject:SetUpdatesEnabled( .F. )

TSrvObject(): Show ( ) -->

oObject:Show()