From 924efdfcb15f67b7571bccc7edc04db4ca0fe27e Mon Sep 17 00:00:00 2001 From: wp_xxyyzz Date: Fri, 10 Jun 2016 20:49:35 +0000 Subject: [PATCH] tvplanit: Move designtime-related units to designtime package. git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4713 8e941d3f-bd1b-0410-a28a-d453659cc2b4 --- .../tvplanit/packages/laz_visualplanit.lpk | 30 +++- .../packages/laz_visualplanit_runtime.lpk | 132 +++++++++--------- components/tvplanit/source/vpabout.lfm | 35 ++--- components/tvplanit/source/vpconst.pas | 4 +- components/tvplanit/source/vpflxdsed1.pas | 1 - components/tvplanit/source/vpnabed.lfm | 94 +++++++------ 6 files changed, 159 insertions(+), 137 deletions(-) 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