object PreferDlg: TPreferDlg Left = 213 Top = 134 BorderStyle = bsDialog Caption = 'Preferences' ClientHeight = 189 ClientWidth = 394 Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] Icon.Data = {} Position = poScreenCenter OnActivate = FormActivate OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object ButtonPanel: TPanel Left = 308 Top = 0 Width = 86 Height = 171 Align = alRight BevelOuter = bvNone ParentShowHint = False ShowHint = True TabOrder = 0 object Bevel1: TBevel Left = 0 Top = 0 Width = 2 Height = 171 Align = alLeft end object okbtn: TButton Left = 11 Top = 10 Width = 66 Height = 22 Caption = '&Ok' Default = True ModalResult = 1 TabOrder = 0 OnClick = OKBtnClick end object cancelbtn: TButton Left = 11 Top = 35 Width = 66 Height = 22 Cancel = True Caption = '&Cancel' ModalResult = 2 TabOrder = 1 end end object TabSet: TTabSet Left = 0 Top = 171 Width = 394 Height = 18 Align = alBottom Font.Color = clWindowText Font.Height = -7 Font.Name = 'MS Sans Serif' Font.Style = [] Tabs.Strings = ( 'General' 'Paths' 'Printing') TabIndex = 0 OnClick = TabSetClick end object Panel4: TPanel Left = 0 Top = 0 Width = 308 Height = 171 Align = alClient BevelOuter = bvNone ParentShowHint = False ShowHint = True TabOrder = 2 object Notebook: TNotebook Left = 0 Top = 0 Width = 308 Height = 171 Align = alClient TabOrder = 0 object TPage Left = 0 Top = 0 HelpContext = 1 Caption = 'General' object Label14: TLabel Left = 43 Top = 33 Width = 58 Height = 13 Alignment = taRightJustify Caption = 'Cell Size :' end object Label17: TLabel Left = 11 Top = 64 Width = 92 Height = 17 Alignment = taRightJustify AutoSize = False Caption = 'Main palette :' end object Label1: TLabel Left = 11 Top = 93 Width = 92 Height = 13 Alignment = taRightJustify AutoSize = False Caption = 'Unit :' end object SpeedButton1: TSpeedButton Left = 276 Top = 61 Width = 24 Height = 22 Caption = '...' OnClick = SpeedButton1Click end object unitcombo: TComboBox Left = 110 Top = 91 Width = 178 Height = 21 Hint = '|Select the unit used to display sizes in the main window' Style = csDropDownList ItemHeight = 13 Items.Strings = ( 'Centimeters' 'Millimeters' 'Inches' 'Stitches') TabOrder = 0 end object PaletteFile: TEdit Left = 110 Top = 61 Width = 165 Height = 21 CharCase = ecLowerCase MaxLength = 255 TabOrder = 1 end object Cellsize: TPanel Left = 110 Top = 29 Width = 55 Height = 21 BevelInner = bvLowered BevelOuter = bvLowered Caption = '17' Color = clWhite TabOrder = 2 end object SpinButton1: TSpinButton Left = 165 Top = 29 Width = 15 Height = 21 DownGlyph.Data = { DE000000424DDE00000000000000360000002800000009000000060000000100 180000000000A800000000000000000000000000000000000000007F7F007F7F 007F7F007F7F007F7F007F7F007F7F007F7F007F7F00007F7F007F7F007F7F00 7F7F000000007F7F007F7F007F7F007F7F00007F7F007F7F007F7F0000000000 00000000007F7F007F7F007F7F00007F7F007F7F000000000000000000000000 000000007F7F007F7F00007F7F00000000000000000000000000000000000000 0000007F7F00007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F 7F00} TabOrder = 3 UpGlyph.Data = { DE000000424DDE00000000000000360000002800000009000000060000000100 180000000000A800000000000000000000000000000000000000007F7F007F7F 007F7F007F7F007F7F007F7F007F7F007F7F007F7F00007F7F00000000000000 0000000000000000000000000000007F7F00007F7F007F7F0000000000000000 00000000000000007F7F007F7F00007F7F007F7F007F7F000000000000000000 007F7F007F7F007F7F00007F7F007F7F007F7F007F7F000000007F7F007F7F00 7F7F007F7F00007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F 7F00} OnDownClick = SpinButton1DownClick OnUpClick = SpinButton1UpClick end end object TPage Left = 0 Top = 0 HelpContext = 2 Caption = 'Paths' object Label20: TLabel Left = 29 Top = 2 Width = 110 Height = 17 AutoSize = False Caption = 'Program location' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label23: TLabel Left = 31 Top = 124 Width = 108 Height = 15 AutoSize = False Caption = 'Color files path' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label22: TLabel Left = 29 Top = 84 Width = 108 Height = 15 AutoSize = False Caption = 'Image files path' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label21: TLabel Left = 28 Top = 40 Width = 141 Height = 18 AutoSize = False Caption = 'Composition files path' Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object edit1: TEdit Left = 28 Top = 16 Width = 250 Height = 21 Hint = '|Path of DOTMAT.EXE and its related files' CharCase = ecLowerCase TabOrder = 0 end object edit2: TEdit Left = 28 Top = 58 Width = 250 Height = 21 Hint = 'Path where .DMC files can be found' CharCase = ecLowerCase TabOrder = 1 end object edit3: TEdit Left = 30 Top = 99 Width = 250 Height = 21 Hint = 'Path where BMP files can be found' CharCase = ecLowerCase TabOrder = 2 Text = 'edit3' end object edit4: TEdit Left = 32 Top = 141 Width = 250 Height = 21 Hint = 'Paths where .CLR files can be found' CharCase = ecLowerCase TabOrder = 3 Text = 'edit4' end end object TPage Left = 0 Top = 0 Caption = 'Printing' object Label8: TLabel Left = 35 Top = 26 Width = 97 Height = 13 Caption = 'Start printing at :' end object Label10: TLabel Left = 132 Top = 48 Width = 28 Height = 13 Caption = 'Hour' end object Label11: TLabel Left = 216 Top = 48 Width = 45 Height = 13 Caption = 'Minutes' end object Label13: TLabel Left = 216 Top = 89 Width = 45 Height = 13 Caption = 'Minutes' end object Label7: TLabel Left = 37 Top = 127 Width = 96 Height = 13 Caption = 'Language to use' end object Label12: TLabel Left = 132 Top = 89 Width = 28 Height = 13 Caption = 'Hour' end object Label9: TLabel Left = 32 Top = 68 Width = 92 Height = 13 Caption = 'End printing at :' end object Edit7: TEdit Left = 89 Top = 43 Width = 39 Height = 21 TabOrder = 0 end object Edit8: TEdit Left = 172 Top = 43 Width = 40 Height = 21 TabOrder = 1 end object Edit10: TEdit Left = 172 Top = 86 Width = 40 Height = 21 TabOrder = 2 end object language: TComboBox Left = 150 Top = 121 Width = 126 Height = 21 Hint = '|Sets the language the Print spooler will use' Style = csDropDownList ItemHeight = 13 Items.Strings = ( 'French' 'English') TabOrder = 3 end object Edit9: TEdit Left = 89 Top = 86 Width = 39 Height = 21 TabOrder = 4 end end end end object OpenDialog1: TOpenDialog FileEditStyle = fsEdit Left = 333 Top = 100 end end