jvcllaz: Add TJvStrHolder and TJvMultiStringHolder

git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6715 8e941d3f-bd1b-0410-a28a-d453659cc2b4

components/jvcllaz/design/JvCmp/images/images.txt

@@ -1,2 +1,3 @@
+tjvstrholder.bmp
+tjvmultistringholder.bmp
 tjvspellchecker.bmp
-tjventerastab.bmp

components/jvcllaz/design/JvCmp/jvdmpreg.pas

@@ -14,17 +14,18 @@ implementation
 {$R ../../resource/jvcmpreg.res}
 
 uses
-  Classes, PropEdits,
-  JvDsgnConsts,
-//  JvEnterTab,
-  JvSpellChecker;
+  Classes, PropEdits, ComponentEditors,
+  JvDsgnConsts, //JvDsgnEditors,
+  JvStringHolder, JvSpellChecker,
+  JvStrHolderEditor;
 
 procedure Register;
 begin
   RegisterComponents(RsPaletteJvcl, [
-//    TJvEnterAsTab,
+    TJvStrHolder, TJvMultiStringHolder,
     TJvSpellChecker
   ]);
+  RegisterComponentEditor(TJvStrHolder, TJvStrHolderEditor);
 end;
 
 end.

components/jvcllaz/design/JvCmp/jvstrholdereditor.pas

@@ -0,0 +1,76 @@
+unit JvStrHolderEditor;
+
+{$mode objfpc}{$H+}
+
+interface
+
+uses
+  SysUtils, Classes, Controls,
+  ComponentEditors;
+
+type
+  TJvStrHolderEditor = class(TDefaultComponentEditor)
+  public
+    procedure Edit; override;
+    procedure ExecuteVerb(AIndex: integer); override;
+    function GetVerb(AIndex: Integer): string; override;
+    function GetVerbCount: Integer; override;
+  end;
+
+
+implementation
+
+uses
+  Forms, JvStringHolder, JvStringsForm;
+
+procedure TJvStrHolderEditor.Edit;
+var
+  Temp: string;
+  Comp: TPersistent;
+begin
+  with TJvStrEditDlg.Create(Application) do
+  try
+    Comp := Self.GetComponent;
+    (*
+    if Comp is TComponent then
+      Caption := TComponent(Comp).Name + '.' + GetName
+    else
+      Caption := GetName;
+    Temp := GetStrValue;
+    Memo.Lines.Text := Temp;
+    *)
+    Memo.Lines.Assign((Comp as TJvStrHolder).Strings);
+    UpdateStatus(nil);
+    if ShowModal = mrOk then
+    begin
+      Temp := Memo.Text;
+      while (Length(Temp) > 0) and (Temp[Length(Temp)] < ' ') do
+        System.Delete(Temp, Length(Temp), 1);
+      (Comp as TJvStrHolder).Strings.Text := Temp;
+//      SetStrValue(Temp);
+    end;
+  finally
+    Free;
+  end;
+end;
+
+procedure TJvStrHolderEditor.ExecuteVerb(AIndex: Integer);
+begin
+  if AIndex = 0 then Edit;
+end;
+
+function TJvStrHolderEditor.GetVerb(AIndex: Integer): string;
+begin
+  case AIndex of
+    0: Result := 'Strings Editor ----';
+    else Result := '';
+  end;
+end;
+
+function TJvStrHolderEditor.GetVerbCount: Integer;
+begin
+  Result := 1;
+end;
+
+end.
+