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.

5
components/tvplanit/languages/demo.de.po
View File

@ -145,6 +145,10 @@ msgstr "Neu"
msgid "Turbo Power VisualPlanIt Demo"
msgstr "Turbo Power VisualPlanIt Demo"
#: tmainform.cb3d.caption
msgid "3d display mode"
msgstr ""
#: tmainform.cballowinplaceediting.caption
msgid "Allow inplace editing"
msgstr "Editieren an Ort und Stelle erlauben"
@ -241,3 +245,4 @@ msgstr "Aufgaben"
#: tmainform.titlelbl.caption
msgid "TitleLbl"
msgstr ""

4
components/tvplanit/languages/demo.po
View File

@ -134,6 +134,10 @@ msgstr ""
msgid "Turbo Power VisualPlanIt Demo"
msgstr ""
#: tmainform.cb3d.caption
msgid "3d display mode"
msgstr ""
#: tmainform.cballowinplaceediting.caption
msgid "Allow inplace editing"
msgstr ""

7
components/tvplanit/source/vpmisc.pas
View File

@ -127,6 +127,8 @@ function GetLineDuration(Granularity: TVpGranularity): Double;
function GetLabelWidth(ALabel: TLabel): Integer;
function SameDate(dt1, dt2: TDateTime): Boolean;
implementation
uses
@ -605,4 +607,9 @@ begin
canvas.Free;
end;
function SameDate(dt1, dt2: TDateTime): Boolean;
begin
Result := trunc(dt1) = trunc(dt2);
end;
end.