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

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

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

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

@ -1,76 +1,59 @@
object Form1: TForm1
Left = 262
Height = 177
Height = 285
Top = 155
Width = 314
Width = 400
AutoSize = True
Caption = 'Access database creator'
ClientHeight = 177
ClientWidth = 314
LCLVersion = '1.7'
object FileNameEdit: TFileNameEdit
Left = 16
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
ClientHeight = 285
ClientWidth = 400
Constraints.MinWidth = 400
OnCreate = FormCreate
LCLVersion = '1.6.4.0'
object StatusBar1: TStatusBar
Left = 0
Height = 23
Top = 154
Width = 314
Top = 262
Width = 400
Panels = <>
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
Left = 0
Height = 44
Top = 110
Width = 314
Height = 43
Top = 219
Width = 400
Align = alBottom
Caption = 'Panel1'
ClientHeight = 44
ClientWidth = 314
TabOrder = 3
AutoSize = True
ClientHeight = 43
ClientWidth = 400
TabOrder = 1
object BtnCreateDB: TButton
Left = 120
AnchorSideRight.Control = BtnClose
Left = 246
Height = 25
Top = 10
Width = 91
Top = 9
Width = 78
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 8
BorderSpacing.Right = 8
BorderSpacing.Bottom = 8
Caption = 'Create DB'
OnClick = BtnCreateDBClick
TabOrder = 0
end
object BtnClose: TButton
Left = 221
AnchorSideRight.Control = Panel1
AnchorSideRight.Side = asrBottom
Left = 332
Height = 25
Top = 10
Width = 75
Top = 9
Width = 55
Anchors = [akTop, akRight]
AutoSize = True
BorderSpacing.Top = 8
BorderSpacing.Right = 12
BorderSpacing.Bottom = 8
Caption = 'Close'
OnClick = BtnCloseClick
TabOrder = 1
@ -79,26 +62,93 @@ object Form1: TForm1
Left = 9
Height = 3
Top = 1
Width = 296
Width = 382
Align = alTop
BorderSpacing.Left = 8
BorderSpacing.Right = 8
Shape = bsTopLine
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
Connected = False
LoginPrompt = False
KeepConnection = False
Transaction = SQLTransaction1
Options = []
left = 104
left = 48
top = 168
end
object SQLTransaction1: TSQLTransaction
Active = False
Action = caCommit
Database = ODBCConnection1
Options = []
left = 216
left = 152
top = 168
end
end

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -69,7 +69,7 @@ type
LeftPanel: TPanel;
DaySelectorPanel: TPanel;
HeaderPanel: TPanel;
Panel6: TPanel;
TaskControlPanel: TPanel;
RbAllTasks: TRadioButton;
RbHideCompletedTasks: TRadioButton;
Splitter2: TSplitter;
@ -729,53 +729,24 @@ procedure TMainForm.PositionControls;
var
w: Integer;
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
w := MaxValue([
GetLabelWidth(LblLanguage),
GetLabelWidth(LblTimeFormat),
GetLabelWidth(LblFirstDayOfWeek),
GetLabelWidth(LblAddressBuilder)
GetLabelWidth(LblAddressBuilder),
GetLabelWidth(LblDrawingStyle)
]);
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;
CbAllowDragAndDrop.Left := CbAllowInplaceEditing.Left;
CbDragDropTransparent.Left := CbAllowInplaceEditing.Left;
CbShowEventHints.Left := CbAllowInplaceEditing.Left;
// Planner pages
DaysTrackbar.Left := GetLabelWidth(LblVisibleDays) + LblVisibleDays.Left + 8;
LblGranularity.Left := DaysTrackbar.Left + DaysTrackbar.Width + 32;
CbGranularity.Left := LblGranularity.Left + GetLabelWidth(LblGranularity) + 8;
RbHideCompletedTasks.Left := RbAllTasks.Left + RbAllTasks.Width + 48;
// Resources page
w := MaxValue([BtnNewRes.Width, BtnEditRes.Width, BtnDeleteRes.Width]);
BtnNewRes.AutoSize := false;
BtnEditRes.AutoSize := false;
BtnDeleteRes.AutoSize := false;
BtnNewRes.Width := w;
BtnEditRes.Width := w;
BtnDeleteRes.Width := w;
end;
procedure TMainForm.RbAllTasksChange(Sender: TObject);

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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