Changeset 97 for trunk/Forms/UFormSourceCode.pas

Timestamp:

Aug 2, 2018, 3:33:02 PM (6 years ago)

Author:

chronos

Message:

• Added: Syntax highlighting.

File:

• trunk/Forms/UFormSourceCode.pas (modified) (14 diffs)

trunk/Forms/UFormSourceCode.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  Menus, ActnList, strutils;
+  Classes, SysUtils, FileUtil, SynEdit, SynHighlighterIni, Forms, Controls,
+  Graphics, Dialogs, StdCtrls, Menus, ActnList, strutils, SynEditTypes,
+  SynEditHighlighter, SynHighlighterAny, SynHighlighterJava, UBFHighlighter;
 
 type
@@ -23 +24 @@
     AGenerateNumber: TAction;
     ActionList1: TActionList;
-    MemoSource: TMemo;
     MenuItem1: TMenuItem;
     MenuItem2: TMenuItem;
@@ -36 +36 @@
     MenuItem6: TMenuItem;
     PopupMenuSource: TPopupMenu;
+    SynEdit1: TSynEdit;
+    SynJavaSyn1: TSynJavaSyn;
     procedure AClearExecute(Sender: TObject);
     procedure ACopyToClipboardExecute(Sender: TObject);
@@ -44 +46 @@
     procedure ASelectAllExecute(Sender: TObject);
     procedure AShrinkSourceExecute(Sender: TObject);
+    procedure FormCreate(Sender: TObject);
     procedure MemoSourceChange(Sender: TObject);
     procedure MemoSourceKeyDown(Sender: TObject; var Key: Word;
@@ -53 +56 @@
       Shift: TShiftState; X, Y: Integer);
   private
+    BFHighlighter: TSynBrainFuckHl;
   public
     procedure UpdateInterface;
+    procedure UpdateTheme;
   end;
 
@@ -62 +67 @@
 
 implementation
+
+{$R *.lfm}
 
 uses
@@ -70 +77 @@
   SEnterNumber = 'Enter number';
 
-
-{$R *.lfm}
 
 { TFormSourceCode }
@@ -86 +91 @@
     for I := 0 to Number - 1 do
       NumberText := NumberText + '+';
-    MemoSource.SelText := NumberText;
+    SynEdit1.SelText := NumberText;
   end;
 end;
@@ -92 +97 @@
 procedure TFormSourceCode.APasteFromClipboardExecute(Sender: TObject);
 begin
-  MemoSource.PasteFromClipboard;
+  SynEdit1.PasteFromClipboard;
 end;
 
 procedure TFormSourceCode.ASelectAllExecute(Sender: TObject);
 begin
-  MemoSource.SelectAll;
+  SynEdit1.SelectAll;
 end;
 
@@ -109 +114 @@
   IndentText = '  ';
 begin
-  Source := MemoSource.Text;
+  Source := SynEdit1.Text;
   NewSource := '';
   Indent := 0;
@@ -125 +130 @@
       NewSource := NewSource + Source[I];
   end;
-  MemoSource.Text := NewSource;
+  SynEdit1.Text := NewSource;
 end;
 
 procedure TFormSourceCode.ACopyToClipboardExecute(Sender: TObject);
 begin
-  MemoSource.CopyToClipboard;
+  SynEdit1.CopyToClipboard;
 end;
 
 procedure TFormSourceCode.ACutToClipboardExecute(Sender: TObject);
 begin
-  MemoSource.CutToClipboard;
+  SynEdit1.CutToClipboard;
 end;
 
 procedure TFormSourceCode.AClearExecute(Sender: TObject);
 begin
-  MemoSource.Clear;
+  SynEdit1.Clear;
 end;
 
@@ -149 +154 @@
   I: Integer;
 begin
-  Source := MemoSource.Text;
+  Source := SynEdit1.Text;
   Pos := 1;
   for I := 1 to Length(Source) do begin
@@ -158 +163 @@
   end;
   SetLength(Source, Pos - 1);
-  MemoSource.Text := Source;
+  SynEdit1.Text := Source;
+end;
+
+procedure TFormSourceCode.FormCreate(Sender: TObject);
+begin
+  BFHighlighter := TSynBrainFuckHl.Create(nil);
+  SynEdit1.Highlighter := BFHighlighter;
 end;
 
@@ -164 +175 @@
 begin
 
+end;
+
+procedure TFormSourceCode.UpdateTheme;
+const
+  clLightBlue = TColor($FF8080);
+  clLightGreen = TColor($80FF80);
+  clLightRed = TColor($8080FF);
+begin
+  if Core.ThemeManager.Theme.Name = 'Dark' then begin
+    BFHighlighter.IoAttri.Foreground := clWhite;
+    BFHighlighter.LoopAttri.Foreground := clLightRed;
+    BFHighlighter.PointerAttri.Foreground := clLightBlue;
+    BFHighlighter.MemoryAttri.Foreground := clLightGreen;
+  end else begin
+    BFHighlighter.IoAttri.Foreground := clBlack;
+    BFHighlighter.LoopAttri.Foreground := clRed;
+    BFHighlighter.PointerAttri.Foreground := clBlue;
+    BFHighlighter.MemoryAttri.Foreground := clGreen;
+  end;
 end;