TSrvObject

TSrvObject(): ClassName ( ) --> 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

()
• 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

()
• 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

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

oObject:GetText()

TSrvObject(): Hide ( ) -->

oObject:Hide()

TSrvObject(): hWHandle ( ) --> 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

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

oObject:Owner()

TSrvObject(): Refresh ( ) -->

oObject:Refresh()

TSrvObject(): SaveAsBMP ( ) --> 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)

Aplica estilo no objeto utilizando o CSS (Cascading Style Sheets)

Sintaxe

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

Parâmetros/Elementos

Retorno

Nil (Nulo)

Observações

O guia de estilo é de propriedade da Qt Company, e pode ser consultado no link: http://qt-project.org/doc/qt-4.8/stylesheet-examples.html.

Para a aplicação do estilo é necessário associar o componente ADVPL ao seu equivalente Qt, conforme tabela abaixo:

Exemplo

oButton1 := TButton():New( 002, 002, "Botão 01",oDlg,{|| alert("Botão 01") }, 40,10,,,.F.,.T.,.F.,,.F.,,,.F. )    
oButton1:SetCss("QPushButton:pressed { background-color: qlineargradient(x1: 0, y1: 0, x2: 0, y2: 1, stop: 0 #dadbde, stop: 1 #f6f7fa); }")

Tabela de componentes (DePara). Válida para SmartClient 131227A ou superior.

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()