- Code: Select all Expand view
.......
METHOD PaintMeta() CLASS TPreview
local aSizes
.....
// nAspect := ::oDevice:nHorzSize() / ::oDevice:nVertSize()
aSizes:=::oDevice:GetPhySize()
nAspect:= aSizes[1]/aSizes[2] // changes for Zoom .
.......
METHOD PaintMeta() CLASS TPreview
local aSizes
.....
// nAspect := ::oDevice:nHorzSize() / ::oDevice:nVertSize()
aSizes:=::oDevice:GetPhySize()
nAspect:= aSizes[1]/aSizes[2] // changes for Zoom .
Return to FiveWin for Harbour/xHarbour
Users browsing this forum: No registered users and 29 guests