summaryrefslogtreecommitdiff
path: root/gfx/gelimage.pas
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graemeg@users.sourceforge.net>2007-04-05 12:07:37 +0000
committerGraeme Geldenhuys <graemeg@users.sourceforge.net>2007-04-05 12:07:37 +0000
commit57848ff4bf8b9acf2d610a3eee6776fc6d57f0bc (patch)
treee04847dc1804ed20ab09b7d9a7f762ce17928f0d /gfx/gelimage.pas
parent38020d5baa685bb03910b02f057c2179db149723 (diff)
downloadfpGUI-57848ff4bf8b9acf2d610a3eee6776fc6d57f0bc.tar.xz
* Fixed bug in gfx_gdi with DoDrawImageRect. Only the first palette color could be set, then an AV occured.
* Fixed many include file headers * Reimplemented the images for CheckBox, RadiouButton and button Arrows in the TBasicStyle class. X11 stil has some palette issues, so manual drawing still occurs.
Diffstat (limited to 'gfx/gelimage.pas')
-rw-r--r--gfx/gelimage.pas4
1 files changed, 3 insertions, 1 deletions
diff --git a/gfx/gelimage.pas b/gfx/gelimage.pas
index 78a5246f..2a578e4e 100644
--- a/gfx/gelimage.pas
+++ b/gfx/gelimage.pas
@@ -19,7 +19,9 @@ unit GELImage;
{$ASSERTIONS On}
{$ENDIF}
-{$mode objfpc}{$H+}
+{$ifdef fpc}
+ {$mode objfpc}{$H+}
+{$endif}
interface