main.dfm

Timing system which communicates with a microcontroler based system

object frmMain: TfrmMain
  Left = 911
  Top = 269
  Width = 636
  Height = 520
  Caption = 'Dateitransfer f'#252'r Zeitnehmung'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = mnuMain
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 447
    Width = 628
    Height = 19
    Panels = <>
  end
  object Data: TAdvStringGrid
    Left = 0
    Top = 0
    Width = 628
    Height = 447
    Cursor = crDefault
    Align = alClient
    ColCount = 6
    DefaultColWidth = 100
    DefaultRowHeight = 21
    RowCount = 20
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Tahoma'
    Font.Style = []
    Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected]
    ParentFont = False
    ScrollBars = ssBoth
    TabOrder = 1
    ActiveCellFont.Charset = DEFAULT_CHARSET
    ActiveCellFont.Color = clWindowText
    ActiveCellFont.Height = -11
    ActiveCellFont.Name = 'Tahoma'
    ActiveCellFont.Style = [fsBold]
    SearchFooter.FindNextCaption = 'Find next'
    SearchFooter.FindPrevCaption = 'Find previous'
    SearchFooter.HighLightCaption = 'Highlight'
    SearchFooter.HintClose = 'Close'
    SearchFooter.HintFindNext = 'Find next occurence'
    SearchFooter.HintFindPrev = 'Find previous occurence'
    SearchFooter.HintHighlight = 'Highlight occurences'
    SearchFooter.MatchCaseCaption = 'Match case'
    PrintSettings.DateFormat = 'dd/mm/yyyy'
    PrintSettings.Font.Charset = DEFAULT_CHARSET
    PrintSettings.Font.Color = clWindowText
    PrintSettings.Font.Height = -11
    PrintSettings.Font.Name = 'MS Sans Serif'
    PrintSettings.Font.Style = []
    PrintSettings.FixedFont.Charset = DEFAULT_CHARSET
    PrintSettings.FixedFont.Color = clWindowText
    PrintSettings.FixedFont.Height = -11
    PrintSettings.FixedFont.Name = 'MS Sans Serif'
    PrintSettings.FixedFont.Style = []
    PrintSettings.HeaderFont.Charset = DEFAULT_CHARSET
    PrintSettings.HeaderFont.Color = clWindowText
    PrintSettings.HeaderFont.Height = -11
    PrintSettings.HeaderFont.Name = 'MS Sans Serif'
    PrintSettings.HeaderFont.Style = []
    PrintSettings.FooterFont.Charset = DEFAULT_CHARSET
    PrintSettings.FooterFont.Color = clWindowText
    PrintSettings.FooterFont.Height = -11
    PrintSettings.FooterFont.Name = 'MS Sans Serif'
    PrintSettings.FooterFont.Style = []
    PrintSettings.PageNumSep = '/'
    FixedColWidth = 100
    FixedFont.Charset = DEFAULT_CHARSET
    FixedFont.Color = clWindowText
    FixedFont.Height = -11
    FixedFont.Name = 'Tahoma'
    FixedFont.Style = [fsBold]
    FloatFormat = '%.2f'
    ColumnHeaders.Strings = (
      'Datensatz'
      'Lauftyp'
      'Startnummer'
      'Laufzeit'
      'Fehler'
      'Verweigerung')
    Filter = <>
    Version = '3.3.0.4'
    object pBar: TRzProgressBar
      Left = 0
      Top = 419
      Width = 624
      Align = alBottom
      BarStyle = bsLED
      BorderWidth = 0
      InteriorOffset = 1
      NumSegments = 100
      PartsComplete = 0
      Percent = 0
      ShowPercent = False
      TotalParts = 0
      Visible = False
    end
    object Label1: TLabel
      Left = 96
      Top = 312
      Width = 460
      Height = 33
      Caption = 'Taste "0" an der Zeitnehmung dr'#252'cken'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -27
      Font.Name = 'Tahoma'
      Font.Style = []
      ParentFont = False
      Visible = False
    end
  end
  object mnuMain: TMainMenu
    Left = 344
    Top = 8
    object mnuDatei: TMenuItem
      Caption = '&Datei'
      object mnuDatei_Get: TMenuItem
        Caption = '&Uebertragen'
        OnClick = mnuDatei_GetClick
      end
      object mnuDatei_Save: TMenuItem
        Caption = '&Speichern'
        OnClick = mnuDatei_SaveClick
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object mnuDatei_End: TMenuItem
        Caption = '&Beenden'
        OnClick = mnuDatei_EndClick
      end
    end
    object mnuSet: TMenuItem
      Caption = '&Einstellungen'
      object mnuSet_Parameter: TMenuItem
        Caption = '&Parameter'
        OnClick = mnuSet_ParameterClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object mnuSet_Save: TMenuItem
        Caption = '&Speichern'
        OnClick = mnuSet_SaveClick
      end
      object mnuSet_Load: TMenuItem
        Caption = '&Laden'
        OnClick = mnuSet_LoadClick
      end
    end
    object mnuHelp: TMenuItem
      Caption = '&Hilfe'
      object mnuHelp_Info: TMenuItem
        Caption = '&Info'
      end
    end
  end
  object Timer1: TTimer
    Interval = 100
    OnTimer = Timer1Timer
    Left = 544
    Top = 24
  end
  object Serial1: TSerial
    COMPort = 1
    ThreadPriority = tpNormal
    Active = False
    Baudrate = 19200
    DataBits = db_8
    ParityBit = none
    StopBits = sb_1
    BufSizeTrm = 16384
    BufSizeRec = 16384
    HandshakeRtsCts = False
    HandshakeDtrDsr = False
    HandshakeXOnXOff = False
    RTSActive = False
    DTRActive = False
    XOnChar = #17
    XOffChar = #19
    XOffLimit = 8192
    XOnLimit = 512
    ErrorChar = '?'
    EofChar = #26
    EventChar = #10
    DataSize = 0
    ContinueOnXOff = False
    UseErrorChar = False
    EliminateNullChar = False
    AbortOnError = False
    RecTimeOut = 0
    TrmTimeOut = 0
    SyncEventHandling = False
    EnableEvents = True
    SyncWait = True
    OnEventChar = Serial1EventChar
    Left = 248
    Top = 64
  end
  object SerStdDlg1: TSerStdDlg
    Serial = Serial1
    Left = 368
    Top = 80
  end
  object AdvGridExcelIO1: TAdvGridExcelIO
    AdvStringGrid = Data
    Options.ExportOverwriteMessage = 'File %s already exists'#13'Ok to overwrite ?'
    UseUnicode = False
    Left = 400
    Top = 176
  end
end