Chip 1999 June/Chip_1999-06_cd.bin/tema/Diadema/Demo/setup.exe/Pantheon.csy/RCDATA/TPROHLIZENIARZAKAZEKFORM/TPROHLIZENIARZAKAZEKFORM.txt

Text File | 1999-04-22 | 6.9 KB | 280 lines

inherited ProhlizeniArZakazekForm: TProhlizeniArZakazekForm
  Left = 180
  Top = 138
  PixelsPerInch = 96
  TextHeight = 13
  inherited TopPanel: TPanel
    Top = 26
  end
  object ProhlizeniCoolBar: TCoolBar [2]
    Left = 0
    Top = 0
    Width = 593
    Height = 26
    Bands = <
      item
        Control = ToolBar1
        ImageIndex = -1
        MinHeight = 22
        Width = 589
      end>
    object ToolBar1: TToolBar
      Left = 0
      Top = 0
      Width = 585
      Height = 22
      Align = alBottom
      EdgeBorders = []
      EdgeInner = esNone
      EdgeOuter = esNone
      Flat = True
      HotImages = PomocneDM.BtnHotImages
      Images = PomocneDM.BtnImages
      TabOrder = 0
      object UkazatSBtn: TToolButton
        Left = 0
        Top = 0
        Width = 23
        Height = 22
        Hint = 'Prohl�en� objektu'
        Caption = 'Uk�zat'
        ImageIndex = 2
        ParentShowHint = False
        ShowHint = True
        OnClick = UkazatSBtnClick
      end
      object ObnovitSBtn: TToolButton
        Left = 23
        Top = 0
        Width = 23
        Height = 22
        Hint = 'P�esun zp�t do katalogu'
        Caption = 'Obnovit'
        ImageIndex = 16
        ParentShowHint = False
        ShowHint = True
        OnClick = ObnovitSBtnClick
      end
      object VymazatSBtn: TToolButton
        Left = 46
        Top = 0
        Width = 23
        Height = 22
        Hint = '�pln� vymaz�n�'
        Caption = 'Vymazat'
        ImageIndex = 3
        ParentShowHint = False
        ShowHint = True
        OnClick = VymazatSBtnClick
      end
      object ToolSep1: TToolButton
        Left = 69
        Top = 0
        Width = 8
        Height = 22
        Caption = 'ToolSep1'
        ImageIndex = -1
        Style = tbsDivider
      end
      object HledatSBtn: TToolButton
        Left = 77
        Top = 0
        Width = 23
        Height = 22
        Hint = 'Hledat zak�zku'#13#10'podle ��sla'
        Caption = 'Hledat'
        ImageIndex = 4
        ParentShowHint = False
        ShowHint = True
        OnClick = HledatSBtnClick
      end
      object FiltrovatSBtn: TToolButton
        Left = 100
        Top = 0
        Width = 23
        Height = 22
        Hint = 'Pou��t filtr'
        Caption = 'Filtrovat'
        ImageIndex = 5
        ParentShowHint = False
        ShowHint = True
        OnClick = FiltrovatSBtnClick
      end
      object ZrusitFiltrovaniSBtn: TToolButton
        Left = 123
        Top = 0
        Width = 23
        Height = 22
        Hint = 'Zru�it filtr'
        Caption = 'Zru�it filtr'
        ImageIndex = 6
        ParentShowHint = False
        ShowHint = True
        OnClick = ZrusitFiltrovaniBtnClick
      end
    end
  end
  inherited LeftPanel: TPanel
    Top = 48
    Height = 240
  end
  inherited BottomRightPanel: TPanel
    Top = 48
    Height = 240
    inherited DBGrid: TDrDBGrid
      Height = 168
      Columns = <
        item
          FieldName = 'CisloZakazky'
          PickList.Strings = ()
          Title.Caption = '��slo'
          Width = 41
        end
        item
          FieldName = 'Datum'
          PickList.Strings = ()
          Width = 60
        end
        item
          FieldName = 'TypObjektu'
          PickList.Strings = ()
          Title.Caption = 'Kategorie objektu'
          Width = 113
        end
        item
          Alignment = taRightJustify
          FieldName = 'DatumPresunu'
          PickList.Strings = ()
          Title.Caption = 'Datum p�esunu'
          Width = 80
        end
        item
          Alignment = taRightJustify
          FieldName = 'CasPresunu'
          PickList.Strings = ()
          Title.Caption = '�as p�esunu'
          Width = 69
        end
        item
          FieldName = 'FullUserName'
          PickList.Strings = ()
          Title.Caption = 'P�esun provedl (a)'
          Width = 169
        end
        item
          ButtonStyle = cbsEllipsis
          FieldName = 'CheckMark'
          PickList.Strings = ()
          Title.Caption = '�'
          Title.Font.Charset = SYMBOL_CHARSET
          Title.Font.Color = clWindowText
          Title.Font.Height = -13
          Title.Font.Name = 'Wingdings'
          Title.Font.Style = []
          Width = 15
        end>
    end
    inherited RightPanel: TPanel
      Height = 168
    end
    inherited BottomPanel: TPanel
      Top = 168
    end
  end
  inherited ZakazkyTbl: TTable
    Active = True
    TableName = 'AZakazky.DB'
    object ZakazkyTblFullUserName: TStringField
      DisplayWidth = 60
      FieldName = 'FullUserName'
      LookupDataSet = ArchInfoTbl
      LookupKeyFields = 'CisloZakazky'
      LookupResultField = 'FullUserName'
      KeyFields = 'CisloZakazky'
      Size = 60
      Lookup = True
    end
    object ZakazkyTblDatumPresunu: TDateField
      FieldName = 'DatumPresunu'
      LookupDataSet = ArchInfoTbl
      LookupKeyFields = 'CisloZakazky'
      LookupResultField = 'DatumPresunu'
      KeyFields = 'CisloZakazky'
      DisplayFormat = 'DD.MM.YYYY'
      Lookup = True
    end
    object ZakazkyTblCasPresunu: TTimeField
      FieldName = 'CasPresunu'
      LookupDataSet = ArchInfoTbl
      LookupKeyFields = 'CisloZakazky'
      LookupResultField = 'CasPresunu'
      KeyFields = 'CisloZakazky'
      DisplayFormat = 'HH:MM:SS'
      Lookup = True
    end
  end
  inherited ProhlizeniMenu: TMainMenu
    inherited AktZakazkaMnI: TMenuItem
      inherited _PridatMnI: TMenuItem
        Visible = False
      end
      inherited _EditovatMnI: TMenuItem
        Visible = False
      end
      object Obnoveni1MnI: TMenuItem [3]
        Caption = '&Obnovit zak�zku'
        OnClick = Obnoveni1MnIClick
      end
      object Vymazani1MnI: TMenuItem [4]
        Caption = 'O&dstranit zak�zku'
        OnClick = Vymazani1MnIClick
      end
    end
    inherited OperaceMnI: TMenuItem
      object VymazaniMnI: TMenuItem [1]
        Caption = 'O&dstranit zak�zky'
        OnClick = VymazaniMnIClick
      end
      object N2: TMenuItem [2]
        Caption = '-'
      end
      object ObnoveniMnI: TMenuItem
        Caption = 'Obnoven�'
        OnClick = ObnoveniMnIClick
      end
    end
    inherited NastrojeMni: TMenuItem
      inherited PrejmenovatMnI: TMenuItem
        OnClick = PrejmenovatMnIClick
      end
    end
  end
  object ArchInfoTbl: TTable
    Active = True
    OnCalcFields = ArchInfoTblCalcFields
    DatabaseName = 'RealityDB'
    IndexFieldNames = 'CisloZakazky'
    TableName = 'ArchInfo.db'
    Left = 504
    Top = 112
    object ArchInfoTblCisloZakazky: TStringField
      FieldName = 'CisloZakazky'
      Size = 30
    end
    object ArchInfoTblDatumPresunu: TDateField
      FieldName = 'DatumPresunu'
    end
    object ArchInfoTblCasPresunu: TTimeField
      FieldName = 'CasPresunu'
    end
    object ArchInfoTblUzivatel: TStringField
      FieldName = 'Uzivatel'
    end
    object ArchInfoTblFullUserName: TStringField
      FieldName = 'FullUserName'
      Size = 60
      Calculated = True
    end
  end
end