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

tvplanit: Move MonthView painting code into a separate unit (VpMonthViewPainter). Some minor fixes in demo.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4808 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-22 22:37:44 +00:00
parent 26d8e9b546
commit 3b7adafe73
3 changed files with 16 additions and 753 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -409,7 +409,7 @@ begin
SetLanguage(lang);
SetActiveView(ini.ReadInteger('Settings', 'ActiveView', 0));
VpNavBar1.ActiveFolder := FActiveView mod 1000;
VpNavBar1.ActiveFolder := FActiveView div 1000;
CbTimeFormat.ItemIndex := ini.ReadInteger('Settings', 'TimeFormat', ord(VpDayView1.TimeFormat));
CbTimeFormatChange(nil);
@ -444,9 +444,12 @@ begin
ini.WriteInteger('Form', 'Height', Height);
ini.WriteInteger('Left', 'Left', Left);
ini.WriteInteger('Form', 'Top', Top);
end;
if FActiveView = 0 then begin
ini.WriteInteger('Form', 'LeftPanel_Width', LeftPanel.Width);
ini.WriteInteger('Form', 'BottomPanel_Height', VpMonthView1.Height);
end;
ini.WriteString('Settings', 'Language', FLang);
ini.WriteInteger('Settings', 'ActiveView', FActiveView);
ini.WriteInteger('Settings', 'TimeFormat', ord(VpDayView1.TimeFormat));