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

tvplanit: Add loading of saved print formats to FullDemo.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5047 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-07-29 15:56:52 +00:00
parent 2daef0ba4a
commit ccf954454a
7 changed files with 833 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

15
components/tvplanit/examples/fulldemo/demomain.lfm
View File

@ -787,6 +787,7 @@ object MainForm: TMainForm
OnPlaySound = VpBufDSDataStore1PlaySound
AutoConnect = True
AutoCreate = True
DayBuffer = 31
Directory = 'data'
left = 312
top = 128
@ -1961,6 +1962,13 @@ object MainForm: TMainForm
Caption = 'Edit print formats...'
OnClick = MnuEditPrintFormatsClick
end
object MnuLoadPrintFormats: TMenuItem
Caption = 'Load print formats...'
OnClick = MnuLoadPrintFormatsClick
end
object MenuItem4: TMenuItem
Caption = '-'
end
object MnuPrintPreview: TMenuItem
Caption = 'Print preview...'
OnClick = MnuPrintPreviewClick
@ -2033,4 +2041,11 @@ object MainForm: TMainForm
left = 712
top = 192
end
object OpenDialog: TOpenDialog
DefaultExt = '.xml'
Filter = 'xml files (*.xml)|*.xml'
Options = [ofFileMustExist, ofEnableSizing, ofViewDetail]
left = 560
top = 440
end
end

16
components/tvplanit/examples/fulldemo/demomain.pas
View File

@ -38,11 +38,14 @@ type
LblLanguage: TLabel;
LblVisibleDays: TLabel;
MenuItem3: TMenuItem;
MenuItem4: TMenuItem;
MnuLoadPrintFormats: TMenuItem;
MnuPrint: TMenuItem;
MnuEditPrintFormats: TMenuItem;
MnuPrintPreview: TMenuItem;
Notebook: TNotebook;
Events: TPage;
OpenDialog: TOpenDialog;
Tasks: TPage;
Contacts: TPage;
Resources: TPage;
@ -96,6 +99,7 @@ type
procedure FormCreate(Sender: TObject);
procedure MnuAboutClick(Sender: TObject);
procedure MnuEditPrintFormatsClick(Sender: TObject);
procedure MnuLoadPrintFormatsClick(Sender: TObject);
procedure MnuPrintClick(Sender: TObject);
procedure MnuPrintPreviewClick(Sender: TObject);
procedure MnuQuitClick(Sender: TObject);
@ -191,6 +195,7 @@ resourcestring
RSFlat = 'flat';
RS3d = '3D';
RSBorderless = 'no border';
RSXMLFiles = 'XML files (*.xml)';
{$IFDEF WINDOWS}
{ This function determines the LCID from the language code.
@ -386,6 +391,15 @@ begin
VpPrintFormatEditDialog1.Execute;
end;
procedure TMainForm.MnuLoadPrintFormatsClick(Sender: TObject);
begin
if OpenDialog.Filename = '' then
OpenDialog.InitialDir := Application.Location else
OpenDialog.InitialDir := ExtractFileDir(OpenDialog.FileName);
if OpenDialog.Execute then
VpControlLink1.Printer.LoadFromFile(Opendialog.Filename, false);
end;
procedure TMainForm.MnuPrintClick(Sender: TObject);
begin
if PrintDialog1.Execute then begin
@ -784,6 +798,8 @@ begin
CbDrawingStyle.Items.Add(RS3d);
CbDrawingStyle.Items.Add(RSBorderless);
OpenDialog.Filter := rsXMLFiles + '|*.xml';
// Next settings work correctly only for Windows.
{$IFDEF WINDOWS}
UpdateFormatSettings(ALang);

746
components/tvplanit/examples/fulldemo/printerdefs.xml Normal file
View File

@ -0,0 +1,746 @@
<?xml version="1.0" encoding="UTF-8"?>
<VpPrintFormats
Version = "0.0.1">
<PrintFormat
Name="DayView Format Test (portrait)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="0"
Item="DayView"
Measurement="Inches"
Left="1"
Top="1"
Width="8"
Height="11"
DayOffset="0"
DayOffsetUnits="Day">
</Element>
</PrintFormat>
<PrintFormat
Name="DayView Format Test (landscape)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="270"
Item="DayView"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
</Element>
</PrintFormat>
<PrintFormat
Name="WeekView Format Test (portrait)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="0"
Item="WeekView"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
</Element>
</PrintFormat>
<PrintFormat
Name="WeekView Format Test (landscape)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="270"
Item="WeekView"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
</Element>
</PrintFormat>
<PrintFormat
Name="MonthView Format Test (portrait)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="0"
Item="MonthView"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
</Element>
</PrintFormat>
<PrintFormat
Name="MonthView Format Test (landscape)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="270"
Item="Shape"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
<Shape
Type="Rectangle">
<Brush
Color="16777215"
Style="Solid"/>
<Pen
Color="0"
Style="Solid"
Width="1"/>
</Shape>
</Element>
</PrintFormat>
<PrintFormat
Name="Calendar Format Test (portrait)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="0"
Item="Calendar"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
</Element>
</PrintFormat>
<PrintFormat
Name="Calendar Format Test (landscape)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="270"
Item="Calendar"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
</Element>
</PrintFormat>
<PrintFormat
Name="Shape Format Test (portrait)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="0"
Item="Shape"
Measurement="Percent"
Left="10"
Top="50"
Width="50"
Height="50"
DayOffset="0"
DayOffsetUnits="Day">
<Shape
Type="Ellipse">
<Brush
Color="16777215"
Style="Solid"/>
<Pen
Color="0"
Style="Solid"
Width="10"/>
</Shape>
</Element>
</PrintFormat>
<PrintFormat
Name="Shape Format Test (landscape)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="270"
Item="Shape"
Measurement="Percent"
Left="20"
Top="50"
Width="40"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
<Shape
Type="Rectangle">
<Brush
Color="16777215"
Style="Solid"/>
<Pen
Color="0"
Style="Solid"
Width="4"/>
</Shape>
</Element>
</PrintFormat>
<PrintFormat
Name="Caption Format Test (portrait)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="0"
Item="Caption"
Measurement="Percent"
Left="50"
Top="50"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
<Caption
Caption="Hello World!">
<Font
CharSet="ANSI"
Color="-16777208"
Height="-21"
Name="Arial"
Pitch="Default"
Bold="False"
Italic="True"
Underline="False"
Strikeout="False"/>
</Caption>
</Element>
</PrintFormat>
<PrintFormat
Name="Caption Format Test (landscape)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="270"
Item="Caption"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
<Caption
Caption="">
<Font
CharSet="Default"
Color="-16777208"
Height="-11"
Name="MS Sans Serif"
Pitch="Default"
Bold="False"
Italic="False"
Underline="False"
Strikeout="False"/>
</Caption>
</Element>
</PrintFormat>
<PrintFormat
Name="Tasks Format Test (portrait)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="0"
Item="Tasks"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
</Element>
</PrintFormat>
<PrintFormat
Name="Tasks Format Test (landscape)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="270"
Item="Tasks"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
</Element>
</PrintFormat>
<PrintFormat
Name="Contacts Format Test (portrait)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="0"
Item="Contacts"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
</Element>
</PrintFormat>
<PrintFormat
Name="Contacts Format Test (landscape)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="270"
Item="Contacts"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
</Element>
</PrintFormat>
<PrintFormat
Name="DayView Format Test (portrait)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="0"
Item="DayView"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
</Element>
</PrintFormat>
<PrintFormat
Name="DayView Format Test (landscape)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="270"
Item="DayView"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
</Element>
</PrintFormat>
<PrintFormat
Name="WeekView Format Test (portrait)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="0"
Item="WeekView"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
</Element>
</PrintFormat>
<PrintFormat
Name="WeekView Format Test (landscape)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="270"
Item="WeekView"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
</Element>
</PrintFormat>
<PrintFormat
Name="MonthView Format Test (portrait)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="0"
Item="MonthView"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
</Element>
</PrintFormat>
<PrintFormat
Name="MonthView Format Test (landscape)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="270"
Item="MonthView"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
</Element>
</PrintFormat>
<PrintFormat
Name="Calendar Format Test (portrait)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="0"
Item="Calendar"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
</Element>
</PrintFormat>
<PrintFormat
Name="Calendar Format Test (landscape)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="270"
Item="Calendar"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
</Element>
</PrintFormat>
<PrintFormat
Name="Shape Format Test (portrait)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="0"
Item="Shape"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
<Shape
Type="Rectangle">
<Brush
Color="16777215"
Style="Solid"/>
<Pen
Color="0"
Style="Solid"
Width="1"/>
</Shape>
</Element>
</PrintFormat>
<PrintFormat
Name="Shape Format Test (landscape)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="270"
Item="Shape"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
<Shape
Type="Rectangle">
<Brush
Color="16777215"
Style="Solid"/>
<Pen
Color="0"
Style="Solid"
Width="1"/>
</Shape>
</Element>
</PrintFormat>
<PrintFormat
Name="Caption Format Test (portrait)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="0"
Item="Caption"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
<Caption
Caption="">
<Font
CharSet="Default"
Color="-16777208"
Height="-11"
Name="MS Sans Serif"
Pitch="Default"
Bold="False"
Italic="False"
Underline="False"
Strikeout="False"/>
</Caption>
</Element>
</PrintFormat>
<PrintFormat
Name="Caption Format Test (landscape)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="270"
Item="Caption"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
<Caption
Caption="">
<Font
CharSet="Default"
Color="-16777208"
Height="-11"
Name="MS Sans Serif"
Pitch="Default"
Bold="False"
Italic="False"
Underline="False"
Strikeout="False"/>
</Caption>
</Element>
</PrintFormat>
<PrintFormat
Name="Tasks Format Test (portrait)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="0"
Item="Tasks"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
</Element>
</PrintFormat>
<PrintFormat
Name="Tasks Format Test (landscape)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="270"
Item="Tasks"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
</Element>
</PrintFormat>
<PrintFormat
Name="Contacts Format Test (portrait)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="0"
Item="Contacts"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
</Element>
</PrintFormat>
<PrintFormat
Name="Contacts Format Test (landscape)"
Description=""
DayIncrement="0"
Visble="True"
DayIncrementUnits="Day">
<Element
Name="Element 1"
Visible="True"
Rotation="270"
Item="Contacts"
Measurement="Percent"
Left="0"
Top="0"
Width="100"
Height="100"
DayOffset="0"
DayOffsetUnits="Day">
</Element>
</PrintFormat>
</VpPrintFormats>

15
components/tvplanit/languages/demo.de.po
View File

@ -141,6 +141,10 @@ msgstr "Dienstag"
msgid "Wednesday"
msgstr "Mittwoch"
#: demomain.rsxmlfiles
msgid "XML files (*.xml)"
msgstr "XML-Dateien (*.XML)"
#: tfrmreportsetup.button1.caption
msgctxt "tfrmreportsetup.button1.caption"
msgid "OK"
@ -263,6 +267,12 @@ msgid "Help"
msgstr "Hilfe"
#: tmainform.menuitem3.caption
msgctxt "tmainform.menuitem3.caption"
msgid "-"
msgstr ""
#: tmainform.menuitem4.caption
msgctxt "tmainform.menuitem4.caption"
msgid "-"
msgstr ""
@ -274,6 +284,10 @@ msgstr "Über Visual PlanIt"
msgid "Edit print formats..."
msgstr "Druckformate bearbeiten..."
#: tmainform.mnuloadprintformats.caption
msgid "Load print formats..."
msgstr "Druckformate laden..."
#: tmainform.mnumaintenance.caption
msgctxt "tmainform.mnumaintenance.caption"
msgid "Maintenance"
@ -313,4 +327,3 @@ msgstr "Fertiggestellte Aufgaben ausblenden"
#: tmainform.titlelbl.caption
msgid "TitleLbl"
msgstr ""

14
components/tvplanit/languages/demo.nl.po
View File

@ -130,6 +130,10 @@ msgstr "Dinsdag"
msgid "Wednesday"
msgstr "Woensdag"
#: demomain.rsxmlfiles
msgid "XML files (*.xml)"
msgstr ""
#: tfrmreportsetup.button1.caption
msgctxt "tfrmreportsetup.button1.caption"
msgid "OK"
@ -250,6 +254,12 @@ msgid "Help"
msgstr "Help"
#: tmainform.menuitem3.caption
msgctxt "tmainform.menuitem3.caption"
msgid "-"
msgstr ""
#: tmainform.menuitem4.caption
msgctxt "tmainform.menuitem4.caption"
msgid "-"
msgstr ""
@ -261,6 +271,10 @@ msgstr "Over Visual PlanIt"
msgid "Edit print formats..."
msgstr ""
#: tmainform.mnuloadprintformats.caption
msgid "Load print formats..."
msgstr ""
#: tmainform.mnumaintenance.caption
msgctxt "TMAINFORM.MNUMAINTENANCE.CAPTION"
msgid "Maintenance"

14
components/tvplanit/languages/demo.po
View File

@ -130,6 +130,10 @@ msgstr ""
msgid "Wednesday"
msgstr ""
#: demomain.rsxmlfiles
msgid "XML files (*.xml)"
msgstr ""
#: tfrmreportsetup.button1.caption
msgctxt "tfrmreportsetup.button1.caption"
msgid "OK"
@ -250,6 +254,12 @@ msgid "Help"
msgstr ""
#: tmainform.menuitem3.caption
msgctxt "tmainform.menuitem3.caption"
msgid "-"
msgstr ""
#: tmainform.menuitem4.caption
msgctxt "tmainform.menuitem4.caption"
msgid "-"
msgstr ""
@ -261,6 +271,10 @@ msgstr ""
msgid "Edit print formats..."
msgstr ""
#: tmainform.mnuloadprintformats.caption
msgid "Load print formats..."
msgstr ""
#: tmainform.mnumaintenance.caption
msgctxt "TMAINFORM.MNUMAINTENANCE.CAPTION"
msgid "Maintenance"

14
components/tvplanit/languages/demo.ru.po
View File

@ -140,6 +140,10 @@ msgstr "Вторник"
msgid "Wednesday"
msgstr "Среда"
#: demomain.rsxmlfiles
msgid "XML files (*.xml)"
msgstr ""
#: tfrmreportsetup.button1.caption
msgctxt "tfrmreportsetup.button1.caption"
msgid "OK"
@ -262,6 +266,12 @@ msgid "Help"
msgstr "Справка"
#: tmainform.menuitem3.caption
msgctxt "tmainform.menuitem3.caption"
msgid "-"
msgstr ""
#: tmainform.menuitem4.caption
msgctxt "tmainform.menuitem4.caption"
msgid "-"
msgstr ""
@ -273,6 +283,10 @@ msgstr "О Visual PlanIt"
msgid "Edit print formats..."
msgstr "Редактор формата печати..."
#: tmainform.mnuloadprintformats.caption
msgid "Load print formats..."
msgstr ""
#: tmainform.mnumaintenance.caption
msgctxt "TMAINFORM.MNUMAINTENANCE.CAPTION"
msgid "Maintenance"