Salvar configurações de de TDBBROWSE

[Marcelo Coelho Silva]

Prezados Senhores,
Quando utilizamos um TDbBrowse, o usuário pode mudar as posiçíµes das
colunas e até mesmo, retira-la de exibição, assim como alterar o tamanho
das mesmas durante a execução do mesmo.
Como posso salvar estas configuraçíµes que o usuário modificou, para que
possa coloca-las novamente ao reabrir outra vez o Form (TDbBrowse)?
Obrigado,
Att.
Marcelo Coelho Silva
Brasil.
---
Este email está limpo de ví­rus e malwares porque a proteção do avast! Antiví­rus está ativa.
http://www.avast.com

[Carlos Ortiz]

supongo que al cerrar el form que contiene el browse deberias recorrer
ese objeto y guardar esas propiedades en algun archivo para que depues
cuando lo abra de nuevo lo resetees las propiedades basandote en lo que
tengas en ese archivo

[Marcelo Coelho Silva]

Carlos,
Qual o Atributo (função) que posso usar para pegar e, depois, poder
setar (SET) o valor ( configuraçíµes de posição e tamanho dos campos)
novamente para o DBBROWSE ?
att.
Marcelo Coelho Silva
Brasil.
Em 27/11/2014 15:32, Carlos Ortiz escreveu:
> supongo que al cerrar el form que contiene el browse deberias recorrer
> ese objeto y guardar esas propiedades en algun archivo para que depues
> cuando lo abra de nuevo lo resetees las propiedades basandote en lo que
> tengas en ese archivo
>
---
Este email está limpo de ví­rus e malwares porque a proteção do avast! Antiví­rus está ativa.
http://www.avast.com

[Carlos Ortiz]

METHOD CargaCampos() CLASS TbrowseX
local oCol, Item, cHeader, cField, nFor, cTipo, nAncho
IF Len( ::aFields ) > 0
WITH OBJECT ::oDBBrowse
:aCols := {}
FOR nFor := 1 to Len( ::aFields )
Item := ::aFields[ nFor ]
IF Valtype( Item ) == "A"
cField := Item[ 1 ]
cHeader := Item[ 2 ]
cTipo := Item[ 3 ]
nAncho := Item[ 4 ]
ELSE
cField := Item
cHeader := Item
cTipo := Item
nAncho := Item
ENDIF
WITH OBJECT oCol := TDBBrwColumn():New( ::oDBBrowse )
IF cTipo = "N"
:nAlignment:= taRIGHT
ENDIF
:cHeader := cHeader
:oDataField := cField
:nWidth := nAncho
//:oFont := ::oDBBrowse:oFont
IF valtype(::FoDbf) = "O"
IF ::FoDbf:IsKindOf("TMemDataSet")
:cSortEval := alltrim(cField)
ELSEIF ::FoDbf:IsKindOf("TOdbcDataSet")
:cSortEval := alltrim(pad(cField,10))
ENDIF
ENDIF
END
:AddCol( oCol )
NEXT
END OBJECT
// Definimos el alto del renglón según la fuente del browse luego
de que está todo construí­do
::oDBBrowse:nRowHeight :=
::oDBBrowse:oFont:GetTextHeight(::oDBBrowse) * ::nDataLines // Alto de
la fila
ENDIF
RETURN NIL
El 01/12/2014 15:47, Marcelo Coelho Silva escribió:
> Carlos,
>
> Qual o Atributo (função) que posso usar para pegar e, depois, poder
> setar (SET) o valor ( configuraçíµes de posição e tamanho dos campos)
> novamente para o DBBROWSE ?
>
> att.
>
> Marcelo Coelho Silva
> Brasil.
>
>
> Em 27/11/2014 15:32, Carlos Ortiz escreveu:
>> supongo que al cerrar el form que contiene el browse deberias recorrer
>> ese objeto y guardar esas propiedades en algun archivo para que depues
>> cuando lo abra de nuevo lo resetees las propiedades basandote en lo que
>> tengas en ese archivo
>>
>
>
> ---
> Este email está limpo de ví­rus e malwares porque a proteção do avast!
> Antiví­rus está ativa.
> http://www.avast.com
>

[Marcelo Coelho Silva]

Carlos,
Gostaria de Salvar as modificaçíµes que o Usuário faça em tempo de
execução. Veja as imagens em anexo.
Obrigado,
Marcelo Coelho Silva
Brasil.
PS: Links das Imagens:
https://www.dropbox.com/s/ei8fbuv9nxjyh ... 1.jpg?dl=0
https://www.dropbox.com/s/rlf1jk9d97xb7 ... 2.jpg?dl=0
Em 01/12/2014 20:23, Carlos Ortiz escreveu:
> METHOD CargaCampos() CLASS TbrowseX
>
> local oCol, Item, cHeader, cField, nFor, cTipo, nAncho
> IF Len( ::aFields ) > 0
> WITH OBJECT ::oDBBrowse
> :aCols := {}
> FOR nFor := 1 to Len( ::aFields )
> Item := ::aFields[ nFor ]
> IF Valtype( Item ) == "A"
> cField := Item[ 1 ]
> cHeader := Item[ 2 ]
> cTipo := Item[ 3 ]
> nAncho := Item[ 4 ]
> ELSE
> cField := Item
> cHeader := Item
> cTipo := Item
> nAncho := Item
> ENDIF
> WITH OBJECT oCol := TDBBrwColumn():New( ::oDBBrowse )
> IF cTipo = "N"
> :nAlignment:= taRIGHT
> ENDIF
> :cHeader := cHeader
> :oDataField := cField
> :nWidth := nAncho
> //:oFont := ::oDBBrowse:oFont
> IF valtype(::FoDbf) = "O"
> IF ::FoDbf:IsKindOf("TMemDataSet")
> :cSortEval := alltrim(cField)
> ELSEIF ::FoDbf:IsKindOf("TOdbcDataSet")
> :cSortEval := alltrim(pad(cField,10))
> ENDIF
> ENDIF
> END
> :AddCol( oCol )
> NEXT
> END OBJECT
> // Definimos el alto del renglón según la fuente del browse luego
> de que está todo construí­do
> ::oDBBrowse:nRowHeight :=
> ::oDBBrowse:oFont:GetTextHeight(::oDBBrowse) * ::nDataLines // Alto de
> la fila
> ENDIF
>
> RETURN NIL
>
>
>
>
>
> El 01/12/2014 15:47, Marcelo Coelho Silva escribió:
>> Carlos,
>>
>> Qual o Atributo (função) que posso usar para pegar e, depois, poder
>> setar (SET) o valor ( configuraçíµes de posição e tamanho dos campos)
>> novamente para o DBBROWSE ?
>>
>> att.
>>
>> Marcelo Coelho Silva
>> Brasil.
>>
>>
>> Em 27/11/2014 15:32, Carlos Ortiz escreveu:
>>> supongo que al cerrar el form que contiene el browse deberias recorrer
>>> ese objeto y guardar esas propiedades en algun archivo para que depues
>>> cuando lo abra de nuevo lo resetees las propiedades basandote en lo que
>>> tengas en ese archivo
>>>
>>
>>
>> ---
>> Este email está limpo de ví­rus e malwares porque a proteção do avast!
>> Antiví­rus está ativa.
>> http://www.avast.com
>>
>
---
Este email foi escaneado pelo Avast antiví­rus.
http://www.avast.com