Changeset 479

 implementation
 uses
+  IOUtils,
   dm_user,
   frm_main,
   frm_genre_tree,
     Exit;
   FullName := ExtractRelativePath(FRootPath, flFiles.LastDir + F.Name);
-  FileName := ExtractShortFileName(F.Name);
+  FileName := TPath.GetFileNameWithoutExtension(F.Name);
   Path := ExtractRelativePath(FRootPath, flFiles.LastDir);
   ParentNode := FindParentInTree(Tree, Path);

 implementation
 uses
+  IOUtils,
   EncdDecd,
   jpeg,
   pngimage,
   if FEditorMode then
   begin
-    FBD.Load(Folder, ExtractShortFileName(FBookrecord.FileName), FBookrecord.FileExt);
+    FBD.Load(Folder, TPath.GetFileNameWithoutExtension(FBookrecord.FileName), FBookrecord.FileExt);
     alFBDAuthors.Items := FBD.GetAuthors(atlFBD);
     with FBD.Publisher do
     begin

     procedure tvGenresChange(Sender: TBaseVirtualTree; Node: PVirtualNode);
     //
-    // ��� ��������� 4-� ������� ��������� � ��������� �� �������� ��������
-    // ��! ������ �������������� ������ ������ ���������
     //
-    procedure tvAuthorsPaintText(Sender: TBaseVirtualTree; const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType);
     //
-    //
-    //
     procedure tvBooksTreeBeforeCellPaint(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex; CellPaintMode:
TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
     procedure tvBooksTreeAfterCellPaint(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex; CellRect: TRect);
   ReadINIData;
-  CreateDir(Settings.TempDir);
+  TDirectory.CreateDirectory(Settings.TempDir);
-  CreateDir(Settings.DataDir);
+  TDirectory.CreateDirectory(Settings.DataDir);
   SetColumns;
   SetHeaderPopUp;
   end;
 end;
-procedure TfrmMain.tvAuthorsPaintText(Sender: TBaseVirtualTree; const TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType);
-begin
-  if Sender.Selected[Node] then
-    TargetCanvas.Font.Color := clWhite;
-end;
 procedure TfrmMain.tvBooksTreeBeforeCellPaint(Sender: TBaseVirtualTree; TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex; CellPaintMode:
TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
 var
   Data: PBookData;
   SaveDeviceDir := Settings.DeviceDir;
   SaveFolderTemplate := Settings.FolderTemplate;
   // dlgFolder.Directory := Settings.DeviceDir;
-  ScriptID := (Sender as TComponent).tag;
+  ScriptID := (Sender as TComponent).Tag;
   if isFB2Collection(DMUser.ActiveCollection.CollectionType) then
   begin
   Dec(ScriptID, 901);
   if (ScriptID < 1) and (Settings.PromptDevicePath) then
-    // if not dlgFolder.Execute then
+  begin
     if not GetFolderName(Handle, '������� ����', AFolder) then
       Exit
     else
         ����������� ���� �������
         }
       Settings.DeviceDir := AFolder;
+  end;
   if ScriptID >= 0 then
   begin
     begin
       StrReplace('%FOLDER ', '', TMPParams);
       p := Pos('%', TMPParams);
-      S := copy(TMPParams, 1, p - 1);
+      S := Copy(TMPParams, 1, p - 1);
       Settings.DeviceDir := S;
       Delete(TMPParams, 1, p);
     end;
-    if (Settings.Scripts[ScriptID].Path = '%COPY%') and (trim(TMPParams) <> '') then
+    if (Settings.Scripts[ScriptID].Path = '%COPY%') and (Trim(TMPParams) <> '') then
       Settings.DeviceDir := Trim(TMPParams);
     Settings.Scripts[ScriptID].TMPParams := TMPParams;
   end;
   if ActiveView <> FavoritesView then
-    unit_ExportToDevice.ExportToDevice(dmCollection.ActiveTable, BookIDList, ExportMode, Files)
+    unit_ExportToDevice.ExportToDevice(DMCollection.ActiveTable, BookIDList, ExportMode, Files)
   else
     unit_ExportToDevice.ExportToDevice(DMUser.tblGrouppedBooks, BookIDList, ExportMode, Files);
 procedure TfrmMain.tbtnShowCoverClick(Sender: TObject);
 var
-  Visible: Boolean;
+  ShowCover: Boolean;
 begin
   Settings.ShowInfoPanel := not Settings.ShowInfoPanel;
   // or (Settings.ShowInfoPanel and isNonFB2Collection(DMUser.ActiveCollection.CollectionType)
   // and Settings.AllowMixed));
-  Visible := Settings.ShowInfoPanel;
+  ShowCover := Settings.ShowInfoPanel;
-  SetCoversVisible(Visible);
+  SetCoversVisible(ShowCover);
-  if Visible then
+  if ShowCover then
     tvBooksTreeChange(nil, nil);
 end;
     if ActiveView <> FavoritesView then
     begin
+      //
       // ���� ����� ���� � ��������� - ��������������
+      //
       if DMUser.tblGrouppedBooks.Locate('DataBaseID;OuterID;', VarArrayOf([DMUser.ActiveCollection.ID, Data.ID]), []) then
       begin
         DMUser.tblGrouppedBooks.Edit;
         DMUser.tblGrouppedBooksCode.Value := Table.FieldByName('Code').AsInteger;
         DMUser.tblGrouppedBooks.Post;
+        { TODO -oNickR -cBug : #46 - � ������� User.Extra ��� ���� ID }
         if DMUser.tblExtra.Locate(ID_FIELD, DMUser.tblGrouppedBooksID.Value, []) then
         begin
           case Table.FieldByName('Code').AsInteger of
           0:
             if dmCollection.tblExtra.RecordCount <> 0 then
               dmCollection.tblExtra.Delete;
           1:
             begin
               dmCollection.tblExtra.Edit;
 end;
 procedure TfrmMain.N34Click(Sender: TObject);
+var
+  dirPath: string;
 begin
-  if DirectoryExists(Settings.ReadDir) then
+  dirPath := ExcludeTrailingPathDelimiter(Settings.ReadPath);
-    ClearDir(Settings.ReadDir);
+  if DirectoryExists(dirPath) then
+    ClearDir(dirPath);
 end;
 procedure TfrmMain.miEditToolbarVisibleClick(Sender: TObject);

   Left = 0
   Top = 0
   HelpContext = 144
-  BorderStyle = bsToolWindow
+  BorderStyle = bsDialog
   Caption = #1053#1072#1089#1090#1088#1086#1081#1082#1080
-  ClientHeight = 470
+  ClientHeight = 505
-  ClientWidth = 611
+  ClientWidth = 617
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
   Font.Color = clWindowText
   OnShow = FormShow
   PixelsPerInch = 96
   TextHeight = 13
-  object RzPanel1: TRzPanel
-    AlignWithMargins = True
-    Left = 3
-    Top = 418
-    Width = 605
-    Height = 49
-    Align = alBottom
-    BorderOuter = fsFlatRounded
-    TabOrder = 0
-    object btnSave: TRzBitBtn
-      Left = 362
-      Top = 11
-      Width = 110
-      Height = 28
-      Caption = #1057#1086#1093#1088#1072#1085#1080#1090#1100
-      TabOrder = 0
-      OnClick = btnSaveClick
-      Kind = bkOK
-    end
-    object btnCancel: TRzBitBtn
-      Left = 482
-      Top = 11
-      Width = 110
-      Height = 28
-      Caption = #1053#1077' '#1089#1086#1093#1088#1072#1085#1103#1090#1100
-      TabOrder = 1
-      Kind = bkCancel
-    end
-    object btnHelp: TRzBitBtn
-      Left = 9
-      Top = 11
-      Width = 110
-      Height = 28
-      Caption = #1057#1087#1088#1072#1074#1082#1072
-      TabOrder = 2
-      OnClick = btnHelpClick
-      Kind = bkHelp
-    end
-  end
   object pcSetPages: TPageControl
     AlignWithMargins = True
-    Left = 194
+    Left = 159
     Top = 3
-    Width = 414
+    Width = 455
-    Height = 409
+    Height = 458
-    ActivePage = tsBehavour
+    ActivePage = tsInternet
     Align = alClient
-    TabOrder = 1
+    TabOrder = 0
     object tsDevices: TTabSheet
       HelpContext = 143
       Caption = 'tsDevices'
       TabVisible = False
-      ExplicitLeft = 0
+      object pnDeviceOptions: TPanel
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
-      object RzGroupBox3: TRzGroupBox
         AlignWithMargins = True
         Left = 3
-        Top = 191
+        Top = 61
-        Width = 400
+        Width = 441
-        Height = 142
+        Height = 356
         Align = alTop
-        Caption = #1060#1086#1088#1084#1072#1090' '#1080#1084#1077#1085#1080
+        BevelOuter = bvNone
-        TabOrder = 0
+        ShowCaption = False
-        object Label5: TLabel
+        TabOrder = 1
-          Left = 20
+        object Label16: TLabel
-          Top = 29
+          AlignWithMargins = True
-          Width = 38
+          Left = 3
+          Top = 3
+          Width = 435
           Height = 13
-          Alignment = taRightJustify
+          Align = alTop
-          Caption = #1055#1072#1087#1082#1072': '
+          Caption = #1059#1089#1090#1088#1086#1081#1089#1090#1074#1086
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'Tahoma'
+          Font.Style = [fsBold]
+          ParentFont = False
+          ExplicitWidth = 68
         end
-        object Label6: TLabel
+        object pnDeviceDir: TPanel
-          Left = 25
+          Left = 0
-          Top = 64
+          Top = 19
-          Width = 33
+          Width = 441
-          Height = 13
+          Height = 71
-          Alignment = taRightJustify
+          Align = alTop
-          Caption = #1060#1072#1081#1083': '
+          AutoSize = True
+          BevelOuter = bvNone
+          ShowCaption = False
+          TabOrder = 0
+          DesignSize = (
+            441
+            71)
+          object Label14: TLabel
+            AlignWithMargins = True
+            Left = 9
+            Top = 3
+            Width = 429
+            Height = 13
+            Margins.Left = 9
+            Align = alTop
+            Caption = #1055#1072#1087#1082#1072' '#1085#1072' '#1091#1089#1090#1088#1086#1081#1089#1090#1074#1077' '
+            Font.Charset = DEFAULT_CHARSET
+            Font.Color = clWindowText
+            Font.Height = -11
+            Font.Name = 'Tahoma'
+            Font.Style = [fsBold]
+            ParentFont = False
+            ExplicitWidth = 126
+          end
+          object btnDeviceDir: TButton
+            Left = 359
+            Top = 46
+            Width = 75
+            Height = 25
+            Anchors = [akTop, akRight]
+            Caption = #1042#1099#1073#1088#1072#1090#1100
+            TabOrder = 2
+            OnClick = SelectFolder
+          end
+          object cbPromptPath: TCheckBox
+            AlignWithMargins = True
+            Left = 15
+            Top = 22
+            Width = 423
+            Height = 20
+            Margins.Left = 15
+            Align = alTop
+            Caption = #1057#1087#1088#1072#1096#1080#1074#1072#1090#1100' '#1087#1091#1090#1100' '#1082#1072#1078#1076#1099#1081' '#1088#1072#1079
+            TabOrder = 0
+            WordWrap = True
+            OnClick = cbPromptPathClick
+          end
+          object edDeviceDir: TMHLAutoCompleteEdit
+            Left = 15
+            Top = 48
+            Width = 338
+            Height = 21
+            Anchors = [akLeft, akTop, akRight]
+            TabOrder = 1
+          end
         end
-        object cbTranslit: TCheckBox
+        object pnFileFormat: TPanel
-          Left = 20
+          Left = 0
-          Top = 96
+          Top = 90
-          Width = 294
+          Width = 441
-          Height = 27
+          Height = 52
-          Caption = #1058#1088#1072#1085#1089#1083#1080#1090#1077#1088#1072#1094#1080#1103' '#1080#1084#1077#1085' '#1087#1072#1087#1086#1082' '#1080' '#1092#1072#1081#1083#1086#1074
+          Align = alTop
+          AutoSize = True
+          BevelOuter = bvNone
+          ShowCaption = False
           TabOrder = 1
-          WordWrap = True
+          object Label17: TLabel
+            AlignWithMargins = True
+            Left = 9
+            Top = 9
+            Width = 429
+            Height = 13
+            Margins.Left = 9
+            Margins.Top = 9
+            Align = alTop
+            Caption = #1060#1086#1088#1084#1072#1090' '#1079#1072#1087#1080#1089#1080' '#1085#1072' '#1091#1089#1090#1088#1086#1081#1089#1090#1074#1086
+            Font.Charset = DEFAULT_CHARSET
+            Font.Color = clWindowText
+            Font.Height = -11
+            Font.Name = 'Tahoma'
+            Font.Style = [fsBold]
+            ParentFont = False
+            ExplicitWidth = 173
+          end
+          object rgDeviceFormat: TComboBox
+            AlignWithMargins = True
+            Left = 15
+            Top = 28
+            Width = 419
+            Height = 21
+            Margins.Left = 15
+            Margins.Right = 7
+            Align = alTop
+            Style = csDropDownList
+            ItemIndex = 0
+            TabOrder = 0
+            Text = '.fb2'
+            Items.Strings = (
+              '.fb2'
+              '.fb2.zip'
+              '.lrf '
+              '.txt'
+              '.epub'
+              '.pdf')
+          end
         end
-        object edFileNameTemplate: TRzButtonEdit
+        object pnNameFormat: TPanel
-          Left = 64
+          Left = 0
-          Top = 61
+          Top = 142
-          Width = 313
+          Width = 441
-          Height = 21
+          Height = 78
-          Text = '%n%t'
+          Align = alTop
-          ReadOnly = True
+          AutoSize = True
-          ReadOnlyColor = clWindow
+          BevelOuter = bvNone
-          TabOrder = 0
+          ShowCaption = False
-          AltBtnWidth = 15
-          ButtonWidth = 15
-          HideButtonsOnReadOnly = False
-          OnButtonClick = edFileNameTemplateButtonClick
-        end
-        object edFolderTemplate: TRzButtonEdit
-          Tag = 785
-          Left = 64
-          Top = 25
-          Width = 313
-          Height = 21
-          Text = '%f\%s'
-          ReadOnly = True
-          ReadOnlyColor = clWindow
           TabOrder = 2
-          AltBtnWidth = 15
+          DesignSize = (
-          ButtonWidth = 15
+            441
-          HideButtonsOnReadOnly = False
+            78)
-          OnButtonClick = edFolderTemplateButtonClick
+          object Label18: TLabel
+            AlignWithMargins = True
+            Left = 9
+            Top = 9
+            Width = 429
+            Height = 13
+            Margins.Left = 9
+            Margins.Top = 9
+            Align = alTop
+            Caption = #1060#1086#1088#1084#1072#1090' '#1080#1084#1077#1085#1080
+            Font.Charset = DEFAULT_CHARSET
+            Font.Color = clWindowText
+            Font.Height = -11
+            Font.Name = 'Tahoma'
+            Font.Style = [fsBold]
+            ParentFont = False
+            ExplicitWidth = 82
+          end
+          object Label19: TLabel
+            Left = 15
+            Top = 31
+            Width = 38
+            Height = 13
+            Alignment = taRightJustify
+            Caption = #1055#1072#1087#1082#1072': '
+          end
+          object Label20: TLabel
+            Left = 15
+            Top = 58
+            Width = 33
+            Height = 13
+            Alignment = taRightJustify
+            Caption = #1060#1072#1081#1083': '
+          end
+          object btnFolderTemplate: TButton
+            Left = 359
+            Top = 26
+            Width = 75
+            Height = 25
+            Anchors = [akTop, akRight]
+            Caption = #1048#1079#1084#1077#1085#1080#1090#1100
+            TabOrder = 1
+            OnClick = EditFolderTemplate
+          end
+          object btnFileNameTemplate: TButton
+            Left = 359
+            Top = 53
+            Width = 75
+            Height = 25
+            Anchors = [akTop, akRight]
+            Caption = #1048#1079#1084#1077#1085#1080#1090#1100
+            TabOrder = 3
+            OnClick = EditFileNameTemplate
+          end
+          object edFolderTemplate: TEdit
+            Left = 59
+            Top = 28
+            Width = 294
+            Height = 21
+            Anchors = [akLeft, akTop, akRight]
+            ReadOnly = True
+            TabOrder = 0
+            Text = '%f\%s'
+          end
+          object edFileNameTemplate: TEdit
+            Left = 59
+            Top = 55
+            Width = 294
+            Height = 21
+            Anchors = [akLeft, akTop, akRight]
+            ReadOnly = True
+            TabOrder = 2
+            Text = '%n%t'
+          end
         end
+        object pnOtherOpt: TPanel
+          Left = 0
+          Top = 220
+          Width = 441
+          Height = 109
+          Align = alTop
+          BevelOuter = bvNone
+          ShowCaption = False
+          TabOrder = 3
+          DesignSize = (
+            441
+            109)
+          object Label5: TLabel
+            AlignWithMargins = True
+            Left = 9
+            Top = 9
+            Width = 429
+            Height = 13
+            Margins.Left = 9
+            Margins.Top = 9
+            Align = alTop
+            Caption = #1055#1088#1086#1095#1080#1077
+            Font.Charset = DEFAULT_CHARSET
+            Font.Color = clWindowText
+            Font.Height = -11
+            Font.Name = 'Tahoma'
+            Font.Style = [fsBold]
+            ParentFont = False
+            ExplicitWidth = 42
+          end
+          object Label1: TLabel
+            Left = 15
+            Top = 65
+            Width = 81
+            Height = 13
+            Alignment = taRightJustify
+            Caption = #1050#1086#1076#1080#1088#1086#1074#1082#1072' TXT:'
+          end
+          object cbSquareFilter: TCheckBox
+            AlignWithMargins = True
+            Left = 15
+            Top = 28
+            Width = 423
+            Height = 27
+            Margins.Left = 15
+            Align = alTop
+            Caption = #1042#1082#1083#1102#1095#1080#1090#1100' '#1092#1080#1083#1100#1090#1088' "[ ... ]"'
+            TabOrder = 0
+            WordWrap = True
+          end
+          object cbTXTEncoding: TComboBox
+            Left = 102
+            Top = 62
+            Width = 332
+            Height = 21
+            Style = csDropDownList
+            Anchors = [akLeft, akTop, akRight]
+            ItemIndex = 0
+            TabOrder = 1
+            Text = 'UTF-8'
+            Items.Strings = (
+              'UTF-8'
+              'Windows-1251')
+          end
+        end
       end
-      object RzGroupBox4: TRzGroupBox
+      object pnReadDir: TPanel
         AlignWithMargins = True
         Left = 3
         Top = 3
-        Width = 400
+        Width = 441
-        Height = 69
+        Height = 46
+        Margins.Bottom = 9
         Align = alTop
-        Caption = #1055#1072#1087#1082#1072' '#1085#1072' '#1091#1089#1090#1088#1086#1081#1089#1090#1074#1077' '
+        AutoSize = True
-        TabOrder = 1
+        BevelOuter = bvNone
-        object edDeviceDir: TRzButtonEdit
+        ShowCaption = False
-          Left = 11
+        TabOrder = 0
-          Top = 18
+        DesignSize = (
-          Width = 374
+          441
-          Height = 21
+          46)
-          HelpContext = 5001
+        object Label15: TLabel
-          TabOrder = 0
+          AlignWithMargins = True
-          AltBtnWidth = 15
+          Left = 3
-          ButtonWidth = 15
+          Top = 3
-          OnButtonClick = edDeviceDirButtonClick
+          Width = 435
-        end
-        object cbPromptPath: TCheckBox
-          Left = 13
-          Top = 45
-          Width = 278
-          Height = 20
-          Caption = #1057#1087#1088#1072#1096#1080#1074#1072#1090#1100' '#1087#1091#1090#1100' '#1082#1072#1078#1076#1099#1081' '#1088#1072#1079
-          TabOrder = 1
-          WordWrap = True
-        end
-      end
-      object rgDeviceFormat: TRadioGroup
-        AlignWithMargins = True
-        Left = 3
-        Top = 135
-        Width = 400
-        Height = 50
-        Align = alTop
-        Caption = #1060#1086#1088#1084#1072#1090' '#1079#1072#1087#1080#1089#1080' '#1085#1072' '#1091#1089#1090#1088#1086#1081#1089#1090#1074#1086
-        Columns = 6
-        ItemIndex = 0
-        Items.Strings = (
-          '.fb2'
-          '.fb2.zip'
-          '.lrf '
-          '.txt'
-          '.epub'
-          '.pdf')
-        TabOrder = 2
-      end
-      object RzGroupBox5: TRzGroupBox
-        AlignWithMargins = True
-        Left = 3
-        Top = 339
-        Width = 400
-        Height = 57
-        Align = alClient
-        Caption = #1054#1087#1094#1080#1080
-        TabOrder = 3
-        object Label1: TLabel
-          Left = 181
-          Top = 26
-          Width = 77
           Height = 13
-          Alignment = taRightJustify
+          Align = alTop
-          Caption = #1050#1086#1076#1080#1088#1086#1074#1082#1072' TXT'
+          Caption = #1055#1072#1087#1082#1072' "'#1076#1083#1103' '#1095#1090#1077#1085#1080#1103'"'
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'Tahoma'
+          Font.Style = [fsBold]
+          ParentFont = False
+          ExplicitWidth = 118
         end
-        object cbSquareFilter: TCheckBox
+        object edReadDir: TMHLAutoCompleteEdit
-          Left = 11
+          Left = 9
-          Top = 20
+          Top = 23
-          Width = 150
+          Width = 344
-          Height = 27
+          Height = 21
-          Caption = #1042#1082#1083#1102#1095#1080#1090#1100' '#1092#1080#1083#1100#1090#1088' "[ ... ]"'
+          Anchors = [akLeft, akTop, akRight]
           TabOrder = 0
-          WordWrap = True
+          TextHint = #1048#1089#1087#1086#1083#1100#1079#1086#1074#1072#1090#1100' '#1087#1072#1087#1082#1091' '#1087#1086' '#1091#1084#1086#1083#1095#1072#1085#1080#1102
         end
-        object cbTXTEncoding: TRzComboBox
+        object btnSelectReadDir: TButton
-          Left = 264
+          Left = 359
-          Top = 23
+          Top = 21
-          Width = 121
+          Width = 75
-          Height = 21
+          Height = 25
+          Anchors = [akTop, akRight]
+          Caption = #1042#1099#1073#1088#1072#1090#1100
           TabOrder = 1
-          Text = 'UTF-8'
+          OnClick = SelectFolder
-          Items.Strings = (
-            'UTF-8'
-            'Windows-1251')
         end
       end
-      object RzGroupBox11: TRzGroupBox
-        AlignWithMargins = True
-        Left = 3
-        Top = 78
-        Width = 400
-        Height = 51
-        Align = alTop
-        Caption = #1055#1072#1087#1082#1072' "'#1076#1083#1103' '#1095#1090#1077#1085#1080#1103'"'
-        TabOrder = 4
-        object edReadDir: TRzButtonEdit
-          Left = 11
-          Top = 18
-          Width = 374
-          Height = 21
-          HelpContext = 5001
-          TabOrder = 0
-          AltBtnWidth = 15
-          ButtonWidth = 15
-          OnButtonClick = edDeviceDirButtonClick
-        end
-      end
     end
     object tsReaders: TTabSheet
       HelpContext = 137
       Caption = 'tsReaders'
       ImageIndex = 1
       TabVisible = False
-      ExplicitLeft = 0
+      object Label11: TLabel
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
-      object RzGroupBox8: TRzGroupBox
         AlignWithMargins = True
         Left = 3
         Top = 3
-        Width = 400
+        Width = 441
-        Height = 393
+        Height = 13
-        Align = alClient
+        Align = alTop
         Caption = #1058#1080#1087#1099' '#1092#1072#1081#1083#1086#1074' '#1080' '#1087#1088#1086#1089#1084#1086#1090#1088#1097#1080#1082#1080
-        TabOrder = 0
+        Font.Charset = DEFAULT_CHARSET
-        object lvReaders: TRzListView
+        Font.Color = clWindowText
-          Left = 6
+        Font.Height = -11
-          Top = 24
+        Font.Name = 'Tahoma'
-          Width = 379
+        Font.Style = [fsBold]
-          Height = 325
+        ParentFont = False
-          Columns = <
+        ExplicitWidth = 173
-            item
+      end
-              Caption = #1056#1072#1089#1096#1080#1088#1077#1085#1080#1077
+      object Panel1: TPanel
-              Width = 80
+        Left = 0
-            end
+        Top = 415
-            item
+        Width = 447
-              Caption = #1055#1091#1090#1100
+        Height = 33
-              Width = 265
+        Align = alBottom
-            end>
+        BevelOuter = bvNone
-          EditOnRowClick = True
+        ShowCaption = False
-          FillLastColumn = False
+        TabOrder = 1
-          FlatScrollBars = True
+        object btnAddExt: TButton
-          GridLines = True
+          Left = 3
-          ReadOnly = True
+          Top = 3
-          RowSelect = True
+          Width = 75
-          ShowWorkAreas = True
+          Height = 25
-          TabOrder = 2
+          Caption = #1044#1086#1073#1072#1074#1080#1090#1100
-          ViewStyle = vsReport
+          TabOrder = 0
-          OnDblClick = btnChangeExtClick
+          OnClick = btnAddExtClick
         end
-        object btnDeleteExt: TRzBitBtn
+        object btnChangeExt: TButton
-          Left = 312
+          Left = 84
-          Top = 355
+          Top = 3
-          Caption = #1059#1076#1072#1083#1080#1090#1100
+          Width = 75
-          TabOrder = 3
+          Height = 25
-          OnClick = btnDeleteExtClick
-        end
-        object btnChangeExt: TRzBitBtn
-          Left = 87
-          Top = 355
           Caption = #1048#1079#1084#1077#1085#1080#1090#1100
           TabOrder = 1
           OnClick = btnChangeExtClick
         end
-        object btnAddExt: TRzBitBtn
+        object btnDeleteExt: TButton
-          Left = 6
+          Left = 165
-          Top = 355
+          Top = 3
-          Caption = #1044#1086#1073#1072#1074#1080#1090#1100
+          Width = 75
-          TabOrder = 0
+          Height = 25
-          OnClick = btnAddExtClick
+          Caption = #1059#1076#1072#1083#1080#1090#1100
+          TabOrder = 2
+          OnClick = btnDeleteExtClick
         end
       end
+      object lvReaders: TListView
+        AlignWithMargins = True
+        Left = 3
+        Top = 22
+        Width = 441
+        Height = 390
+        Align = alClient
+        Columns = <
+          item
+            Caption = #1056#1072#1089#1096#1080#1088#1077#1085#1080#1077
+            Width = 80
+          end
+          item
+            AutoSize = True
+            Caption = #1055#1091#1090#1100
+          end>
+        ColumnClick = False
+        GridLines = True
+        HideSelection = False
+        ReadOnly = True
+        RowSelect = True
+        TabOrder = 0
+        ViewStyle = vsReport
+        OnDblClick = btnChangeExtClick
+      end
     end
     object tsInterface: TTabSheet
       HelpContext = 132
       Caption = 'tsInterface'
       ImageIndex = 2
       TabVisible = False
-      ExplicitLeft = 0
+      object Panel8: TPanel
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
-      object RzGroupBox6: TRzGroupBox
         AlignWithMargins = True
         Left = 3
         Top = 3
-        Width = 400
+        Width = 441
-        Height = 393
+        Height = 163
-        Align = alClient
+        Align = alTop
-        Caption = #1057#1087#1080#1089#1082#1080
+        AutoSize = True
+        BevelOuter = bvNone
+        ShowCaption = False
         TabOrder = 0
-        object Label9: TLabel
+        object Label31: TLabel
-          Left = 19
+          AlignWithMargins = True
-          Top = 45
+          Left = 3
-          Width = 138
+          Top = 3
+          Width = 435
           Height = 13
-          Caption = #1056#1072#1079#1084#1077#1088' '#1096#1088#1080#1092#1090#1072' '#1072#1085#1085#1086#1090#1072#1094#1080#1080' '
+          Align = alTop
+          Caption = #1064#1088#1080#1092#1090
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'Tahoma'
+          Font.Style = [fsBold]
+          ParentFont = False
+          ExplicitWidth = 40
         end
         object Label7: TLabel
-          Left = 24
+          Left = 9
-          Top = 15
+          Top = 25
-          Width = 133
+          Width = 134
           Height = 13
-          Caption = #1056#1072#1079#1084#1077#1088' '#1096#1088#1080#1092#1090#1072' '#1074' '#1089#1087#1080#1089#1082#1072#1093' '
+          Caption = #1056#1072#1079#1084#1077#1088' '#1096#1088#1080#1092#1090#1072' '#1074' '#1089#1087#1080#1089#1082#1072#1093':'
+          FocusControl = edFontSize
         end
-        object pnlASG: TRzPanel
+        object Label9: TLabel
-          Left = 24
+          Left = 9
-          Top = 97
+          Top = 52
-          Width = 350
+          Width = 139
+          Height = 13
+          Caption = #1056#1072#1079#1084#1077#1088' '#1096#1088#1080#1092#1090#1072' '#1072#1085#1085#1086#1090#1072#1094#1080#1080':'
+          FocusControl = edShortFontSize
+        end
+        object Button1: TButton
+          Left = 223
+          Top = 76
+          Width = 75
           Height = 25
-          BorderOuter = fsFlatBold
+          Caption = #1048#1079#1084#1077#1085#1080#1090#1100
-          Caption = #1057#1087#1080#1089#1086#1082' '#1072#1074#1090#1086#1088#1086#1074'/'#1057#1077#1088#1080#1081'/'#1046#1072#1085#1088#1086#1074
-          Color = clWhite
-          Font.Charset = DEFAULT_CHARSET
-          Font.Color = clWindowText
-          Font.Height = -11
-          Font.Name = 'Tahoma'
-          Font.Style = []
-          ParentFont = False
           TabOrder = 0
-          OnClick = pnlCAClick
+          OnClick = SetDefaultFontColor
         end
-        object pnlCT: TRzPanel
+        object pnDeletedFontColor: TPanel
-          Left = 24
+          Left = 9
-          Top = 128
+          Top = 138
-          Width = 174
+          Width = 208
           Height = 25
-          BorderOuter = fsFlatBold
+          BevelKind = bkFlat
-          Caption = #1050#1085#1080#1075#1072' '#1073#1077#1079' '#1089#1077#1088#1080#1080
+          BevelOuter = bvNone
+          Caption = #1059#1076#1072#1083#1077#1085#1085#1099#1077' '#1074' '#1086#1085#1083#1072#1081#1085' '#1073#1080#1073#1083#1080#1086#1090#1077#1082#1077
           Color = clWhite
           Font.Charset = DEFAULT_CHARSET
           Font.Color = clWindowText
           Font.Style = []
           ParentFont = False
           TabOrder = 1
-          OnClick = pnlCAClick
         end
-        object pnlBS: TRzPanel
+        object pnDownloadedFontColor: TPanel
-          Left = 204
+          Left = 9
-          Top = 128
+          Top = 107
-          Width = 170
+          Width = 208
           Height = 25
-          BorderOuter = fsFlatBold
+          BevelKind = bkFlat
-          Caption = #1050#1085#1080#1075#1072' '#1074#1085#1091#1090#1088#1080' '#1089#1077#1088#1080#1080
+          BevelOuter = bvNone
+          Caption = #1057#1082#1072#1095#1072#1085#1085#1099#1077' '#1082#1085#1080#1075#1080
           Color = clWhite
           Font.Charset = DEFAULT_CHARSET
           Font.Color = clWindowText
           Font.Style = []
           ParentFont = False
           TabOrder = 2
-          OnClick = pnlCAClick
         end
-        object pnlCS: TRzPanel
+        object edFontSize: TEdit
-          Left = 204
+          Left = 154
-          Top = 66
+          Top = 22
-          Width = 170
+          Width = 47
+          Height = 21
+          Alignment = taRightJustify
+          NumbersOnly = True
+          TabOrder = 3
+          Text = '10'
+          OnExit = CheckNumValue
+        end
+        object edShortFontSize: TEdit
+          Left = 154
+          Top = 49
+          Width = 47
+          Height = 21
+          Alignment = taRightJustify
+          NumbersOnly = True
+          TabOrder = 4
+          Text = '10'
+          OnExit = CheckNumValue
+        end
+        object udFontSize: TUpDown
+          Left = 201
+          Top = 22
+          Width = 16
+          Height = 21
+          Associate = edFontSize
+          Min = 6
+          Max = 20
+          Position = 10
+          TabOrder = 5
+        end
+        object udShortFontSize: TUpDown
+          Left = 201
+          Top = 49
+          Width = 16
+          Height = 21
+          Associate = edShortFontSize
+          Min = 6
+          Max = 20
+          Position = 10
+          TabOrder = 6
+        end
+        object pnDefaultFontColor: TPanel
+          Left = 9
+          Top = 76
+          Width = 208
           Height = 25
-          BorderOuter = fsFlatBold
+          BevelKind = bkFlat
-          Caption = #1057#1077#1088#1080#1103
+          BevelOuter = bvNone
+          Caption = #1062#1074#1077#1090' '#1096#1088#1080#1092#1090#1072' '#1089#1087#1080#1089#1082#1086#1074
           Color = clWhite
           Font.Charset = DEFAULT_CHARSET
           Font.Color = clWindowText
           Font.Height = -11
           Font.Name = 'Tahoma'
-          Font.Style = [fsBold]
+          Font.Style = []
           ParentFont = False
-          TabOrder = 3
+          TabOrder = 7
-          OnClick = pnlCAClick
         end
-        object pnlCA: TRzPanel
+        object btnDownloadedFontColor: TButton
-          Left = 24
+          Left = 223
-          Top = 66
+          Top = 107
-          Width = 174
+          Width = 75
           Height = 25
-          BorderOuter = fsFlatBold
+          Caption = #1048#1079#1084#1077#1085#1080#1090#1100
-          Caption = #1040#1074#1090#1086#1088
+          TabOrder = 8
-          Color = clWhite
+          OnClick = SetCustomFontColor
+        end
+        object btnDeletedFontColor: TButton
+          Left = 223
+          Top = 138
+          Width = 75
+          Height = 25
+          Caption = #1048#1079#1084#1077#1085#1080#1090#1100
+          TabOrder = 9
+          OnClick = SetCustomFontColor
+        end
+      end
+      object Panel10: TPanel
+        AlignWithMargins = True
+        Left = 3
+        Top = 172
+        Width = 441
+        Height = 189
+        Align = alTop
+        BevelOuter = bvNone
+        ShowCaption = False
+        TabOrder = 1
+        object Label32: TLabel
+          AlignWithMargins = True
+          Left = 3
+          Top = 3
+          Width = 435
+          Height = 13
+          Align = alTop
+          Caption = #1062#1074#1077#1090' '#1092#1086#1085#1072
           Font.Charset = DEFAULT_CHARSET
           Font.Color = clWindowText
           Font.Height = -11
           Font.Name = 'Tahoma'
           Font.Style = [fsBold]
           ParentFont = False
-          TabOrder = 4
+          ExplicitWidth = 63
-          OnClick = pnlCAClick
         end
-        object seShortFontSize: TRzSpinEdit
+        object btnCA: TButton
-          Left = 163
+          Left = 223
-          Top = 39
+          Top = 22
-          Width = 47
+          Width = 75
-          Height = 21
+          Height = 25
-          Max = 20.000000000000000000
+          Caption = #1048#1079#1084#1077#1085#1080#1090#1100
-          Min = 6.000000000000000000
+          TabOrder = 0
-          Value = 10.000000000000000000
+          OnClick = SetBackgroundColor
-          TabOrder = 5
         end
-        object seFontSize: TRzSpinEdit
+        object btnCS: TButton
-          Left = 163
+          Left = 223
-          Top = 12
+          Top = 53
-          Width = 47
+          Width = 75
-          Height = 21
+          Height = 25
-          Max = 20.000000000000000000
+          Caption = #1048#1079#1084#1077#1085#1080#1090#1100
-          Min = 6.000000000000000000
+          TabOrder = 1
-          Value = 10.000000000000000000
+          OnClick = SetBackgroundColor
-          TabOrder = 6
         end
-        object Button1: TButton
+        object btnASG: TButton
-          Left = 229
+          Left = 223
-          Top = 10
+          Top = 84
-          Width = 137
+          Width = 75
           Height = 25
-          Caption = #1062#1074#1077#1090' '#1096#1088#1080#1092#1090#1072
+          Caption = #1048#1079#1084#1077#1085#1080#1090#1100
-          TabOrder = 7
+          TabOrder = 2
-          OnClick = Button1Click
+          OnClick = SetBackgroundColor
         end
-        object pnlDwnld: TRzPanel
+        object pnASG: TPanel
-          Left = 24
+          Left = 9
-          Top = 185
+          Top = 84
-          Width = 174
+          Width = 208
           Height = 25
-          BorderOuter = fsFlatBold
+          BevelKind = bkFlat
-          Caption = #1057#1082#1072#1095#1072#1085#1085#1099#1077
+          BevelOuter = bvNone
+          Caption = #1057#1087#1080#1089#1086#1082' '#1072#1074#1090#1086#1088#1086#1074'/'#1057#1077#1088#1080#1081'/'#1046#1072#1085#1088#1086#1074
           Color = clWhite
           Font.Charset = DEFAULT_CHARSET
           Font.Color = clWindowText
           Font.Height = -11
           Font.Name = 'Tahoma'
           Font.Style = []
+          ParentBackground = False
           ParentFont = False
-          TabOrder = 8
+          TabOrder = 3
-          OnClick = pnlDwnldClick
         end
-        object pnlDeleted: TRzPanel
+        object pnBS: TPanel
-          Left = 204
+          Left = 9
-          Top = 185
+          Top = 146
-          Width = 170
+          Width = 208
           Height = 25
-          BorderOuter = fsFlatBold
+          BevelKind = bkFlat
-          Caption = #1059#1076#1072#1083#1077#1085#1085#1099#1077' '#1085#1072' lib.rus.ec'
+          BevelOuter = bvNone
+          Caption = #1050#1085#1080#1075#1072' '#1074#1085#1091#1090#1088#1080' '#1089#1077#1088#1080#1080
           Color = clWhite
           Font.Charset = DEFAULT_CHARSET
           Font.Color = clWindowText
           Font.Height = -11
           Font.Name = 'Tahoma'
           Font.Style = []
+          ParentBackground = False
           ParentFont = False
-          TabOrder = 9
+          TabOrder = 4
-          OnClick = pnlDwnldClick
         end
-        object RzPanel5: TRzPanel
+        object pnCA: TPanel
-          Left = 24
+          Left = 9
-          Top = 216
+          Top = 22
-          Width = 174
+          Width = 208
           Height = 25
-          BorderOuter = fsFlatBold
+          BevelKind = bkFlat
-          Caption = #1055#1088#1086#1095#1080#1090#1072#1085#1085#1099#1077
+          BevelOuter = bvNone
+          Caption = #1040#1074#1090#1086#1088
           Color = clWhite
-          Enabled = False
+          ParentBackground = False
+          TabOrder = 5
+        end
+        object pnCS: TPanel
+          Left = 9
+          Top = 53
+          Width = 208
+          Height = 25
+          BevelKind = bkFlat
+          BevelOuter = bvNone
+          Caption = #1057#1077#1088#1080#1103
+          Color = clWhite
+          ParentBackground = False
+          TabOrder = 6
+        end
+        object pnCT: TPanel
+          Left = 9
+          Top = 115
+          Width = 208
+          Height = 25
+          BevelKind = bkFlat
+          BevelOuter = bvNone
+          Caption = #1050#1085#1080#1075#1072' '#1073#1077#1079' '#1089#1077#1088#1080#1080
+          Color = clWhite
           Font.Charset = DEFAULT_CHARSET
           Font.Color = clWindowText
           Font.Height = -11
           Font.Name = 'Tahoma'
           Font.Style = []
+          ParentBackground = False
           ParentFont = False
-          TabOrder = 10
+          TabOrder = 7
-          Visible = False
-          OnClick = pnlDwnldClick
         end
+        object btnCT: TButton
+          Left = 223
+          Top = 115
+          Width = 75
+          Height = 25
+          Caption = #1048#1079#1084#1077#1085#1080#1090#1100
+          TabOrder = 8
+          OnClick = SetBackgroundColor
+        end
+        object btnBS: TButton
+          Left = 223
+          Top = 146
+          Width = 75
+          Height = 25
+          Caption = #1048#1079#1084#1077#1085#1080#1090#1100
+          TabOrder = 9
+          OnClick = SetBackgroundColor
+        end
       end
     end
     object tsInternet: TTabSheet
       Caption = 'tsInternet'
       ImageIndex = 4
       TabVisible = False
-      ExplicitLeft = 0
+      object Panel5: TPanel
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
-      object RzGroupBox1: TRzGroupBox
         AlignWithMargins = True
         Left = 3
         Top = 3
-        Width = 400
+        Width = 441
-        Height = 101
+        Height = 95
         Align = alTop
-        Caption = #1053#1072#1089#1090#1088#1086#1081#1082#1080' '#1087#1088#1086#1082#1089#1080
+        AutoSize = True
+        BevelOuter = bvNone
+        ShowCaption = False
         TabOrder = 0
-        object RzLabel1: TRzLabel
+        DesignSize = (
-          Left = 16
+          441
-          Top = 50
+          95)
-          Width = 37
+        object Label25: TLabel
+          AlignWithMargins = True
+          Left = 3
+          Top = 3
+          Width = 435
           Height = 13
-          Alignment = taRightJustify
+          Align = alTop
-          Caption = #1057#1077#1088#1074#1077#1088
+          Caption = #1053#1072#1089#1090#1088#1086#1081#1082#1080' '#1087#1088#1086#1082#1089#1080
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'Tahoma'
+          Font.Style = [fsBold]
+          ParentFont = False
+          ExplicitWidth = 104
+        end
+        object lblProxyPassword: TLabel
+          Left = 281
+          Top = 77
+          Width = 41
+          Height = 13
+          Anchors = [akTop, akRight]
+          Caption = #1055#1072#1088#1086#1083#1100':'
           Color = clMenuBar
+          FocusControl = edProxyPassword
           ParentColor = False
           Transparent = True
-          ShadowColor = clMenuBar
+          ExplicitLeft = 256
         end
-        object RzLabel2: TRzLabel
+        object lblProxyPort: TLabel
-          Left = 289
+          Left = 330
           Top = 50
-          Width = 25
+          Width = 29
           Height = 13
-          Alignment = taRightJustify
+          Anchors = [akTop, akRight]
-          Caption = #1055#1086#1088#1090
+          Caption = #1055#1086#1088#1090':'
           Color = clMenuBar
+          FocusControl = edProxyPort
           ParentColor = False
           Transparent = True
+          ExplicitLeft = 305
         end
-        object RzLabel3: TRzLabel
+        object lblProxyServer: TLabel
-          Left = 16
+          Left = 15
-          Top = 81
+          Top = 50
-          Width = 72
+          Width = 41
           Height = 13
-          Alignment = taRightJustify
+          Caption = #1057#1077#1088#1074#1077#1088':'
-          Caption = #1055#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1100
           Color = clMenuBar
+          FocusControl = edProxyServer
           ParentColor = False
           Transparent = True
         end
-        object RzLabel4: TRzLabel
+        object lblProxyUser: TLabel
-          Left = 237
+          Left = 15
-          Top = 81
+          Top = 77
-          Width = 37
+          Width = 76
           Height = 13
-          Alignment = taRightJustify
+          Caption = #1055#1086#1083#1100#1079#1086#1074#1072#1090#1077#1083#1100':'
-          Caption = #1055#1072#1088#1086#1083#1100
           Color = clMenuBar
+          FocusControl = edProxyUsername
           ParentColor = False
           Transparent = True
         end
-        object edProxyServer: TRzEdit
+        object cbUseIESettings: TCheckBox
-          Left = 59
+          AlignWithMargins = True
-          Top = 47
+          Left = 9
-          Width = 214
+          Top = 22
-          Height = 21
+          Width = 429
+          Height = 17
+          Margins.Left = 9
+          Align = alTop
+          Caption = #1048#1089#1087#1086#1083#1100#1079#1086#1074#1072#1090#1100' '#1085#1072#1089#1090#1088#1086#1081#1082#1080' Internet Explorer'
           TabOrder = 0
+          OnClick = cbUseIESettingsClick
         end
-        object edProxyUsername: TRzEdit
+        object edProxyPassword: TEdit
-          Left = 94
+          Left = 328
-          Top = 75
-          Width = 115
-          Height = 21
-          TabOrder = 1
-        end
-        object edProxyPassword: TRzMaskEdit
-          Left = 280
           Top = 74
           Width = 105
           Height = 21
-          PasswordChar = #7
+          Anchors = [akTop, akRight]
+          PasswordChar = '*'
+          TabOrder = 4
+        end
+        object edProxyPort: TEdit
+          Left = 365
+          Top = 47
+          Width = 68
+          Height = 21
+          Alignment = taRightJustify
+          Anchors = [akTop, akRight]
+          MaxLength = 5
+          NumbersOnly = True
           TabOrder = 2
+          OnExit = CheckNumValue
         end
-        object edProxyPort: TRzNumericEdit
+        object edProxyServer: TEdit
-          Left = 320
+          Left = 62
           Top = 47
-          Width = 65
+          Width = 256
           Height = 21
+          Anchors = [akLeft, akTop, akRight]
+          TabOrder = 1
+        end
+        object edProxyUsername: TEdit
+          Left = 97
+          Top = 74
+          Width = 172
+          Height = 21
+          Anchors = [akLeft, akTop, akRight]
           TabOrder = 3
-          CheckRange = True
-          Max = 65535.000000000000000000
-          DisplayFormat = '0'
         end
-        object cbUseIESettings: TCheckBox
-          Left = 16
-          Top = 21
-          Width = 337
-          Height = 17
-          Caption = #1048#1089#1087#1086#1083#1100#1079#1086#1074#1072#1090#1100' '#1085#1072#1089#1090#1088#1086#1081#1082#1080' Internet Explorer'
-          TabOrder = 4
-          OnClick = cbUseIESettingsClick
-        end
       end
-      object RzGroupBox9: TRzGroupBox
+      object Panel7: TPanel
-        AlignWithMargins = True
+        Left = 0
-        Left = 3
+        Top = 101
-        Top = 213
+        Width = 447
-        Width = 400
+        Height = 176
-        Height = 109
         Align = alTop
-        Caption = #1057#1077#1088#1074#1077#1088' '#1086#1073#1085#1086#1074#1083#1077#1085#1080#1081
+        AutoSize = True
+        BevelOuter = bvNone
+        ShowCaption = False
         TabOrder = 1
-        object edUpdates: TEdit
+        DesignSize = (
-          Left = 13
+          447
-          Top = 18
+          176)
-          Width = 372
+        object Label27: TLabel
+          AlignWithMargins = True
+          Left = 3
+          Top = 9
+          Width = 441
+          Height = 13
+          Margins.Top = 9
+          Align = alTop
+          Caption = #1055#1072#1088#1072#1084#1077#1090#1088#1099' '#1086#1073#1085#1086#1074#1083#1077#1085#1080#1103
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'Tahoma'
+          Font.Style = [fsBold]
+          ParentFont = False
+          ExplicitWidth = 140
+        end
+        object Label26: TLabel
+          Left = 12
+          Top = 31
+          Width = 118
+          Height = 13
+          Caption = #1055#1072#1087#1082#1072' '#1089' '#1086#1073#1085#1086#1074#1083#1077#1085#1080#1103#1084#1080':'
+          FocusControl = edUpdateDir
+        end
+        object Label28: TLabel
+          Left = 12
+          Top = 59
+          Width = 67
+          Height = 13
+          Caption = #1057#1077#1088#1074#1077#1088' INPX:'
+          FocusControl = edINPXUrl
+        end
+        object Label29: TLabel
+          Left = 12
+          Top = 86
+          Width = 104
+          Height = 13
+          Caption = #1057#1077#1088#1074#1077#1088' '#1086#1073#1085#1086#1074#1083#1077#1085#1080#1081':'
+          FocusControl = edUpdates
+        end
+        object edUpdateDir: TMHLAutoCompleteEdit
+          Left = 136
+          Top = 28
+          Width = 219
           Height = 21
+          HelpContext = 5001
+          Anchors = [akLeft, akTop, akRight]
           TabOrder = 0
-          Text = 'http://home-lib.net/update/'
+          TextHint = #1048#1089#1087#1086#1083#1100#1079#1086#1074#1072#1090#1100' '#1087#1072#1087#1082#1091' '#1087#1086' '#1091#1084#1086#1083#1095#1072#1085#1080#1102
         end
+        object btnUpdateDir: TButton
+          Left = 361
+          Top = 26
+          Width = 75
+          Height = 25
+          Anchors = [akTop, akRight]
+          Caption = #1042#1099#1073#1088#1072#1090#1100
+          TabOrder = 1
+          OnClick = SelectFolder
+        end
+        object edINPXUrl: TMHLAutoCompleteEdit
+          Left = 136
+          Top = 56
+          Width = 300
+          Height = 21
+          HelpContext = 5001
+          Anchors = [akLeft, akTop, akRight]
+          TabOrder = 2
+          AutoCompleteOption = [acoURLHistory, acoURLMRU]
+        end
+        object edUpdates: TMHLAutoCompleteEdit
+          Left = 136
+          Top = 83
+          Width = 300
+          Height = 21
+          HelpContext = 5001
+          Anchors = [akLeft, akTop, akRight]
+          TabOrder = 3
+          AutoCompleteOption = [acoURLHistory, acoURLMRU]
+        end
+        object cbAutoRunUpdate: TCheckBox
+          AlignWithMargins = True
+          Left = 12
+          Top = 133
+          Width = 425
+          Height = 17
+          Anchors = [akLeft, akTop, akRight]
+          Caption = #1047#1072#1087#1091#1089#1082#1072#1090#1100' '#1086#1073#1085#1086#1074#1083#1077#1085#1080#1077'
'#1082#1072#1090#1072#1083#1086#1075#1072' '#1086#1085#1083#1072#1081#1085' '#1073#1080#1073#1083#1080#1086#1090#1077#1082'
'#1072#1074#1090#1086#1084#1072#1090#1080#1095#1077#1089#1082#1080
+          TabOrder = 5
+        end
         object cbCheckColUpdate: TCheckBox
-          Left = 16
+          AlignWithMargins = True
-          Top = 46
+          Left = 12
-          Width = 337
+          Top = 110
+          Width = 425
           Height = 17
-          Caption = #1055#1088#1086#1074#1077#1088#1103#1090#1100' '#1086#1073#1085#1086#1074#1083#1077#1085#1080#1103' '#1082#1072#1090#1072#1083#1086#1075#1072' lib.rus.ec '#1087#1088#1080' '#1079#1072#1087#1091#1089#1082#1077
+          Anchors = [akLeft, akTop, akRight]
-          TabOrder = 1
+          Caption = #1055#1088#1086#1074#1077#1088#1103#1090#1100' '#1086#1073#1085#1086#1074#1083#1077#1085#1080#1103' '#1082#1072#1090#1072#1083#1086#1075#1072' '#1086#1085#1083#1072#1081#1085' '#1073#1080#1073#1083#1080#1086#1090#1077#1082' '#1087#1088#1080' '#1079#1072#1087#1091#1089#1082#1077
+          TabOrder = 4
         end
         object cbUpdates: TCheckBox
-          Left = 16
+          AlignWithMargins = True
-          Top = 86
+          Left = 12
-          Width = 353
+          Top = 156
+          Width = 425
           Height = 17
+          Anchors = [akLeft, akTop, akRight]
           Caption = #1055#1088#1086#1074#1077#1088#1103#1090#1100' '#1085#1072#1083#1080#1095#1080#1077' '#1086#1073#1085#1086#1074#1083#1077#1085#1080#1081'
'#1087#1088#1086#1075#1088#1072#1084#1084#1099' '#1087#1088#1080' '#1079#1072#1087#1091#1089#1082#1077
-          TabOrder = 2
+          TabOrder = 6
         end
-        object cbAutoRunUpdate: TCheckBox
-          Left = 16
-          Top = 66
-          Width = 337
-          Height = 17
-          Caption = #1047#1072#1087#1091#1089#1082#1072#1090#1100' '#1086#1073#1085#1086#1074#1083#1077#1085#1080#1077' '#1082#1072#1090#1072#1083#1086#1075#1072' lib.rus.ec '#1072#1074#1090#1086#1084#1072#1090#1080#1095#1077#1089#1082#1080
-          TabOrder = 3
-        end
       end
-      object RzGroupBox10: TRzGroupBox
+      object Panel6: TPanel
-        AlignWithMargins = True
+        Left = 0
-        Left = 3
+        Top = 277
-        Top = 328
+        Width = 447
-        Width = 400
+        Height = 92
-        Height = 68
+        Align = alTop
-        Align = alClient
+        BevelOuter = bvNone
-        Caption = #1055#1072#1088#1072#1084#1077#1090#1088#1099' '#1089#1086#1077#1076#1080#1085#1077#1085#1080#1103
+        ShowCaption = False
         TabOrder = 2
-        object RzLabel7: TRzLabel
+        object Label30: TLabel
-          Left = 16
+          AlignWithMargins = True
-          Top = 22
+          Left = 3
-          Width = 131
+          Top = 9
+          Width = 441
           Height = 13
+          Margins.Top = 9
+          Align = alTop
+          Caption = #1055#1072#1088#1072#1084#1077#1090#1088#1099' '#1089#1086#1077#1076#1080#1085#1077#1085#1080#1103
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'Tahoma'
+          Font.Style = [fsBold]
+          ParentFont = False
+          ExplicitWidth = 140
+        end
+        object RzLabel7: TLabel
+          Left = 8
+          Top = 31
+          Width = 135
+          Height = 13
           Alignment = taRightJustify
-          Caption = #1058#1072#1081#1084'-'#1072#1091#1090' '#1089#1086#1077#1076#1080#1085#1077#1085#1080#1103' ('#1084#1089')'
+          Caption = #1058#1072#1081#1084'-'#1072#1091#1090' '#1089#1086#1077#1076#1080#1085#1077#1085#1080#1103' ('#1084#1089'):'
           Color = clMenuBar
+          FocusControl = edTimeOut
           ParentColor = False
           Transparent = True
         end
-        object RzLabel8: TRzLabel
+        object RzLabel8: TLabel
-          Left = 40
+          Left = 32
-          Top = 46
+          Top = 58
-          Width = 107
+          Width = 111
           Height = 13
           Alignment = taRightJustify
-          Caption = #1058#1072#1081#1084'-'#1072#1091#1090' '#1095#1090#1077#1085#1080#1103' ('#1084#1089')'
+          Caption = #1058#1072#1081#1084'-'#1072#1091#1090' '#1095#1090#1077#1085#1080#1103' ('#1084#1089'):'
           Color = clMenuBar
+          FocusControl = edReadTimeOut
           ParentColor = False
           Transparent = True
         end
-        object RzLabel9: TRzLabel
+        object RzLabel9: TLabel
-          Left = 252
+          Left = 248
-          Top = 22
+          Top = 31
-          Width = 71
+          Width = 75
           Height = 13
           Alignment = taRightJustify
-          Caption = #1048#1085#1090#1077#1088#1074#1072#1083' ('#1084#1089')'
+          Caption = #1048#1085#1090#1077#1088#1074#1072#1083' ('#1084#1089'):'
           Color = clMenuBar
+          FocusControl = edDwnldInterval
           ParentColor = False
           Transparent = True
         end
-        object edTimeOut: TRzNumericEdit
+        object edDwnldInterval: TEdit
-          Left = 153
+          Left = 329
-          Top = 19
+          Top = 28
           Width = 65
           Height = 21
-          TabOrder = 0
+          Alignment = taRightJustify
-          CheckRange = True
+          NumbersOnly = True
-          Max = 100000.000000000000000000
+          TabOrder = 2
-          Min = 1000.000000000000000000
+          Text = '0'
-          Value = 10000.000000000000000000
+          OnExit = CheckNumValue
-          DisplayFormat = ',0;(,0)'
         end
-        object edReadTimeOut: TRzNumericEdit
+        object edReadTimeOut: TEdit
-          Left = 153
+          Left = 149
-          Top = 43
+          Top = 55
           Width = 65
           Height = 21
-          TabOrder = 1
+          Alignment = taRightJustify
-          CheckRange = True
+          NumbersOnly = True
-          Max = 100000.000000000000000000
+          TabOrder = 4
-          Min = 1000.000000000000000000
+          Text = '1'#160'000'
-          Value = 10000.000000000000000000
+          OnExit = CheckNumValue
-          DisplayFormat = ',0;(,0)'
         end
-        object edDwnldInterval: TRzNumericEdit
+        object edTimeOut: TEdit
-          Left = 329
+          Left = 149
-          Top = 19
+          Top = 28
           Width = 65
           Height = 21
-          TabOrder = 2
+          Alignment = taRightJustify
-          CheckRange = True
+          NumbersOnly = True
-          Max = 900000.000000000000000000
+          TabOrder = 0
-          Value = 10000.000000000000000000
+          Text = '1'#160'000'
-          DisplayFormat = ',0;(,0)'
+          OnChange = edTimeOutChange
+          OnExit = CheckNumValue
         end
-      end
+        object udTimeOut: TUpDown
-      object RzGroupBox2: TRzGroupBox
+          Left = 214
-        AlignWithMargins = True
+          Top = 28
-        Left = 3
+          Width = 16
-        Top = 110
-        Width = 400
-        Height = 43
-        Align = alTop
-        Caption = #1055#1072#1087#1082#1072' '#1089' '#1086#1073#1085#1086#1074#1083#1077#1085#1080#1103#1084#1080
-        TabOrder = 3
-        object edUpdateDir: TRzButtonEdit
-          Left = 11
-          Top = 18
-          Width = 374
           Height = 21
-          HelpContext = 5001
+          Associate = edTimeOut
-          TabOrder = 0
+          Min = 1000
-          AltBtnWidth = 15
+          Max = 100000
-          ButtonWidth = 15
+          Increment = 1000
-          OnButtonClick = edDeviceDirButtonClick
+          Position = 1000
+          TabOrder = 1
         end
-      end
+        object udReadTimeOut: TUpDown
-      object RzGroupBox17: TRzGroupBox
+          Left = 214
-        AlignWithMargins = True
+          Top = 55
-        Left = 3
+          Width = 16
-        Top = 159
-        Width = 400
-        Height = 48
-        Align = alTop
-        Caption = #1057#1077#1088#1074#1077#1088' INPX'
-        TabOrder = 4
-        object edINPXUrl: TEdit
-          Left = 12
-          Top = 19
-          Width = 373
           Height = 21
-          TabOrder = 0
+          Associate = edReadTimeOut
+          Min = 1000
+          Max = 100000
+          Increment = 1000
+          Position = 1000
+          TabOrder = 5
         end
+        object udDwnldInterval: TUpDown
+          Left = 394
+          Top = 28
+          Width = 16
+          Height = 21
+          Associate = edDwnldInterval
+          Max = 900000
+          Increment = 1000
+          TabOrder = 3
+        end
       end
     end
     object tsScripts: TTabSheet
       Caption = 'tsScripts'
       ImageIndex = 4
       TabVisible = False
-      ExplicitLeft = 0
+      object Label12: TLabel
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
-      object RzGroupBox523324: TRzGroupBox
         AlignWithMargins = True
         Left = 3
         Top = 3
-        Width = 400
+        Width = 441
-        Height = 329
+        Height = 13
-        Align = alClient
+        Align = alTop
         Caption = #1057#1082#1088#1080#1087#1090#1099
-        TabOrder = 0
+        Font.Charset = DEFAULT_CHARSET
-        object lvScripts: TRzListView
+        Font.Color = clWindowText
-          AlignWithMargins = True
+        Font.Height = -11
-          Left = 4
+        Font.Name = 'Tahoma'
-          Top = 17
+        Font.Style = [fsBold]
-          Width = 392
+        ParentFont = False
-          Height = 278
+        ExplicitWidth = 51
-          Align = alTop
+      end
-          Columns = <
+      object Panel2: TPanel
-            item
+        Left = 0
-              Caption = #1053#1072#1079#1074#1072#1085#1080#1077
+        Top = 379
-              Width = 80
+        Width = 447
-            end
+        Height = 69
-            item
+        Align = alBottom
-              Caption = #1055#1091#1090#1100
+        BevelOuter = bvNone
-              Width = 150
+        ShowCaption = False
-            end
+        TabOrder = 1
-            item
+        DesignSize = (
-              Caption = #1055#1072#1088#1072#1084#1077#1090#1088#1099
+          447
-              Width = 135
+          69)
-            end>
+        object Label13: TLabel
-          EditOnRowClick = True
+          Left = 3
-          FillLastColumn = False
+          Top = 44
-          FlatScrollBars = True
+          Width = 128
-          GridLines = True
+          Height = 13
-          ReadOnly = True
+          Caption = #1044#1077#1081#1089#1090#1074#1080#1077' '#1087#1086' '#1091#1084#1086#1083#1095#1072#1085#1080#1102':'
-          RowSelect = True
+          FocusControl = cbDefaultAction
-          ShowWorkAreas = True
-          TabOrder = 2
-          ViewStyle = vsReport
-          OnDblClick = btnEditScriptClick
         end
-        object btnDeleteScript: TRzBitBtn
+        object btnAddScript: TButton
-          Left = 312
+          Left = 3
-          Top = 300
+          Top = 3
-          Caption = #1059#1076#1072#1083#1080#1090#1100
+          Width = 75
-          TabOrder = 3
+          Height = 25
-          OnClick = btnDeleteScriptClick
+          Caption = #1044#1086#1073#1072#1074#1080#1090#1100
+          TabOrder = 0
+          OnClick = btnAddScriptClick
         end
-        object btnEditScript: TRzBitBtn
+        object btnEditScript: TButton
-          Left = 87
+          Left = 84
-          Top = 300
+          Top = 3
+          Width = 75
+          Height = 25
           Caption = #1048#1079#1084#1077#1085#1080#1090#1100
           TabOrder = 1
           OnClick = btnEditScriptClick
         end
-        object btnAddScript: TRzBitBtn
+        object btnDeleteScript: TButton
-          Left = 6
+          Left = 165
-          Top = 300
+          Top = 3
-          Caption = #1044#1086#1073#1072#1074#1080#1090#1100
+          Width = 75
-          TabOrder = 0
+          Height = 25
-          OnClick = btnAddScriptClick
+          Caption = #1059#1076#1072#1083#1080#1090#1100
+          TabOrder = 2
+          OnClick = btnDeleteScriptClick
         end
-      end
-      object RzGroupBox5343245: TRzGroupBox
-        AlignWithMargins = True
-        Left = 3
-        Top = 338
-        Width = 400
-        Height = 58
-        Align = alBottom
-        Caption = #1044#1077#1081#1089#1090#1074#1080#1077' '#1087#1086' '#1091#1084#1086#1083#1095#1072#1085#1080#1102
-        TabOrder = 1
         object cbDefaultAction: TComboBox
-          Left = 6
+          Left = 137
-          Top = 24
+          Top = 41
-          Width = 379
+          Width = 307
           Height = 21
-          TabOrder = 0
+          Style = csDropDownList
-          Text = #1057#1090#1072#1085#1076#1072#1088#1090#1085#1086#1077
+          Anchors = [akLeft, akTop, akRight]
+          TabOrder = 3
         end
       end
+      object lvScripts: TListView
+        AlignWithMargins = True
+        Left = 3
+        Top = 22
+        Width = 441
+        Height = 354
+        Align = alClient
+        Columns = <
+          item
+            Caption = #1053#1072#1079#1074#1072#1085#1080#1077
+            Width = 80
+          end
+          item
+            AutoSize = True
+            Caption = #1055#1091#1090#1100
+          end
+          item
+            Caption = #1055#1072#1088#1072#1084#1077#1090#1088#1099
+            Width = 135
+          end>
+        ColumnClick = False
+        GridLines = True
+        HideSelection = False
+        ReadOnly = True
+        RowSelect = True
+        TabOrder = 0
+        ViewStyle = vsReport
+        OnDblClick = btnEditScriptClick
+      end
     end
     object tsBehavour: TTabSheet
       Caption = 'tsBehavior'
       ImageIndex = 5
       TabVisible = False
-      ExplicitLeft = 0
+      object Panel3: TPanel
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
-      object RzGroupBox7: TRzGroupBox
         AlignWithMargins = True
         Left = 3
         Top = 3
-        Width = 400
+        Width = 441
-        Height = 323
+        Height = 318
-        Align = alClient
+        Margins.Bottom = 9
-        Caption = #1055#1086#1074#1077#1076#1077#1085#1080#1077
+        Align = alTop
+        BevelOuter = bvNone
+        ShowCaption = False
         TabOrder = 0
+        DesignSize = (
+          441
+          318)
+        object Label6: TLabel
+          AlignWithMargins = True
+          Left = 3
+          Top = 3
+          Width = 435
+          Height = 13
+          Align = alTop
+          Caption = #1055#1086#1074#1077#1076#1077#1085#1080#1077
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'Tahoma'
+          Font.Style = [fsBold]
+          ParentFont = False
+          Transparent = True
+          ExplicitWidth = 65
+        end
+        object Label10: TLabel
+          Left = 15
+          Top = 238
+          Width = 131
+          Height = 13
+          Alignment = taRightJustify
+          Caption = #1064#1072#1073#1083#1086#1085' '#1079#1072#1075#1086#1083#1086#1074#1082#1072' '#1082#1085#1080#1075#1080':'
+          WordWrap = True
+        end
         object cbShowSubGenreBooks: TCheckBox
-          Left = 10
+          AlignWithMargins = True
-          Top = 26
+          Left = 9
-          Width = 280
+          Top = 22
+          Width = 429
           Height = 17
+          Margins.Left = 9
+          Align = alTop
           Caption = #1055#1086#1082#1072#1079#1099#1074#1072#1090#1100' '#1082#1085#1080#1075#1080' '#1080#1079' '#1074#1083#1086#1078#1077#1085#1085#1099#1093'
'#1078#1072#1085#1088#1086#1074' ('#1085#1077'-fb2)'
           Color = clBtnFace
           ParentColor = False
           TabOrder = 0
         end
         object cbMinimizeToTray: TCheckBox
-          Left = 10
+          AlignWithMargins = True
-          Top = 48
+          Left = 9
-          Width = 280
+          Top = 45
+          Width = 429
           Height = 17
+          Margins.Left = 9
+          Align = alTop
           Caption = #1057#1074#1086#1088#1072#1095#1080#1074#1072#1090#1100' '#1074' '#1090#1088#1077#1081
           Color = clBtnFace
           ParentColor = False
           TabOrder = 1
         end
         object cbAutoStartDwnld: TCheckBox
-          Left = 10
+          AlignWithMargins = True
-          Top = 69
+          Left = 9
-          Width = 280
+          Top = 68
+          Width = 429
           Height = 17
+          Margins.Left = 9
+          Align = alTop
           Caption = #1057#1090#1072#1088#1090#1086#1074#1072#1090#1100' '#1079#1072#1082#1072#1095#1082#1080'
'#1072#1074#1090#1086#1084#1072#1090#1080#1095#1077#1089#1082#1080
           TabOrder = 2
         end
         object cbShowFb2Info: TCheckBox
-          Left = 10
+          AlignWithMargins = True
-          Top = 92
+          Left = 9
-          Width = 280
+          Top = 91
+          Width = 429
           Height = 17
+          Margins.Left = 9
+          Align = alTop
           Caption = #1055#1086#1082#1072#1079#1099#1074#1072#1090#1100' '#1080#1085#1092#1086#1088#1084#1072#1094#1080#1102' '#1080#1079' fb2 '
           Color = clBtnFace
           ParentColor = False
           TabOrder = 3
         end
         object cbAllowMixedCollections: TCheckBox
-          Left = 10
+          AlignWithMargins = True
-          Top = 115
+          Left = 9
-          Width = 280
+          Top = 114
+          Width = 429
           Height = 17
+          Margins.Left = 9
+          Align = alTop
           Caption = #1056#1072#1079#1088#1077#1096#1080#1090#1100' '#1089#1084#1077#1096#1072#1085#1085#1099#1077'
'#1082#1086#1083#1083#1077#1082#1094#1080#1080
           Color = clBtnFace
           ParentColor = False
           TabOrder = 4
         end
         object cbDeleteDeleted: TCheckBox
-          Left = 10
+          AlignWithMargins = True
-          Top = 138
+          Left = 9
-          Width = 280
+          Top = 137
+          Width = 429
           Height = 17
-          Caption = #1059#1076#1072#1083#1103#1090#1100' "'#1091#1076#1072#1083#1077#1085#1099#1077' '#1085#1072' '#1083#1080#1073#1088#1091#1089#1077#1082#1077'"'
+          Margins.Left = 9
+          Align = alTop
+          Caption = #1059#1076#1072#1083#1103#1090#1100' "'#1091#1076#1072#1083#1077#1085#1099#1077' '#1074' '#1073#1080#1073#1083#1080#1086#1090#1077#1082#1077'"'
           Color = clBtnFace
           ParentColor = False
           TabOrder = 5
         end
         object cbAutoLoadReview: TCheckBox
-          Left = 10
+          AlignWithMargins = True
-          Top = 161
+          Left = 9
-          Width = 280
+          Top = 160
+          Width = 429
           Height = 17
+          Margins.Left = 9
+          Align = alTop
           Caption = #1040#1074#1090#1086#1084#1072#1090#1080#1095#1077#1089#1082#1080' '#1079#1072#1075#1088#1091#1078#1072#1090#1100'
'#1088#1077#1094#1077#1085#1079#1080#1080
           Color = clBtnFace
           ParentColor = False
           TabOrder = 6
         end
         object cbDeleteFiles: TCheckBox
-          Left = 10
+          AlignWithMargins = True
-          Top = 184
+          Left = 9
-          Width = 280
+          Top = 183
+          Width = 429
           Height = 17
+          Margins.Left = 9
+          Align = alTop
           Caption = #1059#1076#1072#1083#1103#1090#1100' '#1092#1072#1081#1083#1099' '#1087#1088#1080' '#1091#1076#1072#1083#1077#1085#1080#1080'
'#1082#1085#1080#1075
           Color = clBtnFace
           ParentColor = False
           TabOrder = 7
         end
-      end
-      object RzGroupBox16: TRzGroupBox
-        AlignWithMargins = True
-        Left = 3
-        Top = 332
-        Width = 400
-        Height = 64
-        Align = alBottom
-        TabOrder = 1
-        object Label10: TLabel
-          Left = 16
-          Top = 32
-          Width = 95
-          Height = 26
-          Alignment = taRightJustify
-          Caption = #1064#1072#1073#1083#1086#1085' '#1079#1072#1075#1086#1083#1086#1074#1082#1072' '#1082#1085#1080#1075#1080':'
-          WordWrap = True
-        end
         object cbOverwriteFB2Info: TCheckBox
-          Left = 10
+          AlignWithMargins = True
-          Top = 8
+          Left = 9
-          Width = 281
+          Top = 212
+          Width = 429
           Height = 17
+          Margins.Left = 9
+          Margins.Top = 9
+          Align = alTop
           Caption = #1055#1077#1088#1077#1079#1072#1087#1080#1089#1099#1074#1072#1090#1100' '#1079#1072#1075#1086#1083#1086#1074#1086#1082' fb2'
-          Color = clBtnFace
+          TabOrder = 8
-          ParentColor = False
-          TabOrder = 0
           OnClick = cbOverwriteFB2InfoClick
         end
-        object beTemplate: TRzButtonEdit
+        object edTitleTemplate: TEdit
-          Left = 117
+          Left = 152
-          Top = 31
+          Top = 235
-          Width = 268
+          Width = 201
-          Height = 24
+          Height = 21
+          Anchors = [akLeft, akTop, akRight]
+          ReadOnly = True
+          TabOrder = 9
           Text = '[%s [(%n) ]- ]%t'
-          Font.Charset = DEFAULT_CHARSET
-          Font.Color = clWindowText
-          Font.Height = -13
-          Font.Name = 'Tahoma'
-          Font.Style = []
-          ParentFont = False
-          ReadOnly = True
-          ReadOnlyColor = clWindow
-          TabOrder = 1
-          AltBtnWidth = 15
-          ButtonWidth = 15
-          HideButtonsOnReadOnly = False
-          OnButtonClick = beTemplateButtonClick
         end
+        object btnTitleTemplate: TButton
+          Left = 359
+          Top = 233
+          Width = 75
+          Height = 25
+          Anchors = [akTop, akRight]
+          Caption = #1048#1079#1084#1077#1085#1080#1090#1100
+          TabOrder = 10
+          OnClick = EditTextTemplate
+        end
       end
     end
     object tsFileSort: TTabSheet
       Caption = 'tsFileSort'
       ImageIndex = 6
       TabVisible = False
-      ExplicitLeft = 0
+      object Panel4: TPanel
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 0
-      object RzGroupBox12: TRzGroupBox
         AlignWithMargins = True
         Left = 3
-        Top = 244
+        Top = 3
-        Width = 400
+        Width = 441
-        Height = 126
+        Height = 246
+        Margins.Bottom = 9
         Align = alTop
-        Caption = #1057#1086#1088#1090#1080#1088#1086#1074#1082#1072' FBD'
+        BevelOuter = bvNone
+        ShowCaption = False
         TabOrder = 0
-        object Label2: TLabel
+        DesignSize = (
-          Left = 20
+          441
-          Top = 29
+          246)
+        object Label21: TLabel
+          AlignWithMargins = True
+          Left = 3
+          Top = 3
+          Width = 435
+          Height = 13
+          Align = alTop
+          Caption = #1048#1084#1087#1086#1088#1090' '#1092#1072#1081#1083#1086#1074
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'Tahoma'
+          Font.Style = [fsBold]
+          ParentFont = False
+          ExplicitWidth = 90
+        end
+        object Label22: TLabel
+          Left = 15
+          Top = 58
+          Width = 35
+          Height = 13
+          Caption = #1055#1072#1087#1082#1072':'
+          FocusControl = edImportFolder
+        end
+        object Label23: TLabel
+          Left = 15
+          Top = 82
+          Width = 419
+          Height = 13
+          Anchors = [akLeft, akTop, akRight]
+          AutoSize = False
+          Caption = #1057#1086#1088#1090#1080#1088#1086#1074#1082#1072' FB2'
+          Font.Charset = DEFAULT_CHARSET
+          Font.Color = clWindowText
+          Font.Height = -11
+          Font.Name = 'Tahoma'
+          Font.Style = [fsBold]
+          ParentFont = False
+          ExplicitWidth = 394
+        end
+        object Label4: TLabel
+          Left = 21
+          Top = 104
           Width = 38
           Height = 13
           Alignment = taRightJustify
           Caption = #1055#1072#1087#1082#1072': '
+          FocusControl = edFB2FolderTemplate
         end
-        object Label3: TLabel
+        object Label8: TLabel
-          Left = 25
+          Left = 21
-          Top = 64
+          Top = 131
           Width = 33
           Height = 13
           Alignment = taRightJustify
           Caption = #1060#1072#1081#1083': '
+          FocusControl = edFB2FileTemplate
         end
-        object RzToolButton4: TRzToolButton
+        object Label24: TLabel
-          Tag = 41
+          Left = 15
-          Left = 64
+          Top = 155
-          Top = 88
+          Width = 419
-          Width = 33
+          Height = 13
-          Hint = #1060#1072#1084#1080#1083#1080#1103' '#1080' '#1080#1084#1103' '#1072#1074#1090#1086#1088#1072
+          Anchors = [akLeft, akTop, akRight]
-          Flat = False
+          AutoSize = False
-          ShowCaption = True
+          Caption = #1057#1086#1088#1090#1080#1088#1086#1074#1082#1072' FB2'
-          UseToolbarButtonSize = False
+          Font.Charset = DEFAULT_CHARSET
-          UseToolbarShowCaption = False
+          Font.Color = clWindowText
-          Caption = '%f'
+          Font.Height = -11
-          ParentShowHint = False
+          Font.Name = 'Tahoma'
-          ShowHint = True
+          Font.Style = [fsBold]
+          ParentFont = False
+          ExplicitWidth = 394
         end
-        object RzToolButton5: TRzToolButton
+        object Label2: TLabel
-          Tag = 42
+          Left = 21
-          Left = 103
+          Top = 177
-          Top = 88
-          Width = 33
-          Hint = #1053#1072#1079#1074#1072#1085#1080#1077
-          Flat = False
-          ShowCaption = True
-          UseToolbarButtonSize = False
-          UseToolbarShowCaption = False
-          Caption = '%t'
-          ParentShowHint = False
-          ShowHint = True
-        end
-        object RzToolButton6: TRzToolButton
-          Tag = 43
-          Left = 142
-          Top = 88
-          Width = 33
-          Hint = #1057#1077#1088#1080#1103
-          Flat = False
-          ShowCaption = True
-          UseToolbarButtonSize = False
-          UseToolbarShowCaption = False
-          Caption = '%s '
-          ParentShowHint = False
-          ShowHint = True
-        end
-        object RzToolButton7: TRzToolButton
-          Tag = 44
-          Left = 181
-          Top = 88
-          Width = 33
-          Hint = #1053#1086#1084#1077#1088' '#1074' '#1089#1077#1088#1080#1080
-          Flat = False
-          ShowCaption = True
-          UseToolbarButtonSize = False
-          UseToolbarShowCaption = False
-          Caption = '%n'
-          ParentShowHint = False
-          ShowHint = True
-        end
-        object RzToolButton8: TRzToolButton
-          Tag = 48
-          Left = 220
-          Top = 88
-          Width = 33
-          Hint = #1050#1086#1088#1085#1077#1074#1086#1081' '#1078#1072#1085#1088
-          Flat = False
-          ShowCaption = True
-          UseToolbarButtonSize = False
-          UseToolbarShowCaption = False
-          Caption = '%rg'
-          ParentShowHint = False
-          ShowHint = True
-        end
-        object RzToolButton9: TRzToolButton
-          Tag = 46
-          Left = 259
-          Top = 88
-          Width = 33
-          Hint = #1046#1072#1085#1088
-          Flat = False
-          ShowCaption = True
-          UseToolbarButtonSize = False
-          UseToolbarShowCaption = False
-          Caption = '%g'
-          ParentShowHint = False
-          ShowHint = True
-        end
-        object RzToolButton10: TRzToolButton
-          Tag = 47
-          Left = 298
-          Top = 88
-          Width = 33
-          Hint = #1055#1077#1088#1074#1072#1103' '#1073#1091#1082#1074#1072#13#1092#1072#1084#1080#1083#1080#1080' '#1072#1074#1090#1086#1088#1072
-          Flat = False
-          ShowCaption = True
-          UseToolbarButtonSize = False
-          UseToolbarShowCaption = False
-          Caption = '%fl'
-          ParentShowHint = False
-          ShowHint = True
-        end
-        object edFBDFolderTemplate: TRzEdit
-          Tag = 785
-          Left = 64
-          Top = 26
-          Width = 313
-          Height = 21
-          Text = '%g\%s'
-          TabOrder = 0
-        end
-        object edFBDFileTemplate: TRzEdit
-          Tag = 785
-          Left = 64
-          Top = 61
-          Width = 313
-          Height = 21
-          TabOrder = 1
-        end
-      end
-      object RzGroupBox13: TRzGroupBox
-        AlignWithMargins = True
-        Left = 3
-        Top = 112
-        Width = 400
-        Height = 126
-        Align = alTop
-        Caption = #1057#1086#1088#1090#1080#1088#1086#1074#1082#1072' FB2'
-        TabOrder = 1
-        object Label4: TLabel
-          Left = 20
-          Top = 29
           Width = 38
           Height = 13
           Alignment = taRightJustify
           Caption = #1055#1072#1087#1082#1072': '
+          FocusControl = edFBDFolderTemplate
         end
-        object Label8: TLabel
+        object Label3: TLabel
-          Left = 25
+          Left = 21
-          Top = 64
+          Top = 204
           Width = 33
           Height = 13
           Alignment = taRightJustify
           Caption = #1060#1072#1081#1083': '
+          FocusControl = edFBDFileTemplate
         end
-        object RzToolButton11: TRzToolButton
+        object btnImportFolder: TButton
-          Tag = 41
+          Left = 359
-          Left = 64
+          Top = 53
-          Top = 88
+          Width = 75
-          Width = 33
+          Height = 25
-          Hint = #1060#1072#1084#1080#1083#1080#1103' '#1080' '#1080#1084#1103' '#1072#1074#1090#1086#1088#1072
+          Anchors = [akTop, akRight]
-          Flat = False
+          Caption = #1042#1099#1073#1088#1072#1090#1100
-          ShowCaption = True
+          TabOrder = 2
-          UseToolbarButtonSize = False
+          OnClick = SelectFolder
-          UseToolbarShowCaption = False
-          Caption = '%f'
-          ParentShowHint = False
-          ShowHint = True
         end
-        object RzToolButton12: TRzToolButton
+        object cbEnableFileSort: TCheckBox
-          Tag = 42
+          AlignWithMargins = True
-          Left = 103
+          Left = 9
-          Top = 88
+          Top = 22
-          Width = 33
+          Width = 429
-          Hint = #1053#1072#1079#1074#1072#1085#1080#1077
+          Height = 27
-          Flat = False
+          Margins.Left = 9
-          ShowCaption = True
+          Align = alTop
-          UseToolbarButtonSize = False
+          Caption = #1042#1082#1083#1102#1095#1080#1090#1100' '#1089#1086#1088#1090#1080#1088#1086#1074#1082#1091' '#1087#1088#1080' '#1080#1084#1087#1086#1088#1090#1077
-          UseToolbarShowCaption = False
+          TabOrder = 0
-          Caption = '%t'
+          WordWrap = True
-          ParentShowHint = False
+          OnClick = cbEnableFileSortClick
-          ShowHint = True
         end
-        object RzToolButton13: TRzToolButton
+        object edImportFolder: TMHLAutoCompleteEdit
-          Tag = 43
+          Left = 56
-          Left = 142
+          Top = 55
-          Top = 88
+          Width = 297
-          Width = 33
+          Height = 21
-          Hint = #1057#1077#1088#1080#1103
+          HelpContext = 5001
-          Flat = False
+          Anchors = [akLeft, akTop, akRight]
-          ShowCaption = True
+          TabOrder = 1
-          UseToolbarButtonSize = False
-          UseToolbarShowCaption = False
-          Caption = '%s '
-          ParentShowHint = False
-          ShowHint = True
         end
-        object RzToolButton14: TRzToolButton
+        object edFB2FileTemplate: TEdit
-          Tag = 44
+          Tag = 785
-          Left = 181
+          Left = 65
-          Top = 88
+          Top = 128
-          Width = 33
+          Width = 288
-          Hint = #1053#1086#1084#1077#1088' '#1074' '#1089#1077#1088#1080#1080
+          Height = 21
-          Flat = False
+          Anchors = [akLeft, akTop, akRight]
-          ShowCaption = True
+          ReadOnly = True
-          UseToolbarButtonSize = False
+          TabOrder = 5
-          UseToolbarShowCaption = False
-          Caption = '%n'
-          ParentShowHint = False
-          ShowHint = True
         end
-        object RzToolButton15: TRzToolButton
+        object edFB2FolderTemplate: TEdit
-          Tag = 48
+          Tag = 785
-          Left = 220
+          Left = 65
-          Top = 88
+          Top = 101
-          Width = 33
+          Width = 288
-          Hint = #1050#1086#1088#1085#1077#1074#1086#1081' '#1078#1072#1085#1088
+          Height = 21
-          Flat = False
+          Anchors = [akLeft, akTop, akRight]
-          ShowCaption = True
+          ReadOnly = True
-          UseToolbarButtonSize = False
+          TabOrder = 3
-          UseToolbarShowCaption = False
-          Caption = '%rg'
-          ParentShowHint = False
-          ShowHint = True
         end
-        object RzToolButton16: TRzToolButton
+        object edFBDFileTemplate: TEdit
-          Tag = 46
-          Left = 259
-          Top = 88
-          Width = 33
-          Hint = #1046#1072#1085#1088
-          Flat = False
-          ShowCaption = True
-          UseToolbarButtonSize = False
-          UseToolbarShowCaption = False
-          Caption = '%g'
-          ParentShowHint = False
-          ShowHint = True
-        end
-        object RzToolButton17: TRzToolButton
-          Tag = 47
-          Left = 298
-          Top = 88
-          Width = 33
-          Hint = #1055#1077#1088#1074#1072#1103' '#1073#1091#1082#1074#1072#13#1092#1072#1084#1080#1083#1080#1080' '#1072#1074#1090#1086#1088#1072
-          Flat = False
-          ShowCaption = True
-          UseToolbarButtonSize = False
-          UseToolbarShowCaption = False
-          Caption = '%fl'
-          ParentShowHint = False
-          ShowHint = True
-        end
-        object edFB2FolderTemplate: TRzEdit
           Tag = 785
-          Left = 64
+          Left = 65
-          Top = 26
+          Top = 201
-          Width = 313
+          Width = 288
           Height = 21
-          TabOrder = 0
+          Anchors = [akLeft, akTop, akRight]
+          ReadOnly = True
+          TabOrder = 9
         end
-        object edFB2FileTemplate: TRzEdit
+        object edFBDFolderTemplate: TEdit
           Tag = 785
-          Left = 64
+          Left = 65
-          Top = 61
+          Top = 174
-          Width = 313
+          Width = 288
           Height = 21
-          TabOrder = 1
+          Anchors = [akLeft, akTop, akRight]
+          ReadOnly = True
+          TabOrder = 7
+          Text = '%g\%s'
         end
-      end
+        object btnFB2FolderTemplate: TButton
-      object RzGroupBox14: TRzGroupBox
+          Left = 359
-        AlignWithMargins = True
+          Top = 99
-        Left = 3
+          Width = 75
-        Top = 3
+          Height = 25
-        Width = 400
+          Anchors = [akTop, akRight]
-        Height = 46
+          Caption = #1048#1079#1084#1077#1085#1080#1090#1100
-        Align = alTop
+          TabOrder = 4
-        Caption = #1054#1087#1094#1080#1080
+          OnClick = EditFolderTemplate
-        TabOrder = 2
-        object cbEnableFileSort: TCheckBox
-          Left = 11
-          Top = 12
-          Width = 206
-          Height = 27
-          Caption = #1042#1082#1083#1102#1095#1080#1090#1100' '#1089#1086#1088#1090#1080#1088#1086#1074#1082#1091' '#1087#1088#1080' '#1080#1084#1087#1086#1088#1090#1077
-          TabOrder = 0
-          WordWrap = True
         end
-      end
+        object btnFB2FileTemplate: TButton
-      object RzGroupBox15: TRzGroupBox
+          Left = 359
-        AlignWithMargins = True
+          Top = 126
-        Left = 3
+          Width = 75
-        Top = 55
+          Height = 25
-        Width = 400
+          Anchors = [akTop, akRight]
-        Height = 51
+          Caption = #1048#1079#1084#1077#1085#1080#1090#1100
-        Align = alTop
+          TabOrder = 6
-        Caption = #1055#1072#1087#1082#1072
+          OnClick = EditFileNameTemplate
-        TabOrder = 3
-        object edInputFolder: TRzButtonEdit
-          Left = 11
-          Top = 18
-          Width = 374
-          Height = 21
-          HelpContext = 5001
-          TabOrder = 0
-          AltBtnWidth = 15
-          ButtonWidth = 15
-          OnButtonClick = edDeviceDirButtonClick
         end
+        object btnFBDFileTemplate: TButton
+          Left = 359
+          Top = 199
+          Width = 75
+          Height = 25
+          Anchors = [akTop, akRight]
+          Caption = #1048#1079#1084#1077#1085#1080#1090#1100
+          TabOrder = 10
+          OnClick = EditFileNameTemplate
+        end
+        object btnFBDFolderTemplate: TButton
+          Left = 359
+          Top = 172
+          Width = 75
+          Height = 25
+          Anchors = [akTop, akRight]
+          Caption = #1048#1079#1084#1077#1085#1080#1090#1100
+          TabOrder = 8
+          OnClick = EditFolderTemplate
+        end
       end
     end
   end
-  object RzPanel2: TRzPanel
+  object pnButtons: TPanel
+    Left = 0
+    Top = 464
+    Width = 617
+    Height = 41
+    Align = alBottom
+    BevelOuter = bvNone
+    Caption = 'pnButtons'
+    ShowCaption = False
+    TabOrder = 1
+    DesignSize = (
+      617
+      41)
+    object btnOk: TButton
+      Left = 453
+      Top = 10
+      Width = 75
+      Height = 25
+      Anchors = [akTop, akRight]
+      Caption = '&'#1057#1086#1093#1088#1072#1085#1080#1090#1100
+      Default = True
+      ModalResult = 1
+      TabOrder = 0
+      OnClick = SaveSettingsClick
+    end
+    object btnCancel: TButton
+      Left = 534
+      Top = 10
+      Width = 75
+      Height = 25
+      Anchors = [akTop, akRight]
+      Cancel = True
+      Caption = '&'#1054#1090#1084#1077#1085#1072
+      ModalResult = 2
+      TabOrder = 1
+    end
+    object btnHelp: TButton
+      Left = 12
+      Top = 10
+      Width = 75
+      Height = 25
+      Caption = #1057#1087#1088#1072#1074#1082#1072
+      TabOrder = 2
+      OnClick = ShowHelpClick
+    end
+  end
+  object tvSections: TTreeView
     AlignWithMargins = True
     Left = 3
-    Top = 3
+    Top = 5
-    Width = 185
+    Width = 150
-    Height = 409
+    Height = 455
+    Margins.Top = 5
+    Margins.Bottom = 4
     Align = alLeft
-    BorderOuter = fsFlatRounded
+    HideSelection = False
+    Indent = 19
+    RowSelect = True
     TabOrder = 2
-    object tvSections: TRzTreeView
+    OnChange = tvSectionsChange
-      AlignWithMargins = True
+    Items.NodeData = {
-      Left = 5
+      03070000003E0000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000
-      Top = 5
+      000000000001101F0430043F043A0438042F0023044104420440043E04390441
-      Width = 175
+      04420432043004340000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF00
-      Height = 399
+      00000000000000010B220438043F044B0420004404300439043B043E04320430
-      SelectionPen.Color = clBtnShadow
+      0000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000001
-      Align = alClient
+      0918043D0442043504400444043504390441042E0000000000000000000000FF
-      Indent = 19
+      FFFFFFFFFFFFFFFFFFFFFF0000000000000000010818043D044204350440043D
-      RowSelect = True
+      04350442042C0000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000
-      TabOrder = 0
+      0000000000010721043A04400438043F0442044B042A00000000000000000000
-      OnChange = tvSectionsChange
+      00FFFFFFFFFFFFFFFF00000000000000000000000001062004300437043D043E
-      Items.NodeData = {
+      043504400000000000000000000000FFFFFFFFFFFFFFFF000000000000000000
-        03070000003E0000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000
+      000000011121043E0440044204380440043E0432043A04300420004404300439
-        000000000001101F0430043F043A0438042F0023044104420440043E04390441
+      043B043E043204}
-        04420432043004340000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF00
-        00000000000000010B220438043F044B0420004404300439043B043E04320430
-        0000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000000000000001
-        0918043D0442043504400444043504390441042E0000000000000000000000FF
-        FFFFFFFFFFFFFFFFFFFFFF0000000000000000010818043D044204350440043D
-        04350442042C0000000000000000000000FFFFFFFFFFFFFFFFFFFFFFFF000000
-        0000000000010721043A04400438043F0442044B042A00000000000000000000
-        00FFFFFFFFFFFFFFFF00000000000000000000000001062004300437043D043E
-        043504400000000000000000000000FFFFFFFFFFFFFFFF000000000000000000
-        000000011121043E0440044204380440043E0432043A04300420004404300439
-        043B043E043204}
-    end
   end
   object dlgColors: TColorDialog
     Left = 32
     Top = 176
   end
-  object dlgSelectDir: TRzSelDirDialog
-    CenterToParent = True
-    Position = poOwnerFormCenter
-    AllowCreate = True
-    ButtonGlyphs = True
-    ChangeCurrentDir = False
-    DriveTypes = [dtFloppy, dtFixed, dtNetwork, dtRAM]
-    OpenCurrentDir = True
-    AutoSelect = True
-    Prompt = #1048#1084#1103' '#1087#1072#1087#1082#1080
-    PromptFolders = #1055#1072#1087#1082#1080
-    PromptDrives = #1059#1089#1090#1088#1086#1081#1089#1090#1074#1072
-    Caption = #1059#1082#1072#1078#1080#1090#1077' '#1087#1072#1087#1082#1091
-    CaptionOK = 'OK'
-    CaptionCancel = #1054#1090#1084#1077#1085#1072
-    CaptionHelp = '&'#1057#1087#1088#1072#1074#1082#1072
-    Font.Charset = DEFAULT_CHARSET
-    Font.Color = clWindowText
-    Font.Height = -11
-    Font.Name = 'Tahoma'
-    Font.Style = []
-    FrameVisible = True
-    Left = 96
-    Top = 176
-  end
 end

MyHomeLib

Affected files

trunk/Forms/frm_add_nonfb2.pas Download diff

trunk/Forms/frm_ConverToFBD.pas Download diff

trunk/Forms/frm_main.pas Download diff

trunk/Forms/frm_settings.dfm Download diff

trunk/Forms/frm_settings.pas Download diff

trunk/ImportImpl/unit_ImportFB2Thread.pas Download diff

trunk/ImportImpl/unit_ImportFB2ThreadBase.pas Download diff

trunk/ImportImpl/unit_ImportFB2ZIPThread.pas Download diff

trunk/ImportImpl/unit_ImportFBDThread.pas Download diff

trunk/Units/unit_Database.pas Download diff

trunk/Units/unit_Globals.pas Download diff

trunk/Units/unit_Settings.pas Download diff

trunk/UtilsImpl/unit_ExportToDeviceThread.pas Download diff