Changeset 573 for GraphicTest/Forms/FormDraw.pas

Timestamp:

Jun 25, 2024, 10:49:43 AM (8 days ago)

Author:

chronos

Message:

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

File:

• GraphicTest/Forms/FormDraw.pas (moved) (moved from GraphicTest/Forms/UFormDraw.pas ) (3 diffs)

GraphicTest/Forms/FormDraw.pas

@@ -1 @@
-unit UFormDraw;
-
-{$mode delphi}
+unit FormDraw;
 
 interface
@@ -23 +21 @@
   end;
 
-var
-  FormDraw: TFormDraw;
 
 implementation
@@ -38 +34 @@
 begin
   if EraseBackgroundEnabled then
-    inherited EraseBackground(DC);
+    inherited;
 end;
 
 initialization
-  {$I UFormDraw.lrs}
+  {$I FormDraw.lrs}
 
 end.