Changeset 110 for trunk

Timestamp:

Jan 30, 2018, 5:02:20 PM (6 years ago)

Author:

chronos

Message:

• Fixed: Load also image without file extension specified by default as .png files.

File:

• trunk/ScreenTools.pas (modified) (3 diffs)

trunk/ScreenTools.pas

@@ -59 +59 @@
 procedure EditFrame(ca: TCanvas; p: TRect; const T: TTexture);
 function HexStringToColor(s: string): integer;
-function LoadGraphicFile(bmp: TBitmap; const Path: string;
+function LoadGraphicFile(bmp: TBitmap; Path: string;
   Options: integer = 0): boolean;
 function LoadGraphicSet(const Name: string): integer;
@@ -451 +451 @@
 end;
 
-function LoadGraphicFile(bmp: TBitmap; const Path: string; Options: integer): boolean;
+function LoadGraphicFile(bmp: TBitmap; Path: string; Options: integer): boolean;
 var
   jtex: tjpegimage;
@@ -457 +457 @@
 begin
   Result := True;
+  if ExtractFileExt(Path) = '' then Path := Path + '.png';
   if ExtractFileExt(Path) = '.jpg' then begin
     jtex := tjpegimage.create;