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

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

@ -327,6 +327,9 @@ begin
SetDefaultLang(FLang, langdir); SetDefaultLang(FLang, langdir);
TranslateUnitResourceStrings('vpsr', langdir + 'vpsr.' + FLang + '.po'); TranslateUnitResourceStrings('vpsr', langdir + 'vpsr.' + FLang + '.po');
end; end;
VpDayView1.LoadLanguage;
VpWeekView1.LoadLanguage;
VpMonthView1.LoadLanguage;
// Select language in language combobox. // Select language in language combobox.
if ALang = '' then ALang := 'en'; 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?" msgid "from your task list?"
msgstr "Von Ihrer Aufgabenliste?" msgstr "Von Ihrer Aufgabenliste?"
#: vpsr.rshintnextday
msgid "Next day"
msgstr "Nächster Tag"
#: vpsr.rshintnextweek #: vpsr.rshintnextweek
msgctxt "vpsr.rshintnextweek" msgctxt "vpsr.rshintnextweek"
msgid "Next Week" msgid "Next week"
msgstr "Nächste Woche" msgstr "Nächste Woche"
#: vpsr.rshintprevday
msgid "Previous day"
msgstr "Voriger Tag"
#: vpsr.rshintprevweek #: vpsr.rshintprevweek
msgctxt "vpsr.rshintprevweek" msgctxt "vpsr.rshintprevweek"
msgid "Previous Week" msgid "Previous week"
msgstr "Vorige Woche" msgstr "Vorige Woche"
#: vpsr.rshinttoday #: vpsr.rshinttoday

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

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

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

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

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

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