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
TImage
Moderador: Moderadores
4 Mensagens • Página 1 de 1
Re: TImage
por rochinha » 19 Fev 2010 17:01
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.
É 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.
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
-
rochinha Membro Master 
- Mensagens: 4548
- Data de registro: 18 Ago 2003 20:43
- Cidade/Estado: São Paulo - Brasil
- Curtiu: 808 vezes
- Mens.Curtidas: 246 vezes
Re: TImage
por Euclides » 23 Fev 2010 10:28
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
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
-
Euclides Usuário NÃvel 3 
- Mensagens: 154
- Data de registro: 12 Mai 2007 14:07
- Cidade/Estado: São Paulo, Capital
- Curtiu: 1 vez
- Mens.Curtidas: 14 vezes
Re: TImage
por rochinha » 23 Fev 2010 14:34
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:
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:
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_ )
OPS! LINK QUEBRADO? Veja ESTE TOPICO antes e caso não encontre ENVIE seu email com link do tópico para fivolution@hotmail.com. Agradecido.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
@braços : ? )
A justiça divina tarda mas não falha, enquanto que a justiça dos homens falha porque tarda.
-
rochinha Membro Master - Mensagens: 4548
- Data de registro: 18 Ago 2003 20:43
- Cidade/Estado: São Paulo - Brasil
- Curtiu: 808 vezes
- Mens.Curtidas: 246 vezes
Ver tópicos ativos •
4 Mensagens • Página 1 de 1
Quem está online
Usuários vendo este fórum: Nenhum usuário registrado online e 9 visitantes

Ola Amigo, espero que meu site e forum tem lhe beneficiado, com exemplos e dicas de programacao.
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
Entao divulgue o link da Doacao abaixo para seus amigos e redes sociais ou faça uma doacao para o site forum...
MUITO OBRIGADO PELA SUA DOACAO!
