Basic Shapes

TTreeNodeShape (base class)
  └── TCustomTreeShape
        ├── Geometric shapes (Rectangle, Circle, Diamond, etc.)
        └── Specialized shapes (Triangle variants, Line shapes, etc.)

TCustomTreeShape = class(TTreeNodeShape);

var
  Shape: TTreeNodeShape;
begin
  Shape := TTreeNodeShape.Create(Tree);
  Shape.Style := tssRectangle;
  Shape.Text.Add('Rectangle');
  Shape.X0 := 100;
  Shape.Y0 := 100;
  Shape.X1 := 200;
  Shape.Y1 := 150;
end;

Shape.Style := tssRoundRectangle;
Shape.RoundSize := 10;

Shape.Style := tssChamfer;

Shape.Style := tssCircle;
Shape.Width := 100;  // Same as Height for perfect circle
Shape.Height := 100;

Shape.Style := tssDiamond;

// Upward triangle
Shape.Style := tssTriangleTop;

// Downward triangle
Shape.Style := tssTriangleBottom;

// Left triangle
Shape.Style := tssTriangleLeft;

// Right triangle
Shape.Style := tssTriangleRight;

Shape.Style := tssVertLine;

Shape.Style := tssHorizLine;

// Forward diagonal
Shape.Style := tssLine;

// Backward diagonal
Shape.Style := tssInvertLine;

Shape.Style := tssCustom;
// Override DrawShapeCanvas method in descendant class

uses
  TeeTree;

procedure CreateBasicShapesDemo(Tree: TTree);
var
  RectShape, CircleShape, DiamondShape: TTreeNodeShape;
begin
  // Rectangle
  RectShape := TTreeNodeShape.Create(Tree);
  with RectShape do
  begin
    Style := tssRectangle;
    Text.Add('Rectangle');
    X0 := 50;
    Y0 := 50;
    X1 := 150;
    Y1 := 100;
    Brush.Color := clWhite;
    Border.Color := clBlack;
  end;

  // Circle
  CircleShape := TTreeNodeShape.Create(Tree);
  with CircleShape do
  begin
    Style := tssCircle;
    Text.Add('Circle');
    X0 := 200;
    Y0 := 50;
    Width := 80;
    Height := 80;
    Brush.Color := clYellow;
  end;

  // Diamond
  DiamondShape := TTreeNodeShape.Create(Tree);
  with DiamondShape do
  begin
    Style := tssDiamond;
    Text.Add('Decision');
    X0 := 350;
    Y0 := 50;
    Width := 100;
    Height := 80;
    Brush.Color := clRed;
    Font.Color := clWhite;
  end;

  // Connect shapes
  RectShape.AddConnection(CircleShape);
  CircleShape.AddConnection(DiamondShape);
end;