Changeset 106 for trunk/Forms/UFormTargetCode.pas

Timestamp:

May 6, 2019, 11:03:00 AM (5 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/UFormTargetCode.pas (modified) (7 diffs)

trunk/Forms/UFormTargetCode.pas

@@ -6 +6 @@
 
 uses
-  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, StdCtrls,
-  Menus, ActnList, strutils;
+  Classes, SysUtils, FileUtil, SynEdit, SynHighlighterAny, SynHighlighterPas,
+  SynHighlighterCpp, SynHighlighterPHP, SynHighlighterJava,
+  SynHighlighterPython, Forms, Controls, Graphics, Dialogs, StdCtrls, Menus,
+  ActnList, strutils;
 
 type
@@ -17 +19 @@
     AFormatCode: TAction;
     ActionList1: TActionList;
-    MemoTarget: TMemo;
     MenuItem1: TMenuItem;
     MenuItem20: TMenuItem;
     PopupMenuTarget: TPopupMenu;
+    SynEditTarget: TSynEdit;
     procedure AFormatCodeExecute(Sender: TObject);
     procedure AShrinkCodeExecute(Sender: TObject);
@@ -26 +28 @@
     { private declarations }
   public
-    { public declarations }
+    procedure SetHighlighter(SourceExt: string);
   end;
 
@@ -47 +49 @@
   IndentText = '  ';
 begin
-  Source := MemoTarget.Text;
+  Source := SynEditTarget.Text;
   NewSource := '';
   Indent := 0;
@@ -63 +65 @@
       NewSource := NewSource + Source[I];
   end;
-  MemoTarget.Text := NewSource;
+  SynEditTarget.Text := NewSource;
 end;
 
@@ -72 +74 @@
   I: Integer;
 begin
-  Source := MemoTarget.Text;
+  Source := SynEditTarget.Text;
   Pos := 1;
   for I := 1 to Length(Source) do begin
@@ -81 +83 @@
   end;
   SetLength(Source, Pos - 1);
-  MemoTarget.Text := Source;
+  SynEditTarget.Text := Source;
+end;
+
+procedure TFormTargetCode.SetHighlighter(SourceExt: string);
+begin
+  if Assigned(SynEditTarget.Highlighter) then
+    SynEditTarget.Highlighter.Free;
+  if SourceExt = '.pas' then SynEditTarget.Highlighter := TSynPasSyn.Create(nil)
+  else if SourceExt = '.c' then SynEditTarget.Highlighter := TSynCppSyn.Create(nil)
+  else if SourceExt = '.php' then SynEditTarget.Highlighter := TSynPhpSyn.Create(nil)
+  else if SourceExt = '.java' then SynEditTarget.Highlighter := TSynJavaSyn.Create(nil)
+  else if SourceExt = '.py' then SynEditTarget.Highlighter := TSynPythonSyn.Create(nil);
 end;