Changeset 127 for trunk/Packages/Common

Timestamp:

Apr 8, 2022, 9:19:27 PM (3 years ago)

Author:

chronos

Message:

• Modified: Removed explicit Delphi directive.
• Fixed: Added mising UTestCase file.

Location:

trunk/Packages/Common

Files:

• StopWatch.pas (modified) (1 diff)
• UAboutDialog.pas (modified) (1 diff)
• UApplicationInfo.pas (modified) (2 diffs)
• UCommon.pas (modified) (1 diff)
• UDebugLog.pas (modified) (2 diffs)
• UDelay.pas (modified) (1 diff)
• UFormAbout.pas (modified) (1 diff)
• UGeometric.pas (modified) (2 diffs)
• UJobProgressView.pas (modified) (2 diffs)
• ULanguages.pas (modified) (1 diff)
• ULastOpenedList.pas (modified) (1 diff)
• UListViewSort.pas (modified) (1 diff)
• UMemory.pas (modified) (2 diffs)
• UMetaCanvas.pas (modified) (1 diff)
• UPersistentForm.pas (modified) (1 diff)
• UPixelPointer.pas (modified) (1 diff)
• UPool.pas (modified) (1 diff)
• UPrefixMultiplier.pas (modified) (1 diff)
• URegistry.pas (modified) (2 diffs)
• UResetableThread.pas (modified) (1 diff)
• UScaleDPI.pas (modified) (1 diff)
• UStringTable.pas (modified) (1 diff)
• USyncCounter.pas (modified) (2 diffs)
• UTheme.pas (modified) (1 diff)
• UThreading.pas (modified) (2 diffs)
• UTranslator.pas (modified) (1 diff)
• UURI.pas (modified) (2 diffs)
• UXMLUtils.pas (modified) (1 diff)

trunk/Packages/Common/StopWatch.pas

@@ -31 +31 @@
     property IsRunning : Boolean read fIsRunning;
   end;
+
 
 implementation

trunk/Packages/Common/UAboutDialog.pas

@@ -1 +1 @@
 unit UAboutDialog;
-
-{$mode delphi}
 
 interface

trunk/Packages/Common/UApplicationInfo.pas

@@ -1 +1 @@
 unit UApplicationInfo;
-
-{$mode delphi}
 
 interface
@@ -59 +57 @@
 procedure Register;
 
+
 implementation
 

trunk/Packages/Common/UCommon.pas

@@ -1 +1 @@
 unit UCommon;
-
-{$mode delphi}
 
 interface

trunk/Packages/Common/UDebugLog.pas

@@ -1 +1 @@
 unit UDebugLog; 
-
-{$mode delphi}
 
 interface
@@ -44 +42 @@
 
 procedure Register;
+
 
 implementation

trunk/Packages/Common/UDelay.pas

@@ -1 +1 @@
 unit UDelay;
-
-{$mode delphi}
 
 interface

trunk/Packages/Common/UFormAbout.pas

@@ -1 +1 @@
 unit UFormAbout;
-
-{$mode delphi}
 
 interface

trunk/Packages/Common/UGeometric.pas

@@ -1 +1 @@
 unit UGeometric;
-
-{$mode delphi}
 
 interface
@@ -26 +24 @@
 function RectEnlarge(Rect: TRect; Value: Integer): TRect;
 function ShiftRect(ARect: TRect; Delta: TPoint): TRect;
+
 
 implementation

trunk/Packages/Common/UJobProgressView.pas

@@ -1 +1 @@
 unit UJobProgressView;
-
-{$MODE Delphi}
 
 interface
@@ -163 +161 @@
 resourcestring
   SExecuted = 'Executed';
+
 
 implementation

trunk/Packages/Common/ULanguages.pas

@@ -1 +1 @@
 unit ULanguages;
-
-{$mode delphi}{$H+}
 
 interface

trunk/Packages/Common/ULastOpenedList.pas

@@ -1 +1 @@
 unit ULastOpenedList;
-
-{$mode delphi}
 
 interface

trunk/Packages/Common/UListViewSort.pas

@@ -2 +2 @@
 
 // Date: 2019-05-17
-
-{$mode delphi}
 
 interface

trunk/Packages/Common/UMemory.pas

@@ -1 +1 @@
 unit UMemory;
-
-{$mode Delphi}{$H+}
 
 interface
@@ -43 +41 @@
     property Position: Integer read FPosition write FPosition;
   end;
+
 
 implementation

trunk/Packages/Common/UMetaCanvas.pas

@@ -1 +1 @@
 unit UMetaCanvas;
-
-{$mode delphi}
 
 interface

trunk/Packages/Common/UPersistentForm.pas

@@ -1 +1 @@
 unit UPersistentForm;
-
-{$mode delphi}
 
 // Date: 2020-11-26

trunk/Packages/Common/UPixelPointer.pas

@@ -59 +59 @@
   function Color32ToColor(Color: TColor32): TColor;
   function ColorToColor32(Color: TColor): TColor32;
+
 
 implementation

trunk/Packages/Common/UPool.pas

@@ -1 +1 @@
 unit UPool;
-
-{$mode Delphi}{$H+}
 
 interface

trunk/Packages/Common/UPrefixMultiplier.pas

@@ -2 +2 @@
 
 // Date: 2010-06-01
-
-{$mode delphi}
 
 interface

trunk/Packages/Common/URegistry.pas

@@ -1 +1 @@
 unit URegistry;
-
-{$MODE delphi}
 
 interface
@@ -48 +46 @@
     HKEY_CURRENT_CONFIG, HKEY_DYN_DATA);
 
+
 implementation
-
 
 { TRegistryContext }

trunk/Packages/Common/UResetableThread.pas

@@ -1 +1 @@
 unit UResetableThread;
-
-{$mode Delphi}{$H+}
 
 interface

trunk/Packages/Common/UScaleDPI.pas

@@ -2 +2 @@
 
 { See: http://wiki.lazarus.freepascal.org/High_DPI }
-
-{$mode delphi}{$H+}
 
 interface

trunk/Packages/Common/UStringTable.pas

@@ -1 +1 @@
 unit UStringTable;
-
-{$mode objfpc}{$H+}
 
 interface

trunk/Packages/Common/USyncCounter.pas

@@ -1 +1 @@
 unit USyncCounter;
-
-{$mode delphi}
 
 interface
@@ -25 +23 @@
     procedure Assign(Source: TSyncCounter);
   end;
+
 
 implementation

trunk/Packages/Common/UTheme.pas

@@ -48 +48 @@
 
 procedure Register;
+
 
 implementation

trunk/Packages/Common/UThreading.pas

@@ -1 +1 @@
 unit UThreading;
-
-{$mode delphi}
 
 interface
@@ -11 +9 @@
   TExceptionEvent = procedure (Sender: TObject; E: Exception) of object;
   TMethodCall = procedure of object;
-
 
   { TVirtualThread }

trunk/Packages/Common/UTranslator.pas

@@ -1 +1 @@
 unit UTranslator;
-
-{$mode delphi}{$H+}
 
 interface

trunk/Packages/Common/UURI.pas

@@ -2 +2 @@
 
 // Date: 2011-04-04
-
-{$mode delphi}
 
 interface
@@ -84 +82 @@
     property AsString: string read GetAsString write SetAsString;
   end;
+
 
 implementation

trunk/Packages/Common/UXMLUtils.pas

@@ -1 +1 @@
 unit UXMLUtils;
-
-{$mode delphi}
 
 interface