Changeset 417 for trunk/UBrain.pas

Timestamp:

Nov 17, 2021, 11:11:01 AM (2 years ago)

Author:

chronos

Message:

• Modified: Merged LoadGraphicSet and LoadGraphicSet2 into single method.
• Modified: Moved brain load picture code into TBrain.LoadPicture method.
• Added: Brain pictures loaded as TGraphicSetItem.
• Modified: Code cleanup.

File:

• trunk/UBrain.pas (modified) (5 diffs)

trunk/UBrain.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, fgl, Graphics, Protocol, LazFileUtils, dynlibs;
+  Classes, SysUtils, fgl, Graphics, Protocol, LazFileUtils, dynlibs, Types;
 
 const
@@ -35 +35 @@
     Picture: TBitmap;
     Beginner: Boolean;
+    procedure LoadPicture;
     procedure LoadFromFile(AIFileName: string);
     constructor Create;
@@ -47 +48 @@
     procedure GetByKind(Kind: TBrainType; Brains: TBrains);
     function GetBeginner: TBrain;
+    procedure LoadPictures;
   end;
 
@@ -53 +55 @@
 
 uses
-  ScreenTools;
+  ScreenTools, Directories;
 
 { TBrain }
+
+procedure TBrain.LoadPicture;
+var
+  TextSize: TSize;
+begin
+  if not LoadGraphicFile(Picture, GetAiDir + DirectorySeparator +
+    FileName + DirectorySeparator + FileName + '.png', [gfNoError]) then begin
+    with Picture.Canvas do begin
+      Brush.Color := $904830;
+      FillRect(Rect(0, 0, 64, 64));
+      Font.Assign(UniFont[ftTiny]);
+      Font.Style := [];
+      Font.Color := $5FDBFF;
+      TextSize := TextExtent(FileName);
+      TextOut(32 - TextSize.Width div 2, 32 - TextSize.Height div 2, FileName);
+    end;
+  end;
+end;
 
 procedure TBrain.LoadFromFile(AIFileName: string);
@@ -177 +197 @@
 end;
 
+procedure TBrains.LoadPictures;
+var
+  I: Integer;
+begin
+  for I := 0 to Count - 1 do
+    with Items[I] do LoadPicture;
+end;
+
+
 end.