Changeset 573 for GraphicTest/Packages

Timestamp:

Jun 25, 2024, 10:49:43 AM (5 months ago)

Author:

chronos

Message:

• Modified: Build with Lazarus 3.4.
• Modified: Removed U prefix from unit names.

Location:

GraphicTest/Packages

Files:

• bgrabitmap/bgrautf8.pas (modified) (2 diffs)
• bgracontrols/bgrapanel.pas (modified) (2 diffs)

GraphicTest/Packages/bgrabitmap/bgrautf8.pas

@@ -7 +7 @@
 
 uses
-  Classes, SysUtils, BGRAUnicode{$IFDEF BGRABITMAP_USE_LCL}, lazutf8classes{$ENDIF};
+  Classes, SysUtils, BGRAUnicode{$IFDEF BGRABITMAP_USE_LCL}, lazclasses{$ENDIF};
 
 {$IFDEF BGRABITMAP_USE_LCL}
 type
-  TFileStreamUTF8 = lazutf8classes.TFileStreamUTF8;
-  TStringListUTF8 = lazutf8classes.TStringListUTF8;
+  TFileStreamUTF8 = TFileStream;
+  TStringListUTF8 = TStringList;
 {$ELSE}
 type
@@ -105 +105 @@
 procedure LoadStringsFromFileUTF8(List: TStrings; const FileName: string);
 begin
-  lazutf8classes.LoadStringsFromFileUTF8(List,FileName);
+  LoadStringsFromFileUTF8(List,FileName);
 end;
 
 procedure SaveStringsToFileUTF8(List: TStrings; const FileName: string);
 begin
-  lazutf8classes.SaveStringsToFileUTF8(List,FileName);
+  SaveStringsToFileUTF8(List,FileName);
 end;
 

GraphicTest/Packages/bgracontrols/bgrapanel.pas

@@ -244 +244 @@
 procedure TBGRAPanel.FontChanged(Sender: TObject);
 begin
-  inherited FontChanged(Sender);
+  inherited;
   Changed;
   Invalidate;
@@ -344 +344 @@
 procedure TBGRAPanel.Resize;
 begin
-  inherited Resize;
+  inherited;
   if FBGRA <> nil then
     PrepareBGRA;
 end;
 
-procedure TBGRAPanel.SetEnabled(Value: boolean);
-begin
-  inherited SetEnabled(Value);
+procedure TBGRAPanel.SetEnabled(Value: Boolean);
+begin
+  inherited;
   Changed;
 end;