home *** CD-ROM | disk | FTP | other *** search
- object PrintMapDialog: TPrintMapDialog
- Left = 248
- Top = 141
- BorderStyle = bsDialog
- Caption = 'Ausdruck der Karte'
- ClientHeight = 368
- ClientWidth = 593
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- PixelsPerInch = 96
- OnCreate = FormCreate
- TextHeight = 13
- object GroupBox1: TGroupBox
- Left = 304
- Top = 8
- Width = 281
- Height = 321
- Caption = 'Texte und Schriftarten'
- TabOrder = 0
- object TitleFontLabel: TLabel
- Left = 24
- Top = 64
- Width = 3
- Height = 13
- end
- object HeaderFontLabel: TLabel
- Left = 24
- Top = 176
- Width = 3
- Height = 13
- end
- object FooterFontLabel: TLabel
- Left = 24
- Top = 288
- Width = 3
- Height = 13
- end
- object TitleEdit: TEdit
- Left = 24
- Top = 32
- Width = 249
- Height = 21
- TabOrder = 0
- Text = 'Titel (einzeilig)'
- OnExit = TitleEditExit
- end
- object TitleCheckBox: TCheckBox
- Left = 8
- Top = 16
- Width = 97
- Height = 17
- Caption = 'Titel anzeigen'
- State = cbChecked
- TabOrder = 1
- OnClick = TitleCheckBoxClick
- end
- object TitleFontButton: TButton
- Left = 200
- Top = 62
- Width = 75
- Height = 25
- Caption = 'Schriftart ...'
- TabOrder = 2
- OnClick = TitleFontButtonClick
- end
- object HeaderCheckBox: TCheckBox
- Left = 8
- Top = 88
- Width = 113
- Height = 17
- Caption = 'Kopfzeile anzeigen'
- State = cbChecked
- TabOrder = 3
- OnClick = HeaderCheckBoxClick
- end
- object HeaderFontButton: TButton
- Left = 200
- Top = 174
- Width = 75
- Height = 25
- Caption = 'Schriftart ...'
- TabOrder = 4
- OnClick = HeaderFontButtonClick
- end
- object FooterCheckBox: TCheckBox
- Left = 8
- Top = 200
- Width = 129
- Height = 17
- Caption = 'Fu�zeile anzeigen'
- State = cbChecked
- TabOrder = 5
- OnClick = FooterCheckBoxClick
- end
- object FooterFontButton: TButton
- Left = 200
- Top = 286
- Width = 75
- Height = 25
- Caption = 'Schriftart ...'
- TabOrder = 6
- OnClick = FooterFontButtonClick
- end
- object HeaderMemo: TMemo
- Left = 24
- Top = 104
- Width = 249
- Height = 65
- Lines.Strings = (
- 'Kopfzeile (mehrzeilig)')
- TabOrder = 7
- OnExit = TitleEditExit
- end
- object FooterMemo: TMemo
- Left = 24
- Top = 216
- Width = 249
- Height = 65
- Lines.Strings = (
- 'Fu�zeile (mehrzeilig)')
- TabOrder = 8
- OnExit = TitleEditExit
- end
- end
- object GroupBox2: TGroupBox
- Left = 8
- Top = 8
- Width = 289
- Height = 321
- Caption = 'Rand um den Kartenausschnitt in Millimetern'
- TabOrder = 1
- object Image1: TImage
- Left = 56
- Top = 48
- Width = 180
- Height = 243
- AutoSize = True
- Picture.Data = {<image000.bmp>}
- end
- object LeftEdit: TEdit
- Left = 8
- Top = 152
- Width = 41
- Height = 21
- TabOrder = 0
- OnExit = LeftEditExit
- end
- object TopEdit: TEdit
- Left = 120
- Top = 24
- Width = 41
- Height = 21
- TabOrder = 1
- OnExit = TopEditExit
- end
- object RightEdit: TEdit
- Left = 236
- Top = 152
- Width = 41
- Height = 21
- TabOrder = 2
- OnExit = RightEditExit
- end
- object BottomEdit: TEdit
- Left = 120
- Top = 288
- Width = 41
- Height = 21
- TabOrder = 3
- OnExit = BottomEditExit
- end
- object Button1: TButton
- Left = 8
- Top = 16
- Width = 89
- Height = 25
- Caption = 'Seite ausnutzen'
- TabOrder = 4
- OnClick = Button1Click
- end
- end
- object OKButton: TButton
- Left = 432
- Top = 336
- Width = 75
- Height = 25
- Caption = 'OK'
- ModalResult = 1
- TabOrder = 2
- OnClick = OKButtonClick
- end
- object CancelButton: TButton
- Left = 512
- Top = 336
- Width = 75
- Height = 25
- Caption = 'Abbrechen'
- ModalResult = 2
- TabOrder = 3
- end
- object TitleFontDialog: TFontDialog
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MinFontSize = 0
- MaxFontSize = 0
- Left = 312
- Top = 336
- end
- object HeaderFontDialog: TFontDialog
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MinFontSize = 0
- MaxFontSize = 0
- Left = 352
- Top = 336
- end
- object FooterFontDialog: TFontDialog
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- MinFontSize = 0
- MaxFontSize = 0
- Left = 392
- Top = 336
- end
- object PrinterSetupDialog1: TPrinterSetupDialog
- Left = 272
- Top = 336
- end
- end
-