Code: Select all | Expand
.......
METHOD PaintMeta() CLASS TPreview
local aSizes
.....
// nAspect := ::oDevice:nHorzSize() / ::oDevice:nVertSize()
aSizes:=::oDevice:GetPhySize()
nAspect:= aSizes[1]/aSizes[2] // changes for Zoom .