Changeset 106 for trunk/Forms/UFormSourceCode.pas

Timestamp:

May 6, 2019, 11:03:00 AM (6 years ago)

Author:

chronos

Message:

• Added: TargetCode form use SynEdit for syntax highlighting.
• Fixed: Do not show error if specific target doesn't have assigned compiler. Not all targets use compiler. Some of them are just interpreted.

File:

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

trunk/Forms/UFormSourceCode.pas

@@ -36 +36 @@
     MenuItem6: TMenuItem;
     PopupMenuSource: TPopupMenu;
-    SynEdit1: TSynEdit;
+    SynEditSource: TSynEdit;
     SynJavaSyn1: TSynJavaSyn;
     procedure AClearExecute(Sender: TObject);
@@ -91 +91 @@
     for I := 0 to Number - 1 do
       NumberText := NumberText + '+';
-    SynEdit1.SelText := NumberText;
+    SynEditSource.SelText := NumberText;
   end;
 end;
@@ -97 +97 @@
 procedure TFormSourceCode.APasteFromClipboardExecute(Sender: TObject);
 begin
-  SynEdit1.PasteFromClipboard;
+  SynEditSource.PasteFromClipboard;
 end;
 
 procedure TFormSourceCode.ASelectAllExecute(Sender: TObject);
 begin
-  SynEdit1.SelectAll;
+  SynEditSource.SelectAll;
 end;
 
@@ -114 +114 @@
   IndentText = '  ';
 begin
-  Source := SynEdit1.Text;
+  Source := SynEditSource.Text;
   NewSource := '';
   Indent := 0;
@@ -130 +130 @@
       NewSource := NewSource + Source[I];
   end;
-  SynEdit1.Text := NewSource;
+  SynEditSource.Text := NewSource;
 end;
 
 procedure TFormSourceCode.ACopyToClipboardExecute(Sender: TObject);
 begin
-  SynEdit1.CopyToClipboard;
+  SynEditSource.CopyToClipboard;
 end;
 
 procedure TFormSourceCode.ACutToClipboardExecute(Sender: TObject);
 begin
-  SynEdit1.CutToClipboard;
+  SynEditSource.CutToClipboard;
 end;
 
 procedure TFormSourceCode.AClearExecute(Sender: TObject);
 begin
-  SynEdit1.Clear;
+  SynEditSource.Clear;
 end;
 
@@ -154 +154 @@
   I: Integer;
 begin
-  Source := SynEdit1.Text;
+  Source := SynEditSource.Text;
   Pos := 1;
   for I := 1 to Length(Source) do begin
@@ -163 +163 @@
   end;
   SetLength(Source, Pos - 1);
-  SynEdit1.Text := Source;
+  SynEditSource.Text := Source;
 end;
 
@@ -169 +169 @@
 begin
   BFHighlighter := TSynBrainFuckHl.Create(nil);
-  SynEdit1.Highlighter := BFHighlighter;
+  SynEditSource.Highlighter := BFHighlighter;
 end;