diff options
Diffstat (limited to 'src')
| -rw-r--r-- | src/corelib/fpg_imgfmt_bmp.pas | 10 |
1 files changed, 7 insertions, 3 deletions
diff --git a/src/corelib/fpg_imgfmt_bmp.pas b/src/corelib/fpg_imgfmt_bmp.pas index 1ea61551..f678b79b 100644 --- a/src/corelib/fpg_imgfmt_bmp.pas +++ b/src/corelib/fpg_imgfmt_bmp.pas @@ -25,15 +25,19 @@ interface uses Classes, SysUtils, + fpg_base, fpg_main; procedure ReadImage_BMP(img: TfpgImage; bmp: Pointer; bmpsize: longword); -function LoadImage_BMP(const AFileName: String): TfpgImage; +function LoadImage_BMP(const AFileName: TfpgString): TfpgImage; function CreateImage_BMP(bmp: Pointer; bmpsize: longword): TfpgImage; implementation +uses + fpg_utils; + function CreateImage_BMP(bmp: Pointer; bmpsize: longword): TfpgImage; begin @@ -41,14 +45,14 @@ begin ReadImage_BMP(Result, bmp, bmpsize); end; -function LoadImage_BMP(const AFileName: String): TfpgImage; +function LoadImage_BMP(const AFileName: TfpgString): TfpgImage; var AFile: file of char; AImageData: Pointer; AImageDataSize: integer; begin Result := nil; - if not FileExists(AFileName) then + if not fpgFileExists(AFileName) then Exit; //==> AssignFile(AFile, AFileName); |