Initial commit

Author: Khojasteh

.gitignore

@@ -0,0 +1,38 @@
+# Delphi compiler-generated binaries
+*.exe
+*.dll
+*.bpl
+*.bpi
+*.dcp
+*.so
+*.apk
+*.drc
+*.map
+*.dres
+*.rsm
+*.tds
+*.dcu
+*.lib
+*.a
+*.o
+*.ocx
+
+# Delphi autogenerated files
+*.cfg
+*.hpp
+*Resource.rc
+
+# Delphi local files
+*.local
+*.identcache
+*.projdata
+*.tvsconfig
+*.dsk
+
+# Delphi history and backups
+__history/
+__recovery/
+*.~*
+
+# Castalia statistics file
+*.stat

Docs/Globals.md

@@ -0,0 +1,56 @@
+Content
+=======
+The `SimpleGraph` unit defines the following classes:
+
+- **[TSimpleGraph](Docs/TSimpleGraph.md) = class (TCustomControl)** \
+  Provides a canvas for drawing simple directional graphs.
+
+- **[TGraphConstraints](Docs/TGraphConstraints.md) = class(TPersistent)** \
+  Defines the bounding constraints of the graphs on the [TSimpleGraph](SimpleGraph.md) control.
+
+- **[TGraphObjectList](Docs/TGraphObjectList.md) = class(TPersistent)** \
+  Maintains the collection of objects on a graph.
+
+- **[TGraphObject](Docs/TGraphObject.md) = class(TPersistent)** \
+  Represents an object on a graph.
+
+- **[TGraphLink](Docs/TGraphLink.md) = class([TGraphObject](Docs/TGraphObject.md))** \
+  Represents a link/edge on a graph.
+
+- **[TGraphNode](Docs/TGraphNode.md) = class([TGraphObject](Docs/TGraphObject.md))** \
+  Represents a node on a graph.
+
+- **[TPolygonalNode](Docs/TPolygonalNode.md) = class([TGraphNode](Docs/TGraphNode.md))** \
+  Represents a polygonal node on a graph.
+
+- **TRoundRectangularNode = class([TGraphNode](Docs/TGraphNode.md))** \
+  Represents a rounded rectangular node on a graph.
+
+- **TEllipticNode = class([TGraphNode](Docs/TGraphNode.md))** \
+  Represents an elliptical node on a graph.
+
+- **TTriangularNode = class([TPolygonalNode](Docs/TPolygonalNode.md))** \
+  Represents a triangular node on a graph.
+
+- **TRectangularNode = class([TPolygonalNode](Docs/TPolygonalNode.md))** \
+  Represents a rectangular node on a graph.
+
+- **TRhomboidalNode = class([TPolygonalNode](Docs/TPolygonalNode.md))** \
+  Represents a rhomboidal node on a graph.
+
+- **THexagonalNode = class([TPolygonalNode](Docs/TPolygonalNode.md))** \
+  Represents a hexagonal node on a graph.
+
+- **[TGraphScrollBar](Docs/TGraphScrollBar.md) = class(TPersistent)** \
+  Manages a horizontal or vertical scroll bar on the [TSimpleGraph](Docs/TSimpleGraph.md) control.
+
+- **[TMemoryHandleStream](Docs/TMemoryHandleStream.md) = class(TMemoryStream)** \
+  Creates a stream whose backing store is memory allocated in the Windows global heap.
+
+- **[TCanvasRecall](Docs/TCanvasRecall.md) = class(TObject)** \
+  Stores the current state of a `Canvas` object, so that it can be restored at a later time.
+
+- **TCompatibleCanvas = class(TCanvas)** \
+  Provides a `Canvas` object compatible with the screen's device context.
+
+In addition, the code offers various [global procedures and functions](/Docs/Globals.md).

Docs/README.md

@@ -0,0 +1,33 @@
+TCanvasRecall = class(TObject)
+==============================
+This class holds a reference to a `Canvas` object and saves its current state. Later, the saved state of the `Canvas` object can be retrieved by calling the `Retrieve` method or automatically when the `TCanvasRecall` instance is destroyed. 
+
+Properties
+----------
+In addition to the properties of the `TObject` class, the `TCanvasRecall` class has the following property:
+
+- **`public Reference: TCanvas`** \
+  The reference to a `Canvas` object that is managed by this instance. This property can be `nil`.
+
+  By changing this property, the `TCanvasRecall` instance restores the state of the previous `Canvas` object and saves the state of the new one.
+
+Methods
+-------
+In addition to the methods of the `TObject` class, the `TCanvasRecall` class defines or overrides the following public methods:
+
+- **`constructor Create(AReference: TCanvas);`** \
+  Creates an instance of the class and saves the state of the `Canvas` object specified by the parameter.
+
+  | Parameter  | Description                                                                |
+  |------------|----------------------------------------------------------------------------|
+  | AReference | The `Canvas` object that should be managed by this instance (can be `nil`) |
+
+- **`destructor Destroy; override;`** \
+  Restores the saved state of the `Canvas` object and destroys the instance.
+
+- **`procedure Store;`** \
+  Saves the current state of the `Canvas` object.
+  
+- **`procedure Retrieve;`** \
+  Restores the saved state of the `Canvas` object.
+  

Docs/TCanvasRecall.md

@@ -0,0 +1,85 @@
+TGraphConstraints = class(TPersistent)
+======================================
+This class has the bounding box of the graph objects on a [TSimpleGraph](TSimpleGraph.md) control.
+
+Properties
+----------
+In addition to the properties of the `TPersistent` class, the `TGraphConstraints` class provides the following properties:
+
+- **`public BoundsRect: TRect`** \
+  Specifies the bounding box of the graph objects on canvas as a `TRect` value.
+  
+- **`published MinLeft: Integer default 0`** \
+  Specifies the minimum horizontal placement of a graph object on canvas.
+  
+- **`published MinTop: Integer default 0`** \
+  Specifies the minimum vertical placement of a graph object on canvas.
+  
+- **`published MaxRight: Integer default 65535`** \
+  Specifies the maximum horizontal placement of a graph object on canvas.
+  
+- **`published MaxBottom: Integer default 65535`** \
+  Specifies the maximum vertical placement of a graph object on canvas.
+  
+- **`public Owner: TSimpleGraph`** (read-only) \
+  Gets the [TSimpleGraph](TSimpleGraph.md) control that owns this instance.
+  
+Methods
+-------
+In addition to the methods of the `TPersistent` class, the `TGraphConstraints` class has the following public methods:
+
+- **`procedure SetBounds(aLeft, aTop, aWidth, aHeight: Integer);`** \
+  Sets the bounding box of the graph objects on canvas.
+
+  | Parameter | Description                                       |
+  |-----------|---------------------------------------------------|
+  | aLeft     | The minimum horizontal position                   |
+  | aTop      | The minimum vertical position                     |
+  | aWidth    | The maximum horizontal size                       |
+  | aHeight   | The minimum vertical size                         |
+
+- **`function WithinBounds(const Pts: array of TPoint): Boolean;`** \
+  Determines whether all the given coordinates satisfy the constraints.
+
+  | Parameter | Description                                       |
+  |-----------|---------------------------------------------------|
+  | Pts       | The array of coordinates to be examined           |
+
+  Returns `true` if all the coordinates satisfy the constraints; otherwise, return `false`.
+
+- **`function ConfinePt(var Pt: TPoint): Boolean;`** \
+  Moves a given coordinate inside the bounding box if it is outside of the box.
+
+  | Parameter | Description                                       |
+  |-----------|---------------------------------------------------|
+  | Pt        | The coordinates to be confined                    |
+
+  Returns `true` if the coordinate already satisfies the constraints; otherwise, return `false`.
+
+- **`function ConfineRect(var Rect: TRect): Boolean;`** \
+  Shrinks a given rectangle to fit inside the bounding box if any side of it is outside of the box.
+
+  | Parameter | Description                                       |
+  |-----------|---------------------------------------------------|
+  | Rect      | The rectangle to be confined                      |
+
+  Returns `true` if the rectangle already satisfies the constraints; otherwise, return `false`.
+
+- **`function ConfineMoveResize(const Rect: TRect; Mobility: TObjectSides; var dX, dY: Integer): Boolean;`** \
+  Adjusts changes in position and/or size of a rectangle, so that the rectangle stays inside the bounding box.
+
+  | Parameter | Description                                       |
+  |-----------|---------------------------------------------------|
+  | Rect      | The rectangle                                     |
+  | Mobility  | The sides of the rectangle that can be displaced  |
+  | dX        | The amount of horizontal changes                  |
+  | dY        | The amount of vertical changes                    |
+
+  Returns `true` if after applying the changes, the rectangle already satisfies the constraints; otherwise, return `false`.
+
+Events
+------
+The `TGraphConstraints` class has the following event:
+
+- **`OnChange: TNotifyEvent`** \
+  Occurs when the value of a property has been changed.