Changeset 177 for tags/1.3.0

Timestamp:

Aug 21, 2024, 11:49:46 AM (5 weeks ago)

Author:

chronos

Message:

• Modified: Merged changes from trunk to 1.3.0.

Location:

tags/1.3.0

Files:

• Core.pas (modified) (2 diffs)
• Forms/FormConsole.lfm (modified) (1 diff)
• Forms/FormInput.lfm (modified) (1 diff)
• Forms/FormMain.pas (modified) (2 diffs)
• Forms/FormMemory.lfm (modified) (1 diff)
• Forms/FormOutput.lfm (modified) (1 diff)
• Forms/FormSourceCode.lfm (modified) (3 diffs)
• Forms/FormTargetCode.lfm (modified) (2 diffs)
• Install/flatpak (added)
• Install/flatpak/build.sh (added)
• Install/flatpak/net.zdechov.app.LazFuck.appdata.xml (added)
• Install/flatpak/net.zdechov.app.LazFuck.desktop (added)
• Install/flatpak/net.zdechov.app.LazFuck.yml (added)
• Packages/Common/Common.pas (modified) (1 diff)
• Release Notes.txt (modified) (2 diffs)

tags/1.3.0/Core.pas

@@ -271 +271 @@
     if (DesignDPI.X <> DPI.X) or (DesignDPI.Y <> DPI.Y) then begin
       //ApplyToAll(DesignDPI);
-      for I := 0 to Screen.FormCount - 1 do
+      {for I := 0 to Screen.FormCount - 1 do
       if (Screen.Forms[I].WindowState = wsNormal) or
         (Screen.Forms[I].WindowState = wsMinimized) then begin
@@ -277 +277 @@
         ScaleDimensions(Screen.Forms[I], StoredDimension);
       end;
+      }
       ScaleImageList(ImageListMain, DesignDPI);
     end;

tags/1.3.0/Forms/FormConsole.lfm

@@ -22 +22 @@
     Anchors = [akTop, akLeft, akRight, akBottom]
     BorderSpacing.Around = 3
-    Font.Name = 'Courier New'
+    Font.Height = 20
+    Font.Name = 'Liberation Mono'
+    Font.Pitch = fpFixed
     ParentFont = False
     ReadOnly = True

tags/1.3.0/Forms/FormInput.lfm

@@ -16 +16 @@
     Align = alClient
     BorderSpacing.Around = 6
-    Font.Name = 'Courier New'
+    Font.Height = 20
+    Font.Name = 'Libertation Mono'
+    Font.Pitch = fpFixed
     ParentFont = False
     ScrollBars = ssAutoBoth

tags/1.3.0/Forms/FormMain.pas

@@ -374 +374 @@
     AProgramRunToCursor.Enabled := CanDebug and (tcRunToCursor in CurrentTarget.Capabilities);
     AProgramStepOver.Enabled := CanDebug and (tcStepOver in CurrentTarget.Capabilities);
-    AProgramShowExecutionPoint.Enabled := CanDebug and (tcPause in CurrentTarget.Capabilities);
+    AProgramShowExecutionPoint.Enabled := CanDebug and (tcPause in CurrentTarget.Capabilities) and
+      (CurrentTarget.State = rsPaused);
     AShowSourcePosition.Enabled := CurrentTarget.Compiled;
     AShowTargetPosition.Enabled := CurrentTarget.Compiled;
@@ -689 +690 @@
   DebugStep := Core.Core.CurrentTarget.DebugSteps.SearchByProgramPos(
     Core.Core.CurrentTarget.ExecutionPosition);
-  FormSourceCode.SynEditSource.SelStart := DebugStep.SourcePosition + 1;
-  FormTargetCode.SynEditTarget.SelStart := DebugStep.TargetPosition + 1;
-  if PageControlMain.TabIndex = 0 then FormSourceCode.SynEditSource.SetFocus;
-  if PageControlMain.TabIndex = 1 then FormTargetCode.SynEditTarget.SetFocus;
+  if Assigned(DebugStep) then begin
+    FormSourceCode.SynEditSource.SelStart := DebugStep.SourcePosition + 1;
+    FormTargetCode.SynEditTarget.SelStart := DebugStep.TargetPosition + 1;
+    if PageControlMain.TabIndex = 0 then FormSourceCode.SynEditSource.SetFocus;
+    if PageControlMain.TabIndex = 1 then FormTargetCode.SynEditTarget.SetFocus;
+  end;
 end;
 

tags/1.3.0/Forms/FormMemory.lfm

@@ -40 +40 @@
         Width = 508
       end>
-    Font.Name = 'Courier New'
+    Font.Height = 20
+    Font.Name = 'Liberation Mono'
+    Font.Pitch = fpFixed
     OwnerData = True
     ParentFont = False

tags/1.3.0/Forms/FormOutput.lfm

@@ -26 +26 @@
     Align = alClient
     BorderSpacing.Around = 4
-    Font.Name = 'Courier New'
+    Font.Height = 20
+    Font.Name = 'Liberation Mono'
+    Font.Pitch = fpFixed
     ParentFont = False
     ScrollBars = ssAutoBoth

tags/1.3.0/Forms/FormSourceCode.lfm

@@ -17 +17 @@
     Width = 672
     Align = alClient
-    Font.Height = 13
-    Font.Name = 'Courier New'
+    Font.Height = 20
+    Font.Name = 'Liberation Mono'
     Font.Pitch = fpFixed
-    Font.Quality = fqNonAntialiased
+    Font.Quality = fqAntialiased
     ParentColor = False
     ParentFont = False
@@ -27 +27 @@
     OnKeyUp = MemoSourceKeyUp
     OnMouseDown = MemoSourceMouseDown
-    Gutter.Width = 76
+    Gutter.Width = 84
     Gutter.MouseActions = <>
     RightGutter.Width = 0
@@ -481 +481 @@
       end
       object SynGutterLineNumber1: TSynGutterLineNumber
-        Width = 17
+        Width = 25
         MouseActions = <>
         MarkupInfo.Background = clBtnFace

tags/1.3.0/Forms/FormTargetCode.lfm

@@ -16 +16 @@
     Width = 734
     Align = alClient
-    Font.Height = 13
-    Font.Name = 'Courier New'
+    Font.Height = 20
+    Font.Name = 'Liberation Mono'
     Font.Pitch = fpFixed
-    Font.Quality = fqNonAntialiased
+    Font.Quality = fqAntialiased
     ParentColor = False
     ParentFont = False
     PopupMenu = PopupMenuTarget
     TabOrder = 0
-    Gutter.Width = 77
+    Gutter.Width = 85
     Gutter.MouseActions = <>
     RightGutter.Width = 0
@@ -477 +477 @@
       end
       object SynGutterLineNumber1: TSynGutterLineNumber
-        Width = 17
+        Width = 25
         MouseActions = <>
         MarkupInfo.Background = clBtnFace

tags/1.3.0/Packages/Common/Common.pas

@@ -597 +597 @@
 
     if (ExitCode <> 0) or (Error <> '') then
-      raise Exception.Create(Format(SExecutionError, [Error, ExitCode]));
+      raise Exception.Create(Format(SExecutionError, [Output + Error, ExitCode]));
   finally
     Process.Free;

tags/1.3.0/Release Notes.txt

@@ -12 +12 @@
 * Modified: Used loop in number generation.
 * Modified: Used scrollbox in target options form.
+* Modified: Use monospace font.
+* Modified: Do not extra scale controls dimensions.
 * Fixed: Update cursor position in status bar.
 * Fixed: Memory leak in target code form.
@@ -18 +20 @@
 * Fixed: OpenDialog was not initialized in Target options form.
 * Fixed: Put compiled files into application data directory if source is in read only directory.
+* Fixed: Error on showing execution point in not paused state.
 
 Version 1.2.0 (2022-03-05)