From 65a63b37d95d9428aa987e16c4b4c0f7c1edfeda Mon Sep 17 00:00:00 2001 From: alexs75 Date: Fri, 26 Jul 2019 18:49:17 +0000 Subject: [PATCH] RxFPC:design time editor for TRxViewsPanel git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@7077 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../rx/trunk/dcl_rx_ctrl/register_rxctrl.pas | 38 ++++++++++++++++++- components/rx/trunk/languages/rxconst.es.po | 4 ++ components/rx/trunk/languages/rxconst.pl.po | 4 ++ components/rx/trunk/languages/rxconst.pot | 4 ++ components/rx/trunk/languages/rxconst.ru.po | 4 ++ components/rx/trunk/languages/rxconst.tr.po | 4 ++ components/rx/trunk/languages/rxconst.uk.po | 4 ++ components/rx/trunk/rxtools/rxconst.pas | 1 + 8 files changed, 62 insertions(+), 1 deletion(-) diff --git a/components/rx/trunk/dcl_rx_ctrl/register_rxctrl.pas b/components/rx/trunk/dcl_rx_ctrl/register_rxctrl.pas index e3c07ae69..74ed861e5 100644 --- a/components/rx/trunk/dcl_rx_ctrl/register_rxctrl.pas +++ b/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); diff --git a/components/rx/trunk/languages/rxconst.es.po b/components/rx/trunk/languages/rxconst.es.po index 2968b1a55..3c66c249b 100644 --- a/components/rx/trunk/languages/rxconst.es.po +++ b/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 "" diff --git a/components/rx/trunk/languages/rxconst.pl.po b/components/rx/trunk/languages/rxconst.pl.po index e4ae38c08..4370711b1 100644 --- a/components/rx/trunk/languages/rxconst.pl.po +++ b/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" diff --git a/components/rx/trunk/languages/rxconst.pot b/components/rx/trunk/languages/rxconst.pot index 2c3c11d68..ba3222888 100644 --- a/components/rx/trunk/languages/rxconst.pot +++ b/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 "" diff --git a/components/rx/trunk/languages/rxconst.ru.po b/components/rx/trunk/languages/rxconst.ru.po index 16ce5f762..1b9eb3b6d 100644 --- a/components/rx/trunk/languages/rxconst.ru.po +++ b/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 "Вторая половина года" diff --git a/components/rx/trunk/languages/rxconst.tr.po b/components/rx/trunk/languages/rxconst.tr.po index 62a84212e..8f782ffb6 100644 --- a/components/rx/trunk/languages/rxconst.tr.po +++ b/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ı" diff --git a/components/rx/trunk/languages/rxconst.uk.po b/components/rx/trunk/languages/rxconst.uk.po index be55f121e..031670377 100644 --- a/components/rx/trunk/languages/rxconst.uk.po +++ b/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 "" diff --git a/components/rx/trunk/rxtools/rxconst.pas b/components/rx/trunk/rxtools/rxconst.pas index a6077ff86..b814152ea 100644 --- a/components/rx/trunk/rxtools/rxconst.pas +++ b/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"';