diff options
| author | sekelsenmat <sekelsenmat@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-11 21:29:57 +0000 |
|---|---|---|
| committer | sekelsenmat <sekelsenmat@ae50a9b5-8222-0410-bf8d-8a13f76226bf> | 2007-07-11 21:29:57 +0000 |
| commit | 9f5b0fc182530301b211d3aae3731c50ddcde369 (patch) | |
| tree | 62fdc11cb870d7866f2966296296271369afebe1 /examples/gfx/helloworld | |
| parent | 7b222fba0b399072fdba276baef8cbac784efd46 (diff) | |
| download | fpGUI-9f5b0fc182530301b211d3aae3731c50ddcde369.tar.xz | |
Added style manager for the new multihandle prototype. Changed color channels from Word to Byte on Gfx.
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; |