program myapp;
{$mode objfpc}{$H+}
uses
  ftui_app, ftui_event, ftui_rect, ftui_style,
  ftui_buffer, ftui_block, ftui_borders, ftui_paragraph;
type
  TMyApp = class(TApp)
  protected
    procedure Render(var Frame: TFrame); override;
    procedure HandleEvent(const Ev: TEvent); override;
  end;

procedure TMyApp.Render(var Frame: TFrame);
begin
  TParagraph.FromString('Hello, TUI!' + #10 + 'q = quit')
    .WithBlock(TBlock.Default.WithBorders(BordersAll))
    .Render(Frame.Area, Frame.Buffer);
end;

procedure TMyApp.HandleEvent(const Ev: TEvent);
begin
  if (Ev.Kind = evKey) and (Ev.Key.Ch = Ord('q')) then Quit;
end;

var App: TMyApp;
begin
  App := TMyApp.Create;
  try App.Run; finally App.Free; end;
end.

fpc -Fusrc/core -Fusrc/text -Fusrc/terminal -Fusrc/input \
    -Fusrc/backend -Fusrc/layout -Fusrc/widgets myapp.lpr

src/
  core/       rect, color, modifier, style, cell, buffer, grapheme,
              focus, overlay, screen, app, anim, keybind, color_cap, theme
  text/       text (Span/Line/Text), format (FormatBytes)
  layout/     layout (Constraint solver), grid, layout_dsl
  input/      event, input_parser
  terminal/   terminal, frame_budget, event_loop, termios, clipboard
  backend/    ansi_backend, ansi, bytes, test_backend
  widgets/    43 ??? widget ??????
tests/        73 ???????????????, 651 ???????????????
examples/     26 ???????????? demo
benchmarks/   7 ???????????????
docs/         API ????????? / ???????????? / ???????????? / ????????????

make test         # 编译并运行 636 个测试
make examples     # 编译所有 26 个 demo
make bench        # 运行性能基准（3 次取最优）
make ci           # 完整门禁：test + examples + benchmarks + acceptance
make clean        # 清理构建产物

// Stateless widget
TParagraph.FromString('hello')
  .WithBlock(TBlock.Default.WithBorders(BordersAll))
  .WithAlignment(caCenter)
  .Render(Area, Buffer);

// Stateful widget
TTree.Create(Nodes)
  .WithHighlightStyle(TStyle.Default.WithModifier([mbReversed]))
  .RenderStateful(Area, Buffer, TreeState);

// State 构造
State := TListState.Empty;        // 标准
State := TTreeState.Empty;        // 标准
State := TCommandPaletteState.Empty;  // 标准