TImage

[Euclides]

Olá pessoal,
Eu estou tentando apresentar desenhos de produtos pelo Timage.
O problema é que preciso ´guardar´ as informações sobre o zoom e da posição do scroll horizontal e vertical, para que na próxima apresentação, a figura esteja na mesma posição e zoom. (o zoom é fácil... estou com probemas no scroll)
Alguém já fêz isso?
Agradecemos antecipadamente, Euclides

[rochinha]

Amiguinho,

É necessário que voce identifique quais classes estão sendo manipuladas e analisar o código da mesma em FIVEWIN\SOURCE\CLASSES afim de encontrar alguma referencia sobre os controles SCROLL.

Se estes controles possuirem eventos que demonstram coordenadas ou numeros que possam ser manipulados foram do controle, exemplo, TImage:nHscroll := 35, ai voce poderá além de modificar esta propriedade, obter seu conteúdo.

[Euclides]

Olá pessoal...
Depois de um fim de semana conturbado, ´brigando´ com os ::oHscroll:SetPos(), oVscloll:SetPos(), ::AdjControls() e outros ´::´ cheguei a uma solução muito simples.
1 - Guarda as variáveis: oImg:nX, oImg:nY e oImg:nZoom
2 - Define a imagem como:

REDEFINE IMAGE oImg ID 100 OF oDlg FILE cFile UPDATE SCROLL
oImg:nX :=nPx
oImg:nY :=nPy
oImg:nZoom:=nPz
...
ACTIVATE DIALOG oDlg CENTER

... espero ter economizado algum tempo para os outros...
T+
Euclides

[rochinha]

Amiguinho,

Voce pode gravar as informações em arquivos .INI, se forem poucos, voce passa as informações de nome da imagem, coordenadas para a função SalvaCoordenadas:

Código: Selecionar todos

function SalvaCoordenadas( cImage, nImgNX, nImgNY, nImgNZ )
   VerifyINI( cImage, "nImgNX"      , nImgNX, "TImage.ini", .t. )
   VerifyINI( cImage, "nImgNY"      , nImgNY, "TImage.ini", .t. )
   VerifyINI( cImage, "nImgNZoom", nImgNZ, "TImage.ini", .t. )
   return nil

function VerifyINI( _section_, _entry_, _var_, _inifile_, _grava_ )
   oIni := TIni():New( _inifile_ )
   if _grava_ = .t.
      oIni:Set( _section_, _entry_, _var_ )
   endif
   return oIni:Get( _section_, _entry_, _var_, _var_ )