FireMonkey (FMX) Platform

uses
  System.SysUtils, System.Types, System.UITypes, System.Classes,
  System.Variants, FMX.Types, FMX.Controls, FMX.Forms, FMX.Dialogs,
  FMX.Layouts, FMX.StdCtrls, FMX.Objects,
  FMXTee.Tree, FMXTee.Procs, FMXTee.Canvas;

const
  TeeDefaultBoxSize = 5;  // FMX uses slightly larger default
  
  // FMX color constants
  clWhite = TAlphaColors.White;
  clBlack = TAlphaColors.Black;
  clGray = TAlphaColors.Gray;
  
  // File extension for FMX
  TreeMsg_TeeExtension = 'ttx';
  TeeMsg_TreeFiles = 'TeeTree v2 FMX files (*.ttx)|*.ttx';

procedure TForm1.EnableTouchSupport;
begin
  // FMX automatically handles touch events
  Tree1.Touch.InteractiveGestures := [TInteractiveGesture.Zoom, 
                                       TInteractiveGesture.Pan];
end;

procedure TForm1.Tree1Gesture(Sender: TObject;
  const EventInfo: TGestureEventInfo; var Handled: Boolean);
begin
  case EventInfo.GestureID of
    igiZoom:
      begin
        // Handle pinch zoom
        Tree1.Zoom := Tree1.Zoom * (1 + EventInfo.Distance / 100);
        Handled := True;
      end;
    igiPan:
      begin
        // Handle pan/scroll
        Tree1.ScrollBy(Round(EventInfo.Location.X), 
                       Round(EventInfo.Location.Y));
        Handled := True;
      end;
  end;
end;

procedure TForm1.SetupFMXColors;
begin
  // Using TAlphaColors
  Tree1.Color := TAlphaColors.White;
  
  // Semi-transparent nodes
  Tree1.Roots[0].Brush.Color := MakeColor(TAlphaColors.Blue, 128);
  
  // Transparency property (0-100)
  Tree1.Roots[0].Transparency := 50;
  
  // Gradient with alpha
  with Tree1.Roots[0].Gradient do
  begin
    Visible := True;
    StartColor := TAlphaColors.Skyblue;
    EndColor := MakeColor(TAlphaColors.Navy, 200);
  end;
end;

procedure TForm1.PlatformSpecificCode;
begin
  {$IFDEF ANDROID}
  // Android-specific code
  Tree1.Font.Size := 14;
  {$ENDIF}
  
  {$IFDEF IOS}
  // iOS-specific code
  Tree1.Font.Family := 'Helvetica Neue';
  {$ENDIF}
  
  {$IFDEF MSWINDOWS}
  // Windows-specific code
  Tree1.Font.Family := 'Segoe UI';
  {$ENDIF}
  
  {$IFDEF MACOS}
  // macOS-specific code
  Tree1.Font.Family := 'San Francisco';
  {$ENDIF}
end;

procedure TForm1.PrintTree;
begin
  {$IFNDEF ANDROID}
  {$IF DEFINED(MSWINDOWS) OR DEFINED(MACOS)}
  // Printing only on desktop platforms
  Tree1.Print;
  {$ENDIF}
  {$ENDIF}
end;

procedure TForm1.ApplyStyle;
begin
  // Load style book
  StyleBook1.LoadFromFile('MyStyle.style');
  Self.StyleBook := StyleBook1;
  
  // Tree adapts to style automatically
  Tree1.StyleLookup := 'treestyle';
end;

procedure TForm1.CustomizeAppearance;
begin
  // Bevels work differently in FMX
  Tree1.BevelOuter := TPanelBevel.None;
  Tree1.BevelInner := TPanelBevel.None;
  
  // Effects (FMX-specific)
  with Tree1 do
  begin
    // Shadow effect
    // Note: Effects are applied via TEffect descendants
  end;
end;

procedure TForm1.OptimizeForMobile;
begin
  // Reduce animation overhead
  TeeTreeAnimatedScroll := False;
  
  // Disable shadows on mobile
  {$IFDEF ANDROID}
  Tree1.Roots[0].Shadow.Visible := False;
  {$ENDIF}
  
  // Simpler graphics
  Tree1.AntiAlias := False;  // Faster rendering
  
  // Virtual mode for large trees
  Tree1.VirtualMode := True;
end;

procedure TForm1.SetupMultiResolution;
begin
  // Auto-scale for different DPI
  Tree1.Align := TAlignLayout.Client;
  
  // Use relative sizing
  Tree1.Margins.Left := 10;
  Tree1.Margins.Top := 10;
  Tree1.Margins.Right := 10;
  Tree1.Margins.Bottom := 10;
  
  // Font scaling
  Tree1.Font.Size := 14;  // FMX auto-scales
end;

procedure TForm1.Tree1ClickShape(Sender: TTreeNodeShape;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  // Works for both mouse and touch
  ShowMessage('Node clicked: ' + Sender.Text[0]);
end;

procedure TForm1.HandleSingleClick(X, Y: Single);
var
  Node: TTreeNodeShape;
begin
  // FMX uses Single (float) coordinates
  Node := Tree1.Shapes.Clicked(Round(X), Round(Y));
  if Assigned(Node) then
    Node.Selected := True;
end;

uses
  System.IOUtils;

procedure TForm1.SaveLoadTree;
var
  FileName: string;
begin
  // Use TPath for cross-platform paths
  FileName := TPath.Combine(TPath.GetDocumentsPath, 'mytree.ttx');
  
  // Save
  Tree1.SaveToFile(FileName);
  
  // Load
  Tree1.LoadFromFile(FileName);
end;

// Note: No special code needed
// TeeTree automatically adapts to iOS

// Permissions in AndroidManifest.xml if saving files:
// <uses-permission android:name="android.permission.WRITE_EXTERNAL_STORAGE" />

// Ensure sandbox compatibility
// Use app container paths for file operations

procedure TForm1.SetupResponsiveLayout;
begin
  // Adapt to orientation changes
  Tree1.Align := TAlignLayout.Client;
  
  // Different layouts for portrait/landscape
  if Width > Height then
  begin
    // Landscape
    Tree1.GlobalFormat.ChildManager.HorizMargin := 30;
  end
  else
  begin
    // Portrait
    Tree1.GlobalFormat.ChildManager.HorizMargin := 15;
  end;
end;

uses
  FMX.DialogService;

procedure TForm1.ShowPlatformDialog;
begin
  TDialogService.ShowMessage('Node selected: ' + 
    Tree1.Selected.First.Text[0]);
end;