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

tvplanit: Activate translation of dayview speedbuttons,

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4778 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-19 22:41:36 +00:00
parent 5af0d70a52
commit e9199cdad2
6 changed files with 36 additions and 14 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
components/tvplanit/examples/demo/demomain.lfm
View File

@ -135,6 +135,7 @@ object MainForm: TMainForm
DataStore = VpBufDSDataStore1
ControlLink = VpControlLink1
Color = clWindow
ParentShowHint = False
Align = alClient
ReadOnly = False
TabStop = True
@ -148,7 +149,7 @@ object MainForm: TMainForm
TimeSlotColors.Inactive = 8454143
TimeSlotColors.Holiday = 16744703
TimeSlotColors.Weekday = clWhite
TimeSlotColors.Weekend = 16777088
TimeSlotColors.Weekend = 14737632
TimeSlotColors.ActiveRange.RangeBegin = h_00
TimeSlotColors.ActiveRange.RangeEnd = h_00
HeadAttributes.Font.Height = -13
@ -317,7 +318,7 @@ object MainForm: TMainForm
Height = 652
Top = 34
Width = 120
ActiveFolder = 3
ActiveFolder = 0
AllowRearrange = True
BackgroundColor = clInactiveCaption
BackgroundMethod = bmNormal

3
components/tvplanit/examples/demo/demomain.pas
View File

@ -327,6 +327,9 @@ begin
SetDefaultLang(FLang, langdir);
TranslateUnitResourceStrings('vpsr', langdir + 'vpsr.' + FLang + '.po');
end;
VpDayView1.LoadLanguage;
VpWeekView1.LoadLanguage;
VpMonthView1.LoadLanguage;
// Select language in language combobox.
if ALang = '' then ALang := 'en';

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

@ -509,14 +509,22 @@ msgstr "Von Ihrem Zeitplan?"
msgid "from your task list?"
msgstr "Von Ihrer Aufgabenliste?"
#: vpsr.rshintnextday
msgid "Next day"
msgstr "Nächster Tag"
#: vpsr.rshintnextweek
msgctxt "vpsr.rshintnextweek"
msgid "Next Week"
msgid "Next week"
msgstr "Nächste Woche"
#: vpsr.rshintprevday
msgid "Previous day"
msgstr "Voriger Tag"
#: vpsr.rshintprevweek
msgctxt "vpsr.rshintprevweek"
msgid "Previous Week"
msgid "Previous week"
msgstr "Vorige Woche"
#: vpsr.rshinttoday

12
components/tvplanit/languages/vpsr.po
View File

@ -499,14 +499,22 @@ msgstr ""
msgid "from your task list?"
msgstr ""
#: vpsr.rshintnextday
msgid "Next day"
msgstr ""
#: vpsr.rshintnextweek
msgctxt "vpsr.rshintnextweek"
msgid "Next Week"
msgid "Next week"
msgstr ""
#: vpsr.rshintprevday
msgid "Previous day"
msgstr ""
#: vpsr.rshintprevweek
msgctxt "vpsr.rshintprevweek"
msgid "Previous Week"
msgid "Previous week"
msgstr ""
#: vpsr.rshinttoday

12
components/tvplanit/source/vpdayview.pas
View File

@ -66,7 +66,7 @@ interface
uses
{$IFDEF LCL}
LMessages,LCLProc,LCLType,LCLIntf,
LMessages, LCLProc, LCLType, LCLIntf,
{$ELSE}
Windows,
{$ENDIF}
@ -859,11 +859,11 @@ end;
procedure TVpDayView.LoadLanguage;
begin
dvDayUpBtn.Hint := rsHintTomorrow;
dvDayDownBtn.Hint := rsHintYesterday;
dvTodayBtn.Hint := rsHintToday;
dvWeekUpBtn.Hint := rsHintNextWeek;
dvWeekDownBtn.Hint := rsHintPrevWeek;
dvDayUpBtn.Hint := RSHintNextDay; //rsHintTomorrow;
dvDayDownBtn.Hint := RSHintPrevDay; //rsHintYesterday;
dvTodayBtn.Hint := RSHintToday;
dvWeekUpBtn.Hint := RSHintNextWeek;
dvWeekDownBtn.Hint := RSHintPrevWeek;
FDefaultPopup.Items.Clear;
InitializeDefaultPopup;
end;

6
components/tvplanit/source/vpsr.inc
View File

@ -190,8 +190,10 @@ resourcestring
RSHintToday = 'Today'; {!!.01}
RSHintTomorrow = 'Tomorrow'; {!!.01}
RSHintYesterday = 'Yesterday'; {!!.01}
RSHintNextWeek = 'Next Week'; {!!.01}
RSHintPrevWeek = 'Previous Week'; {!!.01}
RSHintNextWeek = 'Next week'; {!!.01}
RSHintPrevWeek = 'Previous week'; {!!.01}
RSHintPrevDay = 'Previous day';
RsHintNextDay = 'Next day';
{ field names }
RSPosition = 'Position';