Changeset 110
- Timestamp:
- Jan 30, 2018, 5:02:20 PM (7 years ago)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
trunk/ScreenTools.pas
r88 r110 59 59 procedure EditFrame(ca: TCanvas; p: TRect; const T: TTexture); 60 60 function HexStringToColor(s: string): integer; 61 function LoadGraphicFile(bmp: TBitmap; constPath: string;61 function LoadGraphicFile(bmp: TBitmap; Path: string; 62 62 Options: integer = 0): boolean; 63 63 function LoadGraphicSet(const Name: string): integer; … … 451 451 end; 452 452 453 function LoadGraphicFile(bmp: TBitmap; constPath: string; Options: integer): boolean;453 function LoadGraphicFile(bmp: TBitmap; Path: string; Options: integer): boolean; 454 454 var 455 455 jtex: tjpegimage; … … 457 457 begin 458 458 Result := True; 459 if ExtractFileExt(Path) = '' then Path := Path + '.png'; 459 460 if ExtractFileExt(Path) = '.jpg' then begin 460 461 jtex := tjpegimage.create;
Note:
See TracChangeset
for help on using the changeset viewer.