Changeset 145 for trunk/Forms/FormSourceCode.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/FormSourceCode.pas (moved) (moved from trunk/Forms/UFormSourceCode.pas ) (9 diffs)

trunk/Forms/FormSourceCode.pas

@@ -1 @@
-unit UFormSourceCode;
+unit FormSourceCode;
 
 interface
@@ -6 +6 @@
   Classes, SysUtils, FileUtil, SynEdit, SynHighlighterIni, Forms, Controls,
   Graphics, Dialogs, Menus, ActnList,
-  SynEditHighlighter, SynHighlighterAny, SynHighlighterJava, UBFHighlighter;
+  SynEditHighlighter, SynHighlighterAny, SynHighlighterJava, BFHighlighter;
 
 type
@@ -60 +60 @@
   private
     BFHighlighter: TSynBrainFuckHl;
+    FOnUpdateInterface: TNotifyEvent;
+    FOnUpdateStatusBar: TNotifyEvent;
   public
     procedure UpdateInterface;
     procedure UpdateTheme;
+    property OnUpdateStatusBar: TNotifyEvent read FOnUpdateStatusBar
+      write FOnUpdateStatusBar;
+    property OnUpdateInterface: TNotifyEvent read FOnUpdateInterface
+      write FOnUpdateInterface;
   end;
 
-var
-  FormSourceCode: TFormSourceCode;
-
 
 implementation
@@ -74 +77 @@
 
 uses
-  UCore, UFormMain, UBFCodeTools;
+  Core, BFCodeTools;
 
 resourcestring
@@ -142 +145 @@
 procedure TFormSourceCode.FormCreate(Sender: TObject);
 begin
+  Core.Core.Translator.TranslateComponentRecursive(Self);
+  Core.Core.ThemeManager.UseTheme(Self);
+
   BFHighlighter := TSynBrainFuckHl.Create(nil);
   SynEditSource.Highlighter := BFHighlighter;
@@ -162 +168 @@
   clLightRed = TColor($8080FF);
 begin
-  if Core.ThemeManager.Theme.Name = 'Dark' then begin
+  if Core.Core.ThemeManager.Theme.Name = 'Dark' then begin
     BFHighlighter.IoAttri.Foreground := clWhite;
     BFHighlighter.LoopAttri.Foreground := clLightRed;
@@ -177 +183 @@
 procedure TFormSourceCode.MemoSourceChange(Sender: TObject);
 begin
-  Core.Project.Modified := True;
-  Core.CurrentTarget.Compiled := False;
-  FormMain.UpdateInterface;
+  Core.Core.Project.Modified := True;
+  Core.Core.CurrentTarget.Compiled := False;
+  if Assigned(FOnUpdateInterface) then
+    OnUpdateInterface(Self);
 end;
 
@@ -194 +201 @@
   Shift: TShiftState);
 begin
-  FormMain.UpdateStatusBar;
+  if Assigned(FOnUpdateStatusBar) then
+    FOnUpdateStatusBar(Self);
 end;
 
@@ -200 +208 @@
   Shift: TShiftState; X, Y: Integer);
 begin
-  FormMain.UpdateStatusBar;
+  if Assigned(FOnUpdateStatusBar) then
+    FOnUpdateStatusBar(Self);
 end;