222 lines
5.4 KiB
ObjectPascal
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
|