Changeset 97 for trunk/Forms/UFormMain.pas

Timestamp:

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

Author:

chronos

Message:

• Added: Syntax highlighting.

File:

• trunk/Forms/UFormMain.pas (modified) (15 diffs)

trunk/Forms/UFormMain.pas

@@ -202 +202 @@
     DockInit;
     Core.PersistentForm1.Load(Self, True);
-    Core.ThemeManager.UseTheme(Self)
+    Core.ThemeManager.UseTheme(Self);
+    FormSourceCode.UpdateTheme;
   end;
 end;
@@ -249 +250 @@
   if Core.Project.Openned then
     raise Exception.Create(SCloseProjectFirst);
-  FormSourceCode.MemoSource.Lines.LoadFromFile(FileName);
+  FormSourceCode.SynEdit1.Lines.LoadFromFile(FileName);
   Core.LastOpenedList.AddItem(FileName);
   Core.Project.FileName := FileName;
@@ -343 +344 @@
   Caption := Title;
   AProjectSave.Enabled := Core.Project.Modified;
-  FormSourceCode.MemoSource.Enabled := Core.Project.Openned;
+  FormSourceCode.SynEdit1.Enabled := Core.Project.Openned;
   AProjectClose.Enabled := Core.Project.Openned;
   AProjectSaveAs.Enabled := Core.Project.Openned;
@@ -371 +372 @@
 procedure TFormMain.UpdateStatusBar;
 begin
-  StatusBarMain.Panels[0].Text := IntToStr(FormSourceCode.MemoSource.CaretPos.X) +
-    ', ' + IntToStr(FormSourceCode.MemoSource.CaretPos.Y);
+  StatusBarMain.Panels[0].Text := IntToStr(FormSourceCode.SynEdit1.CaretXY.X) +
+    ', ' + IntToStr(FormSourceCode.SynEdit1.CaretXY.Y);
 end;
 
@@ -418 +419 @@
   DebugStep := Core.CurrentTarget.DebugSteps.SearchByTargetPos(FormTargetCode.MemoTarget.SelStart);
   if Assigned(DebugStep) then begin
-    FormSourceCode.MemoSource.SelStart := DebugStep.SourcePosition;
+    FormSourceCode.SynEdit1.SelStart := DebugStep.SourcePosition;
     PageControlMain.TabIndex := 0;
   end;
@@ -427 +428 @@
   DebugStep: TDebugStep;
 begin
-  DebugStep := Core.CurrentTarget.DebugSteps.SearchBySourcePos(FormSourceCode.MemoSource.SelStart);
+  DebugStep := Core.CurrentTarget.DebugSteps.SearchBySourcePos(FormSourceCode.SynEdit1.SelStart);
   if Assigned(DebugStep) then begin
     FormTargetCode.MemoTarget.SelStart := DebugStep.TargetPosition;
@@ -484 +485 @@
       end;
       Core.ThemeManager.UseTheme(Self);
+      FormSourceCode.UpdateTheme;
     end;
   finally
@@ -495 +497 @@
   try
     AProgramStop.Execute;
-    SourceCode := FormSourceCode.MemoSource.Text;
+    SourceCode := FormSourceCode.SynEdit1.Text;
     ProjectFileName := Core.Project.FileName;
     ProgramName := ExtractFileNameOnly(Core.Project.FileName);
@@ -517 +519 @@
   BreakPoint: TBreakPoint;
 begin
-  DebugStep := Core.CurrentTarget.DebugSteps.SearchBySourcePos(FormSourceCode.MemoSource.SelStart);
+  DebugStep := Core.CurrentTarget.DebugSteps.SearchBySourcePos(FormSourceCode.SynEdit1.SelStart);
   if Assigned(DebugStep) then begin
     BreakPoint := Core.CurrentTarget.BreakPoints.SearchByTargetPos(DebugStep.TargetPosition);
@@ -550 +552 @@
   if Core.CurrentTarget.State = rsStopped then begin
     if not Core.CurrentTarget.Compiled then AProgramCompile.Execute;
-    DebugStep := Core.CurrentTarget.DebugSteps.SearchBySourcePos(FormSourceCode.MemoSource.SelStart);
+    DebugStep := Core.CurrentTarget.DebugSteps.SearchBySourcePos(FormSourceCode.SynEdit1.SelStart);
     Core.CurrentTarget.BreakPoints.SetSystem(DebugStep.TargetPosition);
     AProgramRun.Execute;
   end else begin
-    DebugStep := Core.CurrentTarget.DebugSteps.SearchBySourcePos(FormSourceCode.MemoSource.SelStart);
+    DebugStep := Core.CurrentTarget.DebugSteps.SearchBySourcePos(FormSourceCode.SynEdit1.SelStart);
     Core.CurrentTarget.RunToCursor(DebugStep.TargetPosition);
   end;
@@ -564 +566 @@
 begin
   DebugStep := Core.CurrentTarget.DebugSteps.SearchByTargetPos(Core.CurrentTarget.ExecutionPosition);
-  FormSourceCode.MemoSource.SelStart := DebugStep.SourcePosition;
+  FormSourceCode.SynEdit1.SelStart := DebugStep.SourcePosition;
   FormTargetCode.MemoTarget.SelStart := DebugStep.TargetPosition;
-  if PageControlMain.TabIndex = 0 then FormSourceCode.MemoSource.SetFocus;
+  if PageControlMain.TabIndex = 0 then FormSourceCode.SynEdit1.SetFocus;
   if PageControlMain.TabIndex = 1 then FormTargetCode.MemoTarget.SetFocus;
 end;
@@ -612 +614 @@
     AProgramStop.Execute;
     Core.Project.Openned := False;
-    FormSourceCode.MemoSource.Clear;
+    FormSourceCode.SynEdit1.Clear;
     UpdateInterface;
   end;
@@ -622 +624 @@
   if Core.Project.Openned then Exit;
   Core.Project.FileName := 'Examples' + DirectorySeparator + SNewProject + '.b';
-  FormSourceCode.MemoSource.Clear;
+  FormSourceCode.SynEdit1.Clear;
   Core.Project.Openned := True;
   Core.CurrentTarget.Compiled := False;
@@ -652 +654 @@
   SaveDialog1.FileName := Core.Project.FileName;
   if SaveDialog1.Execute then begin
-    FormSourceCode.MemoSource.Lines.SaveToFile(SaveDialog1.FileName);
+    FormSourceCode.SynEdit1.Lines.SaveToFile(SaveDialog1.FileName);
     Core.Project.FileName := SaveDialog1.FileName;
     Core.LastOpenedList.AddItem(SaveDialog1.FileName);
@@ -663 +665 @@
 begin
   if Core.Project.Modified and FileExistsUTF8(Core.Project.FileName) then begin
-    FormSourceCode.MemoSource.Lines.SaveToFile(Core.Project.FileName);
+    FormSourceCode.SynEdit1.Lines.SaveToFile(Core.Project.FileName);
     Core.Project.Modified := False;
     UpdateInterface;