Changeset 144 for trunk/Packages

Timestamp:

Jun 2, 2023, 11:18:38 PM (19 months ago)

Author:

chronos

Message:

• Modified: Removed explicit mode directive.

Location:

trunk/Packages/Common

Files:

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

trunk/Packages/Common/UAboutDialog.pas

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

trunk/Packages/Common/UApplicationInfo.pas

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

trunk/Packages/Common/UCommon.pas

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

trunk/Packages/Common/UDebugLog.pas

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

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

trunk/Packages/Common/UJobProgressView.pas

@@ -1 +1 @@
 unit UJobProgressView;
-
-{$MODE Delphi}
 
 interface
@@ -642 +640 @@
 begin
   FLock.Free;
-  inherited Destroy;
+  inherited;
 end;
 

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

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/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

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
@@ -69 +67 @@
 begin
   Lock.Free;
-  inherited Destroy;
+  inherited;
 end;
 

trunk/Packages/Common/UThreading.pas

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

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

trunk/Packages/Common/UXMLUtils.pas

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