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

tvplanit: Set version to 1.0.10 for next release.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6389 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-05-05 16:09:31 +00:00
parent b68354b929
commit 22a58397f4
18 changed files with 185 additions and 383 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
components/tvplanit/examples/fulldemo/demo.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?> <?xml version="1.0" encoding="UTF-8"?>
<CONFIG> <CONFIG>
<ProjectOptions> <ProjectOptions>
<Version Value="10"/> <Version Value="11"/>
<PathDelim Value="\"/> <PathDelim Value="\"/>
<General> <General>
<SessionStorage Value="InProjectDir"/> <SessionStorage Value="InProjectDir"/>
@ -25,9 +25,16 @@
</PublishOptions> </PublishOptions>
<RunParams> <RunParams>
<local> <local>
<FormatVersion Value="1"/>
<LaunchingApplication PathPlusParams="localhost"/> <LaunchingApplication PathPlusParams="localhost"/>
</local> </local>
<FormatVersion Value="2"/>
<Modes Count="1">
<Mode0 Name="default">
<local>
<LaunchingApplication PathPlusParams="localhost"/>
</local>
</Mode0>
</Modes>
</RunParams> </RunParams>
<RequiredPackages Count="3"> <RequiredPackages Count="3">
<Item1> <Item1>

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

@ -9,7 +9,7 @@ object MainForm: TMainForm
Menu = MainMenu1 Menu = MainMenu1
OnCloseQuery = FormCloseQuery OnCloseQuery = FormCloseQuery
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '1.6.4.0' LCLVersion = '1.9.0.0'
object Panel1: TPanel object Panel1: TPanel
Left = 125 Left = 125
Height = 576 Height = 576
@ -85,7 +85,6 @@ object MainForm: TMainForm
Align = alBottom Align = alBottom
TabStop = True TabStop = True
TabOrder = 0 TabOrder = 0
KBNavigation = True
DateLabelFormat = 'mmmm yyyy' DateLabelFormat = 'mmmm yyyy'
DayHeadAttributes.Color = clBtnFace DayHeadAttributes.Color = clBtnFace
DayNameStyle = dsShort DayNameStyle = dsShort
@ -95,6 +94,7 @@ object MainForm: TMainForm
HeadAttributes.Font.Style = [fsItalic] HeadAttributes.Font.Style = [fsItalic]
HeadAttributes.Color = clBtnFace HeadAttributes.Color = clBtnFace
HolidayAttributes.Font.Color = clBlack HolidayAttributes.Font.Color = clBlack
KBNavigation = True
SelectedDayColor = clRed SelectedDayColor = clRed
ShowEvents = True ShowEvents = True
ShowEventTime = False ShowEventTime = False
@ -695,41 +695,41 @@ object MainForm: TMainForm
DrawingStyle = dsCoolTab DrawingStyle = dsCoolTab
FolderCollection = < FolderCollection = <
item item
Version = 'v1.05' Version = 'v1.10'
Caption = 'Planner' Caption = 'Planner'
Enabled = True Enabled = True
FolderType = ftDefault FolderType = ftDefault
ItemCollection = < ItemCollection = <
item item
Version = 'v1.05' Version = 'v1.10'
Caption = 'Events' Caption = 'Events'
IconIndex = 0 IconIndex = 0
Name = 'NIEvents' Name = 'NIEvents'
Tag = 0 Tag = 0
end end
item item
Version = 'v1.05' Version = 'v1.10'
Caption = 'Month view' Caption = 'Month view'
IconIndex = 5 IconIndex = 5
Name = 'NIEventsByMonth' Name = 'NIEventsByMonth'
Tag = 0 Tag = 0
end end
item item
Version = 'v1.05' Version = 'v1.10'
Caption = 'Week view' Caption = 'Week view'
IconIndex = 4 IconIndex = 4
Name = 'NIEventsByWeek' Name = 'NIEventsByWeek'
Tag = 0 Tag = 0
end end
item item
Version = 'v1.05' Version = 'v1.10'
Caption = 'Day view' Caption = 'Day view'
IconIndex = 3 IconIndex = 3
Name = 'NIEventsByDay' Name = 'NIEventsByDay'
Tag = 0 Tag = 0
end end
item item
Version = 'v1.05' Version = 'v1.10'
Caption = 'Tasks' Caption = 'Tasks'
Description = 'Show tasks' Description = 'Show tasks'
IconIndex = 1 IconIndex = 1
@ -737,7 +737,7 @@ object MainForm: TMainForm
Tag = 0 Tag = 0
end end
item item
Version = 'v1.05' Version = 'v1.10'
Caption = 'Contacts' Caption = 'Contacts'
Description = 'Show address book' Description = 'Show address book'
IconIndex = 2 IconIndex = 2
@ -749,20 +749,20 @@ object MainForm: TMainForm
Tag = 0 Tag = 0
end end
item item
Version = 'v1.05' Version = 'v1.10'
Caption = 'Maintenance' Caption = 'Maintenance'
Enabled = True Enabled = True
FolderType = ftDefault FolderType = ftDefault
ItemCollection = < ItemCollection = <
item item
Version = 'v1.05' Version = 'v1.10'
Caption = 'Resources' Caption = 'Resources'
IconIndex = 7 IconIndex = 7
Name = 'NIResources' Name = 'NIResources'
Tag = 0 Tag = 0
end end
item item
Version = 'v1.05' Version = 'v1.10'
Caption = 'Settings' Caption = 'Settings'
IconIndex = 8 IconIndex = 8
Name = 'NISettings' Name = 'NISettings'
@ -773,8 +773,8 @@ object MainForm: TMainForm
Tag = 0 Tag = 0
end> end>
Images = ImageList1 Images = ImageList1
ImagesWidth = 0
ItemFont.Color = clWhite ItemFont.Color = clWhite
ItemSpacing = 3
PlaySounds = False PlaySounds = False
SelectedItem = -1 SelectedItem = -1
SelectedItemFont.Color = clWhite SelectedItemFont.Color = clWhite
@ -801,12 +801,12 @@ object MainForm: TMainForm
Printer.MarginUnits = imPercent Printer.MarginUnits = imPercent
Printer.PrintFormats = < Printer.PrintFormats = <
item item
Version = 'v1.05' Version = 'v1.10'
DayInc = 0 DayInc = 0
DayIncUnits = duDay DayIncUnits = duDay
Elements = < Elements = <
item item
Version = 'v1.05' Version = 'v1.10'
Caption.Caption = 'Current week' Caption.Caption = 'Current week'
Caption.Font.Style = [fsItalic] Caption.Font.Style = [fsItalic]
DayOffset = 0 DayOffset = 0
@ -821,12 +821,12 @@ object MainForm: TMainForm
FormatName = 'Events of current week (dayview)' FormatName = 'Events of current week (dayview)'
end end
item item
Version = 'v1.05' Version = 'v1.10'
DayInc = 0 DayInc = 0
DayIncUnits = duWeek DayIncUnits = duWeek
Elements = < Elements = <
item item
Version = 'v1.05' Version = 'v1.10'
DayOffset = 0 DayOffset = 0
DayOffsetUnits = duDay DayOffsetUnits = duDay
ElementName = 'WeekView' ElementName = 'WeekView'
@ -840,12 +840,12 @@ object MainForm: TMainForm
FormatName = 'Events of current week (Week view)' FormatName = 'Events of current week (Week view)'
end end
item item
Version = 'v1.05' Version = 'v1.10'
DayInc = 0 DayInc = 0
DayIncUnits = duDay DayIncUnits = duDay
Elements = < Elements = <
item item
Version = 'v1.05' Version = 'v1.10'
DayOffset = 0 DayOffset = 0
DayOffsetUnits = duWeek DayOffsetUnits = duWeek
ElementName = 'TaskList' ElementName = 'TaskList'
@ -859,12 +859,12 @@ object MainForm: TMainForm
FormatName = 'Tasks of current week' FormatName = 'Tasks of current week'
end end
item item
Version = 'v1.05' Version = 'v1.10'
DayInc = 0 DayInc = 0
DayIncUnits = duDay DayIncUnits = duDay
Elements = < Elements = <
item item
Version = 'v1.05' Version = 'v1.10'
DayOffset = 0 DayOffset = 0
DayOffsetUnits = duDay DayOffsetUnits = duDay
ElementName = 'TaskList' ElementName = 'TaskList'
@ -884,7 +884,7 @@ object MainForm: TMainForm
top = 200 top = 200
end end
object VpResourceEditDialog1: TVpResourceEditDialog object VpResourceEditDialog1: TVpResourceEditDialog
Version = 'v1.05' Version = 'v1.10'
Options = [] Options = []
Placement.Position = mpCenter Placement.Position = mpCenter
Placement.Top = 10 Placement.Top = 10
@ -2111,7 +2111,7 @@ object MainForm: TMainForm
top = 368 top = 368
end end
object VpPrintPreviewDialog1: TVpPrintPreviewDialog object VpPrintPreviewDialog1: TVpPrintPreviewDialog
Version = 'v1.05' Version = 'v1.10'
BottomMargin = 0 BottomMargin = 0
ControlLink = VpControlLink1 ControlLink = VpControlLink1
EndDate = 42561.5151169907 EndDate = 42561.5151169907
@ -2130,7 +2130,7 @@ object MainForm: TMainForm
top = 432 top = 432
end end
object VpPrintFormatEditDialog1: TVpPrintFormatEditDialog object VpPrintFormatEditDialog1: TVpPrintFormatEditDialog
Version = 'v1.05' Version = 'v1.10'
ControlLink = VpControlLink1 ControlLink = VpControlLink1
Options = [] Options = []
Placement.Position = mpCenter Placement.Position = mpCenter

29
components/tvplanit/examples/navbar/unit1.lfm
View File

@ -24,34 +24,34 @@ object Form1: TForm1
DrawingStyle = dsEtchedButton DrawingStyle = dsEtchedButton
FolderCollection = < FolderCollection = <
item item
Version = 'v1.08' Version = 'v1.10'
Caption = 'Folder 1' Caption = 'Folder 1'
Enabled = True Enabled = True
FolderType = ftDefault FolderType = ftDefault
ItemCollection = < ItemCollection = <
item item
Version = 'v1.08' Version = 'v1.10'
Caption = 'Item 1 (Folder 1)' Caption = 'Item 1 (Folder 1)'
IconIndex = 0 IconIndex = 0
Name = 'Item0-0' Name = 'Item0-0'
Tag = 0 Tag = 0
end end
item item
Version = 'v1.08' Version = 'v1.10'
Caption = 'Item 2 (Folder 1)' Caption = 'Item 2 (Folder 1)'
IconIndex = 1 IconIndex = 1
Name = 'Item0-1' Name = 'Item0-1'
Tag = 0 Tag = 0
end end
item item
Version = 'v1.08' Version = 'v1.10'
Caption = 'Item 3 (Folder 1)' Caption = 'Item 3 (Folder 1)'
IconIndex = 2 IconIndex = 2
Name = 'Item0-2' Name = 'Item0-2'
Tag = 0 Tag = 0
end end
item item
Version = 'v1.08' Version = 'v1.10'
Caption = 'Item 4 (Folder 1)' Caption = 'Item 4 (Folder 1)'
IconIndex = 3 IconIndex = 3
Name = 'Item0-3' Name = 'Item0-3'
@ -62,20 +62,20 @@ object Form1: TForm1
Tag = 0 Tag = 0
end end
item item
Version = 'v1.08' Version = 'v1.10'
Caption = 'Folder 2' Caption = 'Folder 2'
Enabled = True Enabled = True
FolderType = ftDefault FolderType = ftDefault
ItemCollection = < ItemCollection = <
item item
Version = 'v1.08' Version = 'v1.10'
Caption = 'Item 1 (Folder 2)' Caption = 'Item 1 (Folder 2)'
IconIndex = 4 IconIndex = 4
Name = 'Item1-0' Name = 'Item1-0'
Tag = 0 Tag = 0
end end
item item
Version = 'v1.08' Version = 'v1.10'
Caption = 'Item 2 (Folder 2)' Caption = 'Item 2 (Folder 2)'
IconIndex = 5 IconIndex = 5
Name = 'Item1-1' Name = 'Item1-1'
@ -86,27 +86,27 @@ object Form1: TForm1
Tag = 0 Tag = 0
end end
item item
Version = 'v1.08' Version = 'v1.10'
Caption = 'Folder 3' Caption = 'Folder 3'
Enabled = True Enabled = True
FolderType = ftDefault FolderType = ftDefault
ItemCollection = < ItemCollection = <
item item
Version = 'v1.08' Version = 'v1.10'
Caption = 'Item 1 (Folder 3)' Caption = 'Item 1 (Folder 3)'
IconIndex = 6 IconIndex = 6
Name = 'Item2-0' Name = 'Item2-0'
Tag = 0 Tag = 0
end end
item item
Version = 'v1.08' Version = 'v1.10'
Caption = 'Item 2 (Folder 3)' Caption = 'Item 2 (Folder 3)'
IconIndex = 7 IconIndex = 7
Name = 'Item2-1' Name = 'Item2-1'
Tag = 0 Tag = 0
end end
item item
Version = 'v1.08' Version = 'v1.10'
Caption = 'Item 3 (Folder 3)' Caption = 'Item 3 (Folder 3)'
IconIndex = 8 IconIndex = 8
Name = 'Item2-2' Name = 'Item2-2'
@ -117,7 +117,7 @@ object Form1: TForm1
Tag = 0 Tag = 0
end end
item item
Version = 'v1.08' Version = 'v1.10'
Caption = 'Container' Caption = 'Container'
Enabled = True Enabled = True
FolderType = ftContainer FolderType = ftContainer
@ -128,9 +128,10 @@ object Form1: TForm1
ContainerIndex = 0 ContainerIndex = 0
end> end>
Images = Images Images = Images
ImagesWidth = 0
ItemFont.Color = clWhite ItemFont.Color = clWhite
ItemSpacing = 5 ItemSpacing = 5
PlaySounds = True PlaySounds = False
SelectedItem = -1 SelectedItem = -1
SelectedItemFont.Color = clYellow SelectedItemFont.Color = clYellow
SelectedItemFont.Style = [fsBold] SelectedItemFont.Style = [fsBold]

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

@ -145,170 +145,132 @@ msgstr "Mittwoch"
msgid "XML files (*.xml)" msgid "XML files (*.xml)"
msgstr "XML-Dateien (*.XML)" msgstr "XML-Dateien (*.XML)"
#: tfrmreportsetup.btncancel.caption
msgctxt "tfrmreportsetup.btncancel.caption"
msgid "Cancel"
msgstr "Abbrechen"
#: tfrmreportsetup.btnok.caption
msgctxt "tfrmreportsetup.btnok.caption"
msgid "OK"
msgstr "OK"
#: tfrmreportsetup.caption
msgid "Report Setup"
msgstr "Ausdruck einrichten"
#: tfrmreportsetup.lblenddate.caption
msgctxt "tfrmreportsetup.lblenddate.caption"
msgid "End Date:"
msgstr "Enddatum:"
#: tfrmreportsetup.lblformat.caption
msgctxt "tfrmreportsetup.lblformat.caption"
msgid "Format:"
msgstr "Format:"
#: tfrmreportsetup.lblstartdate.caption
msgctxt "tfrmreportsetup.lblstartdate.caption"
msgid "Start Date:"
msgstr "Startdatum:"
#: tmainform.btndeleteres.caption #: tmainform.btndeleteres.caption
msgid "Delete" msgid "Delete"
msgstr "Löschen" msgstr ""
#: tmainform.btneditres.caption #: tmainform.btneditres.caption
msgid "Edit" msgid "Edit"
msgstr "Bearbeiten" msgstr ""
#: tmainform.btnnewres.caption #: tmainform.btnnewres.caption
msgid "New" msgid "New"
msgstr "Neu" msgstr ""
#: tmainform.caption #: tmainform.caption
msgid "Turbo Power VisualPlanIt Demo" msgid "Turbo Power VisualPlanIt Demo"
msgstr "Turbo Power VisualPlanIt Demo" msgstr ""
#: tmainform.cbaddressbuilder.text #: tmainform.cbaddressbuilder.text
msgid "(default)" msgid "(default)"
msgstr "(Standard)" msgstr ""
#: tmainform.cballowdraganddrop.caption #: tmainform.cballowdraganddrop.caption
msgid "Allow drag and drop of events" msgid "Allow drag and drop of events"
msgstr "\"Ziehen und Fallenlassen\" (Drag&&Drop) von Ereignissen erlauben" msgstr ""
#: tmainform.cballowinplaceediting.caption #: tmainform.cballowinplaceediting.caption
msgid "Allow inplace editing" msgid "Allow inplace editing"
msgstr "Editieren an Ort und Stelle erlauben" msgstr ""
#: tmainform.cbdragdroptransparent.caption #: tmainform.cbdragdroptransparent.caption
msgid "Transparent drag and drop" msgid "Transparent drag and drop"
msgstr "\"Ziehen und Fallenlassen\" (Drag&&Drop) mit transparentem Hintergrund" msgstr ""
#: tmainform.cbgranularity.text #: tmainform.cbgranularity.text
msgid "30 Min" msgid "30 Min"
msgstr "30 Min" msgstr ""
#: tmainform.cbshoweventhints.caption #: tmainform.cbshoweventhints.caption
msgid "Show event and contact hints" msgid "Show event and contact hints"
msgstr "Ereignis- und Kontakt-Hinweise anzeigen" msgstr ""
#: tmainform.lbladdressbuilder.caption #: tmainform.lbladdressbuilder.caption
msgid "Address builder" msgid "Address builder"
msgstr "Aufbau der Adresse:" msgstr ""
#: tmainform.lbldrawingstyle.caption #: tmainform.lbldrawingstyle.caption
msgid "Drawing style:" msgid "Drawing style:"
msgstr "Darstellungs-Stil:" msgstr ""
#: tmainform.lblfirstdayofweek.caption #: tmainform.lblfirstdayofweek.caption
msgid "First day of week" msgid "First day of week"
msgstr "Die Woche beginnt am" msgstr ""
#: tmainform.lblgranularity.caption #: tmainform.lblgranularity.caption
msgid "Granularity" msgid "Granularity"
msgstr "Raster" msgstr ""
#: tmainform.lbllanguage.caption #: tmainform.lbllanguage.caption
msgctxt "tmainform.lbllanguage.caption"
msgid "Language" msgid "Language"
msgstr "Sprache" msgstr ""
#: tmainform.lbltimeformat.caption #: tmainform.lbltimeformat.caption
msgid "Time format" msgid "Time format"
msgstr "Zeitformat" msgstr ""
#: tmainform.lblvisibledays.caption #: tmainform.lblvisibledays.caption
msgid "Visible days" msgid "Visible days"
msgstr "Sichtbare Tage" msgstr ""
#: tmainform.menuitem1.caption #: tmainform.menuitem1.caption
msgid "File" msgid "File"
msgstr "Datei" msgstr ""
#: tmainform.menuitem2.caption #: tmainform.menuitem2.caption
msgid "Help" msgid "Help"
msgstr "Hilfe"
#: tmainform.menuitem3.caption
msgctxt "tmainform.menuitem3.caption"
msgid "-"
msgstr ""
#: tmainform.menuitem4.caption
msgctxt "tmainform.menuitem4.caption"
msgid "-"
msgstr "" msgstr ""
#: tmainform.mnuabout.caption #: tmainform.mnuabout.caption
msgid "About Visual PlanIt" msgid "About Visual PlanIt"
msgstr "Über Visual PlanIt" msgstr ""
#: tmainform.mnueditprintformats.caption #: tmainform.mnueditprintformats.caption
msgid "Edit print formats..." msgid "Edit print formats..."
msgstr "Druckformate bearbeiten..." msgstr ""
#: tmainform.mnuloadprintformats.caption #: tmainform.mnuloadprintformats.caption
msgid "Load print formats..." msgid "Load print formats..."
msgstr "Druckformate laden..." msgstr ""
#: tmainform.mnumaintenance.caption #: tmainform.mnumaintenance.caption
#, fuzzy
msgctxt "tmainform.mnumaintenance.caption" msgctxt "tmainform.mnumaintenance.caption"
msgid "Maintenance" msgid "Maintenance"
msgstr "Wartung" msgstr "Wartung"
#: tmainform.mnuprint.caption #: tmainform.mnuprint.caption
msgid "Print..." msgid "Print..."
msgstr "Drucken..." msgstr ""
#: tmainform.mnuprintpreview.caption #: tmainform.mnuprintpreview.caption
msgid "Print preview..." msgid "Print preview..."
msgstr "Druckvorschau..." msgstr ""
#: tmainform.mnuquit.caption #: tmainform.mnuquit.caption
msgid "Quit" msgid "Quit"
msgstr "Beenden" msgstr ""
#: tmainform.mnuresources.caption #: tmainform.mnuresources.caption
#, fuzzy
msgctxt "tmainform.mnuresources.caption" msgctxt "tmainform.mnuresources.caption"
msgid "Resources" msgid "Resources"
msgstr "Ressourcen" msgstr "Ressourcen"
#: tmainform.mnusettings.caption #: tmainform.mnusettings.caption
#, fuzzy
msgctxt "tmainform.mnusettings.caption" msgctxt "tmainform.mnusettings.caption"
msgid "Settings" msgid "Settings"
msgstr "Einstellungen" msgstr "Einstellungen"
#: tmainform.rballtasks.caption #: tmainform.rballtasks.caption
msgid "All tasks" msgid "All tasks"
msgstr "Alle Aufgaben" msgstr ""
#: tmainform.rbhidecompletedtasks.caption #: tmainform.rbhidecompletedtasks.caption
msgid "Hide completed tasks" msgid "Hide completed tasks"
msgstr "Fertiggestellte Aufgaben ausblenden" msgstr ""
# No need to translate
#: tmainform.titlelbl.caption #: tmainform.titlelbl.caption
msgid "TitleLbl" msgid "TitleLbl"
msgstr "" msgstr ""

81
components/tvplanit/languages/demo.fi.po
View File

@ -46,6 +46,7 @@ msgid "no border"
msgstr "" msgstr ""
#: demomain.rsconfirmdeleteres #: demomain.rsconfirmdeleteres
#, fuzzy,badformat
msgid "Do you really want to delete resource %s?" msgid "Do you really want to delete resource %s?"
msgstr "Haluatko varmasti poistaa resurssin% s?" msgstr "Haluatko varmasti poistaa resurssin% s?"
@ -92,9 +93,10 @@ msgid "Planner"
msgstr "" msgstr ""
#: demomain.rsresources #: demomain.rsresources
#, fuzzy
msgctxt "demomain.rsresources" msgctxt "demomain.rsresources"
msgid "Resources" msgid "Resources"
msgstr "" msgstr "Resurssit"
#: demomain.rssaturday #: demomain.rssaturday
msgid "Saturday" msgid "Saturday"
@ -134,46 +136,17 @@ msgstr "Keskiviikko"
msgid "XML files (*.xml)" msgid "XML files (*.xml)"
msgstr "XML tiedostot (*xml)" msgstr "XML tiedostot (*xml)"
#: tfrmreportsetup.btncancel.caption
msgctxt "tfrmreportsetup.btncancel.caption"
msgid "Cancel"
msgstr "Peru"
#: tfrmreportsetup.btnok.caption
msgctxt "tfrmreportsetup.btnok.caption"
msgid "OK"
msgstr ""
#: tfrmreportsetup.caption
msgid "Report Setup"
msgstr ""
#: tfrmreportsetup.lblenddate.caption
msgctxt "tfrmreportsetup.lblenddate.caption"
msgid "End Date:"
msgstr "Loppumispäivä:"
#: tfrmreportsetup.lblformat.caption
msgctxt "tfrmreportsetup.lblformat.caption"
msgid "Format:"
msgstr ""
#: tfrmreportsetup.lblstartdate.caption
msgctxt "tfrmreportsetup.lblstartdate.caption"
msgid "Start Date:"
msgstr "Alkamispäivä:"
#: tmainform.btndeleteres.caption #: tmainform.btndeleteres.caption
msgid "Delete" msgid "Delete"
msgstr "Poista" msgstr ""
#: tmainform.btneditres.caption #: tmainform.btneditres.caption
msgid "Edit" msgid "Edit"
msgstr "Muokkaa" msgstr ""
#: tmainform.btnnewres.caption #: tmainform.btnnewres.caption
msgid "New" msgid "New"
msgstr "Uusi" msgstr ""
#: tmainform.caption #: tmainform.caption
msgid "Turbo Power VisualPlanIt Demo" msgid "Turbo Power VisualPlanIt Demo"
@ -181,11 +154,11 @@ msgstr ""
#: tmainform.cbaddressbuilder.text #: tmainform.cbaddressbuilder.text
msgid "(default)" msgid "(default)"
msgstr "(oletus)" msgstr ""
#: tmainform.cballowdraganddrop.caption #: tmainform.cballowdraganddrop.caption
msgid "Allow drag and drop of events" msgid "Allow drag and drop of events"
msgstr "Salli tapahtumien vedä ja pudota toiminta" msgstr ""
#: tmainform.cballowinplaceediting.caption #: tmainform.cballowinplaceediting.caption
msgid "Allow inplace editing" msgid "Allow inplace editing"
@ -213,16 +186,15 @@ msgstr ""
#: tmainform.lblfirstdayofweek.caption #: tmainform.lblfirstdayofweek.caption
msgid "First day of week" msgid "First day of week"
msgstr "Viikon ensimmäinen päivä" msgstr ""
#: tmainform.lblgranularity.caption #: tmainform.lblgranularity.caption
msgid "Granularity" msgid "Granularity"
msgstr "" msgstr ""
#: tmainform.lbllanguage.caption #: tmainform.lbllanguage.caption
msgctxt "TMAINFORM.LBLLANGUAGE.CAPTION"
msgid "Language" msgid "Language"
msgstr "Kieli" msgstr ""
#: tmainform.lbltimeformat.caption #: tmainform.lbltimeformat.caption
msgid "Time format" msgid "Time format"
@ -234,25 +206,15 @@ msgstr ""
#: tmainform.menuitem1.caption #: tmainform.menuitem1.caption
msgid "File" msgid "File"
msgstr "Tiedosto" msgstr ""
#: tmainform.menuitem2.caption #: tmainform.menuitem2.caption
msgid "Help" msgid "Help"
msgstr "Ohje"
#: tmainform.menuitem3.caption
msgctxt "tmainform.menuitem3.caption"
msgid "-"
msgstr ""
#: tmainform.menuitem4.caption
msgctxt "tmainform.menuitem4.caption"
msgid "-"
msgstr "" msgstr ""
#: tmainform.mnuabout.caption #: tmainform.mnuabout.caption
msgid "About Visual PlanIt" msgid "About Visual PlanIt"
msgstr "Tietoja Visual PlanIt:stä" msgstr ""
#: tmainform.mnueditprintformats.caption #: tmainform.mnueditprintformats.caption
msgid "Edit print formats..." msgid "Edit print formats..."
@ -263,39 +225,40 @@ msgid "Load print formats..."
msgstr "" msgstr ""
#: tmainform.mnumaintenance.caption #: tmainform.mnumaintenance.caption
msgctxt "TMAINFORM.MNUMAINTENANCE.CAPTION" msgctxt "tmainform.mnumaintenance.caption"
msgid "Maintenance" msgid "Maintenance"
msgstr "" msgstr ""
#: tmainform.mnuprint.caption #: tmainform.mnuprint.caption
msgid "Print..." msgid "Print..."
msgstr "Tulosta..." msgstr ""
#: tmainform.mnuprintpreview.caption #: tmainform.mnuprintpreview.caption
msgid "Print preview..." msgid "Print preview..."
msgstr "Tulostuksen esilatselu..." msgstr ""
#: tmainform.mnuquit.caption #: tmainform.mnuquit.caption
msgid "Quit" msgid "Quit"
msgstr "Lopeta" msgstr ""
#: tmainform.mnuresources.caption #: tmainform.mnuresources.caption
msgctxt "TMAINFORM.MNURESOURCES.CAPTION" msgctxt "tmainform.mnuresources.caption"
msgid "Resources" msgid "Resources"
msgstr "Resurssit" msgstr ""
#: tmainform.mnusettings.caption #: tmainform.mnusettings.caption
msgctxt "TMAINFORM.MNUSETTINGS.CAPTION" #, fuzzy
msgctxt "tmainform.mnusettings.caption"
msgid "Settings" msgid "Settings"
msgstr "Asetukset" msgstr "Asetukset"
#: tmainform.rballtasks.caption #: tmainform.rballtasks.caption
msgid "All tasks" msgid "All tasks"
msgstr "Kaikki tehtävät" msgstr ""
#: tmainform.rbhidecompletedtasks.caption #: tmainform.rbhidecompletedtasks.caption
msgid "Hide completed tasks" msgid "Hide completed tasks"
msgstr "Piilota suoritetut tehtävät" msgstr ""
#: tmainform.titlelbl.caption #: tmainform.titlelbl.caption
msgid "TitleLbl" msgid "TitleLbl"

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

@ -134,59 +134,25 @@ msgstr "Woensdag"
msgid "XML files (*.xml)" msgid "XML files (*.xml)"
msgstr "" msgstr ""
#: tfrmreportsetup.btncancel.caption
#, fuzzy
msgctxt "tfrmreportsetup.btncancel.caption"
msgid "Cancel"
msgstr "Annuleren"
#: tfrmreportsetup.btnok.caption
#, fuzzy
msgctxt "tfrmreportsetup.btnok.caption"
msgid "OK"
msgstr "OK"
#: tfrmreportsetup.caption
msgid "Report Setup"
msgstr "Overzicht Instellingen"
#: tfrmreportsetup.lblenddate.caption
#, fuzzy
msgctxt "tfrmreportsetup.lblenddate.caption"
msgid "End Date:"
msgstr "Eind Datum:"
#: tfrmreportsetup.lblformat.caption
#, fuzzy
msgctxt "tfrmreportsetup.lblformat.caption"
msgid "Format:"
msgstr "Formaat:"
#: tfrmreportsetup.lblstartdate.caption
#, fuzzy
msgctxt "tfrmreportsetup.lblstartdate.caption"
msgid "Start Date:"
msgstr "Start Datum:"
#: tmainform.btndeleteres.caption #: tmainform.btndeleteres.caption
msgid "Delete" msgid "Delete"
msgstr "Wissen" msgstr ""
#: tmainform.btneditres.caption #: tmainform.btneditres.caption
msgid "Edit" msgid "Edit"
msgstr "Bewerken" msgstr ""
#: tmainform.btnnewres.caption #: tmainform.btnnewres.caption
msgid "New" msgid "New"
msgstr "Nieuw" msgstr ""
#: tmainform.caption #: tmainform.caption
msgid "Turbo Power VisualPlanIt Demo" msgid "Turbo Power VisualPlanIt Demo"
msgstr "Turbo Power VisualPlanIt Demo" msgstr ""
#: tmainform.cbaddressbuilder.text #: tmainform.cbaddressbuilder.text
msgid "(default)" msgid "(default)"
msgstr "(standaard)" msgstr ""
#: tmainform.cballowdraganddrop.caption #: tmainform.cballowdraganddrop.caption
msgid "Allow drag and drop of events" msgid "Allow drag and drop of events"
@ -194,7 +160,7 @@ msgstr ""
#: tmainform.cballowinplaceediting.caption #: tmainform.cballowinplaceediting.caption
msgid "Allow inplace editing" msgid "Allow inplace editing"
msgstr "Direct bewerken toestaan" msgstr ""
#: tmainform.cbdragdroptransparent.caption #: tmainform.cbdragdroptransparent.caption
msgid "Transparent drag and drop" msgid "Transparent drag and drop"
@ -202,7 +168,7 @@ msgstr ""
#: tmainform.cbgranularity.text #: tmainform.cbgranularity.text
msgid "30 Min" msgid "30 Min"
msgstr "30 Min" msgstr ""
#: tmainform.cbshoweventhints.caption #: tmainform.cbshoweventhints.caption
msgid "Show event and contact hints" msgid "Show event and contact hints"
@ -210,7 +176,7 @@ msgstr ""
#: tmainform.lbladdressbuilder.caption #: tmainform.lbladdressbuilder.caption
msgid "Address builder" msgid "Address builder"
msgstr "Adres bouwer" msgstr ""
#: tmainform.lbldrawingstyle.caption #: tmainform.lbldrawingstyle.caption
msgid "Drawing style:" msgid "Drawing style:"
@ -218,46 +184,35 @@ msgstr ""
#: tmainform.lblfirstdayofweek.caption #: tmainform.lblfirstdayofweek.caption
msgid "First day of week" msgid "First day of week"
msgstr "Eerste dag van de week" msgstr ""
#: tmainform.lblgranularity.caption #: tmainform.lblgranularity.caption
msgid "Granularity" msgid "Granularity"
msgstr "Granulariteit" msgstr ""
#: tmainform.lbllanguage.caption #: tmainform.lbllanguage.caption
msgctxt "TMAINFORM.LBLLANGUAGE.CAPTION"
msgid "Language" msgid "Language"
msgstr "Taal" msgstr ""
#: tmainform.lbltimeformat.caption #: tmainform.lbltimeformat.caption
msgid "Time format" msgid "Time format"
msgstr "Tijd formaat" msgstr ""
#: tmainform.lblvisibledays.caption #: tmainform.lblvisibledays.caption
msgid "Visible days" msgid "Visible days"
msgstr "Zichtbare dagen" msgstr ""
#: tmainform.menuitem1.caption #: tmainform.menuitem1.caption
msgid "File" msgid "File"
msgstr "Bestand" msgstr ""
#: tmainform.menuitem2.caption #: tmainform.menuitem2.caption
msgid "Help" msgid "Help"
msgstr "Help"
#: tmainform.menuitem3.caption
msgctxt "tmainform.menuitem3.caption"
msgid "-"
msgstr ""
#: tmainform.menuitem4.caption
msgctxt "tmainform.menuitem4.caption"
msgid "-"
msgstr "" msgstr ""
#: tmainform.mnuabout.caption #: tmainform.mnuabout.caption
msgid "About Visual PlanIt" msgid "About Visual PlanIt"
msgstr "Over Visual PlanIt" msgstr ""
#: tmainform.mnueditprintformats.caption #: tmainform.mnueditprintformats.caption
msgid "Edit print formats..." msgid "Edit print formats..."
@ -268,7 +223,8 @@ msgid "Load print formats..."
msgstr "" msgstr ""
#: tmainform.mnumaintenance.caption #: tmainform.mnumaintenance.caption
msgctxt "TMAINFORM.MNUMAINTENANCE.CAPTION" #, fuzzy
msgctxt "tmainform.mnumaintenance.caption"
msgid "Maintenance" msgid "Maintenance"
msgstr "Onderhoud" msgstr "Onderhoud"
@ -282,27 +238,29 @@ msgstr ""
#: tmainform.mnuquit.caption #: tmainform.mnuquit.caption
msgid "Quit" msgid "Quit"
msgstr "Afsluiten" msgstr ""
#: tmainform.mnuresources.caption #: tmainform.mnuresources.caption
msgctxt "TMAINFORM.MNURESOURCES.CAPTION" #, fuzzy
msgctxt "tmainform.mnuresources.caption"
msgid "Resources" msgid "Resources"
msgstr "Hulpmiddelen" msgstr "Hulpmiddelen"
#: tmainform.mnusettings.caption #: tmainform.mnusettings.caption
msgctxt "TMAINFORM.MNUSETTINGS.CAPTION" #, fuzzy
msgctxt "tmainform.mnusettings.caption"
msgid "Settings" msgid "Settings"
msgstr "Instellingen" msgstr "Instellingen"
#: tmainform.rballtasks.caption #: tmainform.rballtasks.caption
msgid "All tasks" msgid "All tasks"
msgstr "Alle taken" msgstr ""
#: tmainform.rbhidecompletedtasks.caption #: tmainform.rbhidecompletedtasks.caption
msgid "Hide completed tasks" msgid "Hide completed tasks"
msgstr "Verberg afgewerkte taken" msgstr ""
#: tmainform.titlelbl.caption #: tmainform.titlelbl.caption
msgid "TitleLbl" msgid "TitleLbl"
msgstr "TitleLbl" msgstr ""

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

@ -134,35 +134,6 @@ msgstr ""
msgid "XML files (*.xml)" msgid "XML files (*.xml)"
msgstr "" msgstr ""
#: tfrmreportsetup.btncancel.caption
msgctxt "tfrmreportsetup.btncancel.caption"
msgid "Cancel"
msgstr ""
#: tfrmreportsetup.btnok.caption
msgctxt "tfrmreportsetup.btnok.caption"
msgid "OK"
msgstr ""
#: tfrmreportsetup.caption
msgid "Report Setup"
msgstr ""
#: tfrmreportsetup.lblenddate.caption
msgctxt "tfrmreportsetup.lblenddate.caption"
msgid "End Date:"
msgstr ""
#: tfrmreportsetup.lblformat.caption
msgctxt "tfrmreportsetup.lblformat.caption"
msgid "Format:"
msgstr ""
#: tfrmreportsetup.lblstartdate.caption
msgctxt "tfrmreportsetup.lblstartdate.caption"
msgid "Start Date:"
msgstr ""
#: tmainform.btndeleteres.caption #: tmainform.btndeleteres.caption
msgid "Delete" msgid "Delete"
msgstr "" msgstr ""
@ -220,7 +191,6 @@ msgid "Granularity"
msgstr "" msgstr ""
#: tmainform.lbllanguage.caption #: tmainform.lbllanguage.caption
msgctxt "TMAINFORM.LBLLANGUAGE.CAPTION"
msgid "Language" msgid "Language"
msgstr "" msgstr ""
@ -240,16 +210,6 @@ msgstr ""
msgid "Help" msgid "Help"
msgstr "" msgstr ""
#: tmainform.menuitem3.caption
msgctxt "TMAINFORM.MENUITEM3.CAPTION"
msgid "-"
msgstr ""
#: tmainform.menuitem4.caption
msgctxt "tmainform.menuitem4.caption"
msgid "-"
msgstr ""
#: tmainform.mnuabout.caption #: tmainform.mnuabout.caption
msgid "About Visual PlanIt" msgid "About Visual PlanIt"
msgstr "" msgstr ""
@ -263,7 +223,7 @@ msgid "Load print formats..."
msgstr "" msgstr ""
#: tmainform.mnumaintenance.caption #: tmainform.mnumaintenance.caption
msgctxt "TMAINFORM.MNUMAINTENANCE.CAPTION" msgctxt "tmainform.mnumaintenance.caption"
msgid "Maintenance" msgid "Maintenance"
msgstr "" msgstr ""
@ -280,12 +240,12 @@ msgid "Quit"
msgstr "" msgstr ""
#: tmainform.mnuresources.caption #: tmainform.mnuresources.caption
msgctxt "TMAINFORM.MNURESOURCES.CAPTION" msgctxt "tmainform.mnuresources.caption"
msgid "Resources" msgid "Resources"
msgstr "" msgstr ""
#: tmainform.mnusettings.caption #: tmainform.mnusettings.caption
msgctxt "TMAINFORM.MNUSETTINGS.CAPTION" msgctxt "tmainform.mnusettings.caption"
msgid "Settings" msgid "Settings"
msgstr "" msgstr ""

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

@ -144,50 +144,17 @@ msgstr "Среда"
msgid "XML files (*.xml)" msgid "XML files (*.xml)"
msgstr "" msgstr ""
#: tfrmreportsetup.btncancel.caption
#, fuzzy
msgctxt "tfrmreportsetup.btncancel.caption"
msgid "Cancel"
msgstr "Отмена"
#: tfrmreportsetup.btnok.caption
msgctxt "tfrmreportsetup.btnok.caption"
msgid "OK"
msgstr ""
#: tfrmreportsetup.caption
msgid "Report Setup"
msgstr "Параметры отчёта"
#: tfrmreportsetup.lblenddate.caption
#, fuzzy
msgctxt "tfrmreportsetup.lblenddate.caption"
msgid "End Date:"
msgstr "Дата окончания:"
#: tfrmreportsetup.lblformat.caption
#, fuzzy
msgctxt "tfrmreportsetup.lblformat.caption"
msgid "Format:"
msgstr "Формат:"
#: tfrmreportsetup.lblstartdate.caption
#, fuzzy
msgctxt "tfrmreportsetup.lblstartdate.caption"
msgid "Start Date:"
msgstr "Дата начала:"
#: tmainform.btndeleteres.caption #: tmainform.btndeleteres.caption
msgid "Delete" msgid "Delete"
msgstr "Удалить" msgstr ""
#: tmainform.btneditres.caption #: tmainform.btneditres.caption
msgid "Edit" msgid "Edit"
msgstr "Изменить" msgstr ""
#: tmainform.btnnewres.caption #: tmainform.btnnewres.caption
msgid "New" msgid "New"
msgstr "Новый" msgstr ""
#: tmainform.caption #: tmainform.caption
msgid "Turbo Power VisualPlanIt Demo" msgid "Turbo Power VisualPlanIt Demo"
@ -195,7 +162,7 @@ msgstr ""
#: tmainform.cbaddressbuilder.text #: tmainform.cbaddressbuilder.text
msgid "(default)" msgid "(default)"
msgstr "(по умолчанию)" msgstr ""
#: tmainform.cballowdraganddrop.caption #: tmainform.cballowdraganddrop.caption
msgid "Allow drag and drop of events" msgid "Allow drag and drop of events"
@ -203,7 +170,7 @@ msgstr ""
#: tmainform.cballowinplaceediting.caption #: tmainform.cballowinplaceediting.caption
msgid "Allow inplace editing" msgid "Allow inplace editing"
msgstr "Разрешить редактор по месту" msgstr ""
#: tmainform.cbdragdroptransparent.caption #: tmainform.cbdragdroptransparent.caption
msgid "Transparent drag and drop" msgid "Transparent drag and drop"
@ -211,7 +178,7 @@ msgstr ""
#: tmainform.cbgranularity.text #: tmainform.cbgranularity.text
msgid "30 Min" msgid "30 Min"
msgstr "30 минут" msgstr ""
#: tmainform.cbshoweventhints.caption #: tmainform.cbshoweventhints.caption
msgid "Show event and contact hints" msgid "Show event and contact hints"
@ -219,99 +186,90 @@ msgstr ""
#: tmainform.lbladdressbuilder.caption #: tmainform.lbladdressbuilder.caption
msgid "Address builder" msgid "Address builder"
msgstr "Конструктор адреса" msgstr ""
#: tmainform.lbldrawingstyle.caption #: tmainform.lbldrawingstyle.caption
msgid "Drawing style:" msgid "Drawing style:"
msgstr "Стиль отрисовки:" msgstr ""
#: tmainform.lblfirstdayofweek.caption #: tmainform.lblfirstdayofweek.caption
msgid "First day of week" msgid "First day of week"
msgstr "Первый день недели" msgstr ""
#: tmainform.lblgranularity.caption #: tmainform.lblgranularity.caption
msgid "Granularity" msgid "Granularity"
msgstr "Точность" msgstr ""
#: tmainform.lbllanguage.caption #: tmainform.lbllanguage.caption
msgctxt "TMAINFORM.LBLLANGUAGE.CAPTION"
msgid "Language" msgid "Language"
msgstr "Язык" msgstr ""
#: tmainform.lbltimeformat.caption #: tmainform.lbltimeformat.caption
msgid "Time format" msgid "Time format"
msgstr "Формат времени" msgstr ""
#: tmainform.lblvisibledays.caption #: tmainform.lblvisibledays.caption
msgid "Visible days" msgid "Visible days"
msgstr "Отображаемые дни" msgstr ""
#: tmainform.menuitem1.caption #: tmainform.menuitem1.caption
msgid "File" msgid "File"
msgstr "Файл" msgstr ""
#: tmainform.menuitem2.caption #: tmainform.menuitem2.caption
msgid "Help" msgid "Help"
msgstr "Справка"
#: tmainform.menuitem3.caption
msgctxt "tmainform.menuitem3.caption"
msgid "-"
msgstr ""
#: tmainform.menuitem4.caption
msgctxt "tmainform.menuitem4.caption"
msgid "-"
msgstr "" msgstr ""
#: tmainform.mnuabout.caption #: tmainform.mnuabout.caption
msgid "About Visual PlanIt" msgid "About Visual PlanIt"
msgstr "О Visual PlanIt" msgstr ""
#: tmainform.mnueditprintformats.caption #: tmainform.mnueditprintformats.caption
msgid "Edit print formats..." msgid "Edit print formats..."
msgstr "Редактор формата печати..." msgstr ""
#: tmainform.mnuloadprintformats.caption #: tmainform.mnuloadprintformats.caption
msgid "Load print formats..." msgid "Load print formats..."
msgstr "" msgstr ""
#: tmainform.mnumaintenance.caption #: tmainform.mnumaintenance.caption
msgctxt "TMAINFORM.MNUMAINTENANCE.CAPTION" #, fuzzy
msgctxt "tmainform.mnumaintenance.caption"
msgid "Maintenance" msgid "Maintenance"
msgstr "Обслуживание" msgstr "Обслуживание"
#: tmainform.mnuprint.caption #: tmainform.mnuprint.caption
msgid "Print..." msgid "Print..."
msgstr "Печать..." msgstr ""
#: tmainform.mnuprintpreview.caption #: tmainform.mnuprintpreview.caption
msgid "Print preview..." msgid "Print preview..."
msgstr "Предварительный просмотр печати..." msgstr ""
#: tmainform.mnuquit.caption #: tmainform.mnuquit.caption
msgid "Quit" msgid "Quit"
msgstr "Выход" msgstr ""
#: tmainform.mnuresources.caption #: tmainform.mnuresources.caption
msgctxt "TMAINFORM.MNURESOURCES.CAPTION" #, fuzzy
msgctxt "tmainform.mnuresources.caption"
msgid "Resources" msgid "Resources"
msgstr "Ресурсы" msgstr "Ресурсы"
#: tmainform.mnusettings.caption #: tmainform.mnusettings.caption
msgctxt "TMAINFORM.MNUSETTINGS.CAPTION" #, fuzzy
msgctxt "tmainform.mnusettings.caption"
msgid "Settings" msgid "Settings"
msgstr "Настройки" msgstr "Настройки"
#: tmainform.rballtasks.caption #: tmainform.rballtasks.caption
msgid "All tasks" msgid "All tasks"
msgstr "Все задачи" msgstr ""
#: tmainform.rbhidecompletedtasks.caption #: tmainform.rbhidecompletedtasks.caption
msgid "Hide completed tasks" msgid "Hide completed tasks"
msgstr "Скрыть исполненные задачи" msgstr ""
# No need to translate
#: tmainform.titlelbl.caption #: tmainform.titlelbl.caption
msgid "TitleLbl" msgid "TitleLbl"
msgstr "" msgstr ""

2
components/tvplanit/laz_visualplanit.lpk
View File

@ -31,7 +31,7 @@ The Initial Developer of the Original Code is TurboPower Software.
Portions created by TurboPower Software Inc. are Copyright (C) 2002 TurboPower Software Inc. All Rights Reserved. Portions created by TurboPower Software Inc. are Copyright (C) 2002 TurboPower Software Inc. All Rights Reserved.
Contributor(s): "/> Contributor(s): "/>
<Version Major="1" Release="9"/> <Version Major="1" Release="10"/>
<Files Count="71"> <Files Count="71">
<Item1> <Item1>
<Filename Value="source\vpbase.pas"/> <Filename Value="source\vpbase.pas"/>

2
components/tvplanit/laz_visualplanit_design.lpk
View File

@ -27,7 +27,7 @@ The Initial Developer of the Original Code is TurboPower Software.
Portions created by TurboPower Software Inc. are Copyright (C) 2002 TurboPower Software Inc. All Rights Reserved. Portions created by TurboPower Software Inc. are Copyright (C) 2002 TurboPower Software Inc. All Rights Reserved.
Contributor(s): "/> Contributor(s): "/>
<Version Major="1" Release="9"/> <Version Major="1" Release="10"/>
<Files Count="6"> <Files Count="6">
<Item1> <Item1>
<Filename Value="source\design\vpreg.pas"/> <Filename Value="source\design\vpreg.pas"/>

2
components/tvplanit/laz_visualplanit_zeos.lpk
View File

@ -18,7 +18,7 @@
Software distributed under the License is distributed on an &quot;AS IS&quot; basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for the specific language governing rights and limitations under the License. Software distributed under the License is distributed on an &quot;AS IS&quot; basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for the specific language governing rights and limitations under the License.
"/> "/>
<Version Major="1" Release="9"/> <Version Major="1" Release="10"/>
<Files Count="1"> <Files Count="1">
<Item1> <Item1>
<Filename Value="source\addons\zeos\vpzeosds.pas"/> <Filename Value="source\addons\zeos\vpzeosds.pas"/>

2
components/tvplanit/laz_visualplanit_zeos_design.lpk
View File

@ -14,7 +14,7 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\zeos_design"/> <UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\zeos_design"/>
</SearchPaths> </SearchPaths>
</CompilerOptions> </CompilerOptions>
<Version Major="1" Release="9"/> <Version Major="1" Release="10"/>
<Files Count="1"> <Files Count="1">
<Item1> <Item1>
<Filename Value="source\addons\zeos\vpregzeos.pas"/> <Filename Value="source\addons\zeos\vpregzeos.pas"/>

10
components/tvplanit/source/design/vpnabed.pas
View File

@ -522,8 +522,6 @@ begin
end; end;
procedure TfrmNavBarEd.SetData(ADesigner: TComponentEditorDesigner; ABar: TVpNavBar); procedure TfrmNavBarEd.SetData(ADesigner: TComponentEditorDesigner; ABar: TVpNavBar);
var
i: Integer;
begin begin
if FBar <> nil then if FBar <> nil then
FBar.RemoveFreeNotification(self); FBar.RemoveFreeNotification(self);
@ -573,6 +571,8 @@ procedure TfrmNavBarEd.lbImagesDrawItem(Control: TWinControl; Index: Integer;
var var
x, y: Integer; x, y: Integer;
begin begin
Unused(Control);
if [odSelected, odFocused] * State <> [] then if [odSelected, odFocused] * State <> [] then
lbImages.Canvas.Brush.Color := clHighlight lbImages.Canvas.Brush.Color := clHighlight
else else
@ -634,7 +634,7 @@ begin
ts.Wordbreak := false; ts.Wordbreak := false;
x := Rect.Left + 2; x := Rect.Left + 2;
y := (Rect.Top + Rect.Bottom - lb.Canvas.TextHeight('Tg')) div 2; y := (Rect.Top + Rect.Bottom - lb.Canvas.TextHeight('Tg')) div 2;
lb.Canvas.TextRect(Rect, x, y, lb.Items[Index]); lb.Canvas.TextRect(Rect, x, y, lb.Items[Index], ts);
end; end;
procedure TfrmNavBarEd.lbItemsClick(Sender: TObject); procedure TfrmNavBarEd.lbItemsClick(Sender: TObject);
@ -665,11 +665,11 @@ end;
procedure TfrmNavBarEd.btnItemUpClick(Sender: TObject); procedure TfrmNavBarEd.btnItemUpClick(Sender: TObject);
var var
SaveItemIndex : Integer; //SaveItemIndex : Integer;
Item: TVpNavBtnItem; Item: TVpNavBtnItem;
begin begin
if (lbItems.ItemIndex > 0) then begin if (lbItems.ItemIndex > 0) then begin
SaveItemIndex := lbItems.ItemIndex; //SaveItemIndex := lbItems.ItemIndex;
Item := TVpNavBtnItem(lbItems.Items.Objects[lbItems.ItemIndex]); Item := TVpNavBtnItem(lbItems.Items.Objects[lbItems.ItemIndex]);
if Item.Index > 0 then if Item.Index > 0 then
Item.Index := Item.Index - 1; Item.Index := Item.Index - 1;

2
components/tvplanit/source/vpconst.pas
View File

@ -48,7 +48,7 @@ uses
const const
BuildTime = {$I %DATE%} + {$I %TIME}; //'09/13/2002 09:25 AM'; BuildTime = {$I %DATE%} + {$I %TIME}; //'09/13/2002 09:25 AM';
VpVersionStr = 'v1.08'; {Visual PlanIt library version} VpVersionStr = 'v1.10'; {Visual PlanIt library version}
VpProductName = 'Visual PlanIt'; VpProductName = 'Visual PlanIt';
BorderStyles : array[TBorderStyle] of LongInt = BorderStyles : array[TBorderStyle] of LongInt =

1
components/tvplanit/source/vpdayviewpainter.pas
View File

@ -1023,6 +1023,7 @@ var
bmp := TBitmap.Create; bmp := TBitmap.Create;
try try
bmp.Assign(ABitmap); bmp.Assign(ABitmap);
bmp.Transparent := true;
{$IFDEF FPC} {$IFDEF FPC}
RotateBitmap(Bmp, Angle); RotateBitmap(Bmp, Angle);
{$ENDIF} {$ENDIF}

2
components/tvplanit/source/vpledlabel.pas
View File

@ -543,7 +543,7 @@ begin
if FSize <> Value then begin if FSize <> Value then begin
if Value < 2 then if Value < 2 then
Value := 2; Value := 2;
if Value > 10 then if Integer(Value) > 10 then
Value := 10; Value := 10;
ResizeControl(FRows, FColumns, Value); ResizeControl(FRows, FColumns, Value);
end; end;

8
components/tvplanit/source/vpnavbar.pas
View File

@ -305,12 +305,12 @@ type
procedure WMSetCursor(var Msg: TLMSetCursor); message LM_SETCURSOR; procedure WMSetCursor(var Msg: TLMSetCursor); message LM_SETCURSOR;
{$IF LCL_FullVersion >= 1080000} {$IF LCL_FullVersion >= 1080000}
procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy; procedure DoAutoAdjustLayout(const AMode: TLayoutAdjustmentPolicy;
const AXProportion, AYProportion: Double); const AXProportion, AYProportion: Double); override;
{$ENDIF} {$ENDIF}
{$IF VP_LCL_SCALING = 2} {$IF VP_LCL_SCALING = 2}
procedure ScaleFontsPPI(const AToPPI: Integer; const AProportion: Double); procedure ScaleFontsPPI(const AToPPI: Integer; const AProportion: Double); override;
{$ELSEIF VP_LCL_SCALING = 1} {$ELSEIF VP_LCL_SCALING = 1}
procedure ScaleFontsPPI(const AProportion: Double); procedure ScaleFontsPPI(const AProportion: Double); override;
{$ENDIF} {$ENDIF}
{$ENDIF} {$ENDIF}
procedure CreateParams(var Params: TCreateParams); override; procedure CreateParams(var Params: TCreateParams); override;
@ -351,7 +351,7 @@ type
property ImagesWidth: Integer read FImagesWidth write SetImagesWidth; property ImagesWidth: Integer read FImagesWidth write SetImagesWidth;
property ItemFont: TFont read FItemFont write SetItemFont; property ItemFont: TFont read FItemFont write SetItemFont;
property ItemSpacing: Integer read FItemSpacing write SetItemSpacing stored IsStoredItemSpacing; property ItemSpacing: Integer read FItemSpacing write SetItemSpacing stored IsStoredItemSpacing;
property PlaySounds: Boolean read FPlaySounds write FPlaySounds; property PlaySounds: Boolean read FPlaySounds write FPlaySounds default false;
property ScrollDelta: Integer read FScrollDelta write SetScrollDelta default 2; property ScrollDelta: Integer read FScrollDelta write SetScrollDelta default 2;
property SelectedItem: Integer read FSelectedItem write FSelectedItem; property SelectedItem: Integer read FSelectedItem write FSelectedItem;
property SelectedItemFont: TFont read FSelectedItemFont write SetSelectedItemFont; property SelectedItemFont: TFont read FSelectedItemFont write SetSelectedItemFont;

38
components/tvplanit/source/vpnavbarpainter.pas
View File

@ -137,7 +137,7 @@ end;
procedure TVpNavBarPainter.DrawActiveFolderItems(Canvas: TCanvas; var CurPos: Integer); procedure TVpNavBarPainter.DrawActiveFolderItems(Canvas: TCanvas; var CurPos: Integer);
const const
BUTTON_DISTANCE = 8; BUTTON_DISTANCE = 8;
LARGE_ICON_OFFSET = 4; LARGE_ICON_TEXT_DISTANCE = 2;
SMALL_ICON_TEXT_DISTANCE = 6; SMALL_ICON_TEXT_DISTANCE = 6;
var var
folder: TVpNavFolder; folder: TVpNavFolder;
@ -146,8 +146,7 @@ var
text: String; text: String;
h: Integer; h: Integer;
R: TRect; R: TRect;
largeIconOffs: Integer; dx, dy: Integer;
smallIconOffs: Integer;
{$IFDEF LCL} {$IFDEF LCL}
{$IF LCL_FullVersion >= 1090000} {$IF LCL_FullVersion >= 1090000}
imgres: TScaledImageListResolution; imgres: TScaledImageListResolution;
@ -157,9 +156,15 @@ var
{$ENDIF} {$ENDIF}
begin begin
folder := FNavBar.Folders[FActiveFolder]; folder := FNavBar.Folders[FActiveFolder];
largeIconOffs := ScaleY(LARGE_ICON_OFFSET, DesignTimeDPI);
smallIconOffs := ScaleX(SMALL_ICON_TEXT_DISTANCE, DesignTimeDPI);
// Distance between icon and text, for large icons vertically, for small icons
// horizontally
dy := ScaleY(LARGE_ICON_TEXT_DISTANCE, DesignTimeDPI);
dx := ScaleX(SMALL_ICON_TEXT_DISTANCE, DesignTimeDPI);
{ If an image list is assigned then use the image size.
If no image list is assinged then assume a 32 x 32 image size.
The size of the small images is always half size of the large images. }
if FImages <> nil then begin if FImages <> nil then begin
{$IFDEF LCL}{$IF LCL_FullVersion >= 1090000} {$IFDEF LCL}{$IF LCL_FullVersion >= 1090000}
with TVpNavBarOpener(FNavBar) do begin with TVpNavBarOpener(FNavBar) do begin
@ -202,7 +207,7 @@ begin
Canvas.Font := FItemFont; Canvas.Font := FItemFont;
item := Folder.Items[J]; item := Folder.Items[J];
{ If the caption is empty at designtime then display the item's name instead } { If the caption is empty at design time display the item's name instead }
if (csDesigning in FNavBar.ComponentState) and (item.Caption = '') then if (csDesigning in FNavBar.ComponentState) and (item.Caption = '') then
text := item.Name text := item.Name
else else
@ -215,11 +220,11 @@ begin
{make the icon's bottom blend into the label's top} {make the icon's bottom blend into the label's top}
R := item.IconRect; R := item.IconRect;
inc(R.Bottom, largeIconOffs); inc(R.Bottom, dy);
item.IconRect := R; item.IconRect := R;
CurPos := item.IconRect.Bottom; CurPos := item.IconRect.Bottom;
{now, draw the text} {now draw the text}
if not DrawItemText(Canvas, item, CurPos, text, true, h) then if not DrawItemText(Canvas, item, CurPos, text, true, h) then
Continue; Continue;
Inc(CurPos, FItemSpacing + h); Inc(CurPos, FItemSpacing + h);
@ -231,10 +236,10 @@ begin
{make the icon's right blend into the label's left} {make the icon's right blend into the label's left}
R := item.IconRect; R := item.IconRect;
inc(R.Right, smallIconOffs); inc(R.Right, dx);
item.IconRect := R; item.IconRect := R;
{now, draw the text} {now draw the text}
if not DrawItemText(Canvas, item, CurPos, text, false, h) then if not DrawItemText(Canvas, item, CurPos, text, false, h) then
Continue; Continue;
Inc(CurPos, FItemSpacing + h); Inc(CurPos, FItemSpacing + h);
@ -628,19 +633,9 @@ var
begin begin
Result := false; Result := false;
{ If an image list is assigned then use the image size.
If no image list is assinged then assume a 32 x 32 image size. }
dist := ScaleX(MARGIN, DesignTimeDPI); dist := ScaleX(MARGIN, DesignTimeDPI);
W := FLargeImagesSize + 2*dist; W := FLargeImagesSize + 2*dist;
H := FLargeImagesSize + 2*dist; H := FLargeImagesSize + 2*dist;
{
if Assigned(FImages) then begin
W := FImages.Width + 2*dist;
H := FImages.Height + 2*dist;
end else begin
W := ScaleX(32, DesignTimeDPI);
H := ScaleY(32, DesignTimeDPI);
end;}
R.Top := CurPos; R.Top := CurPos;
R.Bottom := CurPos + H; R.Bottom := CurPos + H;
@ -676,12 +671,10 @@ function TVpNavBarPainter.DrawSmallIcon(Canvas: TCanvas; AItem: TVpNavBtnItem;
CurPos: Integer): Boolean; CurPos: Integer): Boolean;
const const
DELTA = 8; DELTA = 8;
MARGIN = 2;
var var
lOffset: Integer; lOffset: Integer;
R: TRect; R: TRect;
del: Integer; del: Integer;
m: Integer;
{$IFDEF LCL}{$IF LCL_FullVersion >= 1090000} {$IFDEF LCL}{$IF LCL_FullVersion >= 1090000}
imgres: TScaledImageListResolution; imgres: TScaledImageListResolution;
f: Double; f: Double;
@ -695,7 +688,6 @@ begin
{glyph is at the left} {glyph is at the left}
R.Top := CurPos; R.Top := CurPos;
del := ScaleY(DELTA, DesignTimeDPI); del := ScaleY(DELTA, DesignTimeDPI);
m := ScaleX(MARGIN, DesignTimeDPI);
lOffset := abs(Canvas.Font.Height) div 2; lOffset := abs(Canvas.Font.Height) div 2;
if lOffset > del then if lOffset > del then
R.Top := R.Top + lOffset - del; R.Top := R.Top + lOffset - del;