Changeset 465 for branches/highdpi/Brain.pas

Timestamp:

Nov 30, 2023, 10:16:14 PM (12 months ago)

Author:

chronos

Message:

• Modified: Updated high dpi branch from trunk.
• Modified: Use generics.collections instead of fgl.
• Modified: Compile with Delphi syntax.

File:

• branches/highdpi/Brain.pas (moved) (moved from branches/highdpi/UBrain.pas ) (6 diffs)

branches/highdpi/Brain.pas

@@ -1 @@
-unit UBrain;
-
-{$mode delphi}
+unit Brain;
 
 interface
 
 uses
-  UDpiControls, Classes, SysUtils, fgl, Graphics, Protocol, LazFileUtils, dynlibs;
+  UDpiControls, Classes, SysUtils, Generics.Collections, Graphics, Protocol, LazFileUtils,
+  dynlibs, Types;
 
 const
@@ -35 +34 @@
     Picture: TDpiBitmap;
     Beginner: Boolean;
+    procedure LoadPicture;
     procedure LoadFromFile(AIFileName: string);
     constructor Create;
@@ -42 +42 @@
   { TBrains }
 
-  TBrains = class(TFPGObjectList<TBrain>)
+  TBrains = class(TObjectList<TBrain>)
     function AddNew: TBrain;
     function GetKindCount(Kind: TBrainType): Integer;
     procedure GetByKind(Kind: TBrainType; Brains: TBrains);
     function GetBeginner: TBrain;
+    procedure LoadPictures;
   end;
 
@@ -53 +54 @@
 
 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);
@@ -106 +125 @@
       DLLName := BasePath + DirectorySeparator + Value
     {$ENDIF}{$ENDIF}
-    {$IFDEF LINUX}{$IFDEF CPU32}
-    else if Key = '#PATH_LINUX32' then
-      DLLName := BasePath + DirectorySeparator + Value
-    {$ENDIF}{$ENDIF}
-    {$IFDEF LINUX}{$IFDEF CPU64}
-    else if Key = '#PATH_LINUX64' then
+    {$IFDEF UNIX}{$IFDEF CPUI386}
+    else if Key = '#PATH_LINUX_I386' then
+      DLLName := BasePath + DirectorySeparator + Value
+    {$ENDIF}{$ENDIF}
+    {$IFDEF UNIX}{$IFDEF CPUAMD64}
+    else if Key = '#PATH_LINUX_AMD64' then
+      DLLName := BasePath + DirectorySeparator + Value
+    {$ENDIF}{$ENDIF}
+    {$IFDEF UNIX}{$IFDEF CPUARM}
+    else if Key = '#PATH_LINUX_ARM32' then
+      DLLName := BasePath + DirectorySeparator + Value
+    {$ENDIF}{$ENDIF}
+    {$IFDEF UNIX}{$IFDEF CPUAARCH64}
+    else if Key = '#PATH_LINUX_ARM64' then
       DLLName := BasePath + DirectorySeparator + Value
     {$ENDIF}{$ENDIF}
@@ -177 +204 @@
 end;
 
+procedure TBrains.LoadPictures;
+var
+  I: Integer;
+begin
+  for I := 0 to Count - 1 do
+    with Items[I] do LoadPicture;
+end;
+
 end.
 
+
+