Canvas,width returns Canvas.height
Original Reporter info from Mantis: equinox
Description:
Canvas,width returns Canvas.height
and here is fix:
CHange this in canvas.inc
function TCanvas.GetWidth: integer;
var
p: TPoint;
begin
if HandleAllocated then begin
GetDeviceSize(Handle,p);
Result:=p.x;
end else
Result:=0;
end;
Mantis conversion info:
-
Mantis ID: 1847
-
OS: XP
-
OS Build: service pack 1
-
Build: release
-
Platform: Windows
-
Version: 0.9.12
-
Fixed in version: 0.9.13 (SVN)
-
Fixed in revision: 8891 (#337037c1)