Initial check in

2026-01-08 19:21:09 +01:00
commit ed86847030
7 changed files with 1995 additions and 0 deletions
@@ -0,0 +1,221 @@
+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