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';