lazarus-ccr/components/exctrls/examples/ShapeEx/main.pas

unit main;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, Forms, Controls, Graphics, Dialogs, ExShape;

type

  { TMainForm }

  TMainForm = class(TForm)
    ShapeEx1: TShapeEx;
    ShapeEx2: TShapeEx;
    ShapeEx3: TShapeEx;
    ShapeEx4: TShapeEx;
    ShapeEx5: TShapeEx;
    ShapeEx6: TShapeEx;
    ShapeEx7: TShapeEx;
  private

  public

  end;

var
  MainForm: TMainForm;

implementation

{$R *.lfm}

end.