Changeset 715 for trunk/Packages/CevoComponents/ScreenTools.pas

Timestamp:

Jan 4, 2026, 6:07:38 PM (3 days ago)

Author:

chronos

Message:

• Modified: Do not store .png file extension in graphics names in book files. This is for compatibility with older C-evo versions.

File:

• trunk/Packages/CevoComponents/ScreenTools.pas (modified) (8 diffs)

trunk/Packages/CevoComponents/ScreenTools.pas

@@ -116 +116 @@
 
 const
+  BmpExt = '.bmp';
+  PngExt = '.png';
+  JpgExt = '.jpg';
+
   TransparentColor1 = $FF00FF;
   TransparentColor2 = $7F007F;
@@ -434 +438 @@
   Result := False;
   if ExtractFileExt(FileName) = '' then
-    FileName := FileName + '.png';
+    FileName := FileName + PngExt;
 
   if FileExists(FileName) then begin
-    if ExtractFileExt(FileName) = '.jpg' then begin
+    if ExtractFileExt(FileName) = JpgExt then begin
       Jpeg := TJpegImage.Create;
       try
@@ -451 +455 @@
       FreeAndNil(Jpeg);
     end else
-    if ExtractFileExt(FileName) = '.png' then begin
+    if ExtractFileExt(FileName) = PngExt then begin
       Png := TPortableNetworkGraphic.Create;
       try
@@ -473 +477 @@
       FreeAndNil(Png);
     end else
-    if ExtractFileExt(FileName) = '.bmp' then begin
+    if ExtractFileExt(FileName) = BmpExt then begin
       try
         Bmp.LoadFromFile(FileName);
@@ -1882 +1886 @@
   LoadPhrases;
   LoadFonts;
-  Templates := LoadGraphicSet('Templates.png', False);
+  Templates := LoadGraphicSet('Templates' + PngExt, False);
   with Templates do begin
     Logo := GetItem('Logo');
@@ -1898 +1902 @@
   end;
 
-  LoadGraphicFile(Colors, GetGraphicsDir + DirectorySeparator + 'Colors.png');
-  LoadGraphicFile(Paper, GetGraphicsDir + DirectorySeparator + 'Paper.jpg');
-  LoadGraphicFile(BigImp, GetGraphicsDir + DirectorySeparator + 'Icons.png');
+  LoadGraphicFile(Colors, GetGraphicsDir + DirectorySeparator + 'Colors' + PngExt);
+  LoadGraphicFile(Paper, GetGraphicsDir + DirectorySeparator + 'Paper' + JpgExt);
+  LoadGraphicFile(BigImp, GetGraphicsDir + DirectorySeparator + 'Icons' + PngExt);
 end;
 
@@ -1923 +1927 @@
   GrExt := TGraphicSets.Create;
 
-  HGrSystem := LoadGraphicSet('System.png');
+  HGrSystem := LoadGraphicSet('System' + PngExt);
   with HGrSystem do begin
     CityMark1 := GetItem('CityMark1');
@@ -1929 +1933 @@
   end;
 
-  HGrSystem2 := LoadGraphicSet('System2.png');
+  HGrSystem2 := LoadGraphicSet('System2' + PngExt);
   with HGrSystem2 do begin
     Ornament := GetItem('Ornament');