RxFPC:design time editor for TRxViewsPanel

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

components/rx/trunk/dcl_rx_ctrl/register_rxctrl.pas

@@ -89,6 +89,15 @@ type
     procedure ExecuteVerb(Index:integer);override;
   end;
 
+  { TRxViewsPanelEditor }
+
+  TRxViewsPanelEditor = class(TComponentEditor)
+  public
+    function GetVerbCount:integer;override;
+    function GetVerb(Index:integer):string;override;
+    procedure ExecuteVerb(Index:integer);override;
+  end;
+
   { TRxCloseFormValidatorEditor }
 
   TRxCloseFormValidatorEditor = class(TComponentEditor)
@@ -101,11 +110,37 @@ type
 procedure Register;
 implementation
 uses RxLogin, Dialogs, rxconst, RxHistoryNavigator, rxpopupunit, rxtoolbar, RxCloseFormValidator,
-  rxceEditLookupFields, rxdbgrid, rxdconst, rxduallist, rxstrutils, Forms;
+  rxceEditLookupFields, rxdbgrid, rxdconst, rxduallist, rxstrutils, Forms, RxViewsPanel;
 
 resourcestring
   sTestTRxLoginDialog = 'Test TRxLoginDialog';
 
+{ TRxViewsPanelEditor }
+
+function TRxViewsPanelEditor.GetVerbCount: integer;
+begin
+  Result:=1;
+end;
+
+function TRxViewsPanelEditor.GetVerb(Index: integer): string;
+begin
+  if Index = 0 then Result:=sRxViewsPanelEditor
+  else Result:='';
+end;
+
+procedure TRxViewsPanelEditor.ExecuteVerb(Index: integer);
+var
+  FRxViewsPanel: TRxViewsPanel;
+begin
+  if Index = 0 then
+  begin
+    FRxViewsPanel:=GetComponent as TRxViewsPanel;
+    TCollectionPropertyEditor.ShowCollectionEditor(FRxViewsPanel.Items, FRxViewsPanel, 'Items');
+  end
+  else
+    inherited ExecuteVerb(Index);
+end;
+
 { TRxCloseFormValidatorEditor }
 
 function TRxCloseFormValidatorEditor.GetVerbCount: integer;
@@ -345,6 +380,7 @@ begin
   RegisterComponentEditor(TRxLoginDialog, TRxLoginDialogEditor);
   RegisterComponentEditor(TToolPanel, TToolPanelEditor);
   RegisterComponentEditor(TRxCloseFormValidator, TRxCloseFormValidatorEditor);
+  RegisterComponentEditor(TRxViewsPanel, TRxViewsPanelEditor);
 
   //
   RegisterPropertyEditor(TypeInfo(string), TPopUpColumn, 'FieldName', TPopUpColumnFieldProperty);

components/rx/trunk/languages/rxconst.es.po

@@ -297,6 +297,10 @@ msgstr ""
 msgid "Rx toolpanel editor"
 msgstr ""
 
+#: rxconst.srxviewspaneleditor
+msgid "Rx views panel editor"
+msgstr ""
+
 #: rxconst.ssecondhalfofyear
 msgid "Second half of year"
 msgstr ""

components/rx/trunk/languages/rxconst.pl.po

@@ -304,6 +304,10 @@ msgstr ""
 msgid "Rx toolpanel editor"
 msgstr ""
 
+#: rxconst.srxviewspaneleditor
+msgid "Rx views panel editor"
+msgstr ""
+
 #: rxconst.ssecondhalfofyear
 msgid "Second half of year"
 msgstr "Druga połowa roku"

components/rx/trunk/languages/rxconst.pot

@@ -294,6 +294,10 @@ msgstr ""
 msgid "Rx toolpanel editor"
 msgstr ""
 
+#: rxconst.srxviewspaneleditor
+msgid "Rx views panel editor"
+msgstr ""
+
 #: rxconst.ssecondhalfofyear
 msgid "Second half of year"
 msgstr ""

components/rx/trunk/languages/rxconst.ru.po

@@ -304,6 +304,10 @@ msgstr "Редактор RxTextHolder"
 msgid "Rx toolpanel editor"
 msgstr "Редактор RxToolPanel"
 
+#: rxconst.srxviewspaneleditor
+msgid "Rx views panel editor"
+msgstr "Редактор RxViewsPanel"
+
 #: rxconst.ssecondhalfofyear
 msgid "Second half of year"
 msgstr "Вторая половина года"

components/rx/trunk/languages/rxconst.tr.po

@@ -305,6 +305,10 @@ msgstr "Rx metin tutucu editörü"
 msgid "Rx toolpanel editor"
 msgstr ""
 
+#: rxconst.srxviewspaneleditor
+msgid "Rx views panel editor"
+msgstr ""
+
 #: rxconst.ssecondhalfofyear
 msgid "Second half of year"
 msgstr "Yılın ikinci yarısı"

components/rx/trunk/languages/rxconst.uk.po

@@ -309,6 +309,10 @@ msgstr ""
 msgid "Rx toolpanel editor"
 msgstr ""
 
+#: rxconst.srxviewspaneleditor
+msgid "Rx views panel editor"
+msgstr ""
+
 #: rxconst.ssecondhalfofyear
 msgid "Second half of year"
 msgstr ""

components/rx/trunk/rxtools/rxconst.pas

@@ -92,6 +92,7 @@ resourcestring
   sSeparator            = 'Separator';
   sRxToolPanelEditor    = 'Rx toolpanel editor';
   sRxCloseFormValidatorEditor    = 'Rx close form validator editor';
+  sRxViewsPanelEditor   = 'Rx views panel editor';
 
   { TRxHistoryNavigator }
   sHistoryDesc          = 'History - "%s"';