Browse Source

* some fixes to support Delphi (thanks at Jens01)

master
Bergmann89 11 years ago
parent
commit
aff95a0de8
1 changed files with 8 additions and 6 deletions
  1. +8
    -6
      glBitmap.pas

+ 8
- 6
glBitmap.pas View File

@@ -242,7 +242,7 @@ unit glBitmap;
{.$DEFINE GLB_DELPHI}

// activate to enable the support for TLazIntfImage from Lazarus
{$DEFINE GLB_LAZARUS}
{.$DEFINE GLB_LAZARUS}



@@ -254,7 +254,7 @@ unit glBitmap;

// activate to enable Lazarus TPortableNetworkGraphic support
// if you enable this pngImage and libPNG will be ignored
{$DEFINE GLB_LAZ_PNG}
{.$DEFINE GLB_LAZ_PNG}

// activate to enable png support with the unit pngimage -> http://pngdelphi.sourceforge.net/
// if you enable pngimage the libPNG will be ignored
@@ -268,7 +268,7 @@ unit glBitmap;

// activate to enable Lazarus TJPEGImage support
// if you enable this delphi jpegs and libJPEG will be ignored
{$DEFINE GLB_LAZ_JPEG}
{.$DEFINE GLB_LAZ_JPEG}

// if you enable delphi jpegs the libJPEG will be ignored
{.$DEFINE GLB_DELPHI_JPEG}
@@ -443,11 +443,12 @@ interface
uses
{$IFNDEF GLB_NATIVE_OGL} dglOpenGL, {$ENDIF}
{$IF DEFINED(GLB_WIN) AND
DEFINED(GLB_NATIVE_OGL)} windows, {$IFEND}
(DEFINED(GLB_NATIVE_OGL) OR
DEFINED(GLB_DELPHI))} windows, {$IFEND}

{$IFDEF GLB_SDL} SDL, {$ENDIF}
{$IFDEF GLB_LAZARUS} IntfGraphics, GraphType, Graphics, {$ENDIF}
{$IFDEF GLB_DELPHI} Dialogs, Graphics, {$ENDIF}
{$IFDEF GLB_DELPHI} Dialogs, Graphics, Types, {$ENDIF}

{$IFDEF GLB_SDL_IMAGE} SDL_image, {$ENDIF}
{$IFDEF GLB_PNGIMAGE} pngimage, {$ENDIF}
@@ -1224,7 +1225,8 @@ function CreateGrayPalette: HPALETTE;
implementation

uses
Math, syncobjs, typinfo;
Math, syncobjs, typinfo
{$IFDEF GLB_DELPHI}, Types{$ENDIF};

type
{$IFNDEF fpc}


Loading…
Cancel
Save