Changeset 73 for trunk/LocalPlayer

Timestamp:

Jan 15, 2017, 4:12:10 PM (8 years ago)

Author:

chronos

Message:

• Modified: All graphics images converted from BMP to PNG.

Location:

trunk/LocalPlayer

Files:

• CityScreen.pas (modified) (2 diffs)
• Draft.pas (modified) (1 diff)
• Help.pas (modified) (1 diff)
• IsoEngine.pas (modified) (2 diffs)
• NatStat.pas (modified) (1 diff)
• TechTree.pas (modified) (1 diff)
• Term.pas (modified) (4 diffs)
• Tribes.pas (modified) (5 diffs)
• UnitStat.pas (modified) (1 diff)

trunk/LocalPlayer/CityScreen.pas

@@ -10 +10 @@
   Protocol, ClientTools, Term, ScreenTools, IsoEngine, BaseWin,
   LCLIntf, LCLType, Messages, SysUtils, Classes, Graphics, Controls, Forms, ExtCtrls,
-  ButtonA, ButtonC, Area;
+  ButtonA, ButtonC, Area, GraphType;
 
 const
@@ -217 +217 @@
   Back.Canvas.FillRect(0, 0, Back.Width, Back.Height);
   Template := TBitmap.Create;
-  LoadGraphicFile(Template, HomeDir + 'Graphics' + DirectorySeparator + 'City', gfNoGamma);
-  Template.PixelFormat := pf8bit;
+  Template.PixelFormat := pf24bit;
+  LoadGraphicFile(Template, HomeDir + 'Graphics' + DirectorySeparator + 'City.png', gfNoGamma);
   CityMapTemplate := TBitmap.Create;
-  LoadGraphicFile(CityMapTemplate, HomeDir + 'Graphics' + DirectorySeparator + 'BigCityMap', gfNoGamma);
-  CityMapTemplate.PixelFormat := pf8bit;
+  CityMapTemplate.PixelFormat := pf24bit;
+  LoadGraphicFile(CityMapTemplate, HomeDir + 'Graphics' + DirectorySeparator + 'BigCityMap.png', gfNoGamma);
   SmallCityMapTemplate := TBitmap.Create;
-  LoadGraphicFile(SmallCityMapTemplate, HomeDir + 'Graphics' + DirectorySeparator + 'SmallCityMap',
+  SmallCityMapTemplate.PixelFormat := pf24bit;
+  LoadGraphicFile(SmallCityMapTemplate, HomeDir + 'Graphics' + DirectorySeparator + 'SmallCityMap.png',
     gfNoGamma);
-  SmallCityMapTemplate.PixelFormat := pf24bit;
   SmallCityMap := TBitmap.Create;
   SmallCityMap.PixelFormat := pf24bit;

trunk/LocalPlayer/Draft.pas

@@ -91 +91 @@
   Back.Canvas.FillRect(0, 0, Back.Width, Back.Height);
   Template := TBitmap.Create;
-  LoadGraphicFile(Template, HomeDir + 'Graphics' + DirectorySeparator + 'MiliRes', gfNoGamma);
-  Template.PixelFormat := pf8bit;
+  Template.PixelFormat := pf24bit;
+  LoadGraphicFile(Template, HomeDir + 'Graphics' + DirectorySeparator + 'MiliRes.png', gfNoGamma);
 end;
 

trunk/LocalPlayer/Help.pas

@@ -968 +968 @@
           until (p > length(s)) or (s[p] = '\');
           if LoadGraphicFile(ExtPic, LocalizedFilePath('Help' +
-            DirectorySeparator + copy(s, 2, p - 2))) then
+            DirectorySeparator + copy(s, 2, p - 2)) + '.png') then
           begin
             MainText.AddLine('', pkExternal);

trunk/LocalPlayer/IsoEngine.pas

@@ -111 +111 @@
 begin
   result := false;
-  HGrTerrainNew := LoadGraphicSet(Format('Terrain%dx%d',
+  HGrTerrainNew := LoadGraphicSet(Format('Terrain%dx%d.png',
     [xxtNew * 2, yytNew * 2]));
   if HGrTerrainNew < 0 then
     exit;
-  HGrCitiesNew := LoadGraphicSet(Format('Cities%dx%d',
+  HGrCitiesNew := LoadGraphicSet(Format('Cities%dx%d.png',
     [xxtNew * 2, yytNew * 2]));
   if HGrCitiesNew < 0 then
@@ -334 +334 @@
   OceanMore.Free;
   DitherMask.Free;
-  //LandPatch.Savetofile('landpatch.bmp');
 
   // reduce size of terrain icons

trunk/LocalPlayer/NatStat.pas

@@ -92 +92 @@
   Back.Canvas.FillRect(0, 0, Back.Width, Back.Height);
   Template := TBitmap.Create;
-  LoadGraphicFile(Template, HomeDir + 'Graphics' + DirectorySeparator + 'Nation', gfNoGamma);
-  Template.PixelFormat := pf8bit;
+  Template.PixelFormat := pf24bit;
+  LoadGraphicFile(Template, HomeDir + 'Graphics' + DirectorySeparator + 'Nation.png', gfNoGamma);
 end;
 

trunk/LocalPlayer/TechTree.pas

@@ -128 +128 @@
   begin
     Image := TBitmap.Create;
-    LoadGraphicFile(Image, HomeDir + 'Help' + DirectorySeparator + 'AdvTree', gfNoGamma);
     Image.PixelFormat := pf24bit;
+    LoadGraphicFile(Image, HomeDir + 'Help' + DirectorySeparator + 'AdvTree.png', gfNoGamma);
 
     with Image.Canvas do

trunk/LocalPlayer/Term.pas

@@ -588 +588 @@
   SmallImp.EndUpdate;
   FreeMem(resampled);
-  // smallimp.savetofile(homedir+'smallimp.bmp'); //!!!
 end;
 
@@ -674 +673 @@
     with Tribe[p].ModelPicture[mix] do
     begin
-      HGr := LoadGraphicSet(Picture.GrName);
+      HGr := LoadGraphicSet(Picture.GrName + '.png');
       pix := Picture.pix;
     end;
@@ -1203 +1202 @@
     if AILogo[p] = nil then
       AILogo[p] := TBitmap.Create;
-    if not LoadGraphicFile(AILogo[p], HomeDir + Name, gfNoError) then
+    if not LoadGraphicFile(AILogo[p], HomeDir + Name + '.png', gfNoError) then
     begin
       AILogo[p].free;
@@ -1467 +1466 @@
     MainMap.SetOutput(offscreen);
 
-    HGrStdUnits := LoadGraphicSet('StdUnits');
+    HGrStdUnits := LoadGraphicSet('StdUnits.png');
     SmallImp := TBitmap.Create;
     SmallImp.PixelFormat := pf24bit;

trunk/LocalPlayer/Tribes.pas

@@ -301 +301 @@
         Item := Get;
         sympix := GetNum;
-        symHGr := LoadGraphicSet(Item);
+        symHGr := LoadGraphicSet(Item + '.png');
       end
     end;
@@ -425 +425 @@
                   end
               end;
-            cHGr := LoadGraphicSet(Item);
+            cHGr := LoadGraphicSet(Item + '.png');
             for x := 0 to 3 do
               with CityPicture[x] do
@@ -445 +445 @@
           else
           begin
-            faceHGr := LoadGraphicSet(Item);
+            faceHGr := LoadGraphicSet(Item + '.png');
             facepix := GetNum;
             if GrExt[faceHGr].Data.Canvas.Pixels[facepix mod 10 * 65,
@@ -477 +477 @@
             dec(i);
           assert(i >= 0);
-          assert(PictureList[i].HGr = LoadGraphicSet(GrName));
+          assert(PictureList[i].HGr = LoadGraphicSet(GrName + '.png'));
           assert(PictureList[i].pix = pix);
           ModelPicture[mix].HGr := PictureList[i].HGr;
@@ -487 +487 @@
           with ModelPicture[mix] do
           begin
-            HGr := LoadGraphicSet(GrName);
+            HGr := LoadGraphicSet(GrName + '.png');
             pix := Info.pix;
             inc(GrExt[HGr].pixUsed[pix]);

trunk/LocalPlayer/UnitStat.pas

@@ -82 +82 @@
   Back.Canvas.FillRect(0, 0, Back.Width,Back.Height);
   Template := TBitmap.Create;
-  LoadGraphicFile(Template, HomeDir + 'Graphics' + DirectorySeparator + 'Unit', gfNoGamma);
-  Template.PixelFormat := pf8bit;
+  Template.PixelFormat := pf24bit;
+  LoadGraphicFile(Template, HomeDir + 'Graphics' + DirectorySeparator + 'Unit.png', gfNoGamma);
 end;