RxFPC:Default component editor RxCloseFormValidator.Items

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

components/rx/trunk/dcl_rx_ctrl.lpk

@@ -17,7 +17,7 @@
       </Parsing>
     </CompilerOptions>
     <Description Value="Design time packet for rx lib"/>
-    <Version Major="2" Minor="6" Release="5" Build="2"/>
+    <Version Major="3" Minor="3" Release="1" Build="4"/>
     <Files Count="2">
       <Item1>
         <Filename Value="dcl_rx_ctrl/register_rxctrl.pas"/>
@@ -44,7 +44,6 @@
     </UsageOptions>
     <PublishOptions>
       <Version Value="2"/>
-      <IgnoreBinaries Value="False"/>
     </PublishOptions>
   </Package>
 </CONFIG>

components/rx/trunk/dcl_rx_ctrl/register_rxctrl.pas

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

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

@@ -188,6 +188,10 @@ msgstr "Anterior A?o|"
 msgid "Error. Expected value for field %s."
 msgstr ""
 
+#: rxconst.srxcloseformvalidatoreditor
+msgid "Rx close form validator editor"
+msgstr ""
+
 #: rxconst.srxlogindlgbtnmore
 msgid "More >>"
 msgstr ""

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

@@ -196,6 +196,10 @@ msgstr "Poprzedni rok|"
 msgid "Error. Expected value for field %s."
 msgstr "Błąd. Spodziewano wartości dla pola %s."
 
+#: rxconst.srxcloseformvalidatoreditor
+msgid "Rx close form validator editor"
+msgstr ""
+
 #: rxconst.srxlogindlgbtnmore
 msgid "More >>"
 msgstr "Więcej >>"

components/rx/trunk/languages/rxconst.po

@@ -186,6 +186,10 @@ msgstr ""
 msgid "Error. Expected value for field %s."
 msgstr ""
 
+#: rxconst.srxcloseformvalidatoreditor
+msgid "Rx close form validator editor"
+msgstr ""
+
 #: rxconst.srxlogindlgbtnmore
 msgid "More >>"
 msgstr ""

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

@@ -196,6 +196,10 @@ msgstr "Превыдущий год|"
 msgid "Error. Expected value for field %s."
 msgstr "Поле %s. Требуется значение"
 
+#: rxconst.srxcloseformvalidatoreditor
+msgid "Rx close form validator editor"
+msgstr "Редактор RxCloseFormValidator"
+
 #: rxconst.srxlogindlgbtnmore
 msgid "More >>"
 msgstr "Больше >>"
@@ -360,4 +364,3 @@ msgstr "Интерфейс : "
 #: rxconst.swindowsicofiles
 msgid "Windows Ico files (*.ico)|*.ico|All files (*.*)|*.*"
 msgstr "Файлы иконок Windows (*.ico)|*.ico|Все файлы (*.*)|*.*"
-

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

@@ -201,6 +201,10 @@ msgstr "Попередній місяць|"
 msgid "Error. Expected value for field %s."
 msgstr "Поле %s. Вимагається значення"
 
+#: rxconst.srxcloseformvalidatoreditor
+msgid "Rx close form validator editor"
+msgstr ""
+
 #: rxconst.srxlogindlgbtnmore
 msgid "More >>"
 msgstr ""

components/rx/trunk/rxtools/rxconst.pas

@@ -90,6 +90,7 @@ resourcestring
   SOutOfRange           = 'Out of range %d %d %d %d';
   sSeparator            = 'Separator';
   sRxToolPanelEditor    = 'Rx toolpanel editor';
+  sRxCloseFormValidatorEditor    = 'Rx close form validator editor';
 
   { TRxHistoryNavigator }
   sHistoryDesc          = 'History - "%s"';