home *** CD-ROM | disk | FTP | other *** search
- object DocPropForm: TDocPropForm
- Left = 615
- Top = 167
- BorderIcons = [biSystemMenu, biMinimize, biMaximize, biHelp]
- BorderStyle = bsDialog
- Caption = 'Label properties'
- ClientHeight = 363
- ClientWidth = 348
- Color = clBtnFace
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- OldCreateOrder = True
- Position = poScreenCenter
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnShow = FormShow
- PixelsPerInch = 96
- TextHeight = 13
- object OKBtn: TButton
- Left = 184
- Top = 336
- Width = 75
- Height = 23
- HelpContext = 40547
- Caption = 'OK'
- Default = True
- ModalResult = 1
- TabOrder = 0
- OnClick = OKBtnClick
- end
- object CancelBtn: TButton
- Left = 264
- Top = 336
- Width = 75
- Height = 23
- HelpContext = 40570
- Cancel = True
- Caption = 'Cancel'
- ModalResult = 2
- TabOrder = 1
- end
- object PageControl1: TPageControl
- Left = 8
- Top = 8
- Width = 336
- Height = 321
- ActivePage = LabelTabSheet
- TabOrder = 2
- object GeneralTabSheet: TTabSheet
- Caption = 'General'
- object TrackNrCheckBox: TCheckBox
- Left = 8
- Top = 24
- Width = 145
- Height = 17
- HelpContext = 40550
- Caption = 'Show track numbers'
- TabOrder = 0
- Visible = False
- end
- object PrintHelpLinesCheckBox: TCheckBox
- Left = 8
- Top = 8
- Width = 121
- Height = 17
- HelpContext = 40560
- Caption = 'Print subsidiary lines'
- TabOrder = 1
- end
- end
- object FontTabSheet: TTabSheet
- Caption = 'Fonts'
- object Label1: TLabel
- Left = 8
- Top = 8
- Width = 313
- Height = 49
- AutoSize = False
- Caption = 'These settings change the text elements in all three views.'
- WordWrap = True
- end
- object ArtistFontLabel: TLabel
- Left = 104
- Top = 69
- Width = 209
- Height = 13
- AutoSize = False
- Caption = 'ArtistFontLabel'
- end
- object TitleFontLabel: TLabel
- Left = 104
- Top = 101
- Width = 209
- Height = 13
- AutoSize = False
- Caption = 'TitleFontLabel'
- end
- object TrackFontLabel: TLabel
- Left = 104
- Top = 133
- Width = 209
- Height = 13
- AutoSize = False
- Caption = 'TrackFontLabel'
- end
- object EdgeFontLabel: TLabel
- Left = 104
- Top = 165
- Width = 209
- Height = 13
- AutoSize = False
- Caption = 'EdgeFontLabel'
- end
- object DirFontLabel: TLabel
- Left = 104
- Top = 197
- Width = 209
- Height = 13
- AutoSize = False
- Caption = 'DirFontLabel'
- end
- object Button1: TButton
- Left = 8
- Top = 64
- Width = 87
- Height = 23
- HelpContext = 40580
- Caption = '&Author...'
- TabOrder = 0
- OnClick = EditFontButton
- end
- object Button2: TButton
- Tag = 1
- Left = 8
- Top = 96
- Width = 87
- Height = 23
- HelpContext = 40590
- Caption = '&Title...'
- TabOrder = 1
- OnClick = EditFontButton
- end
- object Button3: TButton
- Tag = 2
- Left = 8
- Top = 128
- Width = 87
- Height = 23
- HelpContext = 40600
- Caption = '&Tracks...'
- TabOrder = 2
- OnClick = EditFontButton
- end
- object Button4: TButton
- Tag = 3
- Left = 8
- Top = 160
- Width = 87
- Height = 23
- HelpContext = 40610
- Caption = '&Side...'
- TabOrder = 3
- OnClick = EditFontButton
- end
- object SaveFontAsDefaultBtn: TButton
- Left = 16
- Top = 264
- Width = 137
- Height = 23
- HelpContext = 40620
- Caption = 'Save as default'
- TabOrder = 4
- OnClick = SaveFontAsDefaultBtnClick
- end
- object RestoreDefaultFontsBtn: TButton
- Left = 160
- Top = 264
- Width = 137
- Height = 23
- HelpContext = 40516
- Caption = 'Restore default'
- TabOrder = 5
- OnClick = RestoreDefaultFontsBtnClick
- end
- object Button7: TButton
- Tag = 4
- Left = 8
- Top = 192
- Width = 87
- Height = 23
- HelpContext = 40514
- Caption = '&Directory...'
- TabOrder = 6
- OnClick = EditFontButton
- end
- end
- object LabelTabSheet: TTabSheet
- Caption = 'Labels'
- object Label2: TLabel
- Left = 8
- Top = 16
- Width = 35
- Height = 13
- Caption = '&Format:'
- FocusControl = LabelTypeComboBox
- end
- object Label3: TLabel
- Left = 16
- Top = 152
- Width = 21
- Height = 13
- Caption = 'Left:'
- end
- object Label4: TLabel
- Left = 16
- Top = 176
- Width = 22
- Height = 13
- Caption = 'Top:'
- end
- object Label14: TLabel
- Left = 8
- Top = 136
- Width = 40
- Height = 13
- Caption = 'Position:'
- end
- object Panel1: TPanel
- Left = 167
- Top = 17
- Width = 141
- Height = 191
- HelpContext = 40526
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Color = clWhite
- TabOrder = 0
- object LabelPaintBox: TPaintBox
- Left = 0
- Top = 0
- Width = 137
- Height = 187
- Align = alClient
- OnPaint = LabelPaintBoxPaint
- end
- end
- object LabelTypeComboBox: TComboBox
- Left = 8
- Top = 32
- Width = 145
- Height = 21
- HelpContext = 40630
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 1
- OnChange = LabelTypeComboBoxChange
- Items.Strings = (
- 'CD-Wizard labels'
- 'Boeder labels'
- 'PressIt labels'
- 'Rimage Printer'
- 'Zweckform labels'
- 'user defined')
- end
- object LeftPosLabelEdit: TFloatEdit
- Left = 56
- Top = 149
- Width = 55
- Height = 21
- HelpContext = 40522
- DisplayFormat = '0.00, cm;(0.00, cm)'
- TabOrder = 2
- Value = 12
- OnChange = LeftPosLabelEditChange
- OnKeyDown = LeftPosLabelEditKeyDown
- end
- object UpDown1: TUpDown
- Left = 112
- Top = 149
- Width = 16
- Height = 21
- HelpContext = 40640
- Min = 0
- Position = 12
- TabOrder = 3
- Visible = False
- Wrap = False
- end
- object TopPosLabelEdit: TFloatEdit
- Left = 56
- Top = 173
- Width = 55
- Height = 21
- HelpContext = 40523
- DisplayFormat = '0.00, cm;(0.00, cm)'
- TabOrder = 4
- Value = 12
- OnChange = TopPosLabelEditChange
- OnKeyDown = LeftPosLabelEditKeyDown
- end
- object GroupBox1: TGroupBox
- Left = 8
- Top = 200
- Width = 154
- Height = 67
- Caption = 'Diameter'
- TabOrder = 5
- object Label5: TLabel
- Left = 8
- Top = 16
- Width = 39
- Height = 13
- Caption = 'Outside:'
- end
- object Label6: TLabel
- Left = 8
- Top = 40
- Width = 31
- Height = 13
- Caption = 'Inside:'
- end
- object OuterDiameterLabelEdit: TFloatEdit
- Left = 80
- Top = 12
- Width = 52
- Height = 21
- HelpContext = 40524
- DisplayFormat = '0.00, cm;(0.00, cm)'
- TabOrder = 0
- Value = 12
- OnChange = OuterDiameterLabelEditChange
- OnKeyDown = LeftPosLabelEditKeyDown
- end
- object UpDown3: TUpDown
- Left = 133
- Top = 12
- Width = 15
- Height = 21
- HelpContext = 40650
- Min = 0
- Position = 0
- TabOrder = 1
- Visible = False
- Wrap = False
- end
- object InnerDiameterLabelEdit: TFloatEdit
- Left = 80
- Top = 36
- Width = 52
- Height = 21
- HelpContext = 40525
- DisplayFormat = '0.00, cm;(0.00, cm)'
- TabOrder = 2
- Value = 1.500000000000000000
- OnChange = InnerDiameterLabelEditChange
- OnKeyDown = LeftPosLabelEditKeyDown
- end
- object UpDown4: TUpDown
- Left = 133
- Top = 36
- Width = 15
- Height = 21
- HelpContext = 40660
- Min = 0
- Position = 0
- TabOrder = 3
- Visible = False
- Wrap = False
- end
- end
- object UpDown2: TUpDown
- Left = 112
- Top = 173
- Width = 16
- Height = 21
- Min = 0
- Position = 12
- TabOrder = 6
- Visible = False
- Wrap = False
- end
- object PositionGroup: TGroupBox
- Left = 8
- Top = 56
- Width = 153
- Height = 73
- HelpContext = 40521
- Caption = 'Position'
- TabOrder = 7
- object LabelTopRadioButton: TRadioButton
- Tag = 1
- Left = 8
- Top = 14
- Width = 113
- Height = 17
- HelpContext = 40670
- Caption = 'Top'
- TabOrder = 0
- OnClick = LabelPositionClick
- end
- object LabelMiddleRadioButton: TRadioButton
- Tag = 2
- Left = 8
- Top = 30
- Width = 113
- Height = 17
- HelpContext = 40680
- Caption = 'Middle'
- TabOrder = 1
- OnClick = LabelPositionClick
- end
- object LabelBottomRadioButton: TRadioButton
- Tag = 3
- Left = 8
- Top = 46
- Width = 113
- Height = 17
- HelpContext = 40690
- Caption = 'Bottom'
- TabOrder = 2
- OnClick = LabelPositionClick
- end
- end
- end
- object InlayTabSheet: TTabSheet
- Caption = 'Inlay'
- object Label7: TLabel
- Left = 8
- Top = 16
- Width = 35
- Height = 13
- Caption = '&Format:'
- FocusControl = LabelTypeComboBox
- end
- object Panel2: TPanel
- Left = 167
- Top = 17
- Width = 145
- Height = 185
- HelpContext = 40537
- BevelOuter = bvNone
- BorderStyle = bsSingle
- Color = clWhite
- TabOrder = 0
- Visible = False
- object InlayPaintBox: TPaintBox
- Left = 0
- Top = 0
- Width = 141
- Height = 181
- Align = alClient
- OnPaint = LabelPaintBoxPaint
- end
- end
- object InlayFormatComboBox: TComboBox
- Left = 8
- Top = 32
- Width = 145
- Height = 21
- HelpContext = 40700
- Style = csDropDownList
- ItemHeight = 13
- TabOrder = 1
- OnChange = InlayFormatComboBoxChange
- Items.Strings = (
- 'CD-Wizard Inlay'
- 'User defined')
- end
- object GroupBox2: TGroupBox
- Left = 8
- Top = 64
- Width = 151
- Height = 97
- Caption = 'Front'
- TabOrder = 2
- object Label8: TLabel
- Left = 16
- Top = 33
- Width = 21
- Height = 13
- Caption = 'Left:'
- end
- object Label9: TLabel
- Left = 16
- Top = 56
- Width = 22
- Height = 13
- Caption = 'Top:'
- end
- object Label10: TLabel
- Left = 8
- Top = 16
- Width = 40
- Height = 13
- Caption = 'Position:'
- end
- object InlayFrontLeftFloatEdit: TFloatEdit
- Left = 64
- Top = 28
- Width = 53
- Height = 21
- HelpContext = 40531
- DisplayFormat = '0.00, cm;(0.00, cm)'
- TabOrder = 0
- Value = 12
- OnChange = LeftPosLabelEditChange
- end
- object UpDown5: TUpDown
- Left = 119
- Top = 28
- Width = 16
- Height = 21
- HelpContext = 40710
- Min = 0
- Position = 12
- TabOrder = 1
- Visible = False
- Wrap = False
- end
- object UpDown6: TUpDown
- Left = 119
- Top = 52
- Width = 16
- Height = 21
- HelpContext = 40720
- Min = 0
- Position = 12
- TabOrder = 2
- Visible = False
- Wrap = False
- end
- object InlayFrontTopFloatEdit: TFloatEdit
- Left = 64
- Top = 52
- Width = 53
- Height = 21
- HelpContext = 40532
- DisplayFormat = '0.00, cm;(0.00, cm)'
- TabOrder = 3
- Value = 12
- OnChange = TopPosLabelEditChange
- end
- object InlayTopFoldableCheckBox: TCheckBox
- Left = 8
- Top = 74
- Width = 113
- Height = 17
- HelpContext = 40730
- Caption = 'Foldable Inlay'
- TabOrder = 4
- end
- end
- object GroupBox3: TGroupBox
- Left = 8
- Top = 168
- Width = 151
- Height = 116
- Caption = 'Back'
- TabOrder = 3
- object Label11: TLabel
- Left = 16
- Top = 32
- Width = 21
- Height = 13
- Caption = 'Left:'
- end
- object Label12: TLabel
- Left = 16
- Top = 55
- Width = 22
- Height = 13
- Caption = 'Top:'
- end
- object Label13: TLabel
- Left = 8
- Top = 16
- Width = 40
- Height = 13
- Caption = 'Position:'
- end
- object InlayBackLeftFloatEdit: TFloatEdit
- Left = 64
- Top = 28
- Width = 55
- Height = 21
- HelpContext = 40534
- DisplayFormat = '0.00, cm;(0.00, cm)'
- TabOrder = 0
- Value = 12
- OnChange = LeftPosLabelEditChange
- end
- object UpDown7: TUpDown
- Left = 120
- Top = 28
- Width = 16
- Height = 21
- HelpContext = 40740
- Min = 0
- Position = 12
- TabOrder = 1
- Visible = False
- Wrap = False
- end
- object UpDown8: TUpDown
- Left = 120
- Top = 52
- Width = 16
- Height = 21
- HelpContext = 40750
- Min = 0
- Position = 12
- TabOrder = 2
- Visible = False
- Wrap = False
- end
- object InlayBackTopFloatEdit: TFloatEdit
- Left = 64
- Top = 52
- Width = 55
- Height = 21
- HelpContext = 40535
- DisplayFormat = '0.00, cm;(0.00, cm)'
- TabOrder = 3
- Value = 12
- OnChange = TopPosLabelEditChange
- end
- object InlayBackPrintOnFrontCheckBox: TExtCheckBox
- Left = 8
- Top = 80
- Width = 137
- Height = 31
- HelpContext = 40536
- CheckAlignment = caTop
- Caption = 'Print back and front on the same paper.'
- TabOrder = 4
- end
- end
- end
- end
- object FontDialog: TFontDialog
- Font.Charset = DEFAULT_CHARSET
- Font.Color = clWindowText
- Font.Height = -11
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Device = fdBoth
- MinFontSize = 2
- MaxFontSize = 0
- Options = [fdEffects, fdScalableOnly]
- Left = 12
- Top = 328
- end
- end
-