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

tvplanit: Add new property "AllowInplaceEditing" for DayView, WeekView and TaskList.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4814 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-23 23:16:34 +00:00
parent 66bddaf5e0
commit 54dc447750
8 changed files with 80 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -25,9 +25,9 @@ object MainForm: TMainForm
Height = 532
Top = 48
Width = 780
ActivePage = TabContacts
ActivePage = TabSettings
Align = alClient
TabIndex = 2
TabIndex = 4
TabOrder = 0
object TabEvents: TTabSheet
Caption = 'Events'
@ -420,6 +420,17 @@ object MainForm: TMainForm
Style = csDropDownList
TabOrder = 2
end
object CbAllowInplaceEditing: TCheckBox
Left = 349
Height = 19
Top = 28
Width = 131
Caption = 'Allow inplace editing'
Checked = True
OnChange = CbAllowInplaceEditingChange
State = cbChecked
TabOrder = 3
end
end
end
object HeaderPanel: TPanel

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

@ -15,6 +15,7 @@ TMAINFORM.TABSETTINGS.CAPTION=Settings
TMAINFORM.LBLLANGUAGE.CAPTION=Language
TMAINFORM.LBLTIMEFORMAT.CAPTION=Time format
TMAINFORM.LBLFIRSTDAYOFWEEK.CAPTION=First day of week
TMAINFORM.CBALLOWINPLACEEDITING.CAPTION=Allow inplace editing
TMAINFORM.TITLELBL.CAPTION=TitleLbl
TMAINFORM.MENUITEM1.CAPTION=File
TMAINFORM.MNUQUIT.CAPTION=Quit

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

@ -22,6 +22,7 @@ type
CbGranularity: TComboBox;
CbTimeFormat: TComboBox;
CbFirstDayOfWeek: TComboBox;
CbAllowInplaceEditing: TCheckBox;
Img: TImage;
ImageList1: TImageList;
LblFirstDayOfWeek: TLabel;
@ -68,6 +69,7 @@ type
procedure BtnDeleteResClick(Sender: TObject);
procedure BtnNewResClick(Sender: TObject);
procedure BtnEditResClick(Sender: TObject);
procedure CbAllowInplaceEditingChange(Sender: TObject);
procedure CbFirstDayOfWeekChange(Sender: TObject);
procedure CbGranularityChange(Sender: TObject);
procedure CbLanguagesChange(Sender: TObject);
@ -235,6 +237,14 @@ begin
VpResourceEditDialog1.AddNewResource;
end;
procedure TMainForm.CbAllowInplaceEditingChange(Sender: TObject);
begin
VpContactGrid1.AllowInplaceEditing := CbAllowInplaceEditing.Checked;
VpDayView1.AllowInplaceEditing := CbAllowInplaceEditing.Checked;
VpWeekView1.AllowInplaceEditing := CbAllowInplaceEditing.Checked;
VpTaskList1.AllowInplaceEditing := CbAllowInplaceEditing.Checked;
end;
procedure TMainForm.CbFirstDayOfWeekChange(Sender: TObject);
begin
VpWeekView1.WeekStartsOn := TVpDayType(CbFirstDayOfWeek.ItemIndex);
@ -428,6 +438,9 @@ begin
DaysTrackbar.Position := ini.ReadInteger('Settings', 'VisibleDays', DaysTrackbar.Position);
DaysTrackbarChange(nil);
CbAllowInplaceEditing.Checked := ini.ReadBool('Settings', 'AllowInplaceEditing', CbAllowInplaceEditing.Checked);
CbAllowInplaceEditingChange(nil);
finally
ini.Free;
end;
@ -457,6 +470,7 @@ begin
ini.WriteInteger('Settings', 'FirstDayOfWeek', ord(VpWeekView1.WeekStartsOn));
ini.WriteInteger('Settings', 'VisibleDays', VpDayView1.NumDays);
ini.WriteBool('Settings', 'AllTasks', VpTaskList1.DisplayOptions.ShowAll);
ini.WriteBool('Settings', 'AllowInplaceEditing', CbAllowInplaceEditing.Checked);
finally
ini.Free;
end;
@ -586,6 +600,7 @@ begin
LblTimeFormat.Left := CbTimeFormat.Left - 8 - GetLabelWidth(LblTimeFormat);
CbFirstDayOfWeek.Left := CbLanguages.Left;
LblFirstDayOfWeek.Left := CbFirstDayOfWeek.Left - 8 - GetLabelWidth(LblFirstDayOfWeek);
CbAllowInplaceEditing.Left := CbLanguages.Left + CbLanguages.Width + 32;
RbHideCompletedTasks.Left := RbAllTasks.Left + RbAllTasks.Width + 48;
// Next settings work correctly only for Windows.