Changeset 562

Timestamp:

May 27, 2023, 11:00:20 AM (12 months ago)

Author:

chronos

Message:

• Modified: Updated Common packages.

Location:

Common

Files:

• UAboutDialog.pas (modified) (1 diff)
• UDataFile.pas (modified) (1 diff)
• UDebugLog.pas (modified) (2 diffs)
• UDelay.pas (modified) (1 diff)
• UFindFile.pas (modified) (1 diff)
• UFormAbout.lfm (modified) (6 diffs)
• UFormAbout.pas (modified) (1 diff)
• UGenerics.pas (modified) (1 diff)
• UGeometric.pas (modified) (6 diffs)
• ULanguages.pas (modified) (1 diff)
• ULastOpenedList.pas (modified) (1 diff)
• UMemory.pas (modified) (1 diff)
• UMetaCanvas.pas (modified) (8 diffs)
• UPersistentForm.pas (modified) (12 diffs)
• UPixelPointer.pas (modified) (2 diffs)
• UPool.pas (modified) (1 diff)
• UPrefixMultiplier.pas (modified) (3 diffs)
• UResetableThread.pas (modified) (1 diff)
• UStringTable.pas (modified) (1 diff)
• USyncCounter.pas (modified) (1 diff)
• UTestCase.pas (modified) (1 diff)
• UTheme.pas (modified) (1 diff)
• UThreading.pas (modified) (1 diff)
• UTranslator.pas (modified) (1 diff)
• UURI.pas (modified) (1 diff)
• UXMLUtils.pas (modified) (4 diffs)

Common/UAboutDialog.pas

@@ -50 +50 @@
 
 end.
-

Common/UDataFile.pas

@@ -109 +109 @@
 
 end.
-

Common/UDebugLog.pas

@@ -1 @@
-unit UDebugLog; 
+unit UDebugLog;
 
 interface
@@ -134 +134 @@
 
 end.
-

Common/UDelay.pas

@@ -71 +71 @@
 
 end.
-

Common/UFindFile.pas

@@ -143 +143 @@
     SysUtils.FindClose(Rec);
   end;
-end; 
+end;
 
 end.
-

Common/UFormAbout.lfm

@@ -1 +1 @@
 object FormAbout: TFormAbout
   Left = 1014
-  Height = 402
+  Height = 349
   Top = 577
-  Width = 702
+  Width = 609
   Caption = 'About'
-  ClientHeight = 402
-  ClientWidth = 702
-  DesignTimePPI = 144
-  OnCreate = FormCreate
+  ClientHeight = 349
+  ClientWidth = 609
+  DesignTimePPI = 125
   OnShow = FormShow
   Position = poScreenCenter
-  LCLVersion = '2.0.10.0'
+  LCLVersion = '2.2.4.0'
   object LabelDescription: TLabel
-    Left = 30
-    Height = 24
-    Top = 135
-    Width = 642
+    Left = 26
+    Height = 22
+    Top = 117
+    Width = 557
     Align = alTop
-    BorderSpacing.Left = 30
-    BorderSpacing.Right = 30
-    BorderSpacing.Bottom = 30
+    BorderSpacing.Left = 26
+    BorderSpacing.Right = 26
+    BorderSpacing.Bottom = 26
     Caption = 'Description'
     ParentColor = False
@@ -27 +26 @@
   end
   object LabelContent: TLabel
-    Left = 30
-    Height = 24
-    Top = 189
-    Width = 642
+    Left = 26
+    Height = 22
+    Top = 165
+    Width = 557
     Align = alTop
-    BorderSpacing.Around = 30
+    BorderSpacing.Around = 26
     Caption = '   '
     ParentColor = False
@@ -39 +38 @@
   object PanelTop: TPanel
     Left = 0
-    Height = 135
+    Height = 117
     Top = 0
-    Width = 702
+    Width = 609
     Align = alTop
     BevelOuter = bvNone
-    ClientHeight = 135
-    ClientWidth = 702
+    ClientHeight = 117
+    ClientWidth = 609
     FullRepaint = False
     ParentFont = False
     TabOrder = 0
     object LabelAppName: TLabel
-      Left = 108
-      Height = 84
-      Top = 20
-      Width = 564
+      Left = 94
+      Height = 73
+      Top = 17
+      Width = 489
       Anchors = [akTop, akLeft, akRight]
       AutoSize = False
-      BorderSpacing.Around = 30
+      BorderSpacing.Around = 26
       Caption = 'Title'
-      Font.Height = -60
+      Font.Height = -52
       ParentColor = False
       ParentFont = False
@@ -64 +63 @@
     end
     object ImageLogo: TImage
-      Left = 24
-      Height = 74
-      Top = 30
-      Width = 72
+      Left = 21
+      Height = 64
+      Top = 26
+      Width = 62
       Proportional = True
       Stretch = True
@@ -74 +73 @@
   object PanelButtons: TPanel
     Left = 0
-    Height = 75
-    Top = 327
-    Width = 702
+    Height = 65
+    Top = 284
+    Width = 609
     Align = alBottom
     BevelOuter = bvNone
-    ClientHeight = 75
-    ClientWidth = 702
+    ClientHeight = 65
+    ClientWidth = 609
     TabOrder = 1
     object ButtonHomePage: TButton
-      Left = 24
-      Height = 38
-      Top = 24
-      Width = 264
+      Left = 21
+      Height = 33
+      Top = 21
+      Width = 229
       Anchors = [akLeft, akBottom]
       Caption = 'Home page'
@@ -94 +93 @@
     end
     object ButtonClose: TButton
-      Left = 532
-      Height = 38
-      Top = 24
-      Width = 140
+      Left = 461
+      Height = 33
+      Top = 21
+      Width = 122
       Anchors = [akRight, akBottom]
       Caption = 'Close'

Common/UFormAbout.pas

@@ -75 +75 @@
 
 end.
-

Common/UGenerics.pas

@@ -77 +77 @@
 
 end.
-

Common/UGeometric.pas

@@ -8 +8 @@
 type
   TPointArray = array of TPoint;
+
+  { TVector }
+
+  TVector = record
+    Position: TPoint;
+    Direction: TPoint;
+    function GetLength: Double;
+    function GetAngle: Double;
+    procedure SetLength(Value: Double);
+    class function Create(P1, P2: TPoint): TVector; static;
+  end;
 
 function Distance(P1, P2: TPoint): Integer;
@@ -13 +24 @@
 function AddPoint(const P1, P2: TPoint): TPoint;
 function SubPoint(const P1, P2: TPoint): TPoint;
-function PointToLineDistance(const P, V, W: TPoint): Integer;
+function PointToLineDistance(const P, V, W: TPoint; out Intersect: TPoint): Integer;
 function ComparePoint(P1, P2: TPoint): Boolean;
 function RotatePoint(Center, P: TPoint; Angle: Double): TPoint;
@@ -50 +61 @@
 end;
 
-function PointToLineDistance(const P, V, W: TPoint): Integer;
+function PointToLineDistance(const P, V, W: TPoint; out Intersect: TPoint): Integer;
 var
   l2, t: Double;
@@ -68 +79 @@
   if T < 0 then begin
     Result := Distance(P, V);       // Beyond the 'v' end of the segment
-    exit;
+    Intersect := V;
+    Exit;
   end
   else if T > 1 then begin
     Result := Distance(P, W);  // Beyond the 'w' end of the segment
+    Intersect := W;
     Exit;
   end;
@@ -77 +90 @@
   TT.Y := Trunc(V.Y + T * (W.Y - V.Y));
   Result := Distance(P, TT);
+  Intersect := TT;
 end;
 
@@ -162 +176 @@
 end;
 
+{ TVector }
+
+function TVector.GetLength: Double;
+begin
+  Result := Sqrt(Sqr(Direction.X) + Sqr(Direction.Y));
+end;
+
+function TVector.GetAngle: Double;
+begin
+  Result := ArcTan2(Direction.Y, Direction.X);
+end;
+
+procedure TVector.SetLength(Value: Double);
+var
+  Angle: Double;
+begin
+  Angle := GetAngle;
+  Direction := Point(Round(Cos(Angle) * Value),
+    Round(Sin(Angle) * Value));
+end;
+
+class function TVector.Create(P1, P2: TPoint): TVector;
+begin
+  Result.Position := P1;
+  Result.Direction := Point(P2.X - P1.X, P2.Y - P1.Y);
+end;
 
 end.
-

Common/ULanguages.pas

@@ -443 +443 @@
 
 end.
-

Common/ULastOpenedList.pas

@@ -194 +194 @@
 
 end.
-

Common/UMemory.pas

@@ -120 +120 @@
 
 end.
-

Common/UMetaCanvas.pas

@@ -63 +63 @@
 
   TCanvasPolygon = class(TCanvasObject)
+    Pen: TPen;
+    Brush: TBrush;
+    Points: array of TPoint;
+    procedure Paint(Canvas: TCanvas); override;
+    procedure Zoom(Factor: Double); override;
+    procedure Move(Delta: TPoint); override;
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  { TCanvasPolyline }
+
+  TCanvasPolyline = class(TCanvasObject)
+    Pen: TPen;
+    Brush: TBrush;
+    Points: array of TPoint;
+    procedure Paint(Canvas: TCanvas); override;
+    procedure Zoom(Factor: Double); override;
+    procedure Move(Delta: TPoint); override;
+    constructor Create;
+    destructor Destroy; override;
+  end;
+
+  { TCanvasPolyBezier }
+
+  TCanvasPolyBezier = class(TCanvasObject)
     Pen: TPen;
     Brush: TBrush;
@@ -133 +159 @@
     procedure DoMoveTo(X, Y: Integer); override;
     procedure DoLineTo(X, Y: Integer); override;
+    procedure DoPolyline(const Points: array of TPoint); override;
+    procedure DoPolyBezier(Points: PPoint; NumPts: Integer;
+      Filled: Boolean = False; Continuous: Boolean = False); override;
   public
     Objects: TCanvasObjects;
@@ -141 +170 @@
     procedure TextOut(X,Y: Integer; const Text: String); override;
     procedure Polygon(Points: PPoint; NumPts: Integer; Winding: Boolean = False); override;
+    procedure Polyline(Points: PPoint; NumPts: Integer); override;
+    procedure PolyBezier(Points: PPoint; NumPts: Integer;
+      Filled: Boolean = False; Continuous: Boolean = True); override;
     procedure Ellipse(x1, y1, x2, y2: Integer); override;
     procedure StretchDraw(const DestRect: TRect; SrcGraphic: TGraphic); override;
@@ -161 +193 @@
   UGeometric, LCLIntf;
 
+{ TCanvasPolyBezier }
+
+procedure TCanvasPolyBezier.Paint(Canvas: TCanvas);
+begin
+  Canvas.Pen.Assign(Pen);
+  Canvas.Brush.Assign(Brush);
+  Canvas.PolyBezier(Points);
+end;
+
+procedure TCanvasPolyBezier.Zoom(Factor: Double);
+var
+  I: Integer;
+begin
+  for I := 0 to High(Points) do
+    Points[I] := Point(Trunc(Points[I].X * Factor),
+      Trunc(Points[I].Y * Factor));
+  Pen.Width := Trunc(Pen.Width * Factor);
+end;
+
+procedure TCanvasPolyBezier.Move(Delta: TPoint);
+var
+  I: Integer;
+begin
+  for I := 0 to High(Points) do
+    Points[I] := AddPoint(Points[I], Delta);
+end;
+
+constructor TCanvasPolyBezier.Create;
+begin
+  Pen := TPen.Create;
+  Brush := TBrush.Create;
+end;
+
+destructor TCanvasPolyBezier.Destroy;
+begin
+  FreeAndNil(Brush);
+  FreeAndNil(Pen);
+  inherited;
+end;
+
+{ TCanvasPolyline }
+
+procedure TCanvasPolyline.Paint(Canvas: TCanvas);
+begin
+  Canvas.Pen.Assign(Pen);
+  Canvas.Brush.Assign(Brush);
+  Canvas.Polyline(Points);
+end;
+
+procedure TCanvasPolyline.Zoom(Factor: Double);
+var
+  I: Integer;
+begin
+  for I := 0 to High(Points) do
+    Points[I] := Point(Trunc(Points[I].X * Factor),
+      Trunc(Points[I].Y * Factor));
+  Pen.Width := Trunc(Pen.Width * Factor);
+end;
+
+procedure TCanvasPolyline.Move(Delta: TPoint);
+var
+  I: Integer;
+begin
+  for I := 0 to High(Points) do
+    Points[I] := AddPoint(Points[I], Delta);
+end;
+
+constructor TCanvasPolyline.Create;
+begin
+  Pen := TPen.Create;
+  Brush := TBrush.Create;
+end;
+
+destructor TCanvasPolyline.Destroy;
+begin
+  FreeAndNil(Brush);
+  FreeAndNil(Pen);
+  inherited;
+end;
+
 { TCanvasPie }
 
@@ -304 +416 @@
 destructor TCanvasPolygon.Destroy;
 begin
-  Brush.Free;
-  Pen.Free;
+  FreeAndNil(Brush);
+  FreeAndNil(Pen);
   inherited;
 end;
@@ -511 +623 @@
     APoints[I] := Points[I];
   DoPolygon(APoints);
+end;
+
+procedure TMetaCanvas.Polyline(Points: PPoint; NumPts: Integer);
+var
+  APoints: array of TPoint;
+  I: Integer;
+begin
+  APoints := nil;
+  SetLength(APoints, NumPts);
+  for I := 0 to High(APoints) do
+    APoints[I] := Points[I];
+  DoPolyline(APoints);
+end;
+
+procedure TMetaCanvas.PolyBezier(Points: PPoint; NumPts: Integer;
+  Filled: Boolean; Continuous: Boolean);
+begin
+  DoPolyBezier(Points, NumPts, Filled, Continuous);
 end;
 
@@ -580 +710 @@
 end;
 
+procedure TMetaCanvas.DoPolyline(const Points: array of TPoint);
+var
+  NewObj: TCanvasPolyline;
+  I: Integer;
+begin
+  NewObj := TCanvasPolyline.Create;
+  NewObj.Brush.Assign(Brush);
+  NewObj.Pen.Assign(Pen);
+  SetLength(NewObj.Points, Length(Points));
+  for I := 0 to High(Points) do
+    NewObj.Points[I] := Points[I];
+  Objects.Add(NewObj);
+end;
+
+procedure TMetaCanvas.DoPolyBezier(Points: PPoint; NumPts: Integer;
+  Filled: Boolean; Continuous: Boolean);
+var
+  NewObj: TCanvasPolyBezier;
+  I: Integer;
+begin
+  NewObj := TCanvasPolyBezier.Create;
+  NewObj.Brush.Assign(Brush);
+  NewObj.Pen.Assign(Pen);
+  SetLength(NewObj.Points, NumPts);
+  for I := 0 to High(NewObj.Points) do
+    NewObj.Points[I] := Points[I];
+  Objects.Add(NewObj);
+end;
+
 procedure TMetaCanvas.FillRect(const ARect: TRect);
 begin
@@ -664 +823 @@
 
 end.
-

Common/UPersistentForm.pas

@@ -1 +1 @@
 unit UPersistentForm;
-
-// Date: 2020-11-26
 
 interface
@@ -21 +19 @@
     procedure SaveControl(Control: TControl);
   public
-    FormNormalSize: TRect;
     FormRestoredSize: TRect;
     FormWindowState: TWindowState;
@@ -155 +152 @@
     RootKey := RegistryContext.RootKey;
     OpenKey(RegistryContext.Key + '\Forms\' + Form.Name, True);
-    // Normal size
-    FormNormalSize.Left := ReadIntegerWithDefault('NormalLeft', FormNormalSize.Left);
-    FormNormalSize.Top := ReadIntegerWithDefault('NormalTop', FormNormalSize.Top);
-    FormNormalSize.Right := ReadIntegerWithDefault('NormalWidth', FormNormalSize.Right - FormNormalSize.Left)
-      + FormNormalSize.Left;
-    FormNormalSize.Bottom := ReadIntegerWithDefault('NormalHeight', FormNormalSize.Bottom - FormNormalSize.Top)
-      + FormNormalSize.Top;
+
     // Restored size
     FormRestoredSize.Left := ReadIntegerWithDefault('RestoredLeft', FormRestoredSize.Left);
@@ -169 +160 @@
     FormRestoredSize.Bottom := ReadIntegerWithDefault('RestoredHeight', FormRestoredSize.Bottom - FormRestoredSize.Top)
       + FormRestoredSize.Top;
+
     // Other state
     FormWindowState := TWindowState(ReadIntegerWithDefault('WindowState', Integer(FormWindowState)));
@@ -183 +175 @@
     RootKey := RegistryContext.RootKey;
     OpenKey(RegistryContext.Key + '\Forms\' + Form.Name, True);
-    // Normal state
-    WriteInteger('NormalWidth', FormNormalSize.Right - FormNormalSize.Left);
-    WriteInteger('NormalHeight', FormNormalSize.Bottom - FormNormalSize.Top);
-    WriteInteger('NormalTop', FormNormalSize.Top);
-    WriteInteger('NormalLeft', FormNormalSize.Left);
-    // Restored state
+
+    // Restored size
     WriteInteger('RestoredWidth', FormRestoredSize.Right - FormRestoredSize.Left);
     WriteInteger('RestoredHeight', FormRestoredSize.Bottom - FormRestoredSize.Top);
     WriteInteger('RestoredTop', FormRestoredSize.Top);
     WriteInteger('RestoredLeft', FormRestoredSize.Left);
+
     // Other state
     WriteInteger('WindowState', Integer(FormWindowState));
@@ -257 +246 @@
 begin
   Self.Form := Form;
+
   // Set default
-  FormNormalSize := Bounds((Screen.Width - Form.Width) div 2,
-    (Screen.Height - Form.Height) div 2, Form.Width, Form.Height);
   FormRestoredSize := Bounds((Screen.Width - Form.Width) div 2,
     (Screen.Height - Form.Height) div 2, Form.Width, Form.Height);
@@ -267 +255 @@
   LoadFromRegistry(RegistryContext);
 
-  if not EqualRect(FormNormalSize, FormRestoredSize) or
-    DefaultMaximized then begin
+  if (FormWindowState = wsMaximized) or DefaultMaximized then begin
     // Restore to maximized state
     Form.WindowState := wsNormal;
@@ -277 +264 @@
     // Restore to normal state
     Form.WindowState := wsNormal;
-    if FEntireVisible then FormNormalSize := CheckEntireVisible(FormNormalSize)
+    if FEntireVisible then FormRestoredSize := CheckEntireVisible(FormRestoredSize)
       else if FMinVisiblePart > 0 then
-    FormNormalSize := CheckPartVisible(FormNormalSize, FMinVisiblePart);
-    if not EqualRect(FormNormalSize, Form.BoundsRect) then
-      Form.BoundsRect := FormNormalSize;
+        FormRestoredSize := CheckPartVisible(FormRestoredSize, FMinVisiblePart);
+    if not EqualRect(FormRestoredSize, Form.BoundsRect) then
+      Form.BoundsRect := FormRestoredSize;
   end;
   if FormFullScreen then SetFullScreen(True);
@@ -290 +277 @@
 begin
   Self.Form := Form;
-  FormNormalSize := Bounds(Form.Left, Form.Top, Form.Width, Form.Height);
-  if not FormFullScreen then
-    FormRestoredSize := Bounds(Form.RestoredLeft, Form.RestoredTop, Form.RestoredWidth,
-      Form.RestoredHeight);
-  FormWindowState := Form.WindowState;
+  if not FormFullScreen then begin
+    FormWindowState := Form.WindowState;
+    if FormWindowState = wsMaximized then begin
+      FormRestoredSize := Bounds(Form.RestoredLeft, Form.RestoredTop, Form.RestoredWidth,
+        Form.RestoredHeight);
+    end else
+    if FormWindowState = wsNormal then begin
+      FormRestoredSize := Bounds(Form.Left, Form.Top, Form.Width, Form.Height);
+    end;
+  end;
   SaveToRegistry(RegistryContext);
   SaveControl(Form);
@@ -312 +304 @@
   if State then begin
     FormFullScreen := True;
-    FormNormalSize := Form.BoundsRect;
-    FormRestoredSize := Bounds(Form.RestoredLeft, Form.RestoredTop, Form.RestoredWidth,
-      Form.RestoredHeight);
+    if Form.WindowState = wsMaximized then begin
+      FormRestoredSize := Bounds(Form.RestoredLeft, Form.RestoredTop, Form.RestoredWidth,
+        Form.RestoredHeight);
+    end else
+    if Form.WindowState = wsNormal then begin
+      FormRestoredSize := Bounds(Form.Left, Form.Top, Form.Width, Form.Height);
+    end;
     FormWindowState := Form.WindowState;
+    Form.WindowState := wsMaximized;
+    Form.WindowState := wsNormal;
     ShowWindow(Form.Handle, SW_SHOWFULLSCREEN);
     {$IFDEF WINDOWS}
@@ -327 +325 @@
     ShowWindow(Form.Handle, SW_SHOWNORMAL);
     if FormWindowState = wsNormal then begin
-      Form.BoundsRect := FormNormalSize;
+      Form.WindowState := wsNormal;
+      Form.BoundsRect := FormRestoredSize;
     end else
     if FormWindowState = wsMaximized then begin
@@ -337 +336 @@
 
 end.
-

Common/UPixelPointer.pas

@@ -15 +15 @@
   private
     procedure SetRGB(AValue: Cardinal);
-    function GetRGB: Cardinal;    
+    function GetRGB: Cardinal;
   public
     property RGB: Cardinal read GetRGB write SetRGB;
@@ -310 +310 @@
 end;
 
-
 end.
-

Common/UPool.pas

@@ -199 +199 @@
 
 end.
-

Common/UPrefixMultiplier.pas

@@ -31 +31 @@
   (
     (ShortText: 'y'; FullText: 'yocto'; Value: 1e-24),
-          (ShortText: 'z'; FullText: 'zepto'; Value: 1e-21),
+      (ShortText: 'z'; FullText: 'zepto'; Value: 1e-21),
     (ShortText: 'a'; FullText: 'atto'; Value: 1e-18),
     (ShortText: 'f'; FullText: 'femto'; Value: 1e-15),
@@ -52 +52 @@
   (
     (ShortText: 'ys'; FullText: 'yocto'; Value: 1e-24),
-          (ShortText: 'zs'; FullText: 'zepto'; Value: 1e-21),
+      (ShortText: 'zs'; FullText: 'zepto'; Value: 1e-21),
     (ShortText: 'as'; FullText: 'atto'; Value: 1e-18),
     (ShortText: 'fs'; FullText: 'femto'; Value: 1e-15),
@@ -124 +124 @@
 
 end.
-

Common/UResetableThread.pas

@@ -295 +295 @@
 
 end.
-

Common/UStringTable.pas

@@ -69 +69 @@
 end;
 
-
 end.
-

Common/USyncCounter.pas

@@ -78 +78 @@
 
 end.
-

Common/UTestCase.pas

@@ -127 +127 @@
 
 end.
-

Common/UTheme.pas

@@ -186 +186 @@
 end;
 
-
 end.

Common/UThreading.pas

@@ -366 +366 @@
 
 end.
-

Common/UTranslator.pas

@@ -569 +569 @@
 end;
 
-
 end.
-

Common/UURI.pas

@@ -347 +347 @@
 
 end.
-

Common/UXMLUtils.pas

@@ -14 +14 @@
 procedure WriteString(Node: TDOMNode; Name: string; Value: string);
 procedure WriteDateTime(Node: TDOMNode; Name: string; Value: TDateTime);
+procedure WriteDouble(Node: TDOMNode; Name: string; Value: Double);
 function ReadInteger(Node: TDOMNode; Name: string; DefaultValue: Integer): Integer;
 function ReadInt64(Node: TDOMNode; Name: string; DefaultValue: Int64): Int64;
@@ -19 +20 @@
 function ReadString(Node: TDOMNode; Name: string; DefaultValue: string): string;
 function ReadDateTime(Node: TDOMNode; Name: string; DefaultValue: TDateTime): TDateTime;
+function ReadDouble(Node: TDOMNode; Name: string; DefaultValue: Double): Double;
 procedure ReadXMLFileParser(out Doc: TXMLDocument; FileName: string);
 
 
 implementation
+
+function ReadDouble(Node: TDOMNode; Name: string; DefaultValue: Double): Double;
+var
+  NewNode: TDOMNode;
+begin
+  Result := DefaultValue;
+  NewNode := Node.FindNode(DOMString(Name));
+  if Assigned(NewNode) then
+    Result := StrToFloat(string(NewNode.TextContent));
+end;
 
 procedure ReadXMLFileParser(out Doc: TXMLDocument; FileName: string);
@@ -200 +212 @@
 end;
 
+procedure WriteDouble(Node: TDOMNode; Name: string; Value: Double);
+var
+  NewNode: TDOMNode;
+begin
+  NewNode := Node.OwnerDocument.CreateElement(DOMString(Name));
+  NewNode.TextContent := DOMString(FloatToStr(Value));
+  Node.AppendChild(NewNode);
+end;
+
 function ReadInteger(Node: TDOMNode; Name: string; DefaultValue: Integer): Integer;
 var
@@ -252 +273 @@
 
 end.
-