GLScene/Examples/Demox/Pathfinder/fdPathfinder.fmx

object FormPathfinder: TFormPathfinder
  Left = 0
  Top = 0
  Caption = 'Path Finding with A*'
  ClientHeight = 524
  ClientWidth = 876
  Position = ScreenCenter
  FormFactor.Width = 320
  FormFactor.Height = 480
  FormFactor.Devices = [Desktop]
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  DesignerMasterStyle = 0
  object layIHM: TLayout
    Align = Left
    Size.Width = 250.000000000000000000
    Size.Height = 524.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 0
    object btnTrouverChemin: TButton
      Align = Bottom
      ImageIndex = 1
      Margins.Left = 10.000000000000000000
      Margins.Top = 5.000000000000000000
      Margins.Right = 10.000000000000000000
      Margins.Bottom = 5.000000000000000000
      Position.X = 10.000000000000000000
      Position.Y = 457.000000000000000000
      Size.Width = 230.000000000000000000
      Size.Height = 62.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 0
      Text = 'Finding the shortest path from D to A'
      TextSettings.WordWrap = True
      TextSettings.Trimming = None
      OnClick = btnTrouverCheminClick
    end
    object lblInfos: TLabel
      Align = Client
      StyledSettings = [Family, FontColor]
      Margins.Left = 5.000000000000000000
      Margins.Right = 5.000000000000000000
      Size.Width = 240.000000000000000000
      Size.Height = 240.000000000000000000
      Size.PlatformDefault = False
      TextSettings.Font.Size = 14.000000000000000000
      TextSettings.Font.StyleExt = {00070000000000000004000000}
      TextSettings.FontColor = claCrimson
      TextSettings.HorzAlign = Center
      TabOrder = 1
    end
    object layOptions: TLayout
      Align = Top
      Margins.Left = 5.000000000000000000
      Margins.Top = 5.000000000000000000
      Margins.Right = 5.000000000000000000
      Position.X = 5.000000000000000000
      Position.Y = 5.000000000000000000
      Size.Width = 240.000000000000000000
      Size.Height = 140.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 3
      object gbOptions: TGroupBox
        Align = Client
        Size.Width = 240.000000000000000000
        Size.Height = 140.000000000000000000
        Size.PlatformDefault = False
        Text = 'Options'
        TabOrder = 3
        object lblNbColonne: TLabel
          Align = Top
          Margins.Left = 10.000000000000000000
          Margins.Top = 20.000000000000000000
          Margins.Right = 10.000000000000000000
          Position.X = 10.000000000000000000
          Position.Y = 20.000000000000000000
          Size.Width = 220.000000000000000000
          Size.Height = 24.000000000000000000
          Size.PlatformDefault = False
          Text = 'Columns :'
          TabOrder = 3
          object eNbColonne: TEdit
            Touch.InteractiveGestures = [LongTap, DoubleTap]
            Align = Right
            TabOrder = 4
            Position.X = 60.000000000000000000
            Margins.Right = 60.000000000000000000
            Size.Width = 100.000000000000000000
            Size.Height = 24.000000000000000000
            Size.PlatformDefault = False
            object SpinEditButton1: TSpinEditButton
              AutoTranslate = False
              CanFocus = False
              Cursor = crArrow
              Size.Width = 20.000000000000000000
              Size.Height = 20.000000000000000000
              Size.PlatformDefault = False
              TabOrder = 0
              OnDownClick = SpinEditButton1DownClick
              OnUpClick = SpinEditButton1UpClick
            end
          end
        end
        object lblLigne: TLabel
          Align = Top
          Margins.Left = 10.000000000000000000
          Margins.Top = 5.000000000000000000
          Margins.Right = 10.000000000000000000
          Position.X = 10.000000000000000000
          Position.Y = 49.000000000000000000
          Size.Width = 220.000000000000000000
          Size.Height = 24.000000000000000000
          Size.PlatformDefault = False
          Text = 'Lines :'
          TabOrder = 2
          object eNbLigne: TEdit
            Touch.InteractiveGestures = [LongTap, DoubleTap]
            Align = Right
            TabOrder = 4
            Position.X = 60.000000000000000000
            Margins.Right = 60.000000000000000000
            Size.Width = 100.000000000000000000
            Size.Height = 24.000000000000000000
            Size.PlatformDefault = False
            object SpinEditButton2: TSpinEditButton
              AutoTranslate = False
              CanFocus = False
              Cursor = crArrow
              Size.Width = 20.000000000000000000
              Size.Height = 20.000000000000000000
              Size.PlatformDefault = False
              TabOrder = 0
              OnDownClick = SpinEditButton2DownClick
              OnUpClick = SpinEditButton2UpClick
            end
          end
        end
        object btnCreerGrille: TButton
          Align = Top
          ImageIndex = 0
          Margins.Left = 10.000000000000000000
          Margins.Top = 5.000000000000000000
          Margins.Right = 10.000000000000000000
          Margins.Bottom = 5.000000000000000000
          Position.X = 10.000000000000000000
          Position.Y = 78.000000000000000000
          Size.Width = 220.000000000000000000
          Size.Height = 50.000000000000000000
          Size.PlatformDefault = False
          TabOrder = 4
          Text = 'Generate the grid'
          TextSettings.Trimming = None
          OnClick = btnCreerGrilleClick
        end
      end
    end
    object cbPremiereEtape: TCheckBox
      Align = Bottom
      Margins.Left = 10.000000000000000000
      Margins.Right = 10.000000000000000000
      Position.X = 10.000000000000000000
      Position.Y = 414.000000000000000000
      Size.Width = 230.000000000000000000
      Size.Height = 19.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 4
      Text = 'Only do the 1st step'
    end
    object cbDiagonale: TCheckBox
      Align = Bottom
      IsChecked = True
      Margins.Left = 10.000000000000000000
      Margins.Top = 10.000000000000000000
      Margins.Right = 10.000000000000000000
      Position.X = 10.000000000000000000
      Position.Y = 395.000000000000000000
      Size.Width = 230.000000000000000000
      Size.Height = 19.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 2
      Text = 'Allow diagonal movement'
    end
    object cbModeCout: TCheckBox
      Align = Bottom
      Margins.Left = 10.000000000000000000
      Margins.Right = 10.000000000000000000
      Position.X = 10.000000000000000000
      Position.Y = 433.000000000000000000
      Size.Width = 230.000000000000000000
      Size.Height = 19.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 5
      Text = 'Minimum cost mode'
    end
  end
  object ScrollBox: TScrollBox
    Align = Client
    Size.Width = 626.000000000000000000
    Size.Height = 524.000000000000000000
    Size.PlatformDefault = False
    TabOrder = 1
    ShowSizeGrip = True
    Viewport.Width = 626.000000000000000000
    Viewport.Height = 524.000000000000000000
    object layGrille: TLayout
      Margins.Left = 10.000000000000000000
      Margins.Top = 10.000000000000000000
      Margins.Right = 10.000000000000000000
      Margins.Bottom = 10.000000000000000000
      Position.X = 10.000000000000000000
      Position.Y = 5.000000000000000000
      Size.Width = 605.000000000000000000
      Size.Height = 503.000000000000000000
      Size.PlatformDefault = False
      TabOrder = 1
      object rectangleModele: TRectangle
        Fill.Kind = Gradient
        Fill.Gradient.Points = <
          item
            Color = claWhite
            Offset = 0.000000000000000000
          end
          item
            Color = claWhite
            Offset = 1.000000000000000000
          end>
        Fill.Gradient.StartPosition.Y = 1.000000000000000000
        Fill.Gradient.StopPosition.X = 1.000000000000000000
        Fill.Gradient.StopPosition.Y = 0.000000017114270889
        Size.Width = 50.000000000000000000
        Size.Height = 50.000000000000000000
        Size.PlatformDefault = False
        XRadius = 2.000000000000000000
        YRadius = 2.000000000000000000
        ParentShowHint = False
        ShowHint = False
        OnClick = rectangleModeleClick
        object lblTotal: TLabel
          Align = Center
          StyledSettings = [Family]
          Size.Width = 50.000000000000000000
          Size.Height = 17.000000000000000000
          Size.PlatformDefault = False
          TextSettings.Font.Size = 18.000000000000000000
          TextSettings.Font.StyleExt = {00070000000000000004000000}
          TextSettings.HorzAlign = Center
          Text = '0'
          TabOrder = 0
        end
        object tDistanceA: TText
          Align = Bottom
          Margins.Right = 5.000000000000000000
          Position.Y = 35.000000000000000000
          Size.Width = 45.000000000000000000
          Size.Height = 15.000000000000000000
          Size.PlatformDefault = False
          TextSettings.HorzAlign = Trailing
        end
        object tDistanceD: TText
          Align = Top
          Margins.Left = 5.000000000000000000
          Position.X = 5.000000000000000000
          Size.Width = 45.000000000000000000
          Size.Height = 15.000000000000000000
          Size.PlatformDefault = False
          TextSettings.HorzAlign = Leading
        end
      end
    end
  end
end