ver. 2.3.2

- Added auto-create file linked, if not exists - Fixed Splitter View Opening a File - Fixed Refresh content after load
EtheaDev · Jan 24, 2025 · 64b6fa8 · 64b6fa8
1 parent 7103f62
commit 64b6fa8
Show file tree

Hide file tree

Showing 177 changed files with 12,788 additions and 6,659 deletions.
diff --git a/Ext/MarkdownProcessor/source/MarkdownCommonMark.pas b/Ext/MarkdownProcessor/source/MarkdownCommonMark.pas
@@ -55,8 +55,13 @@
 interface
 
 uses
-  SysUtils, Classes, TypInfo,
-  MarkdownProcessor, MarkdownDaringFireball, MarkdownUtils;
+  System.SysUtils
+  , System.Classes
+  , System.TypInfo
+  , MarkdownProcessor
+  , MarkdownDaringFireball
+  , MarkdownUtils
+  ;
 
 Type
 

diff --git a/Ext/MarkdownProcessor/source/MarkdownDaringFireball.pas b/Ext/MarkdownProcessor/source/MarkdownDaringFireball.pas
@@ -46,8 +46,13 @@
 interface
 
 uses
-  SysUtils, Classes, TypInfo,
-  MarkdownProcessor, MarkdownUtils, MarkdownTables;
+  System.SysUtils
+  , System.Classes
+  , System.TypInfo
+  , MarkdownProcessor
+  , MarkdownUtils
+  , MarkdownTables
+  ;
 
 type
 

diff --git a/Ext/MarkdownProcessor/source/MarkdownProcessor.pas b/Ext/MarkdownProcessor/source/MarkdownProcessor.pas
@@ -55,7 +55,10 @@
 interface
 
 uses
-  Classes, SysUtils, MarkdownUtils;
+  System.Classes
+  , System.SysUtils
+  , MarkdownUtils
+  ;
 
 Type
 
@@ -79,9 +82,10 @@ interface
 implementation
 
 uses
-  MarkdownDaringFireball,
-  MarkdownCommonMark,
-  MarkdownTxtMark;
+  MarkdownDaringFireball
+  , MarkdownCommonMark
+  , MarkdownTxtMark
+  ;
 
 { TMarkdownProcessor }
 

diff --git a/Ext/MarkdownProcessor/source/MarkdownTxtMark.pas b/Ext/MarkdownProcessor/source/MarkdownTxtMark.pas
@@ -28,8 +28,11 @@
 interface
 
 uses
-  SysUtils, Classes, TypInfo,
-  MarkdownDaringFireball, MarkdownUtils;
+  System.SysUtils
+  , System.Classes
+  , System.TypInfo
+  , MarkdownDaringFireball
+  , MarkdownUtils;
 
 Type
 

diff --git a/Ext/MarkdownProcessor/source/MarkdownUtils.pas b/Ext/MarkdownProcessor/source/MarkdownUtils.pas
@@ -28,7 +28,13 @@
 interface
 
 uses
-  SysUtils, StrUtils, Classes, Character, TypInfo, Math;
+  System.SysUtils
+  , System.StrUtils
+  , System.Classes
+  , System.Character
+  , System.TypInfo
+  , System.Math
+  ;
 
 Type
   TMarkdownProcessorDialect = (mdDaringFireball, mdCommonMark, mdTxtMark);
@@ -2984,7 +2990,7 @@ procedure TBlock.removeListIndent(config: TConfiguration);
           line.value := Copy(line.value, pos(')', line.value) + 2);
       else
 //        line.value := line.value.substring(Math.min(line.leading, 4)); pstfix
-        line.value := Copy(line.value, Math.Min(line.leading + 1, 5));
+        line.value := Copy(line.value, System.Math.Min(line.leading + 1, 5));
       end;
       line.InitLeading();
     end;
@@ -3079,60 +3085,7 @@ procedure TBlock.transfromHeadline;
     line.leading := 0;
     line.trailing := 0;
   end;
-  self.hlDepth := Math.min(level, 6);
+  self.hlDepth := System.Math.min(level, 6);
 end;
 
-{$IFDEF FPC}
-{ TStringBuilder }
-
-constructor TStringBuilder.Create;
-begin
-  Inherited;
-  FBufferSize := BUFFER_INCREMENT_SIZE;
-end;
-
-procedure TStringBuilder.Append(value: TStringBuilder);
-begin
-  append(value.ToString);
-end;
-
-procedure TStringBuilder.Append(value: integer);
-begin
-  append(inttostr(value));
-end;
-
-procedure TStringBuilder.Append(value: String);
-begin
-  If (value <> '') Then
-  Begin
-    If FLength + System.Length(value) > System.Length(FContent) Then
-      SetLength(FContent, System.Length(FContent) + Math.Max(FBufferSize, System.Length(value)));
-
-    Move(value[1], FContent[FLength + 1], System.Length(value) * SizeOf(Char));
-
-    Inc(FLength, System.Length(value));
-  End;
-end;
-
-procedure TStringBuilder.Clear;
-begin
-  FContent := '';
-  FLength := 0;
-end;
-
-function TStringBuilder.GetChar(index: integer): char;
-begin
-  if (index < 0) or (index >= Length) then
-    raise Exception.Create('Out of bounds');
-  result := FContent[index+1];
-end;
-
-
-function TStringBuilder.toString: String;
-begin
-  Result := Copy(FContent, 1, FLength);
-end;
-
-{$ENDIF}
-
 end.
diff --git a/Ext/SVGIconImageList/Image32/source/Clipper.Core.pas b/Ext/SVGIconImageList/Image32/source/Clipper.Core.pas
@@ -2,7 +2,7 @@
 
 (*******************************************************************************
 * Author    :  Angus Johnson                                                   *
-* Date      :  12 August 2024                                                  *
+* Date      :  22 November 2024                                                *
 * Website   :  http://www.angusj.com                                           *
 * Copyright :  Angus Johnson 2010-2024                                         *
 * Purpose   :  Core Clipper Library module                                     *
@@ -19,23 +19,22 @@ interface
 
 type
 {$IFDEF USINGZ}
-    Ztype   = type double;//Int64;//
-    PZtype  = ^Ztype;
+    ZType = Int64; // or alternatively, ZType = double
 {$ENDIF}
 
   PPoint64  = ^TPoint64;
   TPoint64  = record
     X, Y: Int64;
 {$IFDEF USINGZ}
-    Z: Ztype;
+    Z: ZType;
 {$ENDIF}
   end;
 
   PPointD   = ^TPointD;
   TPointD   = record
     X, Y: double;
 {$IFDEF USINGZ}
-    Z: Ztype;
+    Z: ZType;
 {$ENDIF}
   end;
 
@@ -125,6 +124,7 @@   TListEx = class
     fCount    : integer;
     fCapacity : integer;
     fList     : TPointerList;
+    fSorted   : Boolean;
   protected
     function UnsafeGet(idx: integer): Pointer; // no range checking
     procedure UnsafeSet(idx: integer; val: Pointer);
@@ -134,14 +134,16 @@   TListEx = class
     destructor Destroy; override;
     procedure Clear; virtual;
     function Add(item: Pointer): integer;
+    procedure DeleteLast;
     procedure Swap(idx1, idx2: integer);
-    procedure Sort(Compare: TListSortCompare);
+    procedure Sort(Compare: TListSortCompareFunc);
     procedure Resize(count: integer);
     property Count: integer read fCount;
+    property Sorted: Boolean read fSorted;
     property Item[idx: integer]: Pointer read UnsafeGet; default;
   end;
 
-  TClipType = (ctNone, ctIntersection, ctUnion, ctDifference, ctXor);
+  TClipType = (ctNoClip, ctIntersection, ctUnion, ctDifference, ctXor);
 
   TPointInPolygonResult = (pipOn, pipInside, pipOutside);
 
@@ -544,6 +546,7 @@ procedure TListEx.Clear;
   fList := nil;
   fCount := 0;
   fCapacity := 0;
+  fSorted := false;
 end;
 //------------------------------------------------------------------------------
 
@@ -559,6 +562,13 @@ function TListEx.Add(item: Pointer): integer;
   fList[fCount] := item;
   Result := fCount;
   inc(fCount);
+  fSorted := false;
+end;
+//------------------------------------------------------------------------------
+
+procedure TListEx.DeleteLast;
+begin
+  dec(fCount);
 end;
 //------------------------------------------------------------------------------
 
@@ -615,10 +625,11 @@ procedure QuickSort(SortList: TPointerList; L, R: Integer;
 end;
 //------------------------------------------------------------------------------
 
-procedure TListEx.Sort(Compare: TListSortCompare);
+procedure TListEx.Sort(Compare: TListSortCompareFunc);
 begin
   if fCount < 2 then Exit;
   QuickSort(FList, 0, fCount - 1, Compare);
+  fSorted := true;
 end;
 //------------------------------------------------------------------------------
 
@@ -658,6 +669,7 @@ procedure TListEx.Swap(idx1, idx2: integer);
   p := fList[idx1];
   fList[idx1] := fList[idx2];
   fList[idx2] := p;
+  fSorted := false;
 end;
 
 //------------------------------------------------------------------------------

diff --git a/Ext/SVGIconImageList/Image32/source/Clipper.Engine.pas b/Ext/SVGIconImageList/Image32/source/Clipper.Engine.pas
@@ -2,7 +2,7 @@
 
 (*******************************************************************************
 * Author    :  Angus Johnson                                                   *
-* Date      :  12 August 2024                                                  *
+* Date      :  22 November 2024                                                *
 * Website   :  http://www.angusj.com                                           *
 * Copyright :  Angus Johnson 2010-2024                                         *
 * Purpose   :  This is the main polygon clipping module                        *
@@ -2845,7 +2845,7 @@ procedure TClipperBase.ExecuteInternal(clipType: TClipType;
   Y: Int64;
   e: PActive;
 begin
-  if clipType = ctNone then Exit;
+  if clipType = ctNoClip then Exit;
   FFillRule := fillRule;
   FClipType := clipType;
   Reset;

diff --git a/Ext/SVGIconImageList/Image32/source/Clipper.Offset.pas b/Ext/SVGIconImageList/Image32/source/Clipper.Offset.pas
@@ -2,7 +2,7 @@
 
 (*******************************************************************************
 * Author    :  Angus Johnson                                                   *
-* Date      :  12 August 2024                                                  *
+* Date      :  22 November 2024                                                *
 * Website   :  http://www.angusj.com                                           *
 * Copyright :  Angus Johnson 2010-2024                                         *
 * Purpose   :  Path Offset (Inflate/Shrink)                                    *
@@ -997,15 +997,11 @@ procedure TClipperOffset.DoRound(j, k: Integer; angle: double);
     // (ie over-shrunk paths) are removed.
 {$IFDEF USINGZ}
     AddPoint(GetPerpendic(fInPath[j], fNorms[k], fGroupDelta), fInPath[j].Z);
-{$ELSE}
-    AddPoint(GetPerpendic(fInPath[j], fNorms[k], fGroupDelta));
-{$ENDIF}
-    // when the angle is almost flat (cos_a ~= 1),
-    // it's safe to skip inserting this middle point
-		if (cosA < 0.999) then AddPoint(fInPath[j]); // (#405, #873)
-{$IFDEF USINGZ}
+    AddPoint(fInPath[j]); // (#405, #873)
     AddPoint(GetPerpendic(fInPath[j], fNorms[j], fGroupDelta), fInPath[j].Z);
 {$ELSE}
+    AddPoint(GetPerpendic(fInPath[j], fNorms[k], fGroupDelta));
+    AddPoint(fInPath[j]); // (#405, #873)
     AddPoint(GetPerpendic(fInPath[j], fNorms[j], fGroupDelta));
 {$ENDIF}
   end

diff --git a/Ext/SVGIconImageList/Image32/source/Clipper.pas b/Ext/SVGIconImageList/Image32/source/Clipper.pas
@@ -52,7 +52,7 @@ interface
   etSquare    = Clipper.Offset.etSquare;
   etRound     = Clipper.Offset.etRound;
 
-  ctNone          = Clipper.Core.ctNone;
+  ctNone          = Clipper.Core.ctNoClip;
   ctIntersection  = Clipper.Core.ctIntersection;
   ctUnion         = Clipper.Core.ctUnion;
   ctDifference    = Clipper.Core.ctDifference;