Examples/Demos/bench/fdBench.dfm - master - stud_22-365/GLXEngine

Examples/Demos/bench/fdBench.dfm
89 строк2 KB
glscene
HappyNewYear!
28 дек 2025, 23:42
28 дек 2025, 23:425ab1194
object FormBench: TFormBench
  Left = 0
  Top = 0
  Caption = 'Bench'
  ClientHeight = 592
  ClientWidth = 890
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'Segoe UI'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  OnShow = FormShow
  TextHeight = 15
  object PanelLeft: TPanel
    Left = 0
    Top = 0
    Width = 129
    Height = 592
    Align = alLeft
    TabOrder = 0
    ExplicitHeight = 567
    object tvBench: TTreeView
      Left = 1
      Top = 1
      Width = 127
      Height = 590
      Align = alClient
      Indent = 19
      TabOrder = 0
      OnClick = tvBenchClick
      Items.NodeData = {
        070600000009540054007200650065004E006F00640065002B00000000000000
        00000000FFFFFFFFFFFFFFFF000000000000000000000000000106430061006E
        0076006100730000002F0000000000000000000000FFFFFFFFFFFFFFFF000000
        0000000000000000000001084D00650067006100630075006200650000003900
        00000000000000000000FFFFFFFFFFFFFFFF0000000000000000000000000001
        0D4D0065006700610067006C00610073007300630075006200650000002D0000
        000000000000000000FFFFFFFFFFFFFFFF000000000000000000000000000107
        53006D006F006B0069006E00670000002D0000000000000000000000FFFFFFFF
        FFFFFFFF00000000000000000000000000010756006F006C00630061006E006F
        000000310000000000000000000000FFFFFFFFFFFFFFFF000000000000000000
        00000000010957006800690072006C00770069006E006400}
      ExplicitHeight = 565
    end
  end
  object PageControl: TPageControl
    Left = 129
    Top = 0
    Width = 761
    Height = 592
    ActivePage = tsCanvas
    Align = alClient
    TabOrder = 1
    ExplicitWidth = 753
    ExplicitHeight = 567
    object tsCanvas: TTabSheet
      Caption = 'Canvas'
      TabVisible = False
    end
    object tsMegacube: TTabSheet
      Caption = 'Megacube'
      ImageIndex = 1
      TabVisible = False
    end
    object tsMegaglasscube: TTabSheet
      Caption = 'Megaglasscube'
      ImageIndex = 2
      TabVisible = False
    end
    object tsSmoking: TTabSheet
      Caption = 'Smoking'
      ImageIndex = 3
      TabVisible = False
    end
    object tsVolcano: TTabSheet
      Caption = 'Volcano'
      ImageIndex = 4
      TabVisible = False
    end
    object tsWhirlwind: TTabSheet
      Caption = 'Whirlwind'
      ImageIndex = 5
      TabVisible = False
    end
  end
end