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

tvplanit: Fix missing popup translation of task list and contact grid. Fix demo changing view when language is changed.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4832 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-24 22:34:38 +00:00
parent 2b22eefdca
commit 852270b0c2
7 changed files with 24 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -335,7 +335,7 @@ object MainForm: TMainForm
end
end
object TabResources: TTabSheet
Caption = 'Maintenance'
Caption = 'Resources'
ClientHeight = 504
ClientWidth = 772
TabVisible = False

2
components/tvplanit/examples/demo/demomain.lrt
View File

@ -7,7 +7,7 @@ TMAINFORM.TABTASKS.CAPTION=Tasks
TMAINFORM.RBALLTASKS.CAPTION=All tasks
TMAINFORM.RBHIDECOMPLETEDTASKS.CAPTION=Hide completed tasks
TMAINFORM.TABCONTACTS.CAPTION=Contacts
TMAINFORM.TABRESOURCES.CAPTION=Maintenance
TMAINFORM.TABRESOURCES.CAPTION=Resources
TMAINFORM.BTNNEWRES.CAPTION=New
TMAINFORM.BTNEDITRES.CAPTION=Edit
TMAINFORM.BTNDELETERES.CAPTION=Delete

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

@ -558,6 +558,8 @@ begin
VpDayView1.LoadLanguage;
VpWeekView1.LoadLanguage;
VpMonthView1.LoadLanguage;
VpTaskList1.LoadLanguage;
VpContactGrid1.LoadLanguage;
// Select language in language combobox.
if ALang = '' then ALang := 'en';
@ -639,7 +641,7 @@ begin
VpWeekView1.WeekStartsOn := firstWeekDay;
{$ENDIF}
SetActiveView(FActiveView);
SetActiveView(1001);
Invalidate;
end;
@ -672,7 +674,6 @@ begin
VpMonthView1.Align := alClient;
VpMonthView1.Show;
DaySelectorPanel.Hide;
TitleLbl.Caption := RSEventsPerMonth;
ImageList1.GetBitmap(5, Img.Picture.Bitmap);
end;
@ -686,7 +687,6 @@ begin
VpDayView1.Hide;
VpWeekView1.Show;
DaySelectorPanel.Hide;
TitleLbl.Caption := RSEventsPerWeek;
ImageList1.GetBitmap(4, Img.Picture.Bitmap);
end;
@ -704,7 +704,6 @@ begin
DaySelectorPanel.Show;
DaysTrackbar.Position := FVisibleDays;
VpDayView1.NumDays := DaysTrackBar.Position;
TitleLbl.Caption := RSEventsPerDay;
ImageList1.GetBitmap(3, Img.Picture.Bitmap);
end;
@ -770,7 +769,7 @@ begin
0: ShowResources;
1: ShowSettings;
end;
end;
end;
end;
end.