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

tvplanit: Some refactoring of task list (flat display style, cosmetic changes).

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4818 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-24 10:33:55 +00:00
parent 0cce1b3a5f
commit 5d8b843f2b
6 changed files with 43 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -25,9 +25,9 @@ object MainForm: TMainForm
Height = 532
Top = 48
Width = 780
ActivePage = TabSettings
ActivePage = TabEvents
Align = alClient
TabIndex = 4
TabIndex = 0
TabOrder = 0
object TabEvents: TTabSheet
Caption = 'Events'
@ -431,6 +431,15 @@ object MainForm: TMainForm
State = cbChecked
TabOrder = 3
end
object Cb3D: TCheckBox
Left = 349
Height = 19
Top = 64
Width = 107
Caption = '3d display mode'
OnChange = Cb3DChange
TabOrder = 4
end
end
end
object HeaderPanel: TPanel

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

@ -16,6 +16,7 @@ TMAINFORM.LBLLANGUAGE.CAPTION=Language
TMAINFORM.LBLTIMEFORMAT.CAPTION=Time format
TMAINFORM.LBLFIRSTDAYOFWEEK.CAPTION=First day of week
TMAINFORM.CBALLOWINPLACEEDITING.CAPTION=Allow inplace editing
TMAINFORM.CB3D.CAPTION=3d display mode
TMAINFORM.TITLELBL.CAPTION=TitleLbl
TMAINFORM.MENUITEM1.CAPTION=File
TMAINFORM.MNUQUIT.CAPTION=Quit

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

@ -23,6 +23,7 @@ type
CbTimeFormat: TComboBox;
CbFirstDayOfWeek: TComboBox;
CbAllowInplaceEditing: TCheckBox;
Cb3D: TCheckBox;
Img: TImage;
ImageList1: TImageList;
LblFirstDayOfWeek: TLabel;
@ -69,6 +70,7 @@ type
procedure BtnDeleteResClick(Sender: TObject);
procedure BtnNewResClick(Sender: TObject);
procedure BtnEditResClick(Sender: TObject);
procedure Cb3DChange(Sender: TObject);
procedure CbAllowInplaceEditingChange(Sender: TObject);
procedure CbFirstDayOfWeekChange(Sender: TObject);
procedure CbGranularityChange(Sender: TObject);
@ -237,6 +239,18 @@ begin
VpResourceEditDialog1.AddNewResource;
end;
procedure TMainForm.Cb3DChange(Sender: TObject);
var
ds: TVpDrawingStyle;
begin
if Cb3D.Checked then ds := ds3d else ds := dsFlat;
VpTaskList1.DrawingStyle := ds;
VpContactGrid1.DrawingStyle := ds;
VpDayView1.DrawingStyle := ds;
VpWeekView1.DrawingStyle := ds;
VpMonthView1.DrawingStyle := ds;
end;
procedure TMainForm.CbAllowInplaceEditingChange(Sender: TObject);
begin
VpContactGrid1.AllowInplaceEditing := CbAllowInplaceEditing.Checked;
@ -601,6 +615,7 @@ begin
CbFirstDayOfWeek.Left := CbLanguages.Left;
LblFirstDayOfWeek.Left := CbFirstDayOfWeek.Left - 8 - GetLabelWidth(LblFirstDayOfWeek);
CbAllowInplaceEditing.Left := CbLanguages.Left + CbLanguages.Width + 32;
Cb3D.Left := CbAllowInplaceEditing.Left;
RbHideCompletedTasks.Left := RbAllTasks.Left + RbAllTasks.Width + 48;
// Next settings work correctly only for Windows.