1 files changed, 1 insertions, 1 deletions
diff --git a/examples/gfx/imgtest/imgtest.pas b/examples/gfx/imgtest/imgtest.pas
index a02eb72e..06b5b3f3 100644
--- a/examples/gfx/imgtest/imgtest.pas
+++ b/examples/gfx/imgtest/imgtest.pas
@@ -56,7 +56,7 @@ begin
   Bitmap.Lock(Data, Stride);
   for j := 0 to 255 do
     for i := 0 to 255 do
-      PLongWord(Data)[j * 256 + i] := (i shl 8) or (j shl 0);
+      PLongWord(Data)[j * 256 + i] := (i shl 16) or (j shl 8);
   Bitmap.Unlock;
 end;