Tamanho do pixel em tempo de execução
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
Curtidas 0
Respostas
Marcelo Saviski
18/11/2003
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çã
GOSTEI 0
Giordano
18/11/2003
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
GOSTEI 0
Marcelo Saviski
18/11/2003
mas o que vc precisa fazer no Delphi?
GOSTEI 0