Changeset 145 for trunk/Forms/FormTargetCode.pas

Timestamp:

Jun 5, 2023, 6:44:57 PM (11 months ago)

Author:

chronos

Message:

• Modified: Remove U prefix from unit names.
• Modified: Updated Common package.

File:

• trunk/Forms/FormTargetCode.pas (moved) (moved from trunk/Forms/UFormTargetCode.pas ) (3 diffs)

trunk/Forms/FormTargetCode.pas

@@ -1 @@
-unit UFormTargetCode;
+unit FormTargetCode;
 
 interface
@@ -23 +23 @@
     procedure AFormatCodeExecute(Sender: TObject);
     procedure AShrinkCodeExecute(Sender: TObject);
-  private
-    { private declarations }
+    procedure FormCreate(Sender: TObject);
   public
     procedure SetHighlighter(SourceExt: string);
   end;
 
-var
-  FormTargetCode: TFormTargetCode;
 
 implementation
 
 {$R *.lfm}
+
+uses
+  Core;
 
 { TFormTargetCode }
@@ -84 +84 @@
 end;
 
+procedure TFormTargetCode.FormCreate(Sender: TObject);
+begin
+  Core.Core.Translator.TranslateComponentRecursive(Self);
+  Core.Core.ThemeManager.UseTheme(Self);
+end;
+
 procedure TFormTargetCode.SetHighlighter(SourceExt: string);
 begin