diff --git a/components/tvplanit/packages/laz_visualplanit.lpk b/components/tvplanit/packages/laz_visualplanit.lpk
index 1b19a2413..522ae0a12 100644
--- a/components/tvplanit/packages/laz_visualplanit.lpk
+++ b/components/tvplanit/packages/laz_visualplanit.lpk
@@ -4,6 +4,7 @@
+
@@ -19,8 +20,19 @@
+
-
+
@@ -30,6 +42,22 @@
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/components/tvplanit/packages/laz_visualplanit_runtime.lpk b/components/tvplanit/packages/laz_visualplanit_runtime.lpk
index 1fc8c5fdc..1d73768ad 100644
--- a/components/tvplanit/packages/laz_visualplanit_runtime.lpk
+++ b/components/tvplanit/packages/laz_visualplanit_runtime.lpk
@@ -3,6 +3,7 @@
+
@@ -18,8 +19,19 @@
+
-
+
@@ -149,125 +161,109 @@
-
-
-
-
-
-
-
-
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
+
+
+
+
+
+
+
+
-
+
-
-
+
+
-
+
-
-
-
-
-
-
-
-
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
+
+
-
-
-
-
-
-
-
-
-
+
diff --git a/components/tvplanit/source/vpabout.lfm b/components/tvplanit/source/vpabout.lfm
index b12004911..13d498cc6 100644
--- a/components/tvplanit/source/vpabout.lfm
+++ b/components/tvplanit/source/vpabout.lfm
@@ -2,13 +2,13 @@ object frmAbout: TfrmAbout
Left = 282
Height = 312
Top = 205
- Width = 471
+ Width = 502
HorzScrollBar.Page = 470
VertScrollBar.Page = 311
BorderStyle = bsDialog
Caption = 'About Visual PlanIt'
ClientHeight = 312
- ClientWidth = 471
+ ClientWidth = 502
OnActivate = FormActivate
OnMouseMove = FormMouseMove
Position = poScreenCenter
@@ -17,14 +17,14 @@ object frmAbout: TfrmAbout
Left = 152
Height = 96
Top = 160
- Width = 305
+ Width = 344
Shape = bsFrame
end
object Bevel2: TBevel
Left = 6
Height = 17
Top = 265
- Width = 451
+ Width = 490
Shape = bsTopLine
end
object ProgramName: TLabel
@@ -58,14 +58,11 @@ object frmAbout: TfrmAbout
object lblTurboLink: TLabel
Cursor = crHandPoint
Left = 161
- Height = 14
+ Height = 15
Top = 125
- Width = 193
+ Width = 222
Caption = 'http://sourceforge.net/projects/tpvplanit/'
Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Default'
- Font.Style = [fsUnderline]
ParentColor = False
ParentFont = False
OnClick = lblTurboLinkClick
@@ -74,14 +71,11 @@ object frmAbout: TfrmAbout
object lblHelp: TLabel
Cursor = crHandPoint
Left = 168
- Height = 14
+ Height = 15
Top = 198
- Width = 278
+ Width = 315
Caption = 'http://sourceforge.net/forum/forum.php?forum_id=241880'
Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Default'
- Font.Style = [fsUnderline]
ParentColor = False
ParentFont = False
OnClick = lblHelpClick
@@ -106,14 +100,11 @@ object frmAbout: TfrmAbout
object lblGeneralDiscussion: TLabel
Cursor = crHandPoint
Left = 168
- Height = 14
+ Height = 15
Top = 230
- Width = 278
+ Width = 315
Caption = 'http://sourceforge.net/forum/forum.php?forum_id=241879'
Font.Color = clBlue
- Font.Height = -11
- Font.Name = 'Default'
- Font.Style = [fsUnderline]
ParentColor = False
ParentFont = False
OnClick = lblGeneralDiscussionClick
@@ -137,9 +128,9 @@ object frmAbout: TfrmAbout
end
object Label1: TLabel
Left = 152
- Height = 49
+ Height = 58
Top = 40
- Width = 265
+ Width = 336
AutoSize = False
Caption = 'Visual PlanIt was released under the Mozilla 1.1 license in January, 2003. The project is hosted on SourceForge at sourceforge.net/projects/tpvplanit.'
ParentColor = False
@@ -1289,7 +1280,7 @@ object frmAbout: TfrmAbout
end
end
object OKButton: TButton
- Left = 380
+ Left = 416
Height = 25
Top = 277
Width = 75
diff --git a/components/tvplanit/source/vpconst.pas b/components/tvplanit/source/vpconst.pas
index c84b31607..a8404e532 100644
--- a/components/tvplanit/source/vpconst.pas
+++ b/components/tvplanit/source/vpconst.pas
@@ -47,8 +47,8 @@ uses
Forms, StdCtrls;
const
- BuildTime = '09/13/2002 09:25 AM';
- VpVersionStr = 'v1.03'; {Visual PlanIt library version}
+ BuildTime = {$I %DATE%} + {$I %TIME}; //'09/13/2002 09:25 AM';
+ VpVersionStr = 'v1.04'; {Visual PlanIt library version}
VpProductName = 'Visual PlanIt';
BorderStyles : array[TBorderStyle] of LongInt =
diff --git a/components/tvplanit/source/vpflxdsed1.pas b/components/tvplanit/source/vpflxdsed1.pas
index c236620c0..65758d04d 100644
--- a/components/tvplanit/source/vpflxdsed1.pas
+++ b/components/tvplanit/source/vpflxdsed1.pas
@@ -246,7 +246,6 @@ var
ErrorStr: string;
begin
ErrorStr := '';
- btnAddMapping.Caption := 'Add Field'#13#10'Mapping';
DSResActive := false;
DSEventActive := false;
diff --git a/components/tvplanit/source/vpnabed.lfm b/components/tvplanit/source/vpnabed.lfm
index 6dda0718e..aa07f029c 100644
--- a/components/tvplanit/source/vpnabed.lfm
+++ b/components/tvplanit/source/vpnabed.lfm
@@ -1,12 +1,12 @@
object frmNavBarEd: TfrmNavBarEd
Left = 374
- Height = 326
+ Height = 344
Top = 236
Width = 426
HorzScrollBar.Page = 425
VertScrollBar.Page = 322
Caption = 'Nav Bar Layout Tool'
- ClientHeight = 326
+ ClientHeight = 344
ClientWidth = 426
FormStyle = fsStayOnTop
OnClose = FormClose
@@ -16,18 +16,19 @@ object frmNavBarEd: TfrmNavBarEd
LCLVersion = '1.7'
object pnlItems: TPanel
Left = 217
- Height = 224
+ Height = 226
Top = 0
Width = 209
Align = alClient
- ClientHeight = 224
+ BevelOuter = bvNone
+ ClientHeight = 226
ClientWidth = 209
TabOrder = 1
object lbItems: TListBox
- Left = 1
- Height = 199
- Top = 24
- Width = 175
+ Left = 0
+ Height = 203
+ Top = 23
+ Width = 173
Align = alClient
ItemHeight = 13
OnClick = lbItemsClick
@@ -36,13 +37,14 @@ object frmNavBarEd: TfrmNavBarEd
TabOrder = 1
end
object Panel1: TPanel
- Left = 176
- Height = 199
- Top = 24
+ Left = 173
+ Height = 203
+ Top = 23
Width = 32
Align = alRight
+ BorderSpacing.Right = 4
BevelOuter = bvNone
- ClientHeight = 199
+ ClientHeight = 203
ClientWidth = 32
TabOrder = 2
object btnItemAdd: TSpeedButton
@@ -135,17 +137,17 @@ object frmNavBarEd: TfrmNavBarEd
end
end
object Panel4: TPanel
- Left = 1
+ Left = 0
Height = 23
- Top = 1
- Width = 207
+ Top = 0
+ Width = 209
Align = alTop
BevelOuter = bvNone
ClientHeight = 23
- ClientWidth = 207
+ ClientWidth = 209
TabOrder = 0
object Label2: TLabel
- Left = 4
+ Left = 0
Height = 15
Top = 4
Width = 62
@@ -157,32 +159,34 @@ object frmNavBarEd: TfrmNavBarEd
end
object pnlFolders: TPanel
Left = 0
- Height = 224
+ Height = 226
Top = 0
Width = 217
Align = alLeft
- ClientHeight = 224
+ BevelOuter = bvNone
+ ClientHeight = 226
ClientWidth = 217
TabOrder = 0
object lbFolders: TListBox
- Left = 1
- Height = 199
- Top = 24
- Width = 183
+ Left = 4
+ Height = 203
+ Top = 23
+ Width = 181
Align = alClient
+ BorderSpacing.Left = 4
ItemHeight = 0
OnClick = lbFoldersClick
TabOrder = 1
end
object Panel6: TPanel
- Left = 1
+ Left = 0
Height = 23
- Top = 1
- Width = 215
+ Top = 0
+ Width = 217
Align = alTop
BevelOuter = bvNone
ClientHeight = 23
- ClientWidth = 215
+ ClientWidth = 217
TabOrder = 0
object Label1: TLabel
Left = 4
@@ -195,13 +199,13 @@ object frmNavBarEd: TfrmNavBarEd
end
end
object Panel5: TPanel
- Left = 184
- Height = 199
- Top = 24
+ Left = 185
+ Height = 203
+ Top = 23
Width = 32
Align = alRight
BevelOuter = bvNone
- ClientHeight = 199
+ ClientHeight = 203
ClientWidth = 32
TabOrder = 2
object btnFolderAdd: TSpeedButton
@@ -296,25 +300,26 @@ object frmNavBarEd: TfrmNavBarEd
end
object pnlImages: TPanel
Left = 0
- Height = 102
- Top = 224
+ Height = 118
+ Top = 226
Width = 426
Align = alBottom
- ClientHeight = 102
+ BevelOuter = bvNone
+ ClientHeight = 118
ClientWidth = 426
TabOrder = 2
object Panel8: TPanel
- Left = 1
+ Left = 0
Height = 27
- Top = 1
- Width = 424
+ Top = 0
+ Width = 426
Align = alTop
BevelOuter = bvNone
ClientHeight = 27
- ClientWidth = 424
+ ClientWidth = 426
TabOrder = 0
object Label3: TLabel
- Left = 8
+ Left = 4
Height = 15
Top = 8
Width = 89
@@ -323,11 +328,14 @@ object frmNavBarEd: TfrmNavBarEd
end
end
object lbImages: TListBox
- Left = 1
- Height = 73
- Top = 28
- Width = 424
+ Left = 4
+ Height = 87
+ Top = 27
+ Width = 418
Align = alClient
+ BorderSpacing.Left = 4
+ BorderSpacing.Right = 4
+ BorderSpacing.Bottom = 4
Columns = 10
ItemHeight = 16
OnClick = lbImagesClick