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

tvplanit: Check all examples for HiDPI scaling.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5882 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2017-05-20 15:39:18 +00:00
parent 795bda1357
commit d8a0f703d2
31 changed files with 1018 additions and 506 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/tvplanit/examples/datastores/bufdataset/unit1.lfm
View File

@ -41,7 +41,8 @@ object Form1: TForm1
Left = 216 Left = 216
Height = 25 Height = 25
Top = 5 Top = 5
Width = 99 Width = 98
AutoSize = True
BorderSpacing.Left = 4 BorderSpacing.Left = 4
BorderSpacing.Top = 4 BorderSpacing.Top = 4
BorderSpacing.Bottom = 4 BorderSpacing.Bottom = 4
@ -54,10 +55,11 @@ object Form1: TForm1
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel1 AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 319 Left = 318
Height = 25 Height = 25
Top = 5 Top = 5
Width = 96 Width = 94
AutoSize = True
BorderSpacing.Left = 4 BorderSpacing.Left = 4
BorderSpacing.Top = 4 BorderSpacing.Top = 4
BorderSpacing.Bottom = 4 BorderSpacing.Bottom = 4

82
components/tvplanit/examples/datastores/fb/unit1.lfm
View File

@ -1,46 +1,63 @@
object Form1: TForm1 object Form1: TForm1
Left = 225 Left = 369
Height = 686 Height = 686
Top = 155 Top = 169
Width = 895 Width = 895
Caption = 'Form1' Caption = 'Form1'
ClientHeight = 686 ClientHeight = 686
ClientWidth = 895 ClientWidth = 895
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
LCLVersion = '1.7' LCLVersion = '1.6.0.4'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 34 Height = 43
Top = 0 Top = 0
Width = 895 Width = 895
Align = alTop Align = alTop
AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 34 ClientHeight = 43
ClientWidth = 895 ClientWidth = 895
TabOrder = 0 TabOrder = 0
object VpResourceCombo1: TVpResourceCombo object VpResourceCombo1: TVpResourceCombo
Left = 8 AnchorSideLeft.Control = Panel1
Height = 23 Left = 4
Height = 33
Top = 5 Top = 5
Width = 208 Width = 208
DataStore = VpFirebirdDatastore1 DataStore = VpFirebirdDatastore1
Style = csDropDownList Style = csDropDownList
Borderspacing.Left = 4
Borderspacing.Top = 4
Borderspacing.Bottom = 4
end end
object BtnNewRes: TButton object BtnNewRes: TButton
Left = 222 AnchorSideLeft.Control = VpResourceCombo1
Height = 25 AnchorSideLeft.Side = asrBottom
Left = 216
Height = 35
Top = 4 Top = 4
Width = 99 Width = 133
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'New resource' Caption = 'New resource'
OnClick = BtnNewResClick OnClick = BtnNewResClick
TabOrder = 1 TabOrder = 1
end end
object BtnEditRes: TButton object BtnEditRes: TButton
Left = 328 AnchorSideLeft.Control = BtnNewRes
Height = 25 AnchorSideLeft.Side = asrBottom
Left = 353
Height = 35
Top = 4 Top = 4
Width = 96 Width = 128
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'Edit resource' Caption = 'Edit resource'
OnClick = BtnEditResClick OnClick = BtnEditResClick
TabOrder = 2 TabOrder = 2
@ -48,8 +65,8 @@ object Form1: TForm1
end end
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 652 Height = 643
Top = 34 Top = 43
Width = 895 Width = 895
ActivePage = TabSheet1 ActivePage = TabSheet1
Align = alClient Align = alClient
@ -57,11 +74,11 @@ object Form1: TForm1
TabOrder = 1 TabOrder = 1
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Events and tasks' Caption = 'Events and tasks'
ClientHeight = 624 ClientHeight = 605
ClientWidth = 887 ClientWidth = 887
object VpDayView1: TVpDayView object VpDayView1: TVpDayView
Left = 0 Left = 0
Height = 624 Height = 605
Top = 0 Top = 0
Width = 283 Width = 283
DataStore = VpFirebirdDatastore1 DataStore = VpFirebirdDatastore1
@ -79,7 +96,6 @@ object Form1: TForm1
TimeSlotColors.Active = clWhite TimeSlotColors.Active = clWhite
TimeSlotColors.Inactive = 8454143 TimeSlotColors.Inactive = 8454143
TimeSlotColors.Holiday = 16744703 TimeSlotColors.Holiday = 16744703
TimeSlotColors.Weekday = clWhite
TimeSlotColors.Weekend = 16777088 TimeSlotColors.Weekend = 16777088
TimeSlotColors.ActiveRange.RangeBegin = h_00 TimeSlotColors.ActiveRange.RangeBegin = h_00
TimeSlotColors.ActiveRange.RangeEnd = h_00 TimeSlotColors.ActiveRange.RangeEnd = h_00
@ -98,18 +114,18 @@ object Form1: TForm1
end end
object Panel2: TPanel object Panel2: TPanel
Left = 288 Left = 288
Height = 624 Height = 605
Top = 0 Top = 0
Width = 339 Width = 339
Align = alLeft Align = alLeft
BevelOuter = bvNone BevelOuter = bvNone
Caption = 'Panel2' Caption = 'Panel2'
ClientHeight = 624 ClientHeight = 605
ClientWidth = 339 ClientWidth = 339
TabOrder = 1 TabOrder = 1
object VpWeekView1: TVpWeekView object VpWeekView1: TVpWeekView
Left = 0 Left = 0
Height = 378 Height = 359
Top = 0 Top = 0
Width = 339 Width = 339
DataStore = VpFirebirdDatastore1 DataStore = VpFirebirdDatastore1
@ -137,7 +153,7 @@ object Form1: TForm1
object VpMonthView1: TVpMonthView object VpMonthView1: TVpMonthView
Left = 0 Left = 0
Height = 241 Height = 241
Top = 383 Top = 364
Width = 339 Width = 339
DataStore = VpFirebirdDatastore1 DataStore = VpFirebirdDatastore1
ControlLink = VpControlLink1 ControlLink = VpControlLink1
@ -147,29 +163,28 @@ object Form1: TForm1
TabOrder = 1 TabOrder = 1
KBNavigation = True KBNavigation = True
DateLabelFormat = 'mmmm yyyy' DateLabelFormat = 'mmmm yyyy'
DayHeadAttributes.Color = clBtnFace
DayHeadAttributes.Font.Height = -13 DayHeadAttributes.Font.Height = -13
DayHeadAttributes.Font.Name = 'Tahoma' DayHeadAttributes.Font.Name = 'Tahoma'
DayHeadAttributes.Color = clBtnFace
DayNameStyle = dsShort DayNameStyle = dsShort
DrawingStyle = dsFlat DrawingStyle = dsFlat
EventDayStyle = [] EventDayStyle = []
HeadAttributes.Color = clBtnFace HeadAttributes.Color = clBtnFace
LineColor = clGray
TimeFormat = tf12Hour
TodayAttributes.Color = clSilver
TodayAttributes.BorderPen.Color = clRed
TodayAttributes.BorderPen.Width = 3
OffDayColor = clSilver OffDayColor = clSilver
SelectedDayColor = clRed SelectedDayColor = clRed
ShowEvents = True ShowEvents = True
ShowEventTime = False ShowEventTime = False
TimeFormat = tf12Hour
TodayAttributes.Color = clSilver
TodayAttributes.BorderPen.Color = clRed
TodayAttributes.BorderPen.Width = 3
WeekStartsOn = dtSunday WeekStartsOn = dtSunday
end end
object Splitter2: TSplitter object Splitter2: TSplitter
Cursor = crVSplit Cursor = crVSplit
Left = 0 Left = 0
Height = 5 Height = 5
Top = 378 Top = 359
Width = 339 Width = 339
Align = alBottom Align = alBottom
ResizeAnchor = akBottom ResizeAnchor = akBottom
@ -177,7 +192,7 @@ object Form1: TForm1
end end
object VpTaskList1: TVpTaskList object VpTaskList1: TVpTaskList
Left = 632 Left = 632
Height = 624 Height = 605
Top = 0 Top = 0
Width = 255 Width = 255
DataStore = VpFirebirdDatastore1 DataStore = VpFirebirdDatastore1
@ -205,13 +220,13 @@ object Form1: TForm1
end end
object Splitter1: TSplitter object Splitter1: TSplitter
Left = 627 Left = 627
Height = 624 Height = 605
Top = 0 Top = 0
Width = 5 Width = 5
end end
object Splitter3: TSplitter object Splitter3: TSplitter
Left = 283 Left = 283
Height = 624 Height = 605
Top = 0 Top = 0
Width = 5 Width = 5
end end
@ -265,7 +280,7 @@ object Form1: TForm1
top = 264 top = 264
end end
object VpResourceEditDialog1: TVpResourceEditDialog object VpResourceEditDialog1: TVpResourceEditDialog
Version = 'v1.04' Version = 'v1.05'
DataStore = VpFirebirdDatastore1 DataStore = VpFirebirdDatastore1
Options = [] Options = []
Placement.Position = mpCenter Placement.Position = mpCenter
@ -321,7 +336,6 @@ object Form1: TForm1
LoginPrompt = False LoginPrompt = False
KeepConnection = True KeepConnection = True
Transaction = SQLTransaction1 Transaction = SQLTransaction1
HostName = 'localhost'
Options = [] Options = []
left = 136 left = 136
top = 120 top = 120

162
components/tvplanit/examples/datastores/flex/access/tools/camain.lfm
View File

@ -1,76 +1,59 @@
object Form1: TForm1 object Form1: TForm1
Left = 262 Left = 262
Height = 177 Height = 285
Top = 155 Top = 155
Width = 314 Width = 400
AutoSize = True
Caption = 'Access database creator' Caption = 'Access database creator'
ClientHeight = 177 ClientHeight = 285
ClientWidth = 314 ClientWidth = 400
LCLVersion = '1.7' Constraints.MinWidth = 400
object FileNameEdit: TFileNameEdit OnCreate = FormCreate
Left = 16 LCLVersion = '1.6.4.0'
Height = 23
Top = 16
Width = 280
FileName = '.\data.mdb'
Filter = 'Access database files (*.mdb; *.accdb)|*.mdb;*.accdb'
FilterIndex = 0
HideDirectories = False
ButtonWidth = 23
NumGlyphs = 1
MaxLength = 0
TabOrder = 0
Text = '.\data.mdb'
end
object CbCreateVPFields: TCheckBox
Left = 16
Height = 19
Top = 80
Width = 140
Caption = 'Add VisualPlanIt tables'
Checked = True
State = cbChecked
TabOrder = 1
end
object StatusBar1: TStatusBar object StatusBar1: TStatusBar
Left = 0 Left = 0
Height = 23 Height = 23
Top = 154 Top = 262
Width = 314 Width = 400
Panels = <> Panels = <>
end end
object Label1: TLabel
Left = 16
Height = 30
Top = 44
Width = 285
Caption = 'Use extension .mdb for old Access 97/2000 file format,'#13#10'.accdb for new Access 2007+ file format.'
ParentColor = False
end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 44 Height = 43
Top = 110 Top = 219
Width = 314 Width = 400
Align = alBottom Align = alBottom
Caption = 'Panel1' AutoSize = True
ClientHeight = 44 ClientHeight = 43
ClientWidth = 314 ClientWidth = 400
TabOrder = 3 TabOrder = 1
object BtnCreateDB: TButton object BtnCreateDB: TButton
Left = 120 AnchorSideRight.Control = BtnClose
Left = 246
Height = 25 Height = 25
Top = 10 Top = 9
Width = 91 Width = 78
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'Create DB' Caption = 'Create DB'
OnClick = BtnCreateDBClick OnClick = BtnCreateDBClick
TabOrder = 0 TabOrder = 0
end end
object BtnClose: TButton object BtnClose: TButton
Left = 221 AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 332
Height = 25 Height = 25
Top = 10 Top = 9
Width = 75 Width = 55
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 8
BorderSpacing.Right = 12
BorderSpacing.Bottom = 8
Caption = 'Close' Caption = 'Close'
OnClick = BtnCloseClick OnClick = BtnCloseClick
TabOrder = 1 TabOrder = 1
@ -79,26 +62,93 @@ object Form1: TForm1
Left = 9 Left = 9
Height = 3 Height = 3
Top = 1 Top = 1
Width = 296 Width = 382
Align = alTop Align = alTop
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Shape = bsTopLine Shape = bsTopLine
end end
end end
object Panel2: TPanel
Left = 0
Height = 219
Top = 0
Width = 400
Align = alClient
AutoSize = True
BevelOuter = bvNone
ClientHeight = 219
ClientWidth = 400
TabOrder = 2
object FileNameEdit: TFileNameEdit
AnchorSideLeft.Control = Panel2
AnchorSideTop.Control = Panel2
AnchorSideRight.Control = Panel2
AnchorSideRight.Side = asrBottom
Left = 16
Height = 23
Top = 16
Width = 368
FileName = '.\data.mdb'
Filter = 'Access database files (*.mdb; *.accdb)|*.mdb;*.accdb'
FilterIndex = 0
HideDirectories = False
ButtonWidth = 23
NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 16
BorderSpacing.Top = 16
BorderSpacing.Right = 16
MaxLength = 0
TabOrder = 0
Text = '.\data.mdb'
end
object Label1: TLabel
AnchorSideLeft.Control = FileNameEdit
AnchorSideTop.Control = FileNameEdit
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = FileNameEdit
AnchorSideRight.Side = asrBottom
Left = 16
Height = 30
Top = 47
Width = 368
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 8
Caption = 'Use extension .mdb for old Access 97/2000 file format,'#13#10'.accdb for new Access 2007+ file format.'
ParentColor = False
end
object CbCreateVPFields: TCheckBox
AnchorSideLeft.Control = FileNameEdit
AnchorSideTop.Control = Label1
AnchorSideTop.Side = asrBottom
Left = 16
Height = 19
Top = 85
Width = 140
BorderSpacing.Top = 8
BorderSpacing.Bottom = 16
Caption = 'Add VisualPlanIt tables'
Checked = True
State = cbChecked
TabOrder = 1
end
end
object ODBCConnection1: TODBCConnection object ODBCConnection1: TODBCConnection
Connected = False Connected = False
LoginPrompt = False LoginPrompt = False
KeepConnection = False KeepConnection = False
Transaction = SQLTransaction1 Transaction = SQLTransaction1
Options = [] Options = []
left = 104 left = 48
top = 168
end end
object SQLTransaction1: TSQLTransaction object SQLTransaction1: TSQLTransaction
Active = False Active = False
Action = caCommit Action = caCommit
Database = ODBCConnection1 Database = ODBCConnection1
Options = [] Options = []
left = 216 left = 152
top = 168
end end
end end

7
components/tvplanit/examples/datastores/flex/access/tools/camain.pas
View File

@ -21,10 +21,12 @@ type
Label1: TLabel; Label1: TLabel;
ODBCConnection1: TODBCConnection; ODBCConnection1: TODBCConnection;
Panel1: TPanel; Panel1: TPanel;
Panel2: TPanel;
SQLTransaction1: TSQLTransaction; SQLTransaction1: TSQLTransaction;
StatusBar1: TStatusBar; StatusBar1: TStatusBar;
procedure BtnCreateDBClick(Sender: TObject); procedure BtnCreateDBClick(Sender: TObject);
procedure BtnCloseClick(Sender: TObject); procedure BtnCloseClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private private
function CreateAccessDatabase(DatabaseFile: string): boolean; function CreateAccessDatabase(DatabaseFile: string): boolean;
procedure CreateContactsTable; procedure CreateContactsTable;
@ -314,6 +316,11 @@ begin
StatusMsg('Table "Tasks" created.'); StatusMsg('Table "Tasks" created.');
end; end;
procedure TForm1.FormCreate(Sender: TObject);
begin
FilenameEdit.ButtonWidth := FilenameEdit.Height;
end;
procedure TForm1.StatusMsg(const AText: String); procedure TForm1.StatusMsg(const AText: String);
begin begin
Statusbar1.SimpleText := AText; Statusbar1.SimpleText := AText;

54
components/tvplanit/examples/datastores/flex/access/unit1.lfm
View File

@ -38,7 +38,8 @@ object Form1: TForm1
Left = 216 Left = 216
Height = 25 Height = 25
Top = 4 Top = 4
Width = 99 Width = 98
AutoSize = True
BorderSpacing.Left = 4 BorderSpacing.Left = 4
BorderSpacing.Top = 4 BorderSpacing.Top = 4
BorderSpacing.Bottom = 4 BorderSpacing.Bottom = 4
@ -49,10 +50,11 @@ object Form1: TForm1
object BtnEditRes: TButton object BtnEditRes: TButton
AnchorSideLeft.Control = BtnNewRes AnchorSideLeft.Control = BtnNewRes
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
Left = 319 Left = 318
Height = 25 Height = 25
Top = 4 Top = 4
Width = 96 Width = 94
AutoSize = True
BorderSpacing.Left = 4 BorderSpacing.Left = 4
BorderSpacing.Top = 4 BorderSpacing.Top = 4
BorderSpacing.Bottom = 4 BorderSpacing.Bottom = 4
@ -66,9 +68,9 @@ object Form1: TForm1
Height = 653 Height = 653
Top = 33 Top = 33
Width = 980 Width = 980
ActivePage = TabSheet1 ActivePage = TabSheet3
Align = alClient Align = alClient
TabIndex = 0 TabIndex = 2
TabOrder = 1 TabOrder = 1
OnChange = PageControl1Change OnChange = PageControl1Change
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
@ -265,13 +267,20 @@ object Form1: TForm1
end end
object TabSheet3: TTabSheet object TabSheet3: TTabSheet
Caption = 'Grids' Caption = 'Grids'
ClientHeight = 624 ClientHeight = 625
ClientWidth = 972 ClientWidth = 972
object TabControl1: TTabControl object TabControl1: TTabControl
AnchorSideLeft.Control = TabSheet3
AnchorSideTop.Control = DBNavigator
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TabSheet3
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TabSheet3
AnchorSideBottom.Side = asrBottom
Left = 8 Left = 8
Height = 577 Height = 576
Top = 39 Top = 41
Width = 960 Width = 956
OnChange = TabControl1Change OnChange = TabControl1Change
TabIndex = 0 TabIndex = 0
Tabs.Strings = ( Tabs.Strings = (
@ -285,9 +294,9 @@ object Form1: TForm1
TabOrder = 0 TabOrder = 0
object Grid: TDBGrid object Grid: TDBGrid
Left = 2 Left = 2
Height = 552 Height = 551
Top = 23 Top = 23
Width = 956 Width = 952
Align = alClient Align = alClient
Color = clWindow Color = clWindow
Columns = <> Columns = <>
@ -297,11 +306,15 @@ object Form1: TForm1
end end
end end
object DBNavigator: TDBNavigator object DBNavigator: TDBNavigator
AnchorSideLeft.Control = TabSheet3
AnchorSideTop.Control = TabSheet3
Left = 8 Left = 8
Height = 25 Height = 25
Top = 8 Top = 8
Width = 241 Width = 241
BevelOuter = bvNone BevelOuter = bvNone
BorderSpacing.Left = 8
BorderSpacing.Top = 8
ChildSizing.EnlargeHorizontal = crsScaleChilds ChildSizing.EnlargeHorizontal = crsScaleChilds
ChildSizing.EnlargeVertical = crsScaleChilds ChildSizing.EnlargeVertical = crsScaleChilds
ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkHorizontal = crsScaleChilds
@ -314,10 +327,15 @@ object Form1: TForm1
TabOrder = 1 TabOrder = 1
end end
object BtnApplyToPlanner: TButton object BtnApplyToPlanner: TButton
Left = 264 AnchorSideLeft.Control = DBNavigator
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = DBNavigator
AnchorSideTop.Side = asrCenter
Left = 257
Height = 25 Height = 25
Top = 8 Top = 8
Width = 120 Width = 120
BorderSpacing.Left = 8
Caption = 'Apply to planner' Caption = 'Apply to planner'
OnClick = BtnApplyToPlannerClick OnClick = BtnApplyToPlannerClick
TabOrder = 2 TabOrder = 2
@ -592,7 +610,6 @@ object Form1: TForm1
end end
object QryResources: TSQLQuery object QryResources: TSQLQuery
PacketRecords = -1 PacketRecords = -1
IndexName = 'DEFAULT_ORDER'
FieldDefs = < FieldDefs = <
item item
Name = 'ResourceID' Name = 'ResourceID'
@ -710,7 +727,6 @@ object Form1: TForm1
end end
object QryContacts: TSQLQuery object QryContacts: TSQLQuery
PacketRecords = -1 PacketRecords = -1
IndexName = 'DEFAULT_ORDER'
FieldDefs = < FieldDefs = <
item item
Name = 'RecordID' Name = 'RecordID'
@ -1054,7 +1070,6 @@ object Form1: TForm1
end end
object QryEvents: TSQLQuery object QryEvents: TSQLQuery
PacketRecords = -1 PacketRecords = -1
IndexName = 'DEFAULT_ORDER'
FieldDefs = < FieldDefs = <
item item
Name = 'RecordID' Name = 'RecordID'
@ -1186,7 +1201,6 @@ object Form1: TForm1
end end
object QryTasks: TSQLQuery object QryTasks: TSQLQuery
PacketRecords = -1 PacketRecords = -1
IndexName = 'DEFAULT_ORDER'
FieldDefs = < FieldDefs = <
item item
Name = 'RecordID' Name = 'RecordID'
@ -1273,20 +1287,20 @@ object Form1: TForm1
top = 621 top = 621
end end
object ODBCConnection1: TODBCConnection object ODBCConnection1: TODBCConnection
Connected = True Connected = False
LoginPrompt = False LoginPrompt = False
KeepConnection = True KeepConnection = True
Params.Strings = ( Params.Strings = (
'DBQ=D:\Prog_Lazarus\svn\lazarus-ccr\components\tvplanit\examples\datastores\flex\access\data.mdb' ''
) )
Transaction = SQLTransaction1 Transaction = SQLTransaction1
Options = [] Options = []
Driver = 'Microsoft Access Driver (*.mdb, *.accdb)' Driver = 'Microsoft Access Driver (*.mdb)'
left = 136 left = 136
top = 304 top = 304
end end
object SQLTransaction1: TSQLTransaction object SQLTransaction1: TSQLTransaction
Active = True Active = False
Database = ODBCConnection1 Database = ODBCConnection1
Options = [] Options = []
left = 136 left = 136

3
components/tvplanit/examples/datastores/flex/access/unit1.pas
View File

@ -138,7 +138,8 @@ begin
try try
// Connection // Connection
ODBCConnection1.Driver := 'Microsoft Access Driver (*.mdb, *.accdb)'; ODBCConnection1.Driver := 'Microsoft Access Driver (*.mdb)';
ODBCConnection1.Params.Clear;
ODBCConnection1.Params.Add('DBQ=.\data.mdb'); ODBCConnection1.Params.Add('DBQ=.\data.mdb');
ODBCConnection1.Connected := true; ODBCConnection1.Connected := true;
ODBCConnection1.KeepConnection := true; ODBCConnection1.KeepConnection := true;

57
components/tvplanit/examples/datastores/flex/sqlite3/unit1.lfm
View File

@ -8,39 +8,56 @@ object Form1: TForm1
ClientWidth = 910 ClientWidth = 910
OnCreate = FormCreate OnCreate = FormCreate
OnDestroy = FormDestroy OnDestroy = FormDestroy
LCLVersion = '1.7' LCLVersion = '1.6.4.0'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 34 Height = 33
Top = 0 Top = 0
Width = 910 Width = 910
Align = alTop Align = alTop
AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 34 ClientHeight = 33
ClientWidth = 910 ClientWidth = 910
TabOrder = 0 TabOrder = 0
object VpResourceCombo1: TVpResourceCombo object VpResourceCombo1: TVpResourceCombo
Left = 8 AnchorSideLeft.Control = Panel1
Left = 4
Height = 23 Height = 23
Top = 5 Top = 5
Width = 208 Width = 208
DataStore = VpFlexDataStore1 DataStore = VpFlexDataStore1
Style = csDropDownList Style = csDropDownList
Borderspacing.Left = 4
Borderspacing.Top = 4
Borderspacing.Bottom = 4
end end
object BtnNewRes: TButton object BtnNewRes: TButton
Left = 222 AnchorSideLeft.Control = VpResourceCombo1
AnchorSideLeft.Side = asrBottom
Left = 216
Height = 25 Height = 25
Top = 4 Top = 4
Width = 99 Width = 98
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'New resource' Caption = 'New resource'
OnClick = BtnNewResClick OnClick = BtnNewResClick
TabOrder = 1 TabOrder = 1
end end
object BtnEditRes: TButton object BtnEditRes: TButton
Left = 328 AnchorSideLeft.Control = BtnNewRes
AnchorSideLeft.Side = asrBottom
Left = 318
Height = 25 Height = 25
Top = 4 Top = 4
Width = 96 Width = 94
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'Edit resource' Caption = 'Edit resource'
OnClick = BtnEditResClick OnClick = BtnEditResClick
TabOrder = 2 TabOrder = 2
@ -48,8 +65,8 @@ object Form1: TForm1
end end
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 652 Height = 653
Top = 34 Top = 33
Width = 910 Width = 910
ActivePage = TabSheet1 ActivePage = TabSheet1
Align = alClient Align = alClient
@ -57,11 +74,11 @@ object Form1: TForm1
TabOrder = 1 TabOrder = 1
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Events and tasks' Caption = 'Events and tasks'
ClientHeight = 624 ClientHeight = 625
ClientWidth = 902 ClientWidth = 902
object VpDayView1: TVpDayView object VpDayView1: TVpDayView
Left = 0 Left = 0
Height = 624 Height = 625
Top = 0 Top = 0
Width = 283 Width = 283
DataStore = VpFlexDataStore1 DataStore = VpFlexDataStore1
@ -97,18 +114,18 @@ object Form1: TForm1
end end
object Panel2: TPanel object Panel2: TPanel
Left = 288 Left = 288
Height = 624 Height = 625
Top = 0 Top = 0
Width = 363 Width = 363
Align = alLeft Align = alLeft
BevelOuter = bvNone BevelOuter = bvNone
Caption = 'Panel2' Caption = 'Panel2'
ClientHeight = 624 ClientHeight = 625
ClientWidth = 363 ClientWidth = 363
TabOrder = 1 TabOrder = 1
object VpWeekView1: TVpWeekView object VpWeekView1: TVpWeekView
Left = 0 Left = 0
Height = 378 Height = 379
Top = 0 Top = 0
Width = 363 Width = 363
DataStore = VpFlexDataStore1 DataStore = VpFlexDataStore1
@ -136,7 +153,7 @@ object Form1: TForm1
object VpMonthView1: TVpMonthView object VpMonthView1: TVpMonthView
Left = 0 Left = 0
Height = 241 Height = 241
Top = 383 Top = 384
Width = 363 Width = 363
DataStore = VpFlexDataStore1 DataStore = VpFlexDataStore1
ControlLink = VpControlLink1 ControlLink = VpControlLink1
@ -167,7 +184,7 @@ object Form1: TForm1
Cursor = crVSplit Cursor = crVSplit
Left = 0 Left = 0
Height = 5 Height = 5
Top = 378 Top = 379
Width = 363 Width = 363
Align = alBottom Align = alBottom
ResizeAnchor = akBottom ResizeAnchor = akBottom
@ -175,7 +192,7 @@ object Form1: TForm1
end end
object VpTaskList1: TVpTaskList object VpTaskList1: TVpTaskList
Left = 656 Left = 656
Height = 624 Height = 625
Top = 0 Top = 0
Width = 246 Width = 246
DataStore = VpFlexDataStore1 DataStore = VpFlexDataStore1
@ -203,13 +220,13 @@ object Form1: TForm1
end end
object Splitter1: TSplitter object Splitter1: TSplitter
Left = 651 Left = 651
Height = 624 Height = 625
Top = 0 Top = 0
Width = 5 Width = 5
end end
object Splitter3: TSplitter object Splitter3: TSplitter
Left = 283 Left = 283
Height = 624 Height = 625
Top = 0 Top = 0
Width = 5 Width = 5
end end

71
components/tvplanit/examples/datastores/ini/unit1.lfm
View File

@ -7,39 +7,56 @@ object Form1: TForm1
ClientHeight = 686 ClientHeight = 686
ClientWidth = 980 ClientWidth = 980
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '1.7' LCLVersion = '1.6.4.0'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 34 Height = 33
Top = 0 Top = 0
Width = 980 Width = 980
Align = alTop Align = alTop
AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 34 ClientHeight = 33
ClientWidth = 980 ClientWidth = 980
TabOrder = 0 TabOrder = 0
object VpResourceCombo1: TVpResourceCombo object VpResourceCombo1: TVpResourceCombo
Left = 8 AnchorSideLeft.Control = Panel1
Left = 4
Height = 23 Height = 23
Top = 5 Top = 5
Width = 208 Width = 208
DataStore = VpIniDatastore1 DataStore = VpIniDatastore1
Style = csDropDownList Style = csDropDownList
Borderspacing.Left = 4
Borderspacing.Top = 4
Borderspacing.Bottom = 4
end end
object BtnNewRes: TButton object BtnNewRes: TButton
Left = 222 AnchorSideLeft.Control = VpResourceCombo1
AnchorSideLeft.Side = asrBottom
Left = 216
Height = 25 Height = 25
Top = 4 Top = 4
Width = 99 Width = 98
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'New resource' Caption = 'New resource'
OnClick = BtnNewResClick OnClick = BtnNewResClick
TabOrder = 1 TabOrder = 1
end end
object BtnEditRes: TButton object BtnEditRes: TButton
Left = 328 AnchorSideLeft.Control = BtnNewRes
AnchorSideLeft.Side = asrBottom
Left = 318
Height = 25 Height = 25
Top = 4 Top = 4
Width = 96 Width = 94
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'Edit resource' Caption = 'Edit resource'
OnClick = BtnEditResClick OnClick = BtnEditResClick
TabOrder = 2 TabOrder = 2
@ -47,8 +64,8 @@ object Form1: TForm1
end end
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 652 Height = 653
Top = 34 Top = 33
Width = 980 Width = 980
ActivePage = TabSheet1 ActivePage = TabSheet1
Align = alClient Align = alClient
@ -56,11 +73,11 @@ object Form1: TForm1
TabOrder = 1 TabOrder = 1
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Events and tasks' Caption = 'Events and tasks'
ClientHeight = 624 ClientHeight = 625
ClientWidth = 972 ClientWidth = 972
object VpDayView1: TVpDayView object VpDayView1: TVpDayView
Left = 0 Left = 0
Height = 624 Height = 625
Top = 0 Top = 0
Width = 301 Width = 301
DataStore = VpIniDatastore1 DataStore = VpIniDatastore1
@ -78,7 +95,6 @@ object Form1: TForm1
TimeSlotColors.Active = clWhite TimeSlotColors.Active = clWhite
TimeSlotColors.Inactive = 8454143 TimeSlotColors.Inactive = 8454143
TimeSlotColors.Holiday = 16744703 TimeSlotColors.Holiday = 16744703
TimeSlotColors.Weekday = clWhite
TimeSlotColors.Weekend = 16777088 TimeSlotColors.Weekend = 16777088
TimeSlotColors.ActiveRange.RangeBegin = h_00 TimeSlotColors.ActiveRange.RangeBegin = h_00
TimeSlotColors.ActiveRange.RangeEnd = h_00 TimeSlotColors.ActiveRange.RangeEnd = h_00
@ -97,18 +113,18 @@ object Form1: TForm1
end end
object Panel2: TPanel object Panel2: TPanel
Left = 306 Left = 306
Height = 624 Height = 625
Top = 0 Top = 0
Width = 386 Width = 386
Align = alLeft Align = alLeft
BevelOuter = bvNone BevelOuter = bvNone
Caption = 'Panel2' Caption = 'Panel2'
ClientHeight = 624 ClientHeight = 625
ClientWidth = 386 ClientWidth = 386
TabOrder = 1 TabOrder = 1
object VpWeekView1: TVpWeekView object VpWeekView1: TVpWeekView
Left = 0 Left = 0
Height = 378 Height = 379
Top = 0 Top = 0
Width = 386 Width = 386
DataStore = VpIniDatastore1 DataStore = VpIniDatastore1
@ -136,7 +152,7 @@ object Form1: TForm1
object VpMonthView1: TVpMonthView object VpMonthView1: TVpMonthView
Left = 0 Left = 0
Height = 241 Height = 241
Top = 383 Top = 384
Width = 386 Width = 386
DataStore = VpIniDatastore1 DataStore = VpIniDatastore1
ControlLink = VpControlLink1 ControlLink = VpControlLink1
@ -146,29 +162,28 @@ object Form1: TForm1
TabOrder = 1 TabOrder = 1
KBNavigation = True KBNavigation = True
DateLabelFormat = 'mmmm yyyy' DateLabelFormat = 'mmmm yyyy'
DayHeadAttributes.Color = clBtnFace
DayHeadAttributes.Font.Height = -13 DayHeadAttributes.Font.Height = -13
DayHeadAttributes.Font.Name = 'Tahoma' DayHeadAttributes.Font.Name = 'Tahoma'
DayHeadAttributes.Color = clBtnFace
DayNameStyle = dsShort DayNameStyle = dsShort
DrawingStyle = dsFlat DrawingStyle = dsFlat
EventDayStyle = [] EventDayStyle = []
HeadAttributes.Color = clBtnFace HeadAttributes.Color = clBtnFace
LineColor = clGray
TimeFormat = tf12Hour
TodayAttributes.Color = clSilver
TodayAttributes.BorderPen.Color = clRed
TodayAttributes.BorderPen.Width = 3
OffDayColor = clSilver OffDayColor = clSilver
SelectedDayColor = clRed SelectedDayColor = clRed
ShowEvents = True ShowEvents = True
ShowEventTime = False ShowEventTime = False
TimeFormat = tf12Hour
TodayAttributes.Color = clSilver
TodayAttributes.BorderPen.Color = clRed
TodayAttributes.BorderPen.Width = 3
WeekStartsOn = dtSunday WeekStartsOn = dtSunday
end end
object Splitter2: TSplitter object Splitter2: TSplitter
Cursor = crVSplit Cursor = crVSplit
Left = 0 Left = 0
Height = 5 Height = 5
Top = 378 Top = 379
Width = 386 Width = 386
Align = alBottom Align = alBottom
ResizeAnchor = akBottom ResizeAnchor = akBottom
@ -176,7 +191,7 @@ object Form1: TForm1
end end
object VpTaskList1: TVpTaskList object VpTaskList1: TVpTaskList
Left = 697 Left = 697
Height = 624 Height = 625
Top = 0 Top = 0
Width = 275 Width = 275
DataStore = VpIniDatastore1 DataStore = VpIniDatastore1
@ -204,13 +219,13 @@ object Form1: TForm1
end end
object Splitter1: TSplitter object Splitter1: TSplitter
Left = 692 Left = 692
Height = 624 Height = 625
Top = 0 Top = 0
Width = 5 Width = 5
end end
object Splitter3: TSplitter object Splitter3: TSplitter
Left = 301 Left = 301
Height = 624 Height = 625
Top = 0 Top = 0
Width = 5 Width = 5
end end
@ -264,7 +279,7 @@ object Form1: TForm1
top = 264 top = 264
end end
object VpResourceEditDialog1: TVpResourceEditDialog object VpResourceEditDialog1: TVpResourceEditDialog
Version = 'v1.04' Version = 'v1.05'
DataStore = VpIniDatastore1 DataStore = VpIniDatastore1
Options = [] Options = []
Placement.Position = mpCenter Placement.Position = mpCenter

82
components/tvplanit/examples/datastores/sqlite3/unit1.lfm
View File

@ -7,39 +7,56 @@ object Form1: TForm1
ClientHeight = 686 ClientHeight = 686
ClientWidth = 980 ClientWidth = 980
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '1.7' LCLVersion = '1.6.4.0'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 34 Height = 33
Top = 0 Top = 0
Width = 980 Width = 980
Align = alTop Align = alTop
AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 34 ClientHeight = 33
ClientWidth = 980 ClientWidth = 980
TabOrder = 0 TabOrder = 0
object VpResourceCombo1: TVpResourceCombo object VpResourceCombo1: TVpResourceCombo
Left = 8 AnchorSideLeft.Control = Panel1
Left = 4
Height = 23 Height = 23
Top = 5 Top = 5
Width = 208 Width = 208
DataStore = VpSqlite3Datastore1 DataStore = VpSqlite3Datastore1
Style = csDropDownList Style = csDropDownList
Borderspacing.Left = 4
Borderspacing.Top = 4
Borderspacing.Bottom = 4
end end
object BtnNewRes: TButton object BtnNewRes: TButton
Left = 222 AnchorSideLeft.Control = VpResourceCombo1
AnchorSideLeft.Side = asrBottom
Left = 216
Height = 25 Height = 25
Top = 4 Top = 4
Width = 99 Width = 98
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'New resource' Caption = 'New resource'
OnClick = BtnNewResClick OnClick = BtnNewResClick
TabOrder = 1 TabOrder = 1
end end
object BtnEditRes: TButton object BtnEditRes: TButton
Left = 328 AnchorSideLeft.Control = BtnNewRes
AnchorSideLeft.Side = asrBottom
Left = 318
Height = 25 Height = 25
Top = 4 Top = 4
Width = 96 Width = 94
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'Edit resource' Caption = 'Edit resource'
OnClick = BtnEditResClick OnClick = BtnEditResClick
TabOrder = 2 TabOrder = 2
@ -47,8 +64,8 @@ object Form1: TForm1
end end
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 652 Height = 653
Top = 34 Top = 33
Width = 980 Width = 980
ActivePage = TabSheet3 ActivePage = TabSheet3
Align = alClient Align = alClient
@ -79,7 +96,6 @@ object Form1: TForm1
TimeSlotColors.Active = clWhite TimeSlotColors.Active = clWhite
TimeSlotColors.Inactive = 8454143 TimeSlotColors.Inactive = 8454143
TimeSlotColors.Holiday = 16744703 TimeSlotColors.Holiday = 16744703
TimeSlotColors.Weekday = clWhite
TimeSlotColors.Weekend = 16777088 TimeSlotColors.Weekend = 16777088
TimeSlotColors.ActiveRange.RangeBegin = h_00 TimeSlotColors.ActiveRange.RangeBegin = h_00
TimeSlotColors.ActiveRange.RangeEnd = h_00 TimeSlotColors.ActiveRange.RangeEnd = h_00
@ -147,22 +163,21 @@ object Form1: TForm1
TabOrder = 1 TabOrder = 1
KBNavigation = True KBNavigation = True
DateLabelFormat = 'mmmm yyyy' DateLabelFormat = 'mmmm yyyy'
DayHeadAttributes.Color = clBtnFace
DayHeadAttributes.Font.Height = -13 DayHeadAttributes.Font.Height = -13
DayHeadAttributes.Font.Name = 'Tahoma' DayHeadAttributes.Font.Name = 'Tahoma'
DayHeadAttributes.Color = clBtnFace
DayNameStyle = dsShort DayNameStyle = dsShort
DrawingStyle = dsFlat DrawingStyle = dsFlat
EventDayStyle = [] EventDayStyle = []
HeadAttributes.Color = clBtnFace HeadAttributes.Color = clBtnFace
LineColor = clGray
TimeFormat = tf12Hour
TodayAttributes.Color = clSilver
TodayAttributes.BorderPen.Color = clRed
TodayAttributes.BorderPen.Width = 3
OffDayColor = clSilver OffDayColor = clSilver
SelectedDayColor = clRed SelectedDayColor = clRed
ShowEvents = True ShowEvents = True
ShowEventTime = False ShowEventTime = False
TimeFormat = tf12Hour
TodayAttributes.Color = clSilver
TodayAttributes.BorderPen.Color = clRed
TodayAttributes.BorderPen.Width = 3
WeekStartsOn = dtSunday WeekStartsOn = dtSunday
end end
object Splitter2: TSplitter object Splitter2: TSplitter
@ -251,14 +266,18 @@ object Form1: TForm1
end end
object TabSheet3: TTabSheet object TabSheet3: TTabSheet
Caption = 'Grids' Caption = 'Grids'
ClientHeight = 624 ClientHeight = 625
ClientWidth = 972 ClientWidth = 972
object DBNavigator: TDBNavigator object DBNavigator: TDBNavigator
AnchorSideLeft.Control = TabSheet3
AnchorSideTop.Control = TabSheet3
Left = 8 Left = 8
Height = 25 Height = 25
Top = 8 Top = 8
Width = 241 Width = 241
BevelOuter = bvNone BevelOuter = bvNone
BorderSpacing.Left = 8
BorderSpacing.Top = 8
ChildSizing.EnlargeHorizontal = crsScaleChilds ChildSizing.EnlargeHorizontal = crsScaleChilds
ChildSizing.EnlargeVertical = crsScaleChilds ChildSizing.EnlargeVertical = crsScaleChilds
ChildSizing.ShrinkHorizontal = crsScaleChilds ChildSizing.ShrinkHorizontal = crsScaleChilds
@ -271,19 +290,32 @@ object Form1: TForm1
TabOrder = 0 TabOrder = 0
end end
object BtnApplyToPlanner: TButton object BtnApplyToPlanner: TButton
Left = 264 AnchorSideLeft.Control = DBNavigator
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = DBNavigator
AnchorSideTop.Side = asrCenter
Left = 257
Height = 25 Height = 25
Top = 8 Top = 8
Width = 120 Width = 114
AutoSize = True
BorderSpacing.Left = 8
Caption = 'Apply to planner' Caption = 'Apply to planner'
OnClick = BtnApplyToPlannerClick OnClick = BtnApplyToPlannerClick
TabOrder = 1 TabOrder = 1
end end
object TabControl1: TTabControl object TabControl1: TTabControl
AnchorSideLeft.Control = TabSheet3
AnchorSideTop.Control = DBNavigator
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = TabSheet3
AnchorSideRight.Side = asrBottom
AnchorSideBottom.Control = TabSheet3
AnchorSideBottom.Side = asrBottom
Left = 8 Left = 8
Height = 577 Height = 576
Top = 39 Top = 41
Width = 960 Width = 956
OnChange = TabControl1Change OnChange = TabControl1Change
TabIndex = 0 TabIndex = 0
Tabs.Strings = ( Tabs.Strings = (
@ -297,9 +329,9 @@ object Form1: TForm1
TabOrder = 2 TabOrder = 2
object Grid: TDBGrid object Grid: TDBGrid
Left = 2 Left = 2
Height = 552 Height = 551
Top = 23 Top = 23
Width = 956 Width = 952
Align = alClient Align = alClient
Color = clWindow Color = clWindow
Columns = <> Columns = <>

73
components/tvplanit/examples/datastores/xml/unit1.lfm
View File

@ -7,39 +7,56 @@ object Form1: TForm1
ClientHeight = 686 ClientHeight = 686
ClientWidth = 980 ClientWidth = 980
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '1.7' LCLVersion = '1.6.4.0'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 34 Height = 33
Top = 0 Top = 0
Width = 980 Width = 980
Align = alTop Align = alTop
AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 34 ClientHeight = 33
ClientWidth = 980 ClientWidth = 980
TabOrder = 0 TabOrder = 0
object VpResourceCombo1: TVpResourceCombo object VpResourceCombo1: TVpResourceCombo
Left = 8 AnchorSideLeft.Control = Panel1
Left = 4
Height = 23 Height = 23
Top = 5 Top = 5
Width = 208 Width = 208
DataStore = VpXmlDatastore1 DataStore = VpXmlDatastore1
Style = csDropDownList Style = csDropDownList
Borderspacing.Left = 4
Borderspacing.Top = 4
Borderspacing.Bottom = 4
end end
object BtnNewRes: TButton object BtnNewRes: TButton
Left = 222 AnchorSideLeft.Control = VpResourceCombo1
AnchorSideLeft.Side = asrBottom
Left = 216
Height = 25 Height = 25
Top = 4 Top = 4
Width = 99 Width = 98
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'New resource' Caption = 'New resource'
OnClick = BtnNewResClick OnClick = BtnNewResClick
TabOrder = 1 TabOrder = 1
end end
object BtnEditRes: TButton object BtnEditRes: TButton
Left = 328 AnchorSideLeft.Control = BtnNewRes
AnchorSideLeft.Side = asrBottom
Left = 318
Height = 25 Height = 25
Top = 4 Top = 4
Width = 96 Width = 94
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'Edit resource' Caption = 'Edit resource'
OnClick = BtnEditResClick OnClick = BtnEditResClick
TabOrder = 2 TabOrder = 2
@ -47,8 +64,8 @@ object Form1: TForm1
end end
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 652 Height = 653
Top = 34 Top = 33
Width = 980 Width = 980
ActivePage = TabSheet1 ActivePage = TabSheet1
Align = alClient Align = alClient
@ -56,11 +73,11 @@ object Form1: TForm1
TabOrder = 1 TabOrder = 1
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Events and tasks' Caption = 'Events and tasks'
ClientHeight = 624 ClientHeight = 625
ClientWidth = 972 ClientWidth = 972
object VpDayView1: TVpDayView object VpDayView1: TVpDayView
Left = 0 Left = 0
Height = 624 Height = 625
Top = 0 Top = 0
Width = 301 Width = 301
DataStore = VpXmlDatastore1 DataStore = VpXmlDatastore1
@ -81,7 +98,6 @@ object Form1: TForm1
TimeSlotColors.Active = clWhite TimeSlotColors.Active = clWhite
TimeSlotColors.Inactive = 8454143 TimeSlotColors.Inactive = 8454143
TimeSlotColors.Holiday = 16744703 TimeSlotColors.Holiday = 16744703
TimeSlotColors.Weekday = clWhite
TimeSlotColors.Weekend = 16777088 TimeSlotColors.Weekend = 16777088
TimeSlotColors.ActiveRange.RangeBegin = h_00 TimeSlotColors.ActiveRange.RangeBegin = h_00
TimeSlotColors.ActiveRange.RangeEnd = h_00 TimeSlotColors.ActiveRange.RangeEnd = h_00
@ -100,18 +116,18 @@ object Form1: TForm1
end end
object Panel2: TPanel object Panel2: TPanel
Left = 306 Left = 306
Height = 624 Height = 625
Top = 0 Top = 0
Width = 386 Width = 386
Align = alLeft Align = alLeft
BevelOuter = bvNone BevelOuter = bvNone
Caption = 'Panel2' Caption = 'Panel2'
ClientHeight = 624 ClientHeight = 625
ClientWidth = 386 ClientWidth = 386
TabOrder = 1 TabOrder = 1
object VpWeekView1: TVpWeekView object VpWeekView1: TVpWeekView
Left = 0 Left = 0
Height = 378 Height = 379
Top = 0 Top = 0
Width = 386 Width = 386
DataStore = VpXmlDatastore1 DataStore = VpXmlDatastore1
@ -144,7 +160,7 @@ object Form1: TForm1
object VpMonthView1: TVpMonthView object VpMonthView1: TVpMonthView
Left = 0 Left = 0
Height = 241 Height = 241
Top = 383 Top = 384
Width = 386 Width = 386
DataStore = VpXmlDatastore1 DataStore = VpXmlDatastore1
ControlLink = VpControlLink1 ControlLink = VpControlLink1
@ -156,31 +172,30 @@ object Form1: TForm1
TabOrder = 1 TabOrder = 1
KBNavigation = True KBNavigation = True
DateLabelFormat = 'mmmm yyyy' DateLabelFormat = 'mmmm yyyy'
DayHeadAttributes.Color = clBtnFace
DayHeadAttributes.Font.Height = -13 DayHeadAttributes.Font.Height = -13
DayHeadAttributes.Font.Name = 'Tahoma' DayHeadAttributes.Font.Name = 'Tahoma'
DayHeadAttributes.Color = clBtnFace
DayNameStyle = dsShort DayNameStyle = dsShort
DayNumberFont.Height = -12 DayNumberFont.Height = -12
DrawingStyle = dsFlat DrawingStyle = dsFlat
EventDayStyle = [] EventDayStyle = []
EventFont.Height = -12 EventFont.Height = -12
HeadAttributes.Color = clBtnFace HeadAttributes.Color = clBtnFace
LineColor = clGray
TimeFormat = tf12Hour
TodayAttributes.Color = clSilver
TodayAttributes.BorderPen.Color = clRed
TodayAttributes.BorderPen.Width = 3
OffDayColor = clSilver OffDayColor = clSilver
SelectedDayColor = clRed SelectedDayColor = clRed
ShowEvents = True ShowEvents = True
ShowEventTime = False ShowEventTime = False
TimeFormat = tf12Hour
TodayAttributes.Color = clSilver
TodayAttributes.BorderPen.Color = clRed
TodayAttributes.BorderPen.Width = 3
WeekStartsOn = dtSunday WeekStartsOn = dtSunday
end end
object Splitter2: TSplitter object Splitter2: TSplitter
Cursor = crVSplit Cursor = crVSplit
Left = 0 Left = 0
Height = 5 Height = 5
Top = 378 Top = 379
Width = 386 Width = 386
Align = alBottom Align = alBottom
ResizeAnchor = akBottom ResizeAnchor = akBottom
@ -188,7 +203,7 @@ object Form1: TForm1
end end
object VpTaskList1: TVpTaskList object VpTaskList1: TVpTaskList
Left = 697 Left = 697
Height = 624 Height = 625
Top = 0 Top = 0
Width = 275 Width = 275
DataStore = VpXmlDatastore1 DataStore = VpXmlDatastore1
@ -217,13 +232,13 @@ object Form1: TForm1
end end
object Splitter1: TSplitter object Splitter1: TSplitter
Left = 692 Left = 692
Height = 624 Height = 625
Top = 0 Top = 0
Width = 5 Width = 5
end end
object Splitter3: TSplitter object Splitter3: TSplitter
Left = 301 Left = 301
Height = 624 Height = 625
Top = 0 Top = 0
Width = 5 Width = 5
end end
@ -280,7 +295,7 @@ object Form1: TForm1
top = 264 top = 264
end end
object VpResourceEditDialog1: TVpResourceEditDialog object VpResourceEditDialog1: TVpResourceEditDialog
Version = 'v1.04' Version = 'v1.05'
DataStore = VpXmlDatastore1 DataStore = VpXmlDatastore1
Options = [] Options = []
Placement.Position = mpCenter Placement.Position = mpCenter
@ -316,6 +331,8 @@ object Form1: TForm1
CategoryColorMap.Category8.Description = 'Category 8' CategoryColorMap.Category8.Description = 'Category 8'
CategoryColorMap.Category9.Color = clMaroon CategoryColorMap.Category9.Color = clMaroon
CategoryColorMap.Category9.Description = 'Category 9' CategoryColorMap.Category9.Description = 'Category 9'
HiddenCategories.BackgroundColor = clSilver
HiddenCategories.Color = clGray
EnableEventTimer = True EnableEventTimer = True
PlayEventSounds = True PlayEventSounds = True
AutoConnect = True AutoConnect = True

13
components/tvplanit/examples/datastores/zeos/project1.lpi
View File

@ -21,19 +21,22 @@
<FormatVersion Value="1"/> <FormatVersion Value="1"/>
</local> </local>
</RunParams> </RunParams>
<RequiredPackages Count="4"> <RequiredPackages Count="5">
<Item1> <Item1>
<PackageName Value="laz_visualplanit_zeos"/> <PackageName Value="laz_visualplanit_zeos_design"/>
</Item1> </Item1>
<Item2> <Item2>
<PackageName Value="laz_visualplanit"/> <PackageName Value="laz_visualplanit_zeos"/>
</Item2> </Item2>
<Item3> <Item3>
<PackageName Value="zcomponent"/> <PackageName Value="laz_visualplanit"/>
</Item3> </Item3>
<Item4> <Item4>
<PackageName Value="LCL"/> <PackageName Value="zcomponent"/>
</Item4> </Item4>
<Item5>
<PackageName Value="LCL"/>
</Item5>
</RequiredPackages> </RequiredPackages>
<Units Count="2"> <Units Count="2">
<Unit0> <Unit0>

73
components/tvplanit/examples/datastores/zeos/unit1.lfm
View File

@ -7,39 +7,56 @@ object Form1: TForm1
ClientHeight = 686 ClientHeight = 686
ClientWidth = 980 ClientWidth = 980
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '1.7' LCLVersion = '1.6.4.0'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 34 Height = 33
Top = 0 Top = 0
Width = 980 Width = 980
Align = alTop Align = alTop
AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 34 ClientHeight = 33
ClientWidth = 980 ClientWidth = 980
TabOrder = 0 TabOrder = 0
object VpResourceCombo1: TVpResourceCombo object VpResourceCombo1: TVpResourceCombo
Left = 8 AnchorSideLeft.Control = Panel1
Left = 4
Height = 23 Height = 23
Top = 5 Top = 5
Width = 208 Width = 208
DataStore = VpZeosDatastore1 DataStore = VpZeosDatastore1
Style = csDropDownList Style = csDropDownList
Borderspacing.Left = 4
Borderspacing.Top = 4
Borderspacing.Bottom = 4
end end
object BtnNewRes: TButton object BtnNewRes: TButton
Left = 222 AnchorSideLeft.Control = VpResourceCombo1
AnchorSideLeft.Side = asrBottom
Left = 216
Height = 25 Height = 25
Top = 4 Top = 4
Width = 99 Width = 98
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'New resource' Caption = 'New resource'
OnClick = BtnNewResClick OnClick = BtnNewResClick
TabOrder = 1 TabOrder = 1
end end
object BtnEditRes: TButton object BtnEditRes: TButton
Left = 328 AnchorSideLeft.Control = BtnNewRes
AnchorSideLeft.Side = asrBottom
Left = 318
Height = 25 Height = 25
Top = 4 Top = 4
Width = 96 Width = 94
AutoSize = True
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'Edit resource' Caption = 'Edit resource'
OnClick = BtnEditResClick OnClick = BtnEditResClick
TabOrder = 2 TabOrder = 2
@ -47,8 +64,8 @@ object Form1: TForm1
end end
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 652 Height = 653
Top = 34 Top = 33
Width = 980 Width = 980
ActivePage = TabSheet1 ActivePage = TabSheet1
Align = alClient Align = alClient
@ -56,11 +73,11 @@ object Form1: TForm1
TabOrder = 1 TabOrder = 1
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Events and tasks' Caption = 'Events and tasks'
ClientHeight = 624 ClientHeight = 625
ClientWidth = 972 ClientWidth = 972
object VpDayView1: TVpDayView object VpDayView1: TVpDayView
Left = 0 Left = 0
Height = 624 Height = 625
Top = 0 Top = 0
Width = 301 Width = 301
DataStore = VpZeosDatastore1 DataStore = VpZeosDatastore1
@ -78,7 +95,6 @@ object Form1: TForm1
TimeSlotColors.Active = clWhite TimeSlotColors.Active = clWhite
TimeSlotColors.Inactive = 8454143 TimeSlotColors.Inactive = 8454143
TimeSlotColors.Holiday = 16744703 TimeSlotColors.Holiday = 16744703
TimeSlotColors.Weekday = clWhite
TimeSlotColors.Weekend = 16777088 TimeSlotColors.Weekend = 16777088
TimeSlotColors.ActiveRange.RangeBegin = h_00 TimeSlotColors.ActiveRange.RangeBegin = h_00
TimeSlotColors.ActiveRange.RangeEnd = h_00 TimeSlotColors.ActiveRange.RangeEnd = h_00
@ -97,18 +113,18 @@ object Form1: TForm1
end end
object Panel2: TPanel object Panel2: TPanel
Left = 306 Left = 306
Height = 624 Height = 625
Top = 0 Top = 0
Width = 386 Width = 386
Align = alLeft Align = alLeft
BevelOuter = bvNone BevelOuter = bvNone
Caption = 'Panel2' Caption = 'Panel2'
ClientHeight = 624 ClientHeight = 625
ClientWidth = 386 ClientWidth = 386
TabOrder = 1 TabOrder = 1
object VpWeekView1: TVpWeekView object VpWeekView1: TVpWeekView
Left = 0 Left = 0
Height = 378 Height = 379
Top = 0 Top = 0
Width = 386 Width = 386
DataStore = VpZeosDatastore1 DataStore = VpZeosDatastore1
@ -136,7 +152,7 @@ object Form1: TForm1
object VpMonthView1: TVpMonthView object VpMonthView1: TVpMonthView
Left = 0 Left = 0
Height = 241 Height = 241
Top = 383 Top = 384
Width = 386 Width = 386
DataStore = VpZeosDatastore1 DataStore = VpZeosDatastore1
ControlLink = VpControlLink1 ControlLink = VpControlLink1
@ -146,29 +162,28 @@ object Form1: TForm1
TabOrder = 1 TabOrder = 1
KBNavigation = True KBNavigation = True
DateLabelFormat = 'mmmm yyyy' DateLabelFormat = 'mmmm yyyy'
DayHeadAttributes.Color = clBtnFace
DayHeadAttributes.Font.Height = -13 DayHeadAttributes.Font.Height = -13
DayHeadAttributes.Font.Name = 'Tahoma' DayHeadAttributes.Font.Name = 'Tahoma'
DayHeadAttributes.Color = clBtnFace
DayNameStyle = dsShort DayNameStyle = dsShort
DrawingStyle = dsFlat DrawingStyle = dsFlat
EventDayStyle = [] EventDayStyle = []
HeadAttributes.Color = clBtnFace HeadAttributes.Color = clBtnFace
LineColor = clGray
TimeFormat = tf12Hour
TodayAttributes.Color = clSilver
TodayAttributes.BorderPen.Color = clRed
TodayAttributes.BorderPen.Width = 3
OffDayColor = clSilver OffDayColor = clSilver
SelectedDayColor = clRed SelectedDayColor = clRed
ShowEvents = True ShowEvents = True
ShowEventTime = False ShowEventTime = False
TimeFormat = tf12Hour
TodayAttributes.Color = clSilver
TodayAttributes.BorderPen.Color = clRed
TodayAttributes.BorderPen.Width = 3
WeekStartsOn = dtSunday WeekStartsOn = dtSunday
end end
object Splitter2: TSplitter object Splitter2: TSplitter
Cursor = crVSplit Cursor = crVSplit
Left = 0 Left = 0
Height = 5 Height = 5
Top = 378 Top = 379
Width = 386 Width = 386
Align = alBottom Align = alBottom
ResizeAnchor = akBottom ResizeAnchor = akBottom
@ -176,7 +191,7 @@ object Form1: TForm1
end end
object VpTaskList1: TVpTaskList object VpTaskList1: TVpTaskList
Left = 697 Left = 697
Height = 624 Height = 625
Top = 0 Top = 0
Width = 275 Width = 275
DataStore = VpZeosDatastore1 DataStore = VpZeosDatastore1
@ -204,13 +219,13 @@ object Form1: TForm1
end end
object Splitter1: TSplitter object Splitter1: TSplitter
Left = 692 Left = 692
Height = 624 Height = 625
Top = 0 Top = 0
Width = 5 Width = 5
end end
object Splitter3: TSplitter object Splitter3: TSplitter
Left = 301 Left = 301
Height = 624 Height = 625
Top = 0 Top = 0
Width = 5 Width = 5
end end
@ -251,6 +266,7 @@ object Form1: TForm1
end end
object ZConnection1: TZConnection object ZConnection1: TZConnection
ControlsCodePage = cCP_UTF8 ControlsCodePage = cCP_UTF8
AutoEncodeStrings = False
Properties.Strings = ( Properties.Strings = (
'AutoEncodeStrings=ON' 'AutoEncodeStrings=ON'
) )
@ -283,6 +299,7 @@ object Form1: TForm1
HiddenCategories.Color = clGray HiddenCategories.Color = clGray
EnableEventTimer = True EnableEventTimer = True
PlayEventSounds = True PlayEventSounds = True
AutoCreate = True
Daybuffer = 31 Daybuffer = 31
left = 136 left = 136
top = 200 top = 200
@ -302,7 +319,7 @@ object Form1: TForm1
top = 264 top = 264
end end
object VpResourceEditDialog1: TVpResourceEditDialog object VpResourceEditDialog1: TVpResourceEditDialog
Version = 'v1.04' Version = 'v1.05'
DataStore = VpZeosDatastore1 DataStore = VpZeosDatastore1
Options = [] Options = []
Placement.Position = mpCenter Placement.Position = mpCenter

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

@ -9,7 +9,7 @@ object MainForm: TMainForm
Menu = MainMenu1 Menu = MainMenu1
OnCloseQuery = FormCloseQuery OnCloseQuery = FormCloseQuery
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '1.9.0.0' LCLVersion = '1.6.4.0'
object Panel1: TPanel object Panel1: TPanel
Left = 125 Left = 125
Height = 576 Height = 576
@ -57,7 +57,7 @@ object MainForm: TMainForm
Height = 528 Height = 528
Top = 48 Top = 48
Width = 834 Width = 834
PageIndex = 0 PageIndex = 3
Align = alClient Align = alClient
TabOrder = 1 TabOrder = 1
TabStop = True TabStop = True
@ -66,17 +66,17 @@ object MainForm: TMainForm
Left = 0 Left = 0
Height = 528 Height = 528
Top = 0 Top = 0
Width = 333 Width = 357
Align = alLeft Align = alLeft
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 528 ClientHeight = 528
ClientWidth = 333 ClientWidth = 357
TabOrder = 0 TabOrder = 0
object VpMonthView1: TVpMonthView object VpMonthView1: TVpMonthView
Left = 0 Left = 0
Height = 197 Height = 197
Top = 331 Top = 331
Width = 333 Width = 357
ShowHint = True ShowHint = True
ControlLink = VpControlLink1 ControlLink = VpControlLink1
Color = clWindow Color = clWindow
@ -111,15 +111,15 @@ object MainForm: TMainForm
Left = 0 Left = 0
Height = 5 Height = 5
Top = 326 Top = 326
Width = 333 Width = 357
Align = alBottom Align = alBottom
ResizeAnchor = akBottom ResizeAnchor = akBottom
end end
object VpDayView1: TVpDayView object VpDayView1: TVpDayView
Left = 0 Left = 0
Height = 284 Height = 292
Top = 42 Top = 34
Width = 333 Width = 357
ShowHint = True ShowHint = True
ControlLink = VpControlLink1 ControlLink = VpControlLink1
Color = clWindow Color = clWindow
@ -201,40 +201,61 @@ object MainForm: TMainForm
end end
object DaySelectorPanel: TPanel object DaySelectorPanel: TPanel
Left = 0 Left = 0
Height = 42 Height = 34
Top = 0 Top = 0
Width = 333 Width = 357
Align = alTop Align = alTop
AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 42 ClientHeight = 34
ClientWidth = 333 ClientWidth = 357
TabOrder = 3 TabOrder = 3
Visible = False Visible = False
object LblVisibleDays: TLabel object LblVisibleDays: TLabel
Left = 8 AnchorSideLeft.Control = DaySelectorPanel
AnchorSideTop.Control = DaySelectorPanel
AnchorSideTop.Side = asrCenter
Left = 4
Height = 15 Height = 15
Top = 12 Top = 10
Width = 61 Width = 61
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'Visible days' Caption = 'Visible days'
ParentColor = False ParentColor = False
end end
object DaysTrackBar: TTrackBar object DaysTrackBar: TTrackBar
Left = 56 AnchorSideLeft.Control = LblVisibleDays
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = DaySelectorPanel
AnchorSideTop.Side = asrCenter
Left = 73
Height = 25 Height = 25
Top = 8 Top = 5
Width = 180 Width = 180
Max = 7 Max = 7
Min = 1 Min = 1
OnChange = DaysTrackBarChange OnChange = DaysTrackBarChange
PageSize = 1 PageSize = 1
Position = 1 Position = 1
BorderSpacing.Left = 8
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
TabOrder = 0 TabOrder = 0
end end
object CbGranularity: TComboBox object CbGranularity: TComboBox
Left = 320 AnchorSideLeft.Control = LblGranularity
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = DaySelectorPanel
AnchorSideTop.Side = asrCenter
Left = 331
Height = 23 Height = 23
Top = 8 Top = 6
Width = 120 Width = 120
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
ItemHeight = 15 ItemHeight = 15
ItemIndex = 5 ItemIndex = 5
Items.Strings = ( Items.Strings = (
@ -252,26 +273,33 @@ object MainForm: TMainForm
Text = '30 Min' Text = '30 Min'
end end
object LblGranularity: TLabel object LblGranularity: TLabel
Left = 256 AnchorSideLeft.Control = DaysTrackBar
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = DaySelectorPanel
AnchorSideTop.Side = asrCenter
Left = 269
Height = 15 Height = 15
Top = 12 Top = 10
Width = 58 Width = 58
BorderSpacing.Left = 16
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'Granularity' Caption = 'Granularity'
ParentColor = False ParentColor = False
end end
end end
end end
object Splitter3: TSplitter object Splitter3: TSplitter
Left = 333 Left = 357
Height = 528 Height = 528
Top = 0 Top = 0
Width = 5 Width = 5
end end
object VpWeekView1: TVpWeekView object VpWeekView1: TVpWeekView
Left = 338 Left = 362
Height = 528 Height = 528
Top = 0 Top = 0
Width = 496 Width = 472
ShowHint = True ShowHint = True
ControlLink = VpControlLink1 ControlLink = VpControlLink1
Color = clWindow Color = clWindow
@ -304,21 +332,26 @@ object MainForm: TMainForm
end end
end end
object Tasks: TPage object Tasks: TPage
object Panel6: TPanel object TaskControlPanel: TPanel
Left = 0 Left = 0
Height = 36 Height = 27
Top = 0 Top = 0
Width = 853 Width = 834
Align = alTop Align = alTop
AutoSize = True
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 36 ClientHeight = 27
ClientWidth = 853 ClientWidth = 834
TabOrder = 0 TabOrder = 0
object RbAllTasks: TRadioButton object RbAllTasks: TRadioButton
Left = 8 AnchorSideLeft.Control = TaskControlPanel
Left = 4
Height = 19 Height = 19
Top = 8 Top = 4
Width = 63 Width = 63
BorderSpacing.Left = 4
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'All tasks' Caption = 'All tasks'
Checked = True Checked = True
OnChange = RbAllTasksChange OnChange = RbAllTasksChange
@ -328,11 +361,13 @@ object MainForm: TMainForm
object RbHideCompletedTasks: TRadioButton object RbHideCompletedTasks: TRadioButton
AnchorSideLeft.Control = RbAllTasks AnchorSideLeft.Control = RbAllTasks
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
Left = 101 Left = 99
Height = 19 Height = 19
Top = 8 Top = 4
Width = 134 Width = 134
BorderSpacing.Left = 30 BorderSpacing.Left = 32
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'Hide completed tasks' Caption = 'Hide completed tasks'
OnChange = RbHideCompletedTasksChange OnChange = RbHideCompletedTasksChange
TabOrder = 1 TabOrder = 1
@ -340,9 +375,9 @@ object MainForm: TMainForm
end end
object VpTaskList1: TVpTaskList object VpTaskList1: TVpTaskList
Left = 0 Left = 0
Height = 496 Height = 501
Top = 36 Top = 27
Width = 853 Width = 834
ControlLink = VpControlLink1 ControlLink = VpControlLink1
Color = clWindow Color = clWindow
Font.Height = -12 Font.Height = -12
@ -417,7 +452,7 @@ object MainForm: TMainForm
Left = 96 Left = 96
Height = 25 Height = 25
Top = 64 Top = 64
Width = 75 Width = 46
Caption = 'Edit' Caption = 'Edit'
OnClick = BtnEditResClick OnClick = BtnEditResClick
TabOrder = 1 TabOrder = 1
@ -426,7 +461,7 @@ object MainForm: TMainForm
Left = 16 Left = 16
Height = 25 Height = 25
Top = 64 Top = 64
Width = 75 Width = 50
Caption = 'New' Caption = 'New'
OnClick = BtnNewResClick OnClick = BtnNewResClick
TabOrder = 2 TabOrder = 2
@ -443,18 +478,23 @@ object MainForm: TMainForm
object LblLanguage: TLabel object LblLanguage: TLabel
AnchorSideTop.Control = CbLanguages AnchorSideTop.Control = CbLanguages
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 16 AnchorSideRight.Control = CbLanguages
Left = 52
Height = 15 Height = 15
Top = 28 Top = 28
Width = 52 Width = 52
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Language' Caption = 'Language'
ParentColor = False ParentColor = False
end end
object CbLanguages: TComboBox object CbLanguages: TComboBox
AnchorSideTop.Control = Settings
Left = 112 Left = 112
Height = 23 Height = 23
Top = 24 Top = 24
Width = 172 Width = 172
BorderSpacing.Top = 24
DropDownCount = 24 DropDownCount = 24
ItemHeight = 15 ItemHeight = 15
OnChange = CbLanguagesChange OnChange = CbLanguagesChange
@ -462,28 +502,41 @@ object MainForm: TMainForm
TabOrder = 0 TabOrder = 0
end end
object CbDrawingStyle: TComboBox object CbDrawingStyle: TComboBox
AnchorSideLeft.Control = CbLanguages
AnchorSideTop.Control = CbAddressBuilder
AnchorSideTop.Side = asrBottom
Left = 112 Left = 112
Height = 23 Height = 23
Top = 184 Top = 176
Width = 172 Width = 172
BorderSpacing.Top = 16
ItemHeight = 15 ItemHeight = 15
OnChange = CbDrawingStyleChange OnChange = CbDrawingStyleChange
Style = csDropDownList Style = csDropDownList
TabOrder = 4 TabOrder = 4
end end
object LblDrawingStyle: TLabel object LblDrawingStyle: TLabel
Left = 24 AnchorSideTop.Control = CbDrawingStyle
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = CbDrawingStyle
Left = 30
Height = 15 Height = 15
Top = 188 Top = 180
Width = 74 Width = 74
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Drawing style:' Caption = 'Drawing style:'
ParentColor = False ParentColor = False
end end
object CbAddressBuilder: TComboBox object CbAddressBuilder: TComboBox
AnchorSideLeft.Control = CbLanguages
AnchorSideTop.Control = CbFirstDayOfWeek
AnchorSideTop.Side = asrBottom
Left = 112 Left = 112
Height = 23 Height = 23
Top = 144 Top = 137
Width = 172 Width = 172
BorderSpacing.Top = 16
ItemHeight = 15 ItemHeight = 15
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
@ -500,18 +553,26 @@ object MainForm: TMainForm
object LblAddressBuilder: TLabel object LblAddressBuilder: TLabel
AnchorSideTop.Control = CbAddressBuilder AnchorSideTop.Control = CbAddressBuilder
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 16 AnchorSideRight.Control = CbAddressBuilder
Left = 22
Height = 15 Height = 15
Top = 148 Top = 141
Width = 82 Width = 82
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Address builder' Caption = 'Address builder'
ParentColor = False ParentColor = False
end end
object CbAllowInplaceEditing: TCheckBox object CbAllowInplaceEditing: TCheckBox
Left = 349 AnchorSideLeft.Control = CbLanguages
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = CbLanguages
AnchorSideTop.Side = asrCenter
Left = 316
Height = 19 Height = 19
Top = 28 Top = 26
Width = 131 Width = 131
BorderSpacing.Left = 32
Caption = 'Allow inplace editing' Caption = 'Allow inplace editing'
Checked = True Checked = True
OnChange = CbAllowInplaceEditingChange OnChange = CbAllowInplaceEditingChange
@ -519,10 +580,14 @@ object MainForm: TMainForm
TabOrder = 5 TabOrder = 5
end end
object CbFirstDayOfWeek: TComboBox object CbFirstDayOfWeek: TComboBox
AnchorSideLeft.Control = CbLanguages
AnchorSideTop.Control = CbTimeFormat
AnchorSideTop.Side = asrBottom
Left = 112 Left = 112
Height = 23 Height = 23
Top = 104 Top = 98
Width = 172 Width = 172
BorderSpacing.Top = 16
ItemHeight = 15 ItemHeight = 15
OnChange = CbFirstDayOfWeekChange OnChange = CbFirstDayOfWeekChange
Style = csDropDownList Style = csDropDownList
@ -531,18 +596,25 @@ object MainForm: TMainForm
object LblFirstDayOfWeek: TLabel object LblFirstDayOfWeek: TLabel
AnchorSideTop.Control = CbFirstDayOfWeek AnchorSideTop.Control = CbFirstDayOfWeek
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = CbFirstDayOfWeek
Left = 16 Left = 16
Height = 15 Height = 15
Top = 108 Top = 102
Width = 88 Width = 88
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'First day of week' Caption = 'First day of week'
ParentColor = False ParentColor = False
end end
object CbTimeFormat: TComboBox object CbTimeFormat: TComboBox
AnchorSideLeft.Control = CbLanguages
AnchorSideTop.Control = LblLanguage
AnchorSideTop.Side = asrBottom
Left = 112 Left = 112
Height = 23 Height = 23
Top = 64 Top = 59
Width = 172 Width = 172
BorderSpacing.Top = 16
ItemHeight = 15 ItemHeight = 15
OnChange = CbTimeFormatChange OnChange = CbTimeFormatChange
Style = csDropDownList Style = csDropDownList
@ -551,35 +623,47 @@ object MainForm: TMainForm
object LblTimeFormat: TLabel object LblTimeFormat: TLabel
AnchorSideTop.Control = CbTimeFormat AnchorSideTop.Control = CbTimeFormat
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
Left = 16 AnchorSideRight.Control = CbTimeFormat
Left = 38
Height = 15 Height = 15
Top = 68 Top = 63
Width = 66 Width = 66
Anchors = [akTop, akRight]
BorderSpacing.Right = 8
Caption = 'Time format' Caption = 'Time format'
ParentColor = False ParentColor = False
end end
object CbAllowDragAndDrop: TCheckBox object CbAllowDragAndDrop: TCheckBox
Left = 349 AnchorSideLeft.Control = CbAllowInplaceEditing
AnchorSideTop.Control = CbTimeFormat
AnchorSideTop.Side = asrCenter
Left = 316
Height = 19 Height = 19
Top = 56 Top = 61
Width = 179 Width = 179
Caption = 'Allow drag and drop of events' Caption = 'Allow drag and drop of events'
OnChange = CbAllowDragAndDropChange OnChange = CbAllowDragAndDropChange
TabOrder = 6 TabOrder = 6
end end
object CbDragDropTransparent: TCheckBox object CbDragDropTransparent: TCheckBox
Left = 349 AnchorSideLeft.Control = CbAllowInplaceEditing
AnchorSideTop.Control = CbFirstDayOfWeek
AnchorSideTop.Side = asrCenter
Left = 316
Height = 19 Height = 19
Top = 86 Top = 100
Width = 161 Width = 161
Caption = 'Transparent drag and drop' Caption = 'Transparent drag and drop'
OnChange = CbDragDropTransparentChange OnChange = CbDragDropTransparentChange
TabOrder = 7 TabOrder = 7
end end
object CbShowEventHints: TCheckBox object CbShowEventHints: TCheckBox
Left = 349 AnchorSideLeft.Control = CbAllowInplaceEditing
AnchorSideTop.Control = CbAddressBuilder
AnchorSideTop.Side = asrCenter
Left = 316
Height = 19 Height = 19
Top = 117 Top = 139
Width = 176 Width = 176
Caption = 'Show event and contact hints' Caption = 'Show event and contact hints'
Checked = True Checked = True

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

@ -17,6 +17,7 @@ TMAINFORM.LBLFIRSTDAYOFWEEK.CAPTION=First day of week
TMAINFORM.LBLTIMEFORMAT.CAPTION=Time format TMAINFORM.LBLTIMEFORMAT.CAPTION=Time format
TMAINFORM.CBALLOWDRAGANDDROP.CAPTION=Allow drag and drop of events TMAINFORM.CBALLOWDRAGANDDROP.CAPTION=Allow drag and drop of events
TMAINFORM.CBDRAGDROPTRANSPARENT.CAPTION=Transparent drag and drop TMAINFORM.CBDRAGDROPTRANSPARENT.CAPTION=Transparent drag and drop
TMAINFORM.CBSHOWEVENTHINTS.CAPTION=Show event and contact hints
TMAINFORM.MENUITEM1.CAPTION=File TMAINFORM.MENUITEM1.CAPTION=File
TMAINFORM.MNUEDITPRINTFORMATS.CAPTION=Edit print formats... TMAINFORM.MNUEDITPRINTFORMATS.CAPTION=Edit print formats...
TMAINFORM.MNULOADPRINTFORMATS.CAPTION=Load print formats... TMAINFORM.MNULOADPRINTFORMATS.CAPTION=Load print formats...

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

@ -69,7 +69,7 @@ type
LeftPanel: TPanel; LeftPanel: TPanel;
DaySelectorPanel: TPanel; DaySelectorPanel: TPanel;
HeaderPanel: TPanel; HeaderPanel: TPanel;
Panel6: TPanel; TaskControlPanel: TPanel;
RbAllTasks: TRadioButton; RbAllTasks: TRadioButton;
RbHideCompletedTasks: TRadioButton; RbHideCompletedTasks: TRadioButton;
Splitter2: TSplitter; Splitter2: TSplitter;
@ -729,53 +729,24 @@ procedure TMainForm.PositionControls;
var var
w: Integer; w: Integer;
begin begin
// DayView page
DaySelectorPanel.Height := 2*CbGranularity.Top + CbGranularity.Height;
// Tasks page
Panel6.ClientHeight := 2*RbAllTasks.Top + ScaleY(RbAllTasks.Height, DesignTimeDPI);
// Resources page
w := MaxValue([
GetButtonWidth(BtnNewRes),
GetButtonWidth(BtnEditRes),
GetButtonWidth(BtnDeleteRes)
]);
BtnNewRes.Width := w;
BtnEditRes.Width := w;
BtnDeleteRes.Width := w;
BtnEditRes.Left := RightOf(BtnNewRes) + 8;
BtnDeleteRes.Left := RightOf(BtnEditRes) + 8;
VpResourceCombo1.Width := RightOf(BtnDeleteRes) - BtnNewRes.Left;
// Settings page // Settings page
w := MaxValue([ w := MaxValue([
GetLabelWidth(LblLanguage), GetLabelWidth(LblLanguage),
GetLabelWidth(LblTimeFormat), GetLabelWidth(LblTimeFormat),
GetLabelWidth(LblFirstDayOfWeek), GetLabelWidth(LblFirstDayOfWeek),
GetLabelWidth(LblAddressBuilder) GetLabelWidth(LblAddressBuilder),
GetLabelWidth(LblDrawingStyle)
]); ]);
CbLanguages.Left := 24 + w + 8; CbLanguages.Left := 24 + w + 8;
CbTimeFormat.Left := CbLanguages.Left;
CbFirstDayOfWeek.Left := CbLanguages.Left;
CbAddressBuilder.Left := CbLanguages.Left;
CbDrawingStyle.Left := CbLanguages.Left;;
LblLanguage.Left := CbLanguages.Left - 8 - GetLabelWidth(LblLanguage);
LblTimeFormat.Left := CbTimeFormat.Left - 8 - GetLabelWidth(LblTimeFormat);
LblFirstDayOfWeek.Left := CbFirstDayOfWeek.Left - 8 - GetLabelWidth(LblFirstDayOfWeek);
LblAddressBuilder.Left := CbAddressBuilder.Left - 8 - GetLabelWidth(LblAddressBuilder);
LblDrawingStyle.Left := CbDrawingStyle.Left - 8 - GetlabelWidth(LblDrawingStyle);
CbAllowInplaceEditing.Left := CbLanguages.Left + CbLanguages.Width + 32; // Resources page
CbAllowDragAndDrop.Left := CbAllowInplaceEditing.Left; w := MaxValue([BtnNewRes.Width, BtnEditRes.Width, BtnDeleteRes.Width]);
CbDragDropTransparent.Left := CbAllowInplaceEditing.Left; BtnNewRes.AutoSize := false;
CbShowEventHints.Left := CbAllowInplaceEditing.Left; BtnEditRes.AutoSize := false;
BtnDeleteRes.AutoSize := false;
// Planner pages BtnNewRes.Width := w;
DaysTrackbar.Left := GetLabelWidth(LblVisibleDays) + LblVisibleDays.Left + 8; BtnEditRes.Width := w;
LblGranularity.Left := DaysTrackbar.Left + DaysTrackbar.Width + 32; BtnDeleteRes.Width := w;
CbGranularity.Left := LblGranularity.Left + GetLabelWidth(LblGranularity) + 8;
RbHideCompletedTasks.Left := RbAllTasks.Left + RbAllTasks.Width + 48;
end; end;
procedure TMainForm.RbAllTasksChange(Sender: TObject); procedure TMainForm.RbAllTasksChange(Sender: TObject);

152
components/tvplanit/examples/gadgets/unit1.lfm
View File

@ -1,30 +1,24 @@
object Form1: TForm1 object Form1: TForm1
Left = 320 Left = 320
Height = 283 Height = 311
Top = 160 Top = 160
Width = 461 Width = 473
AutoSize = True
Caption = 'Form1' Caption = 'Form1'
ClientHeight = 283 ClientHeight = 311
ClientWidth = 461 ClientWidth = 473
Font.Color = clWindowText Font.Color = clWindowText
OnCreate = FormCreate OnShow = FormShow
LCLVersion = '1.7' LCLVersion = '1.6.4.0'
object VpLEDLabel1: TVpLEDLabel
Left = 9
Height = 60
Top = 6
Width = 442
Caption = 'Visual PlanIt'
Columns = 13
OffColor = 930866
OnColor = clLime
Size = 3
end
object VpClock1: TVpClock object VpClock1: TVpClock
Left = 11 AnchorSideLeft.Control = Owner
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrBottom
Left = 0
Height = 200 Height = 200
Top = 72 Top = 78
Width = 200 Width = 200
BorderSpacing.Top = 8
Active = False Active = False
Color = clForm Color = clForm
ClockMode = cmClock ClockMode = cmClock
@ -55,20 +49,32 @@ object Form1: TForm1
OnSecondChange = VpClockTimeChange OnSecondChange = VpClockTimeChange
end end
object BtnStartStop: TButton object BtnStartStop: TButton
Left = 351 AnchorSideLeft.Control = RgClockMode
AnchorSideLeft.Side = asrBottom
AnchorSideBottom.Control = RgClockMode
AnchorSideBottom.Side = asrBottom
Left = 336
Height = 51 Height = 51
Top = 189 Top = 194
Width = 99 Width = 99
Anchors = [akLeft]
BorderSpacing.Left = 16
BorderSpacing.Right = 16
Caption = 'Start' Caption = 'Start'
OnClick = BtnStartStopClick OnClick = BtnStartStopClick
TabOrder = 6 TabOrder = 6
end end
object RgClockMode: TRadioGroup object RgClockMode: TRadioGroup
Left = 224 AnchorSideLeft.Control = RgDisplayMode
Height = 89 AnchorSideTop.Control = RgDisplayMode
Top = 151 AnchorSideTop.Side = asrBottom
Width = 116 Left = 216
Height = 77
Top = 168
Width = 104
AutoFill = True AutoFill = True
AutoSize = True
BorderSpacing.Top = 24
Caption = 'Clock mode' Caption = 'Clock mode'
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
@ -77,8 +83,8 @@ object Form1: TForm1
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 69 ClientHeight = 57
ClientWidth = 112 ClientWidth = 100
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'Clock' 'Clock'
@ -89,38 +95,62 @@ object Form1: TForm1
TabOrder = 2 TabOrder = 2
end end
object LblCountDownTime: TLabel object LblCountDownTime: TLabel
Left = 351 AnchorSideLeft.Control = BtnStartStop
AnchorSideTop.Control = Panel1
AnchorSideTop.Side = asrBottom
Left = 336
Height = 15 Height = 15
Top = 72 Top = 86
Width = 98 Width = 98
BorderSpacing.Top = 16
BorderSpacing.Right = 16
Caption = 'Count-down time:' Caption = 'Count-down time:'
FocusControl = EdCountDownTime FocusControl = EdCountDownTime
ParentColor = False ParentColor = False
Visible = False Visible = False
end end
object CbNewClockFace: TCheckBox object CbNewClockFace: TCheckBox
Left = 351 AnchorSideLeft.Control = BtnStartStop
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = BtnStartStop
Left = 336
Height = 19 Height = 19
Top = 141 Top = 163
Width = 100 Width = 100
Anchors = [akLeft, akBottom]
BorderSpacing.Top = 4
BorderSpacing.Right = 16
BorderSpacing.Bottom = 12
Caption = 'New clock face' Caption = 'New clock face'
OnChange = CbNewClockFaceChange OnChange = CbNewClockFaceChange
TabOrder = 5 TabOrder = 5
end end
object LblElapsedTime: TLabel object LblElapsedTime: TLabel
Left = 224 AnchorSideLeft.Control = RgDisplayMode
AnchorSideTop.Control = RgClockMode
AnchorSideTop.Side = asrBottom
Left = 216
Height = 15 Height = 15
Top = 256 Top = 261
Width = 49 Width = 49
BorderSpacing.Top = 16
BorderSpacing.Bottom = 16
Caption = 'Elapsed...' Caption = 'Elapsed...'
ParentColor = False ParentColor = False
end end
object RgDisplayMode: TRadioGroup object RgDisplayMode: TRadioGroup
Left = 224 AnchorSideLeft.Control = VpClock1
Height = 63 AnchorSideLeft.Side = asrBottom
Top = 72 AnchorSideTop.Control = Panel1
Width = 115 AnchorSideTop.Side = asrBottom
Left = 216
Height = 58
Top = 86
Width = 91
AutoFill = True AutoFill = True
AutoSize = True
BorderSpacing.Left = 16
BorderSpacing.Top = 16
Caption = 'Display mode' Caption = 'Display mode'
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
@ -129,8 +159,8 @@ object Form1: TForm1
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 43 ClientHeight = 38
ClientWidth = 111 ClientWidth = 87
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'Analog' 'Analog'
@ -140,23 +170,59 @@ object Form1: TForm1
TabOrder = 1 TabOrder = 1
end end
object CbMilitaryTime: TCheckBox object CbMilitaryTime: TCheckBox
Left = 351 AnchorSideLeft.Control = BtnStartStop
AnchorSideTop.Control = Owner
AnchorSideTop.Side = asrBottom
AnchorSideBottom.Control = BtnStartStop
Left = 336
Height = 19 Height = 19
Top = 128 Top = 163
Width = 87 Width = 87
Anchors = [akLeft, akBottom]
BorderSpacing.Top = 12
BorderSpacing.Right = 16
BorderSpacing.Bottom = 12
Caption = 'Military time' Caption = 'Military time'
OnChange = CbMilitaryTimeChange OnChange = CbMilitaryTimeChange
TabOrder = 4 TabOrder = 4
Visible = False Visible = False
end end
object EdCountDownTime: TEdit object EdCountDownTime: TEdit
Left = 351 AnchorSideLeft.Control = BtnStartStop
AnchorSideTop.Control = LblCountDownTime
AnchorSideTop.Side = asrBottom
Left = 336
Height = 23 Height = 23
Top = 92 Top = 105
Width = 99 Width = 99
BorderSpacing.Top = 4
BorderSpacing.Right = 16
OnChange = EdCountDownTimeChange OnChange = EdCountDownTimeChange
TabOrder = 3 TabOrder = 3
Text = '00:00:30' Text = '00:00:30'
Visible = False Visible = False
end end
object Panel1: TPanel
Left = 0
Height = 70
Top = 0
Width = 452
AutoSize = True
Caption = 'Panel1'
ClientHeight = 70
ClientWidth = 452
TabOrder = 7
object VpLEDLabel1: TVpLEDLabel
Left = 5
Height = 60
Top = 5
Width = 442
BorderSpacing.Around = 4
Caption = 'Visual PlanIt'
Columns = 13
OffColor = 930866
OnColor = clLime
Size = 3
end
end
end end

18
components/tvplanit/examples/gadgets/unit1.pas
View File

@ -19,6 +19,7 @@ type
EdCountDownTime: TEdit; EdCountDownTime: TEdit;
LblCountDownTime: TLabel; LblCountDownTime: TLabel;
LblElapsedTime: TLabel; LblElapsedTime: TLabel;
Panel1: TPanel;
RgDisplayMode: TRadioGroup; RgDisplayMode: TRadioGroup;
RgClockMode: TRadioGroup; RgClockMode: TRadioGroup;
VpClock1: TVpClock; VpClock1: TVpClock;
@ -29,7 +30,7 @@ type
procedure BtnStartStopClick(Sender: TObject); procedure BtnStartStopClick(Sender: TObject);
procedure CbNewClockFaceChange(Sender: TObject); procedure CbNewClockFaceChange(Sender: TObject);
procedure EdCountDownTimeChange(Sender: TObject); procedure EdCountDownTimeChange(Sender: TObject);
procedure FormCreate(Sender: TObject); procedure FormShow(Sender: TObject);
procedure RgClockModeClick(Sender: TObject); procedure RgClockModeClick(Sender: TObject);
procedure RgDisplayModeClick(Sender: TObject); procedure RgDisplayModeClick(Sender: TObject);
procedure VpClock1CountdownDone(Sender: TObject); procedure VpClock1CountdownDone(Sender: TObject);
@ -46,6 +47,9 @@ implementation
{$R *.lfm} {$R *.lfm}
uses
Math;
{ TForm1 } { TForm1 }
procedure TForm1.AnalogClockCountdownDone(Sender: TObject); procedure TForm1.AnalogClockCountdownDone(Sender: TObject);
@ -117,9 +121,17 @@ begin
VpClock1.Time := t; VpClock1.Time := t;
end; end;
procedure TForm1.FormCreate(Sender: TObject); procedure TForm1.FormShow(Sender: TObject);
var
w: Integer;
begin begin
CbMilitaryTime.Top := CbNewClockFace.Top; RgDisplayMode.AutoSize := false;
RgClockMode.AutoSize := false;
w := Max(RgDisplayMode.Width, RgClockMode.Width);
RgDisplayMode.Width := w;
RgClockMode.Width := w;
AutoSize := true;
end; end;
procedure TForm1.RgClockModeClick(Sender: TObject); procedure TForm1.RgClockModeClick(Sender: TObject);

317
components/tvplanit/examples/navbar/unit1.lfm
View File

@ -1,18 +1,20 @@
object Form1: TForm1 object Form1: TForm1
Left = 262 Left = 274
Height = 406 Height = 422
Top = 155 Top = 168
Width = 567 Width = 567
AutoSize = True
Caption = 'Form1' Caption = 'Form1'
ClientHeight = 406 ClientHeight = 422
ClientWidth = 567 ClientWidth = 567
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '1.7' LCLVersion = '1.6.4.0'
object VpNavBar1: TVpNavBar object VpNavBar1: TVpNavBar
Left = 0 Left = 0
Height = 376 Height = 397
Top = 0 Top = 0
Width = 128 Width = 128
BorderSpacing.Right = 24
ActiveFolder = 0 ActiveFolder = 0
AllowInplaceEdit = True AllowInplaceEdit = True
AllowRearrange = True AllowRearrange = True
@ -151,11 +153,17 @@ object Form1: TForm1
end end
end end
object RgDrawingStyle: TRadioGroup object RgDrawingStyle: TRadioGroup
Left = 141 AnchorSideLeft.Control = VpNavBar1
Height = 116 AnchorSideLeft.Side = asrBottom
Top = 32 AnchorSideTop.Control = Label1
Width = 139 AnchorSideTop.Side = asrBottom
Left = 152
Height = 96
Top = 39
Width = 120
AutoFill = True AutoFill = True
AutoSize = True
BorderSpacing.Top = 16
Caption = 'DrawingStyle' Caption = 'DrawingStyle'
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
@ -164,8 +172,8 @@ object Form1: TForm1
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 96 ClientHeight = 76
ClientWidth = 135 ClientWidth = 116
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
'dsDefButton' 'dsDefButton'
@ -177,20 +185,25 @@ object Form1: TForm1
TabOrder = 1 TabOrder = 1
end end
object Label1: TLabel object Label1: TLabel
Left = 141 AnchorSideLeft.Control = VpNavBar1
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Owner
Left = 152
Height = 15 Height = 15
Top = 8 Top = 8
Width = 34 Width = 34
BorderSpacing.Top = 8
Caption = 'Label1' Caption = 'Label1'
ParentColor = False ParentColor = False
end end
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 30 Height = 25
Top = 376 Top = 397
Width = 567 Width = 567
Align = alBottom Align = alBottom
ClientHeight = 30 AutoSize = True
ClientHeight = 25
ClientWidth = 567 ClientWidth = 567
TabOrder = 2 TabOrder = 2
object Bevel1: TBevel object Bevel1: TBevel
@ -202,19 +215,28 @@ object Form1: TForm1
Shape = bsTopLine Shape = bsTopLine
end end
object IconsLbl: TLabel object IconsLbl: TLabel
Left = 8 AnchorSideLeft.Control = Panel1
Left = 9
Height = 15 Height = 15
Top = 8 Top = 5
Width = 132 Width = 132
BorderSpacing.Left = 8
BorderSpacing.Top = 4
BorderSpacing.Bottom = 4
Caption = 'Icons kindly provided by ' Caption = 'Icons kindly provided by '
ParentColor = False ParentColor = False
end end
object IconsLink: TLabel object IconsLink: TLabel
AnchorSideLeft.Control = IconsLbl
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = IconsLbl
AnchorSideTop.Side = asrCenter
Cursor = crHandPoint Cursor = crHandPoint
Left = 180 Left = 149
Height = 15 Height = 15
Top = 8 Top = 5
Width = 186 Width = 186
BorderSpacing.Left = 8
Caption = 'http://www.fatcow.com/free-icons' Caption = 'http://www.fatcow.com/free-icons'
Font.Color = clBlue Font.Color = clBlue
ParentColor = False ParentColor = False
@ -225,29 +247,45 @@ object Form1: TForm1
end end
end end
object BtnAddFolder: TButton object BtnAddFolder: TButton
AnchorSideLeft.Control = RgIconSize
AnchorSideBottom.Control = RgDrawingStyle
AnchorSideBottom.Side = asrBottom
Left = 296 Left = 296
Height = 25 Height = 25
Top = 112 Top = 110
Width = 83 Width = 91
Anchors = [akLeft, akBottom]
AutoSize = True
Caption = 'Add folder...' Caption = 'Add folder...'
OnClick = BtnAddFolderClick OnClick = BtnAddFolderClick
TabOrder = 3 TabOrder = 3
end end
object BtnAddItem: TButton object BtnAddItem: TButton
Left = 392 AnchorSideLeft.Control = BtnAddFolder
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = BtnAddFolder
Left = 395
Height = 25 Height = 25
Top = 112 Top = 110
Width = 83 Width = 84
AutoSize = True
BorderSpacing.Left = 8
BorderSpacing.Right = 24
Caption = 'Add item...' Caption = 'Add item...'
OnClick = BtnAddItemClick OnClick = BtnAddItemClick
TabOrder = 4 TabOrder = 4
end end
object RgIconSize: TRadioGroup object RgIconSize: TRadioGroup
AnchorSideLeft.Control = RgDrawingStyle
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = RgDrawingStyle
Left = 296 Left = 296
Height = 49 Height = 39
Top = 32 Top = 39
Width = 139 Width = 110
AutoFill = True AutoFill = True
AutoSize = True
BorderSpacing.Left = 24
Caption = 'Icons' Caption = 'Icons'
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
@ -256,8 +294,8 @@ object Form1: TForm1
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 2 ChildSizing.ControlsPerLine = 2
ClientHeight = 29 ClientHeight = 19
ClientWidth = 135 ClientWidth = 106
Columns = 2 Columns = 2
ItemIndex = 0 ItemIndex = 0
Items.Strings = ( Items.Strings = (
@ -267,92 +305,154 @@ object Form1: TForm1
OnClick = RgIconSizeClick OnClick = RgIconSizeClick
TabOrder = 5 TabOrder = 5
end end
object GroupBox1: TGroupBox object GbBackgroud: TGroupBox
Left = 141 AnchorSideLeft.Control = VpNavBar1
Height = 112 AnchorSideLeft.Side = asrBottom
Top = 168 AnchorSideTop.Control = RgDrawingStyle
Width = 411 AnchorSideTop.Side = asrBottom
AnchorSideRight.Side = asrBottom
Left = 152
Height = 114
Top = 151
Width = 367
AutoSize = True
BorderSpacing.Top = 16
BorderSpacing.Right = 24
Caption = 'Background' Caption = 'Background'
ClientHeight = 92 ClientHeight = 94
ClientWidth = 407 ClientWidth = 363
TabOrder = 6 TabOrder = 6
object BkColor: TColorBox object BkColor: TColorBox
Left = 88 AnchorSideLeft.Control = RbBkColor
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = RbBkColor
AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = BtnLoadBkImage
AnchorSideRight.Side = asrBottom
Left = 85
Height = 22 Height = 22
Top = 3 Top = 0
Width = 272 Width = 266
Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColors] Style = [cbStandardColors, cbExtendedColors, cbSystemColors, cbCustomColors]
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 24
ItemHeight = 16 ItemHeight = 16
OnChange = BackgroundColorChange OnChange = BackgroundColorChange
TabOrder = 0 TabOrder = 0
end end
object RbBkColor: TRadioButton object RbBkColor: TRadioButton
Left = 14 AnchorSideLeft.Control = GbBackgroud
Left = 12
Height = 19 Height = 19
Top = 3 Top = 2
Width = 49 Width = 49
BorderSpacing.Left = 12
Caption = 'Color' Caption = 'Color'
Checked = True
OnChange = RbBkColorChange OnChange = RbBkColorChange
TabOrder = 3 TabOrder = 3
TabStop = True
end end
object RbBkImage: TRadioButton object RbBkImage: TRadioButton
Left = 16 AnchorSideLeft.Control = RbBkColor
AnchorSideTop.Control = EdBkImage
AnchorSideTop.Side = asrCenter
Left = 12
Height = 19 Height = 19
Top = 34 Top = 32
Width = 53 Width = 53
Caption = 'Image' Caption = 'Image'
OnChange = RbBkColorChange OnChange = RbBkColorChange
TabOrder = 1 TabOrder = 1
end end
object EdBkImage: TFileNameEdit object EdBkImage: TFileNameEdit
Left = 88 AnchorSideLeft.Control = RbBkColor
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = BkColor
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GbBackgroud
AnchorSideRight.Side = asrBottom
Left = 85
Height = 23 Height = 23
Top = 33 Top = 30
Width = 299 Width = 270
FileName = 'bkimg.jpg' FileName = 'bkimg.jpg'
Filter = 'BMP files (*.bmp)|*.bmp|PNG files (*.png)|*.png|JPEG files (*.jpg; *.jpeg)|*.jpg;*.jpeg' Filter = 'BMP files (*.bmp)|*.bmp|PNG files (*.png)|*.png|JPEG files (*.jpg; *.jpeg)|*.jpg;*.jpeg'
FilterIndex = 0 FilterIndex = 0
HideDirectories = False HideDirectories = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Left = 24
BorderSpacing.Top = 8
BorderSpacing.Right = 8
MaxLength = 0 MaxLength = 0
TabOrder = 2 TabOrder = 2
Text = 'bkimg.jpg' Text = 'bkimg.jpg'
end end
object Panel2: TPanel object BtnLoadBkImage: TButton
Left = 80 AnchorSideLeft.Control = Panel2
Height = 26 AnchorSideLeft.Side = asrBottom
Top = 62 AnchorSideTop.Control = EdBkImage
Width = 229 AnchorSideTop.Side = asrBottom
BevelOuter = bvNone AnchorSideRight.Side = asrBottom
ClientHeight = 26 Left = 299
ClientWidth = 229 Height = 25
Top = 61
Width = 52
AutoSize = True
BorderSpacing.Left = 32
BorderSpacing.Top = 8
BorderSpacing.Right = 12
BorderSpacing.Bottom = 8
Caption = 'Load'
OnClick = BtnLoadBkImageClick
TabOrder = 4 TabOrder = 4
end
object Panel2: TPanel
AnchorSideLeft.Control = EdBkImage
AnchorSideTop.Control = BtnLoadBkImage
AnchorSideTop.Side = asrCenter
Left = 85
Height = 19
Top = 64
Width = 182
AutoSize = True
BevelOuter = bvNone
ClientHeight = 19
ClientWidth = 182
TabOrder = 5
object RbBkImageNormal: TRadioButton object RbBkImageNormal: TRadioButton
Left = 8 AnchorSideLeft.Control = Panel2
AnchorSideTop.Control = Panel2
Left = 0
Height = 19 Height = 19
Top = 4 Top = 0
Width = 58 Width = 58
Caption = 'normal' Caption = 'normal'
OnChange = RbBkColorChange OnChange = RbBkColorChange
TabOrder = 1
end
object RbBkImageStretch: TRadioButton
Left = 88
Height = 19
Top = 4
Width = 56
Caption = 'stretch'
OnChange = RbBkColorChange
TabOrder = 0 TabOrder = 0
end end
object RbBkImageTile: TRadioButton object RbBkImageStretch: TRadioButton
Left = 168 AnchorSideLeft.Control = RbBkImageNormal
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel2
Left = 74
Height = 19 Height = 19
Top = 4 Top = 0
Width = 56
BorderSpacing.Left = 16
Caption = 'stretch'
OnChange = RbBkColorChange
TabOrder = 1
end
object RbBkImageTile: TRadioButton
AnchorSideLeft.Control = RbBkImageStretch
AnchorSideLeft.Side = asrBottom
AnchorSideTop.Control = Panel2
Left = 146
Height = 19
Top = 0
Width = 36 Width = 36
BorderSpacing.Left = 16
Caption = 'tile' Caption = 'tile'
Checked = True Checked = True
OnChange = RbBkColorChange OnChange = RbBkColorChange
@ -360,22 +460,20 @@ object Form1: TForm1
TabStop = True TabStop = True
end end
end end
object BtnLoadBkImage: TButton
Left = 304
Height = 25
Top = 62
Width = 56
Caption = 'Load'
OnClick = BtnLoadBkImageClick
TabOrder = 5
end
end end
object RgBorderStyle: TRadioGroup object RgBorderStyle: TRadioGroup
Left = 141 AnchorSideLeft.Control = VpNavBar1
Height = 66 AnchorSideLeft.Side = asrBottom
Top = 288 AnchorSideTop.Control = GbSounds
Width = 139 AnchorSideBottom.Control = GbSounds
AnchorSideBottom.Side = asrBottom
Left = 152
Height = 78
Top = 281
Width = 81
Anchors = [akTop, akLeft, akBottom]
AutoFill = True AutoFill = True
AutoSize = True
Caption = 'Border style' Caption = 'Border style'
ChildSizing.LeftRightSpacing = 6 ChildSizing.LeftRightSpacing = 6
ChildSizing.EnlargeHorizontal = crsHomogenousChildResize ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
@ -384,8 +482,8 @@ object Form1: TForm1
ChildSizing.ShrinkVertical = crsScaleChilds ChildSizing.ShrinkVertical = crsScaleChilds
ChildSizing.Layout = cclLeftToRightThenTopToBottom ChildSizing.Layout = cclLeftToRightThenTopToBottom
ChildSizing.ControlsPerLine = 1 ChildSizing.ControlsPerLine = 1
ClientHeight = 46 ClientHeight = 58
ClientWidth = 135 ClientWidth = 77
ItemIndex = 1 ItemIndex = 1
Items.Strings = ( Items.Strings = (
'bsNone' 'bsNone'
@ -394,34 +492,57 @@ object Form1: TForm1
OnClick = RgBorderStyleClick OnClick = RgBorderStyleClick
TabOrder = 7 TabOrder = 7
end end
object GroupBox2: TGroupBox object GbSounds: TGroupBox
Left = 292 AnchorSideLeft.Control = RgBorderStyle
Height = 66 AnchorSideLeft.Side = asrBottom
Top = 288 AnchorSideTop.Control = GbBackgroud
Width = 259 AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GbBackgroud
AnchorSideRight.Side = asrBottom
Left = 249
Height = 78
Top = 281
Width = 270
Anchors = [akTop, akLeft, akRight]
AutoSize = True
BorderSpacing.Left = 16
BorderSpacing.Top = 16
BorderSpacing.Bottom = 48
Caption = 'Sounds' Caption = 'Sounds'
ClientHeight = 46 ClientHeight = 58
ClientWidth = 255 ClientWidth = 266
TabOrder = 8 TabOrder = 8
object CbPlaySounds: TCheckBox object CbPlaySounds: TCheckBox
Left = 9 AnchorSideLeft.Control = GbSounds
AnchorSideTop.Control = GbSounds
Left = 12
Height = 19 Height = 19
Top = 0 Top = 0
Width = 83 Width = 83
BorderSpacing.Left = 12
Caption = 'Play sounds' Caption = 'Play sounds'
OnChange = CbPlaySoundsChange OnChange = CbPlaySoundsChange
TabOrder = 0 TabOrder = 0
end end
object EdSoundFile: TFileNameEdit object EdSoundFile: TFileNameEdit
Left = 9 AnchorSideLeft.Control = CbPlaySounds
AnchorSideTop.Control = CbPlaySounds
AnchorSideTop.Side = asrBottom
AnchorSideRight.Control = GbSounds
AnchorSideRight.Side = asrBottom
Left = 12
Height = 23 Height = 23
Top = 23 Top = 23
Width = 239 Width = 246
OnAcceptFileName = EdSoundFileAcceptFileName OnAcceptFileName = EdSoundFileAcceptFileName
FilterIndex = 0 FilterIndex = 0
HideDirectories = False HideDirectories = False
ButtonWidth = 23 ButtonWidth = 23
NumGlyphs = 1 NumGlyphs = 1
Anchors = [akTop, akLeft, akRight]
BorderSpacing.Top = 4
BorderSpacing.Right = 8
BorderSpacing.Bottom = 12
MaxLength = 0 MaxLength = 0
TabOrder = 1 TabOrder = 1
OnEditingDone = EdSoundFileEditingDone OnEditingDone = EdSoundFileEditingDone
@ -430,8 +551,8 @@ object Form1: TForm1
object Images: TImageList object Images: TImageList
Height = 32 Height = 32
Width = 32 Width = 32
left = 488 left = 480
top = 32 top = 16
Bitmap = { Bitmap = {
4C690A0000002000000020000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF 4C690A0000002000000020000000FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF
FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF FF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFFFF00FFFF

7
components/tvplanit/examples/navbar/unit1.pas
View File

@ -21,8 +21,8 @@ type
CbPlaySounds: TCheckBox; CbPlaySounds: TCheckBox;
EdBkImage: TFileNameEdit; EdBkImage: TFileNameEdit;
EdSoundFile: TFileNameEdit; EdSoundFile: TFileNameEdit;
GroupBox1: TGroupBox; GbBackgroud: TGroupBox;
GroupBox2: TGroupBox; GbSounds: TGroupBox;
IconsLbl: TLabel; IconsLbl: TLabel;
IconsLink: TLabel; IconsLink: TLabel;
Panel2: TPanel; Panel2: TPanel;
@ -203,6 +203,9 @@ begin
EdSoundFile.InitialDir := ExtractFileDir(VpNavBar1.SoundAlias); EdSoundFile.InitialDir := ExtractFileDir(VpNavBar1.SoundAlias);
EdSoundFile.FileName := VpNavBar1.SoundAlias; EdSoundFile.FileName := VpNavBar1.SoundAlias;
CbPlaySounds.Checked := VpNavBar1.PlaySounds; CbPlaySounds.Checked := VpNavBar1.PlaySounds;
EdBkImage.ButtonWidth := EdBkImage.Height;
EdSoundFile.ButtonWidth := EdSoundFile.Height;
end; end;
procedure TForm1.IconsLinkClick(Sender: TObject); procedure TForm1.IconsLinkClick(Sender: TObject);

2
components/tvplanit/examples/runtime/unit1.lfm
View File

@ -7,7 +7,7 @@ object Form1: TForm1
ClientHeight = 441 ClientHeight = 441
ClientWidth = 934 ClientWidth = 934
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '1.7' LCLVersion = '1.9.0.0'
object Panel1: TPanel object Panel1: TPanel
Left = 0 Left = 0
Height = 42 Height = 42

6
components/tvplanit/examples/runtime/unit1.pas
View File

@ -57,9 +57,9 @@ begin
Combo := TVpResourceCombo.Create(Self); Combo := TVpResourceCombo.Create(Self);
Combo.Parent := Panel1; Combo.Parent := Panel1;
Combo.Left := 8; Combo.Width := 300;
Combo.Top := 8; Combo.BorderSpacing.Around := 4;
Combo.Width := 200; Panel1.AutoSize := true;
ControlLink := TVpControlLink.Create(self); ControlLink := TVpControlLink.Create(self);
ControlLink.Datastore := Datastore; ControlLink.Datastore := Datastore;

18
components/tvplanit/examples/tutorial/unit1.lfm
View File

@ -7,15 +7,15 @@ object Form1: TForm1
ClientHeight = 559 ClientHeight = 559
ClientWidth = 804 ClientWidth = 804
OnCreate = FormCreate OnCreate = FormCreate
LCLVersion = '1.7' LCLVersion = '1.6.4.0'
object PageControl1: TPageControl object PageControl1: TPageControl
Left = 0 Left = 0
Height = 559 Height = 559
Top = 0 Top = 0
Width = 804 Width = 804
ActivePage = TabSheet1 ActivePage = TabSheet3
Align = alClient Align = alClient
TabIndex = 0 TabIndex = 2
TabOrder = 0 TabOrder = 0
object TabSheet1: TTabSheet object TabSheet1: TTabSheet
Caption = 'Events' Caption = 'Events'
@ -41,7 +41,6 @@ object Form1: TForm1
TimeSlotColors.Active = clWhite TimeSlotColors.Active = clWhite
TimeSlotColors.Inactive = 8454143 TimeSlotColors.Inactive = 8454143
TimeSlotColors.Holiday = 16744703 TimeSlotColors.Holiday = 16744703
TimeSlotColors.Weekday = clWhite
TimeSlotColors.Weekend = 16777088 TimeSlotColors.Weekend = 16777088
TimeSlotColors.ActiveRange.RangeBegin = h_00 TimeSlotColors.ActiveRange.RangeBegin = h_00
TimeSlotColors.ActiveRange.RangeEnd = h_00 TimeSlotColors.ActiveRange.RangeEnd = h_00
@ -103,15 +102,14 @@ object Form1: TForm1
DrawingStyle = dsFlat DrawingStyle = dsFlat
EventDayStyle = [] EventDayStyle = []
HeadAttributes.Color = clBtnFace HeadAttributes.Color = clBtnFace
LineColor = clGray
TimeFormat = tf24Hour
TodayAttributes.Color = clSilver
TodayAttributes.BorderPen.Color = clRed
TodayAttributes.BorderPen.Width = 3
OffDayColor = clSilver OffDayColor = clSilver
SelectedDayColor = clRed SelectedDayColor = clRed
ShowEvents = True ShowEvents = True
ShowEventTime = False ShowEventTime = False
TimeFormat = tf24Hour
TodayAttributes.Color = clSilver
TodayAttributes.BorderPen.Color = clRed
TodayAttributes.BorderPen.Width = 3
WeekStartsOn = dtMonday WeekStartsOn = dtMonday
end end
end end
@ -219,6 +217,8 @@ object Form1: TForm1
CategoryColorMap.Category8.Description = 'Category 8' CategoryColorMap.Category8.Description = 'Category 8'
CategoryColorMap.Category9.Color = clMaroon CategoryColorMap.Category9.Color = clMaroon
CategoryColorMap.Category9.Description = 'Category 9' CategoryColorMap.Category9.Description = 'Category 9'
HiddenCategories.BackgroundColor = clSilver
HiddenCategories.Color = clGray
EnableEventTimer = True EnableEventTimer = True
PlayEventSounds = True PlayEventSounds = True
left = 143 left = 143

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

@ -251,6 +251,16 @@ msgstr "Datei"
msgid "Help" msgid "Help"
msgstr "Hilfe" msgstr "Hilfe"
#: tmainform.menuitem3.caption
msgctxt "tmainform.menuitem3.caption"
msgid "-"
msgstr ""
#: tmainform.menuitem4.caption
msgctxt "tmainform.menuitem4.caption"
msgid "-"
msgstr ""
#: tmainform.mnuabout.caption #: tmainform.mnuabout.caption
msgid "About Visual PlanIt" msgid "About Visual PlanIt"
msgstr "Über Visual PlanIt" msgstr "Über Visual PlanIt"
@ -302,3 +312,4 @@ msgstr "Fertiggestellte Aufgaben ausblenden"
#: tmainform.titlelbl.caption #: tmainform.titlelbl.caption
msgid "TitleLbl" msgid "TitleLbl"
msgstr "" msgstr ""

10
components/tvplanit/languages/demo.fi.po
View File

@ -240,6 +240,16 @@ msgstr "Tiedosto"
msgid "Help" msgid "Help"
msgstr "Ohje" msgstr "Ohje"
#: tmainform.menuitem3.caption
msgctxt "tmainform.menuitem3.caption"
msgid "-"
msgstr ""
#: tmainform.menuitem4.caption
msgctxt "tmainform.menuitem4.caption"
msgid "-"
msgstr ""
#: tmainform.mnuabout.caption #: tmainform.mnuabout.caption
msgid "About Visual PlanIt" msgid "About Visual PlanIt"
msgstr "Tietoja Visual PlanIt:stä" msgstr "Tietoja Visual PlanIt:stä"

10
components/tvplanit/languages/demo.nl.po
View File

@ -245,6 +245,16 @@ msgstr "Bestand"
msgid "Help" msgid "Help"
msgstr "Help" msgstr "Help"
#: tmainform.menuitem3.caption
msgctxt "tmainform.menuitem3.caption"
msgid "-"
msgstr ""
#: tmainform.menuitem4.caption
msgctxt "tmainform.menuitem4.caption"
msgid "-"
msgstr ""
#: tmainform.mnuabout.caption #: tmainform.mnuabout.caption
msgid "About Visual PlanIt" msgid "About Visual PlanIt"
msgstr "Over Visual PlanIt" msgstr "Over Visual PlanIt"

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

@ -240,6 +240,16 @@ msgstr ""
msgid "Help" msgid "Help"
msgstr "" msgstr ""
#: tmainform.menuitem3.caption
msgctxt "TMAINFORM.MENUITEM3.CAPTION"
msgid "-"
msgstr ""
#: tmainform.menuitem4.caption
msgctxt "tmainform.menuitem4.caption"
msgid "-"
msgstr ""
#: tmainform.mnuabout.caption #: tmainform.mnuabout.caption
msgid "About Visual PlanIt" msgid "About Visual PlanIt"
msgstr "" msgstr ""

10
components/tvplanit/languages/demo.ru.po
View File

@ -254,6 +254,16 @@ msgstr "Файл"
msgid "Help" msgid "Help"
msgstr "Справка" msgstr "Справка"
#: tmainform.menuitem3.caption
msgctxt "tmainform.menuitem3.caption"
msgid "-"
msgstr ""
#: tmainform.menuitem4.caption
msgctxt "tmainform.menuitem4.caption"
msgid "-"
msgstr ""
#: tmainform.mnuabout.caption #: tmainform.mnuabout.caption
msgid "About Visual PlanIt" msgid "About Visual PlanIt"
msgstr "О Visual PlanIt" msgstr "О Visual PlanIt"

4
components/tvplanit/source/vpclock.pas
View File

@ -277,6 +277,10 @@ type
property Anchors; property Anchors;
property Constraints; property Constraints;
{$ENDIF} {$ENDIF}
{$IFDEF LCL}
property BorderSpacing;
property ChildSizing;
{$ENDIF}
property Active; property Active;
property Align; property Align;
property Color; property Color;

3
components/tvplanit/source/vpcontactbuttons.pas
View File

@ -137,6 +137,9 @@ type
property Align; property Align;
property Anchors; property Anchors;
property BiDiMode; property BiDiMode;
{$IFDEF LCL}
property BorderSpacing;
{$ENDIF}
property Color; property Color;
property Constraints; property Constraints;
property Cursor; property Cursor;

4
components/tvplanit/source/vpledlabel.pas
View File

@ -108,7 +108,11 @@ type
TVpLEDLabel = class(TVpCustomLEDLabel) TVpLEDLabel = class(TVpCustomLEDLabel)
published published
{$IFDEF LCL}
property BorderSpacing;
{$ENDIF}
property Version; property Version;
property Align;
property Caption; property Caption;
property Columns; property Columns;
property Rows; property Rows;

3
components/tvplanit/source/vpnavbar.pas
View File

@ -395,6 +395,9 @@ type
TVpNavBar = class(TVpCustomNavBar) TVpNavBar = class(TVpCustomNavBar)
published published
{$IFDEF LCL}
property BorderSpacing;
{$ENDIF}
property ActiveFolder; property ActiveFolder;
property AllowInplaceEdit; property AllowInplaceEdit;
property AllowRearrange; property AllowRearrange;