home *** CD-ROM | disk | FTP | other *** search
- object frmTisk: TfrmTisk
- Left = 187
- Top = 130
- HelpContext = 23
- BorderStyle = bsDialog
- ClientHeight = 278
- ClientWidth = 408
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PopupMenu = popTisk
- OnActivate = FormActivate
- OnCreate = FormCreate
- PixelsPerInch = 96
- TextHeight = 13
- object PageControl1: TPageControl
- Left = 8
- Top = 8
- Width = 393
- Height = 233
- ActivePage = TabSheet2
- TabOrder = 0
- object TabSheet2: TTabSheet
- Caption = 'Tisk'
- object imgRadit2: TImage
- Left = 272
- Top = 264
- Width = 97
- Height = 41
- Picture.Data = {<image000.bmp>}
- Visible = False
- end
- object GroupBox1: TGroupBox
- Left = 8
- Top = 8
- Width = 225
- Height = 105
- Caption = 'Rozsah tisku'
- TabOrder = 0
- object Label1: TLabel
- Left = 88
- Top = 49
- Width = 15
- Height = 13
- Caption = 'od:'
- end
- object Label2: TLabel
- Left = 152
- Top = 49
- Width = 12
- Height = 13
- Caption = 'do'
- end
- object rdAll: TRadioButton
- Left = 16
- Top = 24
- Width = 65
- Height = 17
- Caption = 'v�e'
- Checked = True
- TabOrder = 0
- TabStop = True
- end
- object rdPages: TRadioButton
- Left = 16
- Top = 48
- Width = 65
- Height = 17
- Caption = 'str�nky'
- TabOrder = 1
- end
- object rdBlock: TRadioButton
- Left = 16
- Top = 72
- Width = 97
- Height = 17
- Caption = 'v�b�r'
- TabOrder = 2
- end
- object edtFrom: TEdit
- Left = 112
- Top = 45
- Width = 33
- Height = 21
- TabOrder = 3
- Text = '1'
- OnChange = edtFromChange
- end
- object edtTo: TEdit
- Left = 176
- Top = 45
- Width = 33
- Height = 21
- TabOrder = 4
- OnChange = edtToChange
- end
- end
- object GroupBox2: TGroupBox
- Left = 8
- Top = 120
- Width = 225
- Height = 57
- Caption = 'Kopie'
- TabOrder = 1
- object Label3: TLabel
- Left = 16
- Top = 27
- Width = 28
- Height = 13
- Caption = 'Po�et'
- end
- object edtKopii: TEdit
- Left = 80
- Top = 24
- Width = 33
- Height = 21
- TabOrder = 0
- Text = '1'
- end
- object UpDown1: TUpDown
- Left = 113
- Top = 24
- Width = 15
- Height = 21
- Associate = edtKopii
- Min = 1
- Max = 999
- Position = 1
- TabOrder = 1
- Wrap = False
- end
- end
- object chkPrintToFile: TCheckBox
- Left = 16
- Top = 184
- Width = 97
- Height = 17
- Caption = 'tisk do souboru'
- TabOrder = 2
- end
- end
- object TabSheet1: TTabSheet
- Caption = 'Nastaven�'
- object GroupBox9: TGroupBox
- Left = 8
- Top = 8
- Width = 369
- Height = 169
- Caption = 'Z�hlav� a z�pat�'
- TabOrder = 0
- object Label8: TLabel
- Left = 16
- Top = 24
- Width = 39
- Height = 13
- Caption = 'Z�hlav�:'
- end
- object Label10: TLabel
- Left = 16
- Top = 64
- Width = 34
- Height = 13
- Caption = 'Z�pat�:'
- end
- object Label11: TLabel
- Left = 16
- Top = 120
- Width = 75
- Height = 13
- Caption = 'N�zev souboru:'
- end
- object Label4: TLabel
- Left = 160
- Top = 44
- Width = 3
- Height = 13
- end
- object Label5: TLabel
- Left = 160
- Top = 84
- Width = 3
- Height = 13
- end
- object cmbZahlavi: TComboBox
- Left = 16
- Top = 40
- Width = 121
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- '��dn�'
- 'datum'
- 'n�zev souboru'
- 'datum + n�zev souboru'
- 'n�zev souboru + datum'
- 'vlastn� text')
- TabOrder = 0
- OnChange = cmbZahlaviChange
- end
- object cmbZapati: TComboBox
- Left = 16
- Top = 80
- Width = 121
- Height = 21
- Style = csDropDownList
- ItemHeight = 13
- Items.Strings = (
- '��dn�'
- '��slo str�nky'
- 'datum'
- 'n�zev souboru'
- 'datum + n�zev souboru'
- 'n�zev souboru + datum'
- 'vlastn� text')
- TabOrder = 1
- OnChange = cmbZapatiChange
- end
- object edtFileName: TEdit
- Left = 16
- Top = 136
- Width = 345
- Height = 21
- TabOrder = 2
- Text = 'edtFileName'
- end
- object Edit1: TEdit
- Left = 160
- Top = 40
- Width = 201
- Height = 21
- TabOrder = 3
- Visible = False
- end
- object Edit2: TEdit
- Left = 160
- Top = 80
- Width = 201
- Height = 21
- TabOrder = 4
- Visible = False
- end
- end
- end
- end
- object btnTisk1: TButton
- Left = 8
- Top = 248
- Width = 75
- Height = 25
- Caption = '&Tisk'
- Default = True
- TabOrder = 1
- OnClick = btnTisk1Click
- end
- object btnStorno: TButton
- Left = 328
- Top = 248
- Width = 75
- Height = 25
- Cancel = True
- Caption = '&Storno'
- TabOrder = 2
- OnClick = btnStornoClick
- end
- object btnOption: TButton
- Left = 168
- Top = 248
- Width = 75
- Height = 25
- Caption = '&Nastaven�...'
- TabOrder = 3
- OnClick = btnOptionClick
- end
- object btnTisk2: TButton
- Left = 88
- Top = 248
- Width = 75
- Height = 25
- Caption = 'N�&hled'
- TabOrder = 4
- OnClick = btnTisk1Click
- end
- object popTisk: TPopupMenu
- Left = 360
- Top = 8
- object Dalzloka1: TMenuItem
- Caption = 'Next page'
- ShortCut = 16418
- Visible = False
- OnClick = Dalzloka1Click
- end
- object Pedchozzloka1: TMenuItem
- Caption = 'Previous page'
- ShortCut = 16417
- Visible = False
- OnClick = Pedchozzloka1Click
- end
- end
- object RichPrinter1: TRichPrinter
- MarginTop = 29.999999999999990000
- MarginBottom = 25.000000000000000000
- MarginLeft = 25.000000000000000000
- MarginRight = 15.000000000000000000
- LogoWidth = 25.000000000000000000
- LogoHeight = 20.000000000000000000
- Header = '{$TITLE}'
- HeaderFormat = '>100'
- Footer = 'Page {$PAGE}'
- FooterFormat = '>100'
- PlainText = True
- Font_HeaderFooter.Charset = DEFAULT_CHARSET
- Font_HeaderFooter.Color = clBlack
- Font_HeaderFooter.Height = -42
- Font_HeaderFooter.Name = 'Courier New'
- Font_HeaderFooter.Style = []
- BorderOffset = 2.000000000000000000
- Options_Dialog = [poMargins]
- Left = 268
- Top = 5
- end
- object PrintDialog: TPrintDialog
- Left = 316
- end
- object FormStorage1: TFormStorage
- StoredProps.Strings = (
- 'PageControl1.ActivePage'
- 'cmbZahlavi.Text'
- 'cmbZapati.Text')
- Left = 292
- Top = 96
- end
- end
-