home *** CD-ROM | disk | FTP | other *** search
- object ZalohaForm: TZalohaForm
- Left = 200
- Top = 104
- BorderStyle = bsDialog
- Caption = 'Z�loha datov�ch soubor�'
- ClientHeight = 241
- ClientWidth = 475
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Position = poScreenCenter
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object DiskImg: TImage
- Left = 144
- Top = 32
- Width = 32
- Height = 32
- Picture.Data = {<image000.ico>}
- end
- object DisketaImg: TImage
- Left = 144
- Top = 72
- Width = 32
- Height = 32
- Picture.Data = {<image001.ico>}
- end
- object FolderImg: TImage
- Left = 144
- Top = 112
- Width = 32
- Height = 32
- Picture.Data = {<image002.ico>}
- end
- object BrowseBtn: TSpeedButton
- Left = 446
- Top = 140
- Width = 21
- Height = 21
- Hint = 'Vybrat slo�ku'
- Enabled = False
- Flat = True
- Glyph.Data = {
- F6000000424DF600000000000000760000002800000010000000100000000100
- 0400000000008000000000000000000000001000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
- 6666000000000006666600333333333066660B033333333306660FB033333333
- 30660BFB0333333333060FBFB000000000000BFBFBFBFB0666660FBFBFBFBF06
- 66660BFB00000006666660006666666600066666666666666006666666660666
- 0606666666666000666666666666666666666666666666666666}
- ParentShowHint = False
- ShowHint = True
- OnClick = BrowseBtnClick
- end
- object NadpisLbl: TLabel
- Left = 144
- Top = 8
- Width = 313
- Height = 13
- Caption = 'Vyberte slo�ku nebo za��zen�, kam se m� ulo�it z�loha.'
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object DisketaRB: TRadioButton
- Left = 184
- Top = 80
- Width = 113
- Height = 17
- Caption = '&Disketa 3,5 " - A:\'
- TabOrder = 1
- OnClick = FolderRBClick
- end
- object DiskRB: TRadioButton
- Left = 184
- Top = 40
- Width = 281
- Height = 17
- Checked = True
- TabOrder = 0
- TabStop = True
- OnClick = FolderRBClick
- end
- object StartBtn: TButton
- Left = 392
- Top = 208
- Width = 75
- Height = 25
- Caption = 'Start!'
- Default = True
- TabOrder = 5
- OnClick = StartBtnClick
- end
- object StornoBtn: TButton
- Left = 312
- Top = 208
- Width = 75
- Height = 25
- Caption = 'Storno'
- ModalResult = 2
- TabOrder = 4
- end
- object FolderRB: TRadioButton
- Left = 184
- Top = 120
- Width = 73
- Height = 17
- Caption = '&Jin� slo�ka'
- TabOrder = 2
- OnClick = FolderRBClick
- end
- object PathEdit: TEdit
- Left = 200
- Top = 140
- Width = 241
- Height = 21
- Enabled = False
- TabOrder = 3
- OnChange = PathEditChange
- end
- object ImgPanel: TPanel
- Left = 8
- Top = 8
- Width = 123
- Height = 225
- BevelOuter = bvNone
- BorderStyle = bsSingle
- TabOrder = 6
- object Image: TImage
- Left = 0
- Top = 0
- Width = 119
- Height = 221
- Align = alClient
- AutoSize = True
- Picture.Data = {<image003.bmp>}
- end
- end
- object CABWriter: TCabinetWriter
- FailOnIncompressible = False
- OnFileStatus = CABWriterFileStatus
- OnGetNextCabinet = CABWriterGetNextCabinet
- FileHandler = FileHandler
- Left = 520
- Top = 8
- end
- object FileHandler: TStreamCabinetFileHandler
- Left = 520
- Top = 64
- end
- end
-