Fórum Tamanho do pixel em tempo de execução #195696
18/11/2003
0
Existe um comando no vb chamado Screen.TwipsPerPixelx, para pegar o tamanho do pixel em tempo de execução, existe algum comando similar no delphi.
giordano
giordano
Giordano
Curtir tópico
+ 0
Responder
Posts
18/11/2003
Marcelo Saviski
Isso não da muito certo, o Delphi não trabalha com várias escalas que nem o VB
não existem TWips no Delphi (ou eu pelo menos nunca vi)
mas diga o que prtende fazer que podemos tentar encontrar uma outra soluçã
não existem TWips no Delphi (ou eu pelo menos nunca vi)
mas diga o que prtende fazer que podemos tentar encontrar uma outra soluçã
Responder
Gostei + 0
18/11/2003
Giordano
Estou utilizando um componente de barra de escala que no vb o código é assim
With ScaleBar1.PageExtent
.MinX = Map1.Left / Screen.TwipsPerPixelX
.MinY = Map1.Top / Screen.TwipsPerPixelY
.MaxX = (Map1.Left + Map1.Width) / Screen.TwipsPerPixelX
.MaxY = (Map1.Top + Map1.Height) / Screen.TwipsPerPixelY
End With
Tenho que substitur os valores, mas não sei qual o valor testei no vb e o resultado é sempre 15
With ScaleBar1.PageExtent
.MinX = Map1.Left / Screen.TwipsPerPixelX
.MinY = Map1.Top / Screen.TwipsPerPixelY
.MaxX = (Map1.Left + Map1.Width) / Screen.TwipsPerPixelX
.MaxY = (Map1.Top + Map1.Height) / Screen.TwipsPerPixelY
End With
Tenho que substitur os valores, mas não sei qual o valor testei no vb e o resultado é sempre 15
Responder
Gostei + 0
18/11/2003
Marcelo Saviski
mas o que vc precisa fazer no Delphi?
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)