Changeset 573 for GraphicTest/Packages/bgracontrols/bgrapanel.pas

Timestamp:

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

Author:

chronos

Message:

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

File:

• GraphicTest/Packages/bgracontrols/bgrapanel.pas (modified) (2 diffs)

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;