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

tvplanit: New property ApplyCategoryInfos for week and month view. Some tweaking of text positions in month view.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8346 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2022-07-12 14:31:42 +00:00
parent cf88b7c792
commit 2e2d9f18bf
14 changed files with 133 additions and 39 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
components/tvplanit/examples/fulldemo/demomain.lfm
View File

@ -19,7 +19,7 @@ object MainForm: TMainForm
BevelOuter = bvNone
ClientHeight = 596
ClientWidth = 834
TabOrder = 0
TabOrder = 2
object HeaderPanel: TPanel
Left = 2
Height = 48
@ -58,7 +58,7 @@ object MainForm: TMainForm
Height = 548
Top = 48
Width = 834
PageIndex = 0
PageIndex = 4
Align = alClient
TabOrder = 1
TabStop = True
@ -740,6 +740,18 @@ object MainForm: TMainForm
State = cbChecked
TabOrder = 8
end
object CbApplyCategoryInfos: TCheckBox
AnchorSideLeft.Control = CbAllowInplaceEditing
AnchorSideTop.Control = CbDrawingStyle
AnchorSideTop.Side = asrCenter
Left = 316
Height = 19
Top = 178
Width = 266
Caption = 'Apply category colors to week and month view'
OnChange = CbApplyCategoryInfosChange
TabOrder = 9
end
end
end
end

1
components/tvplanit/examples/fulldemo/demomain.lrj
View File

@ -21,6 +21,7 @@
{"hash":248087155,"name":"tmainform.cballowdraganddrop.caption","sourcebytes":[65,108,108,111,119,32,100,114,97,103,32,97,110,100,32,100,114,111,112,32,111,102,32,101,118,101,110,116,115],"value":"Allow drag and drop of events"},
{"hash":216343376,"name":"tmainform.cbdragdroptransparent.caption","sourcebytes":[84,114,97,110,115,112,97,114,101,110,116,32,100,114,97,103,32,97,110,100,32,100,114,111,112],"value":"Transparent drag and drop"},
{"hash":17060163,"name":"tmainform.cbshoweventhints.caption","sourcebytes":[83,104,111,119,32,101,118,101,110,116,32,97,110,100,32,99,111,110,116,97,99,116,32,104,105,110,116,115],"value":"Show event and contact hints"},
{"hash":245274983,"name":"tmainform.cbapplycategoryinfos.caption","sourcebytes":[65,112,112,108,121,32,99,97,116,101,103,111,114,121,32,99,111,108,111,114,115,32,116,111,32,119,101,101,107,32,97,110,100,32,109,111,110,116,104,32,118,105,101,119],"value":"Apply category colors to week and month view"},
{"hash":315429,"name":"tmainform.menuitem1.caption","sourcebytes":[70,105,108,101],"value":"File"},
{"hash":109668078,"name":"tmainform.mnueditprintformats.caption","sourcebytes":[69,100,105,116,32,112,114,105,110,116,32,102,111,114,109,97,116,115,46,46,46],"value":"Edit print formats..."},
{"hash":25869902,"name":"tmainform.mnuloadprintformats.caption","sourcebytes":[76,111,97,100,32,112,114,105,110,116,32,102,111,114,109,97,116,115,46,46,46],"value":"Load print formats..."},

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

@ -32,6 +32,7 @@ type
CbAllowDragAndDrop: TCheckBox;
CbDragDropTransparent: TCheckBox;
CbShowEventHints: TCheckBox;
CbApplyCategoryInfos: TCheckBox;
lblOtherResources: TLabel;
lblResources: TLabel;
lbOtherResources: TCheckListBox;
@ -97,6 +98,7 @@ type
procedure CbAddressBuilderChange(Sender: TObject);
procedure CbAllowDragAndDropChange(Sender: TObject);
procedure CbAllowInplaceEditingChange(Sender: TObject);
procedure CbApplyCategoryInfosChange(Sender: TObject);
procedure CbDragDropTransparentChange(Sender: TObject);
procedure CbDrawingStyleChange(Sender: TObject);
procedure CbFirstDayOfWeekChange(Sender: TObject);
@ -414,6 +416,12 @@ begin
VpTaskList1.AllowInplaceEditing := CbAllowInplaceEditing.Checked;
end;
procedure TMainForm.CbApplyCategoryInfosChange(Sender: TObject);
begin
VpWeekView1.ApplyCategoryInfos := CbApplyCategoryInfos.Checked;
VpMonthView1.ApplyCategoryInfos := CbApplyCategoryInfos.Checked;
end;
procedure TMainForm.CbDragDropTransparentChange(Sender: TObject);
begin
VpDayView1.DragDropTransparent := CbDragDropTransparent.Checked;
@ -886,6 +894,10 @@ begin
CbShowEventHints.Checked);
CbShowEventHintsChange(nil);
CbApplyCategoryInfos.Checked := ini.ReadBool('Settings', 'ApplyCategoryInfos',
CbApplyCategoryInfos.Checked);
CbApplyCategoryInfosChange(nil);
FResID := ini.ReadInteger('Data', 'ResourceID', -1);
finally
ini.Free;
@ -940,6 +952,7 @@ begin
ini.WriteBool('Settings', 'AllowDragAndDrop', CbAllowDragAndDrop.Checked);
ini.WriteBool('Settings', 'DragAndDropTransparent', CbDragDropTransparent.Checked);
ini.WriteBool('Settings', 'ShowEventHints', CbShowEventHints.Checked);
ini.WriteBool('Settings', 'ApplyCategoryInfos', CbApplyCategoryInfos.Checked);
ini.WriteInteger('Data', 'ResourceID', VpControlLink1.Datastore.ResourceID);
finally