A new form for editing lines in a memo.

git-svn-id: trunk@28047 -

.gitattributes

@@ -3709,6 +3709,8 @@ ide/frames/window_options.lfm svneol=native#text/plain
 ide/frames/window_options.pas svneol=native#text/pascal
 ide/frmcustomapplicationoptions.lfm svneol=native#text/plain
 ide/frmcustomapplicationoptions.pas svneol=native#text/plain
+ide/genericlisteditor.lfm svneol=native#text/plain
+ide/genericlisteditor.pas svneol=native#text/plain
 ide/gotofrm.lfm svneol=native#text/plain
 ide/gotofrm.pas svneol=native#text/plain
 ide/helpfpcmessages.pas svneol=native#text/plain

ide/genericlisteditor.lfm

@@ -0,0 +1,40 @@
+object GenericListEditForm: TGenericListEditForm
+  Left = 452
+  Height = 301
+  Top = 526
+  Width = 343
+  Caption = 'GenericListEditForm'
+  ClientHeight = 301
+  ClientWidth = 343
+  Position = poScreenCenter
+  LCLVersion = '0.9.29'
+  object ButtonPanel1: TButtonPanel
+    Left = 6
+    Height = 40
+    Top = 255
+    Width = 331
+    OKButton.Name = 'OKButton'
+    OKButton.Caption = '&OK'
+    HelpButton.Name = 'HelpButton'
+    HelpButton.Caption = '&Help'
+    HelpButton.Enabled = False
+    CloseButton.Name = 'CloseButton'
+    CloseButton.Caption = '&Close'
+    CloseButton.Enabled = False
+    CancelButton.Name = 'CancelButton'
+    CancelButton.Caption = 'Cancel'
+    TabOrder = 0
+    ShowButtons = [pbOK, pbCancel]
+  end
+  object Memo1: TMemo
+    Left = 0
+    Height = 249
+    Top = 0
+    Width = 343
+    Align = alClient
+    Lines.Strings = (
+      ''
+    )
+    TabOrder = 1
+  end
+end

ide/genericlisteditor.pas

@@ -0,0 +1,32 @@
+unit GenericListEditor;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  Classes, SysUtils, FileUtil, Forms, Controls, Graphics, Dialogs, ButtonPanel,
+  StdCtrls;
+
+type
+
+  { TGenericListEditForm }
+
+  TGenericListEditForm = class(TForm)
+    ButtonPanel1: TButtonPanel;
+    Memo1: TMemo;
+  private
+
+  public
+
+  end; 
+
+var
+  GenericListEditForm: TGenericListEditForm;
+
+implementation
+
+{$R *.lfm}
+
+end.
+