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 | |
| 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')
| -rw-r--r-- | examples/gfx/helloworld/helloworld.pas | 2 | ||||
| -rw-r--r-- | examples/gfx/subwindow/subwindow.lpi | 7 |
2 files changed, 5 insertions, 4 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; diff --git a/examples/gfx/subwindow/subwindow.lpi b/examples/gfx/subwindow/subwindow.lpi index d2f61887..88f43f80 100644 --- a/examples/gfx/subwindow/subwindow.lpi +++ b/examples/gfx/subwindow/subwindow.lpi @@ -1,12 +1,12 @@ <?xml version="1.0"?> <CONFIG> <ProjectOptions> - <PathDelim Value="/"/> + <PathDelim Value="\"/> <Version Value="5"/> <General> <SessionStorage Value="InProjectDir"/> <MainUnit Value="0"/> - <IconPath Value="./"/> + <IconPath Value=".\"/> <TargetFileExt Value=".exe"/> </General> <VersionInfo> @@ -20,7 +20,7 @@ <RunParams> <local> <FormatVersion Value="1"/> - <LaunchingApplication PathPlusParams="/usr/X11R6/bin/xterm -T 'Lazarus Run Output' -e $(LazarusDir)/tools/runwait.sh $(TargetCmdLine)"/> + <LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/> </local> </RunParams> <RequiredPackages Count="1"> @@ -38,6 +38,7 @@ </ProjectOptions> <CompilerOptions> <Version Value="5"/> + <PathDelim Value="\"/> <CodeGeneration> <Generate Value="Faster"/> </CodeGeneration> |