Lab2/src/fcTableGrid.dfm - master - DmitryBar/computer_modeling

Lab2/src/fcTableGrid.dfm

97 строк2 KB

Dmitry

Выполнение второй лабораторной работы

19 дек 2024, 15:28

19 дек 2024, 15:28828fc2b

object Form2: TForm2
  Left = 0
  Top = 0
  Margins.Left = 2
  Margins.Top = 2
  Margins.Right = 2
  Margins.Bottom = 2
  Caption = 'HYG Data'
  ClientHeight = 344
  ClientWidth = 648
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Tahoma'
  Font.Style = []
  Position = poScreenCenter
  OnCreate = FormCreate
  DesignSize = (
    648
    344)
  TextHeight = 13
  object RadioGroup1: TRadioGroup
    Left = 536
    Top = 8
    Width = 97
    Height = 305
    Anchors = [akTop, akRight]
    Caption = 'Select class:'
    Items.Strings = (
      'A_Delaunay'
      'A_Voronoi'
      'B_Delaunay'
      'B_Voronoi'
      'F_Delaunay'
      'F_Voronoi'
      'G_Delaunay'
      'G_Voronoi'
      'K_Delaunay'
      'K_Voronoi'
      'M_Delaunay'
      'M_Voronoi'
      'O_Delaunay'
      'O_Voronoi')
    TabOrder = 0
    OnClick = RadioGroup1Click
  end
  object DBGrid1: TDBGrid
    Left = 8
    Top = 55
    Width = 522
    Height = 281
    Anchors = [akLeft, akTop, akRight, akBottom]
    DataSource = DataSource1
    ReadOnly = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = clWindowText
    TitleFont.Height = -11
    TitleFont.Name = 'Tahoma'
    TitleFont.Style = []
  end
  object RadioGroup2: TRadioGroup
    Left = 8
    Top = 8
    Width = 522
    Height = 41
    Anchors = [akLeft, akTop, akRight]
    Caption = 'Tables:'
    Columns = 5
    TabOrder = 2
    OnClick = RadioGroup2Click
  end
  object FDConnection1: TFDConnection
    Left = 280
    Top = 288
  end
  object FDQuery1: TFDQuery
    Connection = FDConnection1
    Left = 360
    Top = 288
  end
  object FDPhysSQLiteDriverLink1: TFDPhysSQLiteDriverLink
    Left = 464
    Top = 288
  end
  object DataSource1: TDataSource
    DataSet = FDQuery2
    Left = 464
    Top = 240
  end
  object FDQuery2: TFDQuery
    Connection = FDConnection1
    Left = 360
    Top = 240
  end
end