diff options
Diffstat (limited to 'examples/gfx/helloworld')
-rw-r--r-- | examples/gfx/helloworld/helloworld.pas | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/examples/gfx/helloworld/helloworld.pas b/examples/gfx/helloworld/helloworld.pas index eec336a7..d7cab9c6 100644 --- a/examples/gfx/helloworld/helloworld.pas +++ b/examples/gfx/helloworld/helloworld.pas @@ -51,7 +51,7 @@ begin r.Right := Width; for i := 0 to Height - 1 do begin - Color.Blue := $ffff - (i * $ffff) div ClientHeight; + Color.Blue := $ff - ((i * $ff) div Height) mod $ff; Canvas.SetColor(Color); r.Top := i; r.Bottom := i + 1; |