summaryrefslogtreecommitdiff
path: root/gfx/x11
diff options
context:
space:
mode:
authorFelipe Menteiro de Carvalho <sekelsenmat@users.sourceforge.net>2006-11-25 02:26:35 +0000
committerFelipe Menteiro de Carvalho <sekelsenmat@users.sourceforge.net>2006-11-25 02:26:35 +0000
commita9cb7e0de6707f50ba997d8d2cb1b3c3a0ca7ec8 (patch)
tree660afa9a158d11651d777cf6ee027940ffd4fc34 /gfx/x11
parent179792b8b0fe439f0f3f23c4bd1ca85c8a51db5e (diff)
downloadfpGUI-a9cb7e0de6707f50ba997d8d2cb1b3c3a0ca7ec8.tar.xz
Fixes to image conversion.
Diffstat (limited to 'gfx/x11')
-rw-r--r--gfx/x11/gfx_x11.pas2
1 files changed, 2 insertions, 0 deletions
diff --git a/gfx/x11/gfx_x11.pas b/gfx/x11/gfx_x11.pas
index 0f2f69e6..1c405b49 100644
--- a/gfx/x11/gfx_x11.pas
+++ b/gfx/x11/gfx_x11.pas
@@ -762,6 +762,8 @@ begin
ASourceRect.Right - ASourceRect.Left,
ASourceRect.Bottom - ASourceRect.Top, 8, 0);
+ WriteLn('Size allocated: ', Image^.bytes_per_line * (ASourceRect.Bottom - ASourceRect.Top) + 1);
+
{ Here its necessary to alloc an extra byte, otherwise it will fail on 32-bits
machines, but still work on 64-bits machines. The cause of this is unknown. }
Image^.data := GetMem(Image^.bytes_per_line * (ASourceRect.Bottom - ASourceRect.Top) + 1);