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

tvplanit: Create default popupmenu items in the constructor rather than when the menu drops down. Adjust translation of popupmenu items.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8392 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-08-16 15:04:39 +00:00
parent e3c03b1a72
commit 8ef2d6471f
8 changed files with 292 additions and 291 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/tvplanit/examples/fulldemo/demomain.pas
View File

@ -1169,6 +1169,12 @@ begin
OpenDialog.Filter := rsXMLFiles + '|*.xml';
VpDayView1.LoadLanguage;
VpWeekView1.LoadLanguage;
VpMonthView1.LoadLanguage;
VpTaskList1.LoadLanguage;
VpContactGrid1.LoadLanguage;
// These settings work correctly only for Windows.
{$IFDEF WINDOWS}
UpdateFormatSettings(ALang);
@ -1182,7 +1188,7 @@ begin
VpWeekView1.TimeFormat := tfmt;
VpMonthView1.TimeFormat := tfmt;
{$ENDIF}
firstWeekDay := GetFirstDayofWeek(ALang); // not correct at the moment
VpMonthView1.WeekStartsOn := firstWeekDay;
VpWeekView1.WeekStartsOn := firstWeekDay;