pascal/lazarus-ccr
1
0
Fork 0
Code Issues Releases Activity

tvplanit: Add component editor for TVpPrintPreviewDialog

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8491 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-09-19 16:18:08 +00:00
parent 96a78dc93d
commit 45da1b1781
11 changed files with 97 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
components/tvplanit/languages/vpsr.de.po
View File

@ -1328,6 +1328,10 @@ msgstr "Aufgabenliste"
msgid "Task list - "
msgstr "Aufgabenliste - "
#: vpsr.rstestdialog
msgid "Test dialog..."
msgstr "Dialog testen..."
#: vpsr.rstextcaption
msgid "Text"
msgstr "Text"

4
components/tvplanit/languages/vpsr.en.po
View File

@ -1310,6 +1310,10 @@ msgstr "Task list"
msgid "Task list - "
msgstr "Task list - "
#: vpsr.rstestdialog
msgid "Test dialog..."
msgstr "Test dialog..."
#: vpsr.rstextcaption
msgid "Text"
msgstr "Text"

4
components/tvplanit/languages/vpsr.fi.po
View File

@ -1317,6 +1317,10 @@ msgstr ""
msgid "Task list - "
msgstr ""
#: vpsr.rstestdialog
msgid "Test dialog..."
msgstr ""
#: vpsr.rstextcaption
msgid "Text"
msgstr ""

11
components/tvplanit/languages/vpsr.fr.po
View File

@ -1332,6 +1332,10 @@ msgstr "Liste des tâches"
msgid "Task list - "
msgstr "Liste des tâches -"
#: vpsr.rstestdialog
msgid "Test dialog..."
msgstr ""
#: vpsr.rstextcaption
msgid "Text"
msgstr ""
@ -1388,7 +1392,7 @@ msgid "Tuesday"
msgstr "Mardi"
#: vpsr.rsunabletoopen
#, fuzzy, object-pascal-format
#, object-pascal-format, fuzzy, badformat
#| msgid "Error: Unable to open "
msgid "Error: Unable to open %s"
msgstr "Erreur: Incapable d'ouvrir"
@ -1698,7 +1702,7 @@ msgid "Invalid XML Character found"
msgstr "Caractère XML non valide trouvé"
#: vpsr.sinvalidxmlversion
#, fuzzy, object-pascal-format
#, object-pascal-format, fuzzy, badformat
msgid "XMLPartner does not support XML specification greater than %s"
msgstr "XMLPartner ne supporte pas la spécification XML supérieure à"
@ -1807,10 +1811,11 @@ msgid "End of input while looking for delimiter: "
msgstr "Fin de l'entrée tout en recherchant delimiter:"
#: vpsr.sunknownaxis
#, fuzzy, object-pascal-format
#, object-pascal-format, fuzzy, badformat
msgid "Unknown axis specifier: %s"
msgstr "Spécificateur d'axe inconnu"
#: vpsr.sxmldecnotatbeg
msgid "The XML declaration must appear before the first element"
msgstr "La déclaration XML doit apparaître avant le premier élément"

4
components/tvplanit/languages/vpsr.nl.po
View File

@ -1328,6 +1328,10 @@ msgstr "Taaklijst"
msgid "Task list - "
msgstr "Taaklijst - "
#: vpsr.rstestdialog
msgid "Test dialog..."
msgstr ""
#: vpsr.rstextcaption
msgid "Text"
msgstr ""

4
components/tvplanit/languages/vpsr.pl.po
View File

@ -1327,6 +1327,10 @@ msgstr "Lista zadań"
msgid "Task list - "
msgstr "Lista zadań - "
#: vpsr.rstestdialog
msgid "Test dialog..."
msgstr ""
#: vpsr.rstextcaption
msgid "Text"
msgstr "Tekst"

4
components/tvplanit/languages/vpsr.pot
View File

@ -1300,6 +1300,10 @@ msgstr ""
msgid "Task list - "
msgstr ""
#: vpsr.rstestdialog
msgid "Test dialog..."
msgstr ""
#: vpsr.rstextcaption
msgid "Text"
msgstr ""

4
components/tvplanit/languages/vpsr.ru.po
View File

@ -1326,6 +1326,10 @@ msgstr "Список задач"
msgid "Task list - "
msgstr "Список задач - "
#: vpsr.rstestdialog
msgid "Test dialog..."
msgstr ""
#: vpsr.rstextcaption
msgid "Text"
msgstr ""

62
components/tvplanit/source/design/vpreg.pas
View File

@ -26,7 +26,7 @@
{* *}
{* ***** END LICENSE BLOCK ***** *}
{$I Vp.INC} { Compiler Version Defines }
{$I vp.inc} { Compiler Version Defines }
{$R vpreg.res} { Palette Glyphs }
@ -139,10 +139,8 @@ type
TVpAboutProperty = class(TStringProperty)
public
function GetAttributes: TPropertyAttributes;
override;
procedure Edit;
override;
function GetAttributes: TPropertyAttributes; override;
procedure Edit; override;
end;
TVpFlexDSEditor = class(TComponentEditor)
@ -151,6 +149,15 @@ type
function GetVerbCount: Integer; override;
end;
TVpBaseDialogComponentEditor = class(TComponentEditor)
private
procedure TestDialog;
public
function GetVerbCount: Integer; override;
function GetVerb(Index: Integer): string; override;
procedure ExecuteVerb(Index: Integer); override;
end;
procedure Register;
@ -161,7 +168,7 @@ uses
DbTables, { VCL - BDE runtime unit }
VpWavPE, { Wav File Finder - Property Editor }
{$ENDIF}
VpMisc,
VpSR, VpMisc,
{ Component Units }
VpBase, { Base classes for Vp }
@ -568,6 +575,37 @@ begin
end;
{ TVpBaseDialogComponentEditor }
procedure TVpBaseDialogComponentEditor.TestDialog;
begin
with Component as TVpBaseDialog do Execute;
end;
function TVpBaseDialogComponentEditor.GetVerbCount: Integer;
begin
Result := 1;
end;
function TVpBaseDialogComponentEditor.GetVerb(Index: integer): string;
begin
case Index of
0: Result := RSTestDialog;
else
Result := inherited GetVerb(Index);
end;
end;
procedure TVpBaseDialogComponentEditor.ExecuteVerb(Index: Integer);
begin
case Index of
0: TestDialog;
else
inherited ExecuteVerb(Index);
end;
end;
{******************************************************************************}
{ Component registration }
{******************************************************************************}
@ -580,6 +618,18 @@ begin
RegisterComponentEditor(TVpNavBar, TVpNavBarEditor);
RegisterComponentEditor(TVpControlLink, TVpPrtFmtPropertyEditor);
RegisterComponentEditor(TVpFlexDataStore, TVpFlexDSEditor);
RegisterComponentEditor(TVpPrintPreviewDialog, TVpBaseDialogComponentEditor);
{ The next dialog is already handled by the TVpPrtFmtPropertyEditor:
RegisterComponentEditor(TVpPrintFormatEditDialog, TVpBaseDialogComponentEditor);
}
{ The following dialogs have a different Execute method and require existing
planner item data and, thus, are not useful at design-time:
RegisterComponentEditor(TVpResourceEditDialog, TVpBaseDialogComponentEditor);
RegisterComponentEditor(TVpEventEditDialog, TVpBaseDialogComponentEditor);
RegisterComponentEditor(TVpContactEditDialog, TVpBaseDialogComponentEditor);
RegisterComponentEditor(TVpTaskEditDialog, TVpBaseDialogComponentEditor);
RegisterComponentEditor(TVpNotificationDialog, TVpBaseDialogComponentEditor);
}
{----------------------------------------------------------------------------}
{ register property editors }

1
components/tvplanit/source/include/vpsr.inc
View File

@ -360,6 +360,7 @@ resourcestring
{ Misc strings }
RSCategoryDesc = 'Category %d';
RSTestDialog = 'Test dialog...';
{ Print format list }
RSSaveFormatChangesToFile = 'Save format to file?';