Changeset 149 for trunk/Forms/FormSource.pas

Timestamp:

Jun 5, 2023, 8:45:38 PM (18 months ago)

Author:

chronos

Message:

• Modified: Remove U prefix from unit names.

File:

• trunk/Forms/FormSource.pas (moved) (moved from trunk/Forms/UFormSource.pas ) (9 diffs)

trunk/Forms/FormSource.pas

@@ -1 @@
-unit UFormSource;
+unit FormSource;
 
 interface
@@ -5 +5 @@
 uses
   Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ActnList, Menus,
-  StdCtrls, SynEdit, SynHighlighterAny, UVCardHighlighter, Common;
+  StdCtrls, SynEdit, SynHighlighterAny, VCardHighlighter, Common;
 
 type
@@ -42 +42 @@
   end;
 
-var
-  FormSource: TFormSource;
-
 
 implementation
@@ -51 +48 @@
 
 uses
-  UCore, Theme, VCard;
+  Core, Theme, VCard;
 
 { TFormSource }
@@ -57 +54 @@
 procedure TFormSource.FormClose(Sender: TObject; var CloseAction: TCloseAction);
 begin
-  Core.PersistentForm1.Save(Self);
+  Core.Core.PersistentForm1.Save(Self);
 end;
 
@@ -85 +82 @@
   I: Integer;
 begin
-  Core.Translator.TranslateComponentRecursive(Self);
-  Core.ThemeManager1.UseTheme(Self);
+  Core.Core.Translator.TranslateComponentRecursive(Self);
+  Core.Core.ThemeManager1.UseTheme(Self);
 
   VCardHighlighter := TSynVCardHighlighter.Create(nil);
@@ -105 +102 @@
 procedure TFormSource.FormShow(Sender: TObject);
 begin
-  Core.PersistentForm1.Load(Self);
+  Core.Core.PersistentForm1.Load(Self);
   UpdateTheme;
 end;
@@ -123 +120 @@
   C: TColor;
 begin
-  if Core.ThemeManager1.Theme.Name = ThemeNameDark then begin
+  if Core.Core.ThemeManager1.Theme.Name = ThemeNameDark then begin
     SynEditSource.Color := clBlack;
     VCardHighlighter.IdentAttri.Foreground := clWhite;
@@ -130 +127 @@
     VCardHighlighter.PropertyAttri.Foreground := clLightRed;
   end else
-  if Core.ThemeManager1.Theme.Name = ThemeNameLight then begin
+  if Core.Core.ThemeManager1.Theme.Name = ThemeNameLight then begin
     SynEditSource.Color := clWhite;
     VCardHighlighter.IdentAttri.Foreground := clBlack;