Files
bds.fx2.tri/src.tri/main.dfm
T
2026-01-08 19:21:09 +01:00

222 lines
5.4 KiB
ObjectPascal

object frmMain: TfrmMain
Left = 0
Top = 0
Margins.Left = 6
Margins.Top = 6
Margins.Right = 6
Margins.Bottom = 6
Caption = 'Trinity bizgentyu'
ClientHeight = 994
ClientWidth = 1670
Color = clBtnFace
Constraints.MinHeight = 536
Constraints.MinWidth = 851
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -24
Font.Name = 'Segoe UI'
Font.Style = []
Position = poScreenCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
OnShow = FormShow
PixelsPerInch = 192
DesignSize = (
1670
994)
TextHeight = 32
object tvItems: TVirtualStringTree
Left = 11
Top = 11
Width = 1648
Height = 294
Margins.Left = 6
Margins.Top = 6
Margins.Right = 6
Margins.Bottom = 6
Anchors = [akLeft, akTop, akRight]
DefaultNodeHeight = 40
Header.AutoSizeIndex = 5
Header.Height = 38
Header.MaxHeight = 20000
Header.MinHeight = 20
Header.Options = [hoColumnResize, hoDrag, hoShowSortGlyphs, hoVisible, hoAutoSpring]
Indent = 36
Margin = 8
TabOrder = 0
TextMargin = 8
TreeOptions.PaintOptions = [toShowButtons, toShowDropmark, toShowTreeLines, toThemeAware, toUseBlendedImages, toFullVertGridLines, toUseExplorerTheme]
TreeOptions.SelectionOptions = [toFullRowSelect, toSelectNextNodeOnRemoval]
OnFreeNode = tvItemsFreeNode
OnGetText = tvItemsGetText
Touch.InteractiveGestures = [igPan, igPressAndTap]
Touch.InteractiveGestureOptions = [igoPanSingleFingerHorizontal, igoPanSingleFingerVertical, igoPanInertia, igoPanGutter, igoParentPassthrough]
Columns = <
item
Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus, coUseCaptionAlignment, coEditable, coStyleColor]
Position = 0
Spacing = 4
Text = 'Name'
Width = 200
end
item
Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus, coUseCaptionAlignment, coEditable, coStyleColor]
Position = 1
Spacing = 4
Text = 'VID'
Width = 120
end
item
Options = [coAllowClick, coDraggable, coEnabled, coParentBidiMode, coParentColor, coResizable, coShowDropMark, coVisible, coAllowFocus, coUseCaptionAlignment, coEditable, coStyleColor]
Position = 2
Spacing = 4
Text = 'PID'
Width = 120
end
item
Position = 3
Spacing = 4
Text = 'Functions'
Width = 400
end
item
Position = 4
Spacing = 4
Text = 'Serial'
Width = 150
end
item
Position = 5
Spacing = 4
Text = 'Description'
Width = 400
end
item
Position = 6
Spacing = 4
Text = 'Location'
Width = 200
end>
end
object pcFunctions: TPageControl
Left = 12
Top = 318
Width = 1646
Height = 664
Margins.Left = 6
Margins.Top = 6
Margins.Right = 6
Margins.Bottom = 6
ActivePage = tsFirmware
Anchors = [akLeft, akTop, akRight, akBottom]
TabOrder = 1
object tsFirmware: TTabSheet
Margins.Left = 6
Margins.Top = 6
Margins.Right = 6
Margins.Bottom = 6
Caption = 'Firmware'
object Button1: TButton
Left = 1072
Top = 28
Width = 86
Height = 50
Margins.Left = 6
Margins.Top = 6
Margins.Right = 6
Margins.Bottom = 6
Caption = '...'
TabOrder = 0
OnClick = Button1Click
end
object StaticText1: TStaticText
Left = 32
Top = 38
Width = 120
Height = 36
Margins.Left = 6
Margins.Top = 6
Margins.Right = 6
Margins.Bottom = 6
Caption = 'StaticText1'
TabOrder = 1
end
object ebFirmware: TEdit
Left = 288
Top = 34
Width = 772
Height = 40
Margins.Left = 6
Margins.Top = 6
Margins.Right = 6
Margins.Bottom = 6
TabOrder = 2
end
object btnDownload: TButton
Left = 1184
Top = 28
Width = 150
Height = 50
Margins.Left = 6
Margins.Top = 6
Margins.Right = 6
Margins.Bottom = 6
Caption = 'Download'
TabOrder = 3
OnClick = btnDownloadClick
end
object Button2: TButton
Left = 1056
Top = 272
Width = 150
Height = 50
Margins.Left = 6
Margins.Top = 6
Margins.Right = 6
Margins.Bottom = 6
Caption = 'Refresh'
TabOrder = 4
OnClick = Button2Click
end
end
object tsIIC: TTabSheet
Margins.Left = 6
Margins.Top = 6
Margins.Right = 6
Margins.Bottom = 6
Caption = 'tsIIC'
ImageIndex = 1
end
end
object Button3: TButton
Left = 640
Top = 480
Width = 150
Height = 50
Margins.Left = 6
Margins.Top = 6
Margins.Right = 6
Margins.Bottom = 6
Caption = 'Button3'
TabOrder = 2
OnClick = Button3Click
end
object Button4: TButton
Left = 640
Top = 592
Width = 150
Height = 50
Margins.Left = 6
Margins.Top = 6
Margins.Right = 6
Margins.Bottom = 6
Caption = 'Button4'
TabOrder = 3
OnClick = Button4Click
end
object od: TOpenDialog
Left = 1088
Top = 192
end
end