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

tvplanit: Improvements in German translation, based on some proposals in report #39040 by forum user Nicole.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8420 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-08-27 19:40:08 +00:00
parent 4fa25ff2d3
commit 9d0e64788e
12 changed files with 123 additions and 140 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -41,7 +41,7 @@ msgstr "Adresse:"
#: vpsr.rsafriday #: vpsr.rsafriday
msgid "Fri" msgid "Fri"
msgstr "Fre" msgstr "Fr"
#: vpsr.rsagelbl #: vpsr.rsagelbl
msgid "Age:" msgid "Age:"
@ -66,7 +66,7 @@ msgstr "G&anztägiges Ereignis"
#: vpsr.rsamonday #: vpsr.rsamonday
msgid "Mon" msgid "Mon"
msgstr "Mon" msgstr "Mo"
#: vpsr.rsanniversarylbl #: vpsr.rsanniversarylbl
msgid "Anniversary:" msgid "Anniversary:"
@ -78,7 +78,7 @@ msgstr "Termin"
#: vpsr.rsasaturday #: vpsr.rsasaturday
msgid "Sat" msgid "Sat"
msgstr "Sam" msgstr "Sa"
#: vpsr.rsassignedcategory #: vpsr.rsassignedcategory
msgid "Assigned category" msgid "Assigned category"
@ -86,19 +86,19 @@ msgstr "Zugewiesene Kategorie"
#: vpsr.rsasunday #: vpsr.rsasunday
msgid "Sun" msgid "Sun"
msgstr "Son" msgstr "So"
#: vpsr.rsathursday #: vpsr.rsathursday
msgid "Thu" msgid "Thu"
msgstr "Don" msgstr "Do"
#: vpsr.rsatuesday #: vpsr.rsatuesday
msgid "Tue" msgid "Tue"
msgstr "Die" msgstr "Di"
#: vpsr.rsawednesday #: vpsr.rsawednesday
msgid "Wed" msgid "Wed"
msgstr "Mit" msgstr "Mi"
#: vpsr.rsbackwardtimeserror #: vpsr.rsbackwardtimeserror
msgid "The end time cannot precede the start time." msgid "The end time cannot precede the start time."
@ -465,7 +465,7 @@ msgstr "E-Mail"
#: vpsr.rsendtimelbl #: vpsr.rsendtimelbl
msgid "End time:" msgid "End time:"
msgstr "Ende-Zeit:" msgstr "Ende:"
#: vpsr.rsevent #: vpsr.rsevent
msgctxt "vpsr.rsevent" msgctxt "vpsr.rsevent"
@ -791,10 +791,6 @@ msgstr "N"
msgid "No alarm" msgid "No alarm"
msgstr "Ohne Alarm" msgstr "Ohne Alarm"
#: vpsr.rsnocanvas
msgid "TCanvas not assigned"
msgstr "TCanvas wurde nicht zugewiesen"
#: vpsr.rsnocontactsfoundinvcard #: vpsr.rsnocontactsfoundinvcard
#, object-pascal-format #, object-pascal-format
msgid "No contact items found in \"%s\"." msgid "No contact items found in \"%s\"."
@ -806,7 +802,7 @@ msgstr "Komponente muss mit einem TVpControlLink verbunden sein"
#: vpsr.rsnodayincrement #: vpsr.rsnodayincrement
msgid "Day increment unit not specified." msgid "Day increment unit not specified."
msgstr "Intervall nicht angegeben." msgstr "Einheit für das Zeitintervall nicht angegeben."
#: vpsr.rsnoeventitemsfoundinical #: vpsr.rsnoeventitemsfoundinical
#, object-pascal-format #, object-pascal-format
@ -839,7 +835,7 @@ msgstr "keine"
#: vpsr.rsnoprintformatname #: vpsr.rsnoprintformatname
msgid "Please supply a format name" msgid "Please supply a format name"
msgstr "Bitte geben Sie eine Format-Bezeichnung an" msgstr "Bitte geben Sie einen Namen für das Format an"
#: vpsr.rsnoprintformats #: vpsr.rsnoprintformats
msgid "No print formats have been defined" msgid "No print formats have been defined"
@ -1224,7 +1220,7 @@ msgstr "Datum auswählen"
#: vpsr.rsselectresource #: vpsr.rsselectresource
msgid "No resource has been selected. Would you like to select one now?" msgid "No resource has been selected. Would you like to select one now?"
msgstr "Keine Ressource ist auswählt worden. Möchten Sie jetzt eine auswählen?" msgstr "Keine Ressource ausgewählt. Möchten Sie jetzt eine wählen?"
#: vpsr.rsshapebtn #: vpsr.rsshapebtn
msgid "Shape..." msgid "Shape..."
@ -1246,7 +1242,7 @@ msgstr "&Später"
#: vpsr.rssnoozecaption #: vpsr.rssnoozecaption
msgid "Click &Snooze to be reminded again in:" msgid "Click &Snooze to be reminded again in:"
msgstr "Auf \"Später\" klicken, um erinnert zu werden in:" msgstr "Auf \"&Später\" klicken, um noch einmal erinnert zu werden in:"
#: vpsr.rssound #: vpsr.rssound
msgid "Sound" msgid "Sound"
@ -1258,19 +1254,19 @@ msgstr "Klang-Suche"
#: vpsr.rssqlupdateerror #: vpsr.rssqlupdateerror
msgid "Error: Unable to update " msgid "Error: Unable to update "
msgstr "Fehler: Kann nicht updaten " msgstr "Fehler: Update nicht möglich "
#: vpsr.rsstartendtimeerror #: vpsr.rsstartendtimeerror
msgid "Incorrect order of start and end times. Do you want to exchange them?" msgid "Incorrect order of start and end times. Do you want to exchange them?"
msgstr "Falsche Reihenfolge der Start- und Ende-Zeit. Wollen Sie die beiden vertauschen?" msgstr "Falsche Reihenfolge der Zeiten für Beginn und Ende. Wollen Sie die beiden vertauschen?"
#: vpsr.rsstartendtimesequal #: vpsr.rsstartendtimesequal
msgid "Start and end times cannot be equal." msgid "Start and end times cannot be equal."
msgstr "Start- und Ende-Zeit können nicht zusammenfallen." msgstr "Die Zeiten für Beginn und Ende müssen unterschiedlich sein."
#: vpsr.rsstarttimelbl #: vpsr.rsstarttimelbl
msgid "Start time:" msgid "Start time:"
msgstr "Start-Zeit:" msgstr "Beginn:"
#: vpsr.rsstatelbl #: vpsr.rsstatelbl
msgid "State:" msgid "State:"
@ -1296,7 +1292,7 @@ msgstr "Aufgabe fertiggestellt"
#: vpsr.rstaskitems #: vpsr.rstaskitems
msgid "Task items" msgid "Task items"
msgstr "Aufgaben-Einträge" msgstr "Aufgaben"
#: vpsr.rstaskpopupadd #: vpsr.rstaskpopupadd
msgid "Add task..." msgid "Add task..."
@ -1378,8 +1374,9 @@ msgid "Tuesday"
msgstr "Dienstag" msgstr "Dienstag"
#: vpsr.rsunabletoopen #: vpsr.rsunabletoopen
msgid "Error: Unable to open " #, object-pascal-format
msgstr "Fehler: Kann nicht öffnen " msgid "Error: Unable to open %s"
msgstr "Fehler: %s kann nicht geöffnet werden"
#: vpsr.rsuntitled #: vpsr.rsuntitled
msgid "Untitled" msgid "Untitled"
@ -1481,7 +1478,7 @@ msgstr "%d Minuten"
#: vpsr.rsyearisrequired #: vpsr.rsyearisrequired
msgid "Error: Year is required." msgid "Error: Year is required."
msgstr "Fehler: Jahr wird benötigt." msgstr "Fehler: Jahr ist erforderlich."
#: vpsr.rsyearlybydate #: vpsr.rsyearlybydate
msgid "Yearly by date" msgid "Yearly by date"

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

@ -783,10 +783,6 @@ msgstr "N"
msgid "No alarm" msgid "No alarm"
msgstr "No alarm" msgstr "No alarm"
#: vpsr.rsnocanvas
msgid "TCanvas not assigned"
msgstr "TCanvas not assigned"
#: vpsr.rsnocontactsfoundinvcard #: vpsr.rsnocontactsfoundinvcard
#, object-pascal-format #, object-pascal-format
msgid "No contact items found in \"%s\"." msgid "No contact items found in \"%s\"."
@ -1360,8 +1356,9 @@ msgid "Tuesday"
msgstr "Tuesday" msgstr "Tuesday"
#: vpsr.rsunabletoopen #: vpsr.rsunabletoopen
msgid "Error: Unable to open " #, object-pascal-format
msgstr "Error: Unable to open " msgid "Error: Unable to open %s"
msgstr "Error: Unable to open %s"
#: vpsr.rsuntitled #: vpsr.rsuntitled
msgid "Untitled" msgid "Untitled"

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

@ -782,10 +782,6 @@ msgstr ""
msgid "No alarm" msgid "No alarm"
msgstr "" msgstr ""
#: vpsr.rsnocanvas
msgid "TCanvas not assigned"
msgstr ""
#: vpsr.rsnocontactsfoundinvcard #: vpsr.rsnocontactsfoundinvcard
#, object-pascal-format #, object-pascal-format
msgid "No contact items found in \"%s\"." msgid "No contact items found in \"%s\"."
@ -1370,7 +1366,8 @@ msgid "Tuesday"
msgstr "Tiistai" msgstr "Tiistai"
#: vpsr.rsunabletoopen #: vpsr.rsunabletoopen
msgid "Error: Unable to open " #, object-pascal-format
msgid "Error: Unable to open %s"
msgstr "" msgstr ""
#: vpsr.rsuntitled #: vpsr.rsuntitled

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

@ -797,10 +797,6 @@ msgstr ""
msgid "No alarm" msgid "No alarm"
msgstr "" msgstr ""
#: vpsr.rsnocanvas
msgid "TCanvas not assigned"
msgstr "TCanvas non spécifié"
#: vpsr.rsnocontactsfoundinvcard #: vpsr.rsnocontactsfoundinvcard
#, object-pascal-format #, object-pascal-format
msgid "No contact items found in \"%s\"." msgid "No contact items found in \"%s\"."
@ -1386,7 +1382,9 @@ msgid "Tuesday"
msgstr "Mardi" msgstr "Mardi"
#: vpsr.rsunabletoopen #: vpsr.rsunabletoopen
msgid "Error: Unable to open " #, object-pascal-format, fuzzy, badformat
#| msgid "Error: Unable to open "
msgid "Error: Unable to open %s"
msgstr "Erreur: Incapable d'ouvrir" msgstr "Erreur: Incapable d'ouvrir"
#: vpsr.rsuntitled #: vpsr.rsuntitled

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

@ -791,10 +791,6 @@ msgstr "N"
msgid "No alarm" msgid "No alarm"
msgstr "" msgstr ""
#: vpsr.rsnocanvas
msgid "TCanvas not assigned"
msgstr "TCanvas is niet toegewezen."
#: vpsr.rsnocontactsfoundinvcard #: vpsr.rsnocontactsfoundinvcard
#, object-pascal-format #, object-pascal-format
msgid "No contact items found in \"%s\"." msgid "No contact items found in \"%s\"."
@ -1380,7 +1376,9 @@ msgid "Tuesday"
msgstr "Dinsdag" msgstr "Dinsdag"
#: vpsr.rsunabletoopen #: vpsr.rsunabletoopen
msgid "Error: Unable to open " #, object-pascal-format, fuzzy, badformat
#| msgid "Error: Unable to open "
msgid "Error: Unable to open %s"
msgstr "Fout: Openen niet mogelijk " msgstr "Fout: Openen niet mogelijk "
#: vpsr.rsuntitled #: vpsr.rsuntitled

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

@ -791,10 +791,6 @@ msgstr "N"
msgid "No alarm" msgid "No alarm"
msgstr "" msgstr ""
#: vpsr.rsnocanvas
msgid "TCanvas not assigned"
msgstr "TCanvas nie został przypisany."
#: vpsr.rsnocontactsfoundinvcard #: vpsr.rsnocontactsfoundinvcard
#, object-pascal-format #, object-pascal-format
msgid "No contact items found in \"%s\"." msgid "No contact items found in \"%s\"."
@ -1379,7 +1375,9 @@ msgid "Tuesday"
msgstr "Wtorek" msgstr "Wtorek"
#: vpsr.rsunabletoopen #: vpsr.rsunabletoopen
msgid "Error: Unable to open " #, object-pascal-format, fuzzy, badformat
#| msgid "Error: Unable to open "
msgid "Error: Unable to open %s"
msgstr "Błąd: Nie mogę otworzyć" msgstr "Błąd: Nie mogę otworzyć"
#: vpsr.rsuntitled #: vpsr.rsuntitled

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

@ -773,10 +773,6 @@ msgstr ""
msgid "No alarm" msgid "No alarm"
msgstr "" msgstr ""
#: vpsr.rsnocanvas
msgid "TCanvas not assigned"
msgstr ""
#: vpsr.rsnocontactsfoundinvcard #: vpsr.rsnocontactsfoundinvcard
#, object-pascal-format #, object-pascal-format
msgid "No contact items found in \"%s\"." msgid "No contact items found in \"%s\"."
@ -1350,7 +1346,8 @@ msgid "Tuesday"
msgstr "" msgstr ""
#: vpsr.rsunabletoopen #: vpsr.rsunabletoopen
msgid "Error: Unable to open " #, object-pascal-format
msgid "Error: Unable to open %s"
msgstr "" msgstr ""
#: vpsr.rsuntitled #: vpsr.rsuntitled

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

@ -791,10 +791,6 @@ msgstr ""
msgid "No alarm" msgid "No alarm"
msgstr "" msgstr ""
#: vpsr.rsnocanvas
msgid "TCanvas not assigned"
msgstr ""
#: vpsr.rsnocontactsfoundinvcard #: vpsr.rsnocontactsfoundinvcard
#, object-pascal-format #, object-pascal-format
msgid "No contact items found in \"%s\"." msgid "No contact items found in \"%s\"."
@ -1378,7 +1374,9 @@ msgid "Tuesday"
msgstr "Вторник" msgstr "Вторник"
#: vpsr.rsunabletoopen #: vpsr.rsunabletoopen
msgid "Error: Unable to open " #, object-pascal-format, fuzzy, badformat
#| msgid "Error: Unable to open "
msgid "Error: Unable to open %s"
msgstr "Ошибка открытия" msgstr "Ошибка открытия"
#: vpsr.rsuntitled #: vpsr.rsuntitled

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

@ -26,6 +26,11 @@
{* *} {* *}
{* ***** END LICENSE BLOCK ***** *} {* ***** END LICENSE BLOCK ***** *}
{ Internal message texts not meant to be seen by the application user. }
const
RSNoCanvas = 'TCanvas not assigned';
{Visual PlanIt String Resources - To create language specific versions of {Visual PlanIt String Resources - To create language specific versions of
Visual PlanIt controls, translate these strings to the desired language Visual PlanIt controls, translate these strings to the desired language
and re-compile your application.} and re-compile your application.}
@ -61,7 +66,7 @@ resourcestring
RSFailToCreateResource = 'Error: Failure while creating Resource.'; RSFailToCreateResource = 'Error: Failure while creating Resource.';
RSDuplicateResource = 'Error: Duplicate resource.'; RSDuplicateResource = 'Error: Duplicate resource.';
RSInvalidTableSpecified = 'Error: Invalid table specified.'; RSInvalidTableSpecified = 'Error: Invalid table specified.';
RSUnableToOpen = 'Error: Unable to open '; RSUnableToOpen = 'Error: Unable to open %s';
RSSQLUpdateError = 'Error: Unable to update '; {!!.01} RSSQLUpdateError = 'Error: Unable to update '; {!!.01}
RSNoFilenameSpecified = 'Error: No datastore filename specified.'; RSNoFilenameSpecified = 'Error: No datastore filename specified.';
@ -530,6 +535,5 @@ resourcestring
RSOwnerNotWinCtrl = 'Owner must be a TWinControl descendent'; RSOwnerNotWinCtrl = 'Owner must be a TWinControl descendent';
RSNoControlLink = 'Component must be linked to a TVpControlLink'; RSNoControlLink = 'Component must be linked to a TVpControlLink';
RSNoPrintFormats = 'No print formats have been defined'; {!!.01} RSNoPrintFormats = 'No print formats have been defined'; {!!.01}
RSNoCanvas = 'TCanvas not assigned'; {!!.01}
RSNoLocalizationFile = 'Localization file not found.'; {!!.02} RSNoLocalizationFile = 'Localization file not found.'; {!!.02}

92
components/tvplanit/source/vpedelem.lfm
View File

@ -1,24 +1,23 @@
object frmEditElement: TfrmEditElement object frmEditElement: TfrmEditElement
Left = 288 Left = 288
Height = 465 Height = 447
Top = 321 Top = 321
Width = 608 Width = 473
HorzScrollBar.Page = 378 HorzScrollBar.Page = 378
VertScrollBar.Page = 444 VertScrollBar.Page = 444
AutoSize = True AutoSize = True
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Edit Element' Caption = 'Edit Element'
ClientHeight = 465 ClientHeight = 447
ClientWidth = 608 ClientWidth = 473
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.6.4.0'
object gbVisual: TGroupBox object gbVisual: TGroupBox
Left = 12 Left = 12
Height = 144 Height = 144
Top = 196 Top = 196
Width = 584 Width = 449
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Left = 12 BorderSpacing.Left = 12
@ -26,7 +25,7 @@ object frmEditElement: TfrmEditElement
BorderSpacing.Right = 12 BorderSpacing.Right = 12
Caption = ' Visual ' Caption = ' Visual '
ClientHeight = 124 ClientHeight = 124
ClientWidth = 580 ClientWidth = 445
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 3 TabOrder = 3
@ -34,7 +33,7 @@ object frmEditElement: TfrmEditElement
AnchorSideLeft.Control = rgRotation AnchorSideLeft.Control = rgRotation
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = gbVisual AnchorSideTop.Control = gbVisual
Left = 102 Left = 104
Height = 116 Height = 116
Top = 0 Top = 0
Width = 106 Width = 106
@ -44,7 +43,7 @@ object frmEditElement: TfrmEditElement
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
Caption = ' Measurement ' Caption = ' Measurement '
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 16
ChildSizing.TopBottomSpacing = 6 ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize
@ -71,14 +70,14 @@ object frmEditElement: TfrmEditElement
Left = 8 Left = 8
Height = 116 Height = 116
Top = 0 Top = 0
Width = 78 Width = 80
AutoFill = True AutoFill = True
AutoSize = True AutoSize = True
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
Caption = ' Rotation ' Caption = ' Rotation '
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 16
ChildSizing.TopBottomSpacing = 6 ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize
@ -87,7 +86,7 @@ object frmEditElement: TfrmEditElement
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 96 ClientHeight = 96
ClientWidth = 74 ClientWidth = 76
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'0' '0'
@ -104,7 +103,7 @@ object frmEditElement: TfrmEditElement
AnchorSideTop.Control = rgMeasurement AnchorSideTop.Control = rgMeasurement
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 332 Left = 334
Height = 54 Height = 54
Top = 31 Top = 31
Width = 99 Width = 99
@ -128,6 +127,7 @@ object frmEditElement: TfrmEditElement
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Height:' Caption = 'Height:'
Color = clDefault
FocusControl = edHeight FocusControl = edHeight
ParentColor = False ParentColor = False
end end
@ -161,7 +161,6 @@ object frmEditElement: TfrmEditElement
OnClick = UpDownClick OnClick = UpDownClick
Position = 0 Position = 0
TabOrder = 1 TabOrder = 1
Wrap = False
end end
object LblWidth: TLabel object LblWidth: TLabel
AnchorSideTop.Control = edWidth AnchorSideTop.Control = edWidth
@ -174,6 +173,7 @@ object frmEditElement: TfrmEditElement
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Width:' Caption = 'Width:'
Color = clDefault
FocusControl = edWidth FocusControl = edWidth
ParentColor = False ParentColor = False
end end
@ -206,7 +206,6 @@ object frmEditElement: TfrmEditElement
OnClick = UpDownClick OnClick = UpDownClick
Position = 0 Position = 0
TabOrder = 3 TabOrder = 3
Wrap = False
end end
object BevelHeightWidth: TBevel object BevelHeightWidth: TBevel
AnchorSideLeft.Control = HeightWidthPanel AnchorSideLeft.Control = HeightWidthPanel
@ -226,7 +225,7 @@ object frmEditElement: TfrmEditElement
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = rgMeasurement AnchorSideTop.Control = rgMeasurement
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 224 Left = 226
Height = 54 Height = 54
Top = 31 Top = 31
Width = 92 Width = 92
@ -252,14 +251,15 @@ object frmEditElement: TfrmEditElement
AnchorSideTop.Control = edTop AnchorSideTop.Control = edTop
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edTop AnchorSideRight.Control = edTop
Left = 1 Left = 2
Height = 15 Height = 15
Top = 4 Top = 4
Width = 23 Width = 22
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Left = 1 BorderSpacing.Left = 1
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Top:' Caption = 'Top:'
Color = clDefault
FocusControl = edTop FocusControl = edTop
ParentColor = False ParentColor = False
end end
@ -291,7 +291,6 @@ object frmEditElement: TfrmEditElement
OnClick = UpDownClick OnClick = UpDownClick
Position = 0 Position = 0
TabOrder = 1 TabOrder = 1
Wrap = False
end end
object udLeft: TUpDown object udLeft: TUpDown
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
@ -309,7 +308,6 @@ object frmEditElement: TfrmEditElement
OnClick = UpDownClick OnClick = UpDownClick
Position = 0 Position = 0
TabOrder = 2 TabOrder = 2
Wrap = False
end end
object edLeft: TEdit object edLeft: TEdit
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
@ -336,6 +334,7 @@ object frmEditElement: TfrmEditElement
BorderSpacing.Left = 1 BorderSpacing.Left = 1
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Left:' Caption = 'Left:'
Color = clDefault
FocusControl = edLeft FocusControl = edLeft
ParentColor = False ParentColor = False
end end
@ -346,10 +345,10 @@ object frmEditElement: TfrmEditElement
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = rgMeasurement AnchorSideBottom.Control = rgMeasurement
AnchorSideBottom.Side = asrBottom AnchorSideBottom.Side = asrBottom
Left = 262 Left = 266
Height = 19 Height = 19
Top = 97 Top = 97
Width = 54 Width = 52
Alignment = taLeftJustify Alignment = taLeftJustify
Anchors = [akRight, akBottom] Anchors = [akRight, akBottom]
Caption = 'Visible' Caption = 'Visible'
@ -361,7 +360,7 @@ object frmEditElement: TfrmEditElement
Left = 12 Left = 12
Height = 54 Height = 54
Top = 352 Top = 352
Width = 584 Width = 449
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Left = 12 BorderSpacing.Left = 12
@ -370,7 +369,7 @@ object frmEditElement: TfrmEditElement
BorderSpacing.Bottom = 6 BorderSpacing.Bottom = 6
Caption = ' Caption ' Caption = ' Caption '
ClientHeight = 34 ClientHeight = 34
ClientWidth = 580 ClientWidth = 445
Font.Style = [fsBold] Font.Style = [fsBold]
ParentFont = False ParentFont = False
TabOrder = 4 TabOrder = 4
@ -384,6 +383,7 @@ object frmEditElement: TfrmEditElement
Width = 27 Width = 27
BorderSpacing.Left = 8 BorderSpacing.Left = 8
Caption = 'Text: ' Caption = 'Text: '
Color = clDefault
FocusControl = edCaptionText FocusControl = edCaptionText
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
@ -393,7 +393,7 @@ object frmEditElement: TfrmEditElement
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = gbCaption AnchorSideRight.Control = gbCaption
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 513 Left = 378
Height = 25 Height = 25
Top = 1 Top = 1
Width = 59 Width = 59
@ -413,7 +413,7 @@ object frmEditElement: TfrmEditElement
Left = 43 Left = 43
Height = 23 Height = 23
Top = 2 Top = 2
Width = 466 Width = 331
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 2 BorderSpacing.Top = 2
@ -428,7 +428,7 @@ object frmEditElement: TfrmEditElement
Left = 12 Left = 12
Height = 23 Height = 23
Top = 8 Top = 8
Width = 584 Width = 449
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Left = 12 BorderSpacing.Left = 12
@ -437,7 +437,7 @@ object frmEditElement: TfrmEditElement
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 23 ClientHeight = 23
ClientWidth = 584 ClientWidth = 449
TabOrder = 0 TabOrder = 0
object lblName: TLabel object lblName: TLabel
AnchorSideTop.Control = edName AnchorSideTop.Control = edName
@ -447,6 +447,7 @@ object frmEditElement: TfrmEditElement
Top = 4 Top = 4
Width = 38 Width = 38
Caption = 'Name: ' Caption = 'Name: '
Color = clDefault
ParentColor = False ParentColor = False
end end
object edName: TEdit object edName: TEdit
@ -455,7 +456,7 @@ object frmEditElement: TfrmEditElement
Left = 42 Left = 42
Height = 23 Height = 23
Top = 0 Top = 0
Width = 542 Width = 407
Align = alRight Align = alRight
Anchors = [akTop, akLeft, akRight, akBottom] Anchors = [akTop, akLeft, akRight, akBottom]
BorderSpacing.Left = 4 BorderSpacing.Left = 4
@ -466,7 +467,7 @@ object frmEditElement: TfrmEditElement
Left = 12 Left = 12
Height = 51 Height = 51
Top = 133 Top = 133
Width = 586 Width = 451
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Left = 12 BorderSpacing.Left = 12
@ -474,7 +475,7 @@ object frmEditElement: TfrmEditElement
BorderSpacing.Right = 10 BorderSpacing.Right = 10
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 51 ClientHeight = 51
ClientWidth = 586 ClientWidth = 451
TabOrder = 2 TabOrder = 2
object gbDayOffset: TGroupBox object gbDayOffset: TGroupBox
AnchorSideTop.Control = Panel2 AnchorSideTop.Control = Panel2
@ -522,7 +523,6 @@ object frmEditElement: TfrmEditElement
Min = 0 Min = 0
Position = 0 Position = 0
TabOrder = 1 TabOrder = 1
Wrap = False
end end
end end
object rgDayOffsetUnit: TRadioGroup object rgDayOffsetUnit: TRadioGroup
@ -533,7 +533,7 @@ object frmEditElement: TfrmEditElement
Left = 108 Left = 108
Height = 51 Height = 51
Top = 0 Top = 0
Width = 478 Width = 343
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoFill = True AutoFill = True
AutoSize = True AutoSize = True
@ -548,7 +548,7 @@ object frmEditElement: TfrmEditElement
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 4 ChildSizing.ControlsPerLine = 4
ClientHeight = 31 ClientHeight = 31
ClientWidth = 474 ClientWidth = 339
Columns = 4 Columns = 4
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
@ -565,7 +565,7 @@ object frmEditElement: TfrmEditElement
Left = 0 Left = 0
Height = 25 Height = 25
Top = 414 Top = 414
Width = 596 Width = 461
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Top = 8 BorderSpacing.Top = 8
@ -573,7 +573,7 @@ object frmEditElement: TfrmEditElement
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 25 ClientHeight = 25
ClientWidth = 596 ClientWidth = 461
TabOrder = 5 TabOrder = 5
object btnShape: TButton object btnShape: TButton
AnchorSideLeft.Control = ButtonPanel AnchorSideLeft.Control = ButtonPanel
@ -589,25 +589,23 @@ object frmEditElement: TfrmEditElement
TabOrder = 0 TabOrder = 0
end end
object btnOk: TButton object btnOk: TButton
Left = 459 Left = 324
Height = 25 Height = 25
Top = 0 Top = 0
Width = 71 Width = 71
Align = alRight Align = alRight
BorderSpacing.Right = 4 BorderSpacing.Right = 4
Caption = 'OK' Caption = 'OK'
Default = True
OnClick = btnOkClick OnClick = btnOkClick
TabOrder = 1 TabOrder = 1
end end
object btnCancel: TButton object btnCancel: TButton
Left = 534 Left = 399
Height = 25 Height = 25
Top = 0 Top = 0
Width = 62 Width = 62
Align = alRight Align = alRight
AutoSize = True AutoSize = True
Cancel = True
Caption = 'Cancel' Caption = 'Cancel'
OnClick = btnCancelClick OnClick = btnCancelClick
TabOrder = 2 TabOrder = 2
@ -617,7 +615,7 @@ object frmEditElement: TfrmEditElement
Left = 12 Left = 12
Height = 78 Height = 78
Top = 43 Top = 43
Width = 586 Width = 451
Align = alTop Align = alTop
AutoSize = True AutoSize = True
BorderSpacing.Left = 12 BorderSpacing.Left = 12
@ -625,18 +623,18 @@ object frmEditElement: TfrmEditElement
BorderSpacing.Right = 10 BorderSpacing.Right = 10
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 78 ClientHeight = 78
ClientWidth = 586 ClientWidth = 451
TabOrder = 1 TabOrder = 1
object rgItemType: TRadioGroup object rgItemType: TRadioGroup
Left = 0 Left = 0
Height = 78 Height = 78
Top = 0 Top = 0
Width = 586 Width = 451
Align = alClient Align = alClient
AutoFill = True AutoFill = True
BorderSpacing.InnerBorder = 4 BorderSpacing.InnerBorder = 4
Caption = 'Item Type ' Caption = 'Item Type '
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 16
ChildSizing.TopBottomSpacing = 6 ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize
@ -645,7 +643,7 @@ object frmEditElement: TfrmEditElement
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 4 ChildSizing.ControlsPerLine = 4
ClientHeight = 58 ClientHeight = 58
ClientWidth = 582 ClientWidth = 447
Columns = 4 Columns = 4
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
@ -668,7 +666,7 @@ object frmEditElement: TfrmEditElement
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
MinFontSize = 0 MinFontSize = 0
MaxFontSize = 0 MaxFontSize = 0
left = 536 Left = 536
top = 304 Top = 304
end end
end end

55
components/tvplanit/source/vpedfmt.lfm
View File

@ -1,38 +1,37 @@
object frmEditFormat: TfrmEditFormat object frmEditFormat: TfrmEditFormat
Left = 583 Left = 583
Height = 199 Height = 189
Top = 339 Top = 339
Width = 347 Width = 320
HorzScrollBar.Page = 328 HorzScrollBar.Page = 328
VertScrollBar.Page = 188 VertScrollBar.Page = 188
AutoSize = True AutoSize = True
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Edit Format' Caption = 'Edit Format'
ClientHeight = 199 ClientHeight = 189
ClientWidth = 347 ClientWidth = 320
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.6.4.0'
object Panel1: TPanel object Panel1: TPanel
Left = 8 Left = 8
Height = 158 Height = 148
Top = 8 Top = 8
Width = 331 Width = 304
Align = alClient Align = alClient
AutoSize = True AutoSize = True
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 8 BorderSpacing.Top = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 158 ClientHeight = 148
ClientWidth = 331 ClientWidth = 304
TabOrder = 0 TabOrder = 0
object LblName: TLabel object LblName: TLabel
AnchorSideTop.Control = edName AnchorSideTop.Control = edName
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edName AnchorSideRight.Control = edName
Left = 77 Left = 50
Height = 15 Height = 15
Top = 4 Top = 4
Width = 38 Width = 38
@ -40,6 +39,7 @@ object frmEditFormat: TfrmEditFormat
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Name: ' Caption = 'Name: '
Color = clDefault
FocusControl = edName FocusControl = edName
ParentColor = False ParentColor = False
end end
@ -47,7 +47,7 @@ object frmEditFormat: TfrmEditFormat
AnchorSideTop.Control = edIncrement AnchorSideTop.Control = edIncrement
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edIncrement AnchorSideRight.Control = edIncrement
Left = 35 Left = 8
Height = 15 Height = 15
Top = 66 Top = 66
Width = 80 Width = 80
@ -55,6 +55,7 @@ object frmEditFormat: TfrmEditFormat
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Day Increment:' Caption = 'Day Increment:'
Color = clDefault
FocusControl = edIncrement FocusControl = edIncrement
ParentColor = False ParentColor = False
end end
@ -62,7 +63,7 @@ object frmEditFormat: TfrmEditFormat
AnchorSideTop.Control = edDescription AnchorSideTop.Control = edDescription
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edDescription AnchorSideRight.Control = edDescription
Left = 49 Left = 22
Height = 15 Height = 15
Top = 35 Top = 35
Width = 66 Width = 66
@ -70,6 +71,7 @@ object frmEditFormat: TfrmEditFormat
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Description: ' Caption = 'Description: '
Color = clDefault
FocusControl = edDescription FocusControl = edDescription
ParentColor = False ParentColor = False
end end
@ -79,7 +81,7 @@ object frmEditFormat: TfrmEditFormat
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = Panel1 AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 123 Left = 96
Height = 23 Height = 23
Top = 31 Top = 31
Width = 208 Width = 208
@ -91,7 +93,7 @@ object frmEditFormat: TfrmEditFormat
AnchorSideLeft.Control = edName AnchorSideLeft.Control = edName
AnchorSideTop.Control = edDescription AnchorSideTop.Control = edDescription
AnchorSideTop.Side = asrBottom AnchorSideTop.Side = asrBottom
Left = 123 Left = 96
Height = 23 Height = 23
Top = 62 Top = 62
Width = 71 Width = 71
@ -106,7 +108,7 @@ object frmEditFormat: TfrmEditFormat
AnchorSideTop.Control = edIncrement AnchorSideTop.Control = edIncrement
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 194 Left = 167
Height = 23 Height = 23
Top = 62 Top = 62
Width = 12 Width = 12
@ -115,13 +117,12 @@ object frmEditFormat: TfrmEditFormat
Min = 0 Min = 0
Position = 0 Position = 0
TabOrder = 2 TabOrder = 2
Wrap = False
end end
object edName: TEdit object edName: TEdit
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
AnchorSideRight.Control = Panel1 AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 123 Left = 96
Height = 23 Height = 23
Top = 0 Top = 0
Width = 208 Width = 208
@ -136,14 +137,14 @@ object frmEditFormat: TfrmEditFormat
AnchorSideRight.Side = asrBottom AnchorSideRight.Side = asrBottom
Left = 0 Left = 0
Height = 51 Height = 51
Top = 93 Top = 97
Width = 331 Width = 304
Anchors = [akTop, akLeft, akRight] Anchors = [akTop, akLeft, akRight]
AutoFill = True AutoFill = True
AutoSize = True AutoSize = True
BorderSpacing.Top = 8 BorderSpacing.Top = 12
Caption = ' Day Increment Unit ' Caption = ' Day Increment Unit '
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 16
ChildSizing.TopBottomSpacing = 6 ChildSizing.TopBottomSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
ChildSizing.EnlargeVertical = crsHomogenousChildResize ChildSizing.EnlargeVertical = crsHomogenousChildResize
@ -152,7 +153,7 @@ object frmEditFormat: TfrmEditFormat
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 4 ChildSizing.ControlsPerLine = 4
ClientHeight = 31 ClientHeight = 31
ClientWidth = 327 ClientWidth = 300
Columns = 4 Columns = 4
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
@ -168,16 +169,16 @@ object frmEditFormat: TfrmEditFormat
object ButtonPanel: TPanel object ButtonPanel: TPanel
Left = 0 Left = 0
Height = 33 Height = 33
Top = 166 Top = 156
Width = 347 Width = 320
Align = alBottom Align = alBottom
AutoSize = True AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 33 ClientHeight = 33
ClientWidth = 347 ClientWidth = 320
TabOrder = 1 TabOrder = 1
object btnOk: TButton object btnOk: TButton
Left = 231 Left = 204
Height = 25 Height = 25
Top = 4 Top = 4
Width = 42 Width = 42
@ -193,7 +194,7 @@ object frmEditFormat: TfrmEditFormat
TabOrder = 0 TabOrder = 0
end end
object btnCancel: TButton object btnCancel: TButton
Left = 277 Left = 250
Height = 25 Height = 25
Top = 4 Top = 4
Width = 62 Width = 62

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

@ -368,7 +368,7 @@ begin
try try
FResourceDataSrc.DataSet.Open; FResourceDataSrc.DataSet.Open;
except except
raise Exception.Create(RSUnableToOpen + ResourceTableName); raise Exception.CreateFmt(RSUnableToOpen, [ResourceTableName]);
end; end;
end; end;
end; end;
@ -383,7 +383,7 @@ begin
try try
FEventsDataSrc.DataSet.Open; FEventsDataSrc.DataSet.Open;
except except
raise Exception.Create(RSUnableToOpen + EventsTableName); raise Exception.CreateFmt(RSUnableToOpen, [EventsTableName]);
end; end;
end; end;
end; end;
@ -398,7 +398,7 @@ begin
try try
FContactsDataSrc.DataSet.Open; FContactsDataSrc.DataSet.Open;
except except
raise Exception.Create(RSUnableToOpen + ContactsTableName); raise Exception.CreateFmt(RSUnableToOpen, [ContactsTableName]);
end; end;
end; end;
end; end;
@ -413,7 +413,7 @@ begin
try try
FTasksDataSrc.DataSet.Open; FTasksDataSrc.DataSet.Open;
except except
raise Exception.Create(RSUnableToOpen + TasksTableName); raise Exception.CreateFmt(RSUnableToOpen, [TasksTableName]);
end; end;
end; end;
end; end;