IDE: multi paste: added history

git-svn-id: trunk@53066 -

ide/multipastedlg.lfm

@@ -1,84 +1,88 @@
 object MultiPasteDialog: TMultiPasteDialog
   Left = 245
-  Height = 500
+  Height = 504
   Top = 137
-  Width = 460
+  Width = 466
   BorderStyle = bsDialog
   Caption = 'MultiPaste'
-  ClientHeight = 500
-  ClientWidth = 460
+  ClientHeight = 504
+  ClientWidth = 466
+  OnCreate = FormCreate
+  OnDestroy = FormDestroy
   Position = poScreenCenter
   LCLVersion = '1.7'
   object PasteOptsGroupBox: TGroupBox
     Left = 6
-    Height = 216
+    Height = 210
     Top = 6
-    Width = 448
+    Width = 454
     Align = alTop
     AutoSize = True
     BorderSpacing.Left = 6
     BorderSpacing.Top = 6
     BorderSpacing.Right = 6
     Caption = 'Paste &options'
-    ClientHeight = 197
-    ClientWidth = 444
+    ClientHeight = 195
+    ClientWidth = 450
     TabOrder = 0
     object TxtBeforeLinesLabel: TLabel
       Left = 6
-      Height = 17
+      Height = 13
       Top = 6
-      Width = 432
+      Width = 438
       Align = alTop
       BorderSpacing.Left = 6
       BorderSpacing.Top = 6
       BorderSpacing.Right = 6
       Caption = 'Text &before each line'
-      FocusControl = TxtBeforeLinesEdit
+      FocusControl = TxtBeforeLinesComboBox
       ParentColor = False
     end
-    object TxtBeforeLinesEdit: TEdit
+    object TxtBeforeLinesComboBox: TComboBox
       Left = 6
       Height = 27
-      Top = 26
-      Width = 432
+      Top = 22
+      Width = 438
       Align = alTop
       BorderSpacing.Left = 6
       BorderSpacing.Top = 3
       BorderSpacing.Right = 6
+      ItemHeight = 0
       TabOrder = 0
     end
     object TxtAfterLinesLabel: TLabel
       Left = 6
-      Height = 17
-      Top = 59
-      Width = 432
+      Height = 13
+      Top = 55
+      Width = 438
       Align = alTop
       BorderSpacing.Left = 6
       BorderSpacing.Top = 6
       BorderSpacing.Right = 6
       Caption = 'Text &after each line'
-      FocusControl = TxtAfterLinesEdit
+      FocusControl = TxtAfterLinesComboBox
       ParentColor = False
     end
-    object TxtAfterLinesEdit: TEdit
+    object TxtAfterLinesComboBox: TComboBox
       Left = 6
       Height = 27
-      Top = 79
-      Width = 432
+      Top = 71
+      Width = 438
       Align = alTop
       BorderSpacing.Left = 6
       BorderSpacing.Top = 3
       BorderSpacing.Right = 6
+      ItemHeight = 0
       TabOrder = 1
     end
     object EscQuotesCheckBox: TCheckBox
-      AnchorSideLeft.Control = TxtAfterLinesEdit
-      AnchorSideTop.Control = TxtAfterLinesEdit
+      AnchorSideLeft.Control = TxtAfterLinesComboBox
+      AnchorSideTop.Control = TxtAfterLinesComboBox
       AnchorSideTop.Side = asrBottom
       Left = 6
-      Height = 21
-      Top = 112
-      Width = 104
+      Height = 24
+      Top = 104
+      Width = 105
       BorderSpacing.Top = 6
       BorderSpacing.Right = 6
       Caption = 'Escape &quotes'
@@ -92,7 +96,7 @@ object MultiPasteDialog: TMultiPasteDialog
       AnchorSideTop.Side = asrBottom
       Left = 26
       Height = 25
-      Top = 139
+      Top = 134
       Width = 180
       BorderSpacing.Left = 20
       BorderSpacing.Top = 6
@@ -111,9 +115,9 @@ object MultiPasteDialog: TMultiPasteDialog
       AnchorSideTop.Control = EscQuotesStyleComboBox
       AnchorSideTop.Side = asrBottom
       Left = 6
-      Height = 21
-      Top = 170
-      Width = 155
+      Height = 24
+      Top = 165
+      Width = 157
       BorderSpacing.Top = 6
       BorderSpacing.Bottom = 6
       Caption = '&Trim clipboard contents'
@@ -124,20 +128,20 @@ object MultiPasteDialog: TMultiPasteDialog
   end
   object PreviewGroupBox: TGroupBox
     Left = 6
-    Height = 225
-    Top = 228
-    Width = 448
+    Height = 234
+    Top = 222
+    Width = 454
     Align = alClient
     BorderSpacing.Around = 6
     Caption = '&Preview'
-    ClientHeight = 206
-    ClientWidth = 444
+    ClientHeight = 219
+    ClientWidth = 450
     TabOrder = 1
     inline PreviewSynEdit: TSynEdit
       Left = 6
-      Height = 194
+      Height = 207
       Top = 6
-      Width = 432
+      Width = 438
       Align = alClient
       BorderSpacing.Around = 6
       Font.Height = 13
@@ -636,9 +640,9 @@ object MultiPasteDialog: TMultiPasteDialog
   end
   object BottomButtonPanel: TButtonPanel
     Left = 6
-    Height = 35
-    Top = 459
-    Width = 448
+    Height = 36
+    Top = 462
+    Width = 454
     BorderSpacing.Left = 6
     BorderSpacing.Right = 6
     BorderSpacing.Bottom = 6

ide/multipastedlg.pas

@@ -39,21 +39,31 @@ unit MultiPasteDlg;
 interface
 
 uses
-  SysUtils, Classes, StdCtrls, ButtonPanel, Forms, Clipbrd, IDEHelpIntf, SynEdit;
+  SysUtils, Classes, StdCtrls, ButtonPanel, Forms, Clipbrd, SynEdit,
+  IDEHelpIntf, InputHistory, IDEProcs;
+
+const
+  hlFormatPasteTxtBefore = 'FormatPasteTxtBefore';
+  hlFormatPasteTxtAfter = 'FormatPasteTxtAfter';
 
 type
+
+  { TMultiPasteDialog }
+
   TMultiPasteDialog = class(TForm)
     BottomButtonPanel: TButtonPanel;
     PreviewSynEdit: TSynEdit;
     TrimClipbrdContentsCheckBox: TCheckBox;
     EscQuotesCheckBox: TCheckBox;
     EscQuotesStyleComboBox: TComboBox;
-    TxtBeforeLinesEdit: TEdit;
-    TxtAfterLinesEdit: TEdit;
+    TxtAfterLinesComboBox: TComboBox;
+    TxtBeforeLinesComboBox: TComboBox;
     TxtBeforeLinesLabel: TLabel;
     TxtAfterLinesLabel: TLabel;
     PasteOptsGroupBox: TGroupBox;
     PreviewGroupBox: TGroupBox;
+    procedure FormCreate(Sender: TObject);
+    procedure FormDestroy(Sender: TObject);
   private
     FContent: TStringList;
   protected
@@ -63,8 +73,6 @@ type
     procedure DoEscQuotesCheckBoxChange(Sender: TObject); virtual;
     procedure DoHelpButtonClick(Sender: TObject); virtual;
   public
-    constructor Create(AOwner: TComponent); override;
-    destructor Destroy; override;
     property Content: TStringList read FContent;
   end;
 
@@ -72,24 +80,42 @@ implementation
 
 {$R *.lfm}
 
-constructor TMultiPasteDialog.Create(AOwner: TComponent);
+procedure TMultiPasteDialog.FormCreate(Sender: TObject);
+var
+  List: THistoryList;
 begin
-  inherited Create(AOwner);
   FContent := TStringList.Create;
   OnShow := @DoWatch;
   OnActivate := @DoWatch;
-  TxtBeforeLinesEdit.OnChange := @DoWatch;
-  TxtAfterLinesEdit.OnChange := @DoWatch;
+  TxtBeforeLinesComboBox.OnChange := @DoWatch;
+  TxtAfterLinesComboBox.OnChange := @DoWatch;
   EscQuotesCheckBox.OnChange := @DoEscQuotesCheckBoxChange;
   EscQuotesStyleComboBox.OnChange := @DoWatch;
   TrimClipbrdContentsCheckBox.OnChange := @DoWatch;
   BottomButtonPanel.HelpButton.OnClick := @DoHelpButtonClick;
+
+  List:=InputHistories.HistoryLists.GetList(hlFormatPasteTxtBefore,true,rltCaseSensitive);
+  List.AppendEntry('Add(''');
+  TxtBeforeLinesComboBox.Items.Assign(List);
+  TxtBeforeLinesComboBox.Text:=List[0];
+
+  List:=InputHistories.HistoryLists.GetList(hlFormatPasteTxtAfter,true,rltCaseSensitive);
+  List.AppendEntry(''');');
+  TxtAfterLinesComboBox.Items.Assign(List);
+  TxtAfterLinesComboBox.Text:=List[0];
 end;
 
-destructor TMultiPasteDialog.Destroy;
+procedure TMultiPasteDialog.FormDestroy(Sender: TObject);
 begin
+  TxtBeforeLinesComboBox.AddHistoryItem(TxtBeforeLinesComboBox.Text,20,true,false);
+  InputHistories.HistoryLists.GetList(hlFormatPasteTxtBefore,true,rltCaseSensitive)
+    .Assign(TxtBeforeLinesComboBox.Items);
+
+  TxtAfterLinesComboBox.AddHistoryItem(TxtAfterLinesComboBox.Text,20,true,false);
+  InputHistories.HistoryLists.GetList(hlFormatPasteTxtAfter,true,rltCaseSensitive)
+    .Assign(TxtAfterLinesComboBox.Items);
+
   FreeAndNil(FContent);
-  inherited Destroy;
 end;
 
 procedure TMultiPasteDialog.DoWatch(Sender: TObject);
@@ -121,7 +147,7 @@ begin
         0: S := StringReplace(S, '''', '''''', [rfReplaceAll]);
         1: S := StringReplace(S, '"', '\"', [rfReplaceAll]);
       end;
-    FContent[I] := Concat(TxtBeforeLinesEdit.Text, S, TxtAfterLinesEdit.Text);
+    FContent[I] := Concat(TxtBeforeLinesComboBox.Text, S, TxtAfterLinesComboBox.Text);
   end;
   Result := FContent.Text;
 end;