object fmTransporter: TfmTransporter Left = 369 Top = 555 BorderStyle = bsDialog Caption = 'Transporter' ClientHeight = 49 ClientWidth = 301 Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] FormStyle = fsStayOnTop PopupMenu = PopupMenu1 OnCreate = FormCreate OnDblClick = FormDblClick OnKeyDown = FormKeyDown OnKeyUp = FormKeyUp OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label3: TLabel Left = 6 Top = 31 Width = 18 Height = 14 Caption = 'Left' Font.Charset = DEFAULT_CHARSET Font.Color = clSilver Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsItalic] ParentFont = False Transparent = True end object labelRight: TLabel Left = 100 Top = 31 Width = 26 Height = 14 Caption = 'Right' Font.Charset = DEFAULT_CHARSET Font.Color = clSilver Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsItalic] ParentFont = False Transparent = True end object LabelPos: TLabel Left = 199 Top = 31 Width = 27 Height = 14 Alignment = taRightJustify AutoSize = False Caption = 'Pos' Color = clSilver Font.Charset = DEFAULT_CHARSET Font.Color = clSilver Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsItalic] ParentColor = False ParentFont = False Transparent = True end object labelMassiva: TRotateLabel Left = 210 Top = 4 Width = 83 Height = 24 Escapement = 0 TextStyle = tsRaised Caption = 'Massiva' Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -21 Font.Name = 'Arial' Font.Style = [fsBold] ParentColor = False ParentFont = False ParentShowHint = False ShowHint = False Transparent = True end object led: TPanel Left = 169 Top = 94 Width = 25 Height = 20 BevelOuter = bvLowered TabOrder = 0 end object editRight: TEditNew Left = 133 Top = 31 Width = 60 Height = 14 TabStop = False BorderStyle = bsNone Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 1 Text = '0001:01:001' OnKeyDown = editRightKeyDown OnKeyPress = editRightKeyPress FocusColor = clBlack FocusFontColor = clWhite NoFocusColor = clBlack NoFocusFontColor = clWhite end object editLeft: TEditNew Left = 30 Top = 31 Width = 64 Height = 13 TabStop = False BorderStyle = bsNone Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False TabOrder = 2 Text = '0001:01:001' OnKeyDown = editLeftKeyDown OnKeyPress = editLeftKeyPress FocusColor = clBlack FocusFontColor = clWhite NoFocusColor = clBlack NoFocusFontColor = clWhite end object PanelRec: TPanel Left = 65 Top = 6 Width = 25 Height = 20 Caption = 'PanelRec' Color = clBlack TabOrder = 3 object iconRec: TImage Left = 1 Top = 1 Width = 23 Height = 18 Hint = '[*] Record' Align = alClient Center = True ParentShowHint = False Picture.Data = {} ShowHint = True OnClick = iconRecClick OnMouseDown = iconRecMouseDown OnMouseUp = iconRecMouseUp end end object panelStop: TPanel Left = 37 Top = 6 Width = 25 Height = 20 BevelOuter = bvNone Caption = 'panelStop' Color = clBlack TabOrder = 4 object iconStop: TImage Left = 0 Top = 0 Width = 25 Height = 20 Hint = '[0 or space] Stop' Align = alClient Center = True ParentShowHint = False Picture.Data = {} ShowHint = True OnClick = iconStopClick end end object panelPlay: TPanel Left = 7 Top = 6 Width = 25 Height = 20 Caption = 'panelPlay' Color = clBlack TabOrder = 5 object iconPlay: TImage Left = 1 Top = 1 Width = 23 Height = 18 Hint = '[Return] Play' Align = alClient Center = True ParentShowHint = False Picture.Data = {} ShowHint = True OnClick = iconPlayClick OnMouseDown = iconPlayMouseDown OnMouseUp = iconPlayMouseUp end end object panelRewerse: TPanel Left = 121 Top = 6 Width = 25 Height = 20 Caption = 'panelRewerse' Color = clBlack TabOrder = 6 object Image1: TImage Left = 1 Top = 1 Width = 23 Height = 18 Hint = '[PgDown] Rewerse' Align = alClient Center = True ParentShowHint = False Picture.Data = {} ShowHint = True OnMouseDown = Image1MouseDown OnMouseUp = Image1MouseUp end end object panelForward: TPanel Left = 149 Top = 6 Width = 25 Height = 20 Caption = 'panelForward' Color = clBlack TabOrder = 7 object Image2: TImage Left = 1 Top = 1 Width = 23 Height = 18 Hint = '[PgUp] Forward' Align = alClient Center = True ParentShowHint = False Picture.Data = {} ShowHint = True OnMouseDown = Image2MouseDown OnMouseUp = Image2MouseUp end end object labelPosition: TEditNew Left = 231 Top = 31 Width = 60 Height = 14 Hint = 'Double click to toggle time on/off' TabStop = False BorderStyle = bsNone Color = clBlack Font.Charset = DEFAULT_CHARSET Font.Color = clWhite Font.Height = -11 Font.Name = 'Arial' Font.Style = [fsBold] ParentFont = False ParentShowHint = False ReadOnly = True ShowHint = True TabOrder = 8 Text = '0001:01:001' OnDblClick = labelPositionDblClick OnKeyDown = labelPositionKeyDown FocusColor = clBlack FocusFontColor = clWhite NoFocusColor = clBlack NoFocusFontColor = clWhite end object panelHome: TPanel Left = 93 Top = 6 Width = 25 Height = 20 Caption = 'panelForward' Color = clBlack TabOrder = 9 object iconHome: TImage Left = 1 Top = 1 Width = 23 Height = 18 Hint = '[Home] Start of song' Align = alClient Center = True ParentShowHint = False Picture.Data = {} ShowHint = True OnClick = iconHomeClick OnMouseDown = iconHomeMouseDown OnMouseUp = iconHomeMouseUp end end object panelEnd: TPanel Left = 177 Top = 6 Width = 25 Height = 20 Caption = 'panelForward' Color = clBlack TabOrder = 10 object IconEnd: TImage Left = 1 Top = 1 Width = 23 Height = 18 Hint = '[End] End of song' Align = alClient Center = True ParentShowHint = False Picture.Data = {} ShowHint = True OnClick = IconEndClick OnMouseDown = IconEndMouseDown OnMouseUp = IconEndMouseUp end end object PopupMenu1: TPopupMenu OnPopup = PopupMenu1Popup Left = 328 Top = 200 object Showtime1: TMenuItem Caption = 'Show time' OnClick = Showtime1Click end object N1: TMenuItem Caption = '-' end object Hide1: TMenuItem Caption = 'Hide' OnClick = Hide1Click end end end