Changeset 573 for GraphicTest/DrawMethod.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/DrawMethod.pas (moved) (moved from GraphicTest/UDrawMethod.pas ) (11 diffs)

GraphicTest/DrawMethod.pas

@@ -1 @@
-unit UDrawMethod;
-
-{$mode delphi}{$H+}
+unit DrawMethod;
 
 interface
 
 uses
-  Classes, SysUtils, ExtCtrls, UPlatform, UFastBitmap, Graphics, Controls,
+  Classes, SysUtils, ExtCtrls, Platform, FastBitmap, Graphics, Controls,
   LCLType, IntfGraphics, fpImage, GraphType, DateUtils, Forms,
   {$IFDEF OPENGL}GL, GLExt, OpenGLContext,{$ENDIF}
@@ -13 +11 @@
 type
   TPaintObject = (poImage, poPaintBox, poOpenGL, poCanvas);
-
 
   { TDrawMethod }
@@ -98 +95 @@
 procedure TDrawMethodCanvas.UpdateSettings;
 begin
-  inherited UpdateSettings;
+  inherited;
 end;
 
@@ -109 +106 @@
 procedure TDrawMethodCanvas.Done;
 begin
-  inherited Done;
-end;
-
+  inherited;
+end;
 
 { TDrawMethodPaintBox }
@@ -117 +113 @@
 procedure TDrawMethodPaintBox.Paint(Sender: TObject);
 begin
-
 end;
 
 procedure TDrawMethodPaintBox.UpdateSettings;
 begin
-  inherited UpdateSettings;
+  inherited;
   PaintBox.ControlStyle := FParent.ControlStyle;
 end;
@@ -140 +135 @@
 begin
   FreeAndNil(PaintBox);
-  inherited Done;
+  inherited;
 end;
 
@@ -166 +161 @@
 begin
   FreeAndNil(Image);
-  inherited Done;
-end;
-
+  inherited;
+end;
 
 {$IFDEF OPENGL}
@@ -204 +198 @@
 procedure TDrawMethodOpenGL.UpdateSettings;
 begin
-  inherited UpdateSettings;
+  inherited;
   OpenGLControl.ControlStyle := FParent.ControlStyle;
 end;
@@ -230 +224 @@
 {$ENDIF}
 
-
 { TDrawMethod }
 
@@ -253 +246 @@
 procedure TDrawMethod.Done;
 begin
-
 end;
 
@@ -269 +261 @@
 procedure TDrawMethod.DrawFrame(FastBitmap: TFastBitmap);
 begin
-
 end;