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

tvplanit: Move designtime-related units to designtime package.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@4713 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-06-10 20:49:35 +00:00
parent 486edd6d5b
commit 924efdfcb1
6 changed files with 159 additions and 137 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
components/tvplanit/packages/laz_visualplanit.lpk
View File

@ -4,6 +4,7 @@
<Name Value="laz_visualplanit"/> <Name Value="laz_visualplanit"/>
<Type Value="RunAndDesignTime"/> <Type Value="RunAndDesignTime"/>
<AddToProjectUsesSection Value="True"/> <AddToProjectUsesSection Value="True"/>
<Author Value="Original author: TurboPower Software"/>
<CompilerOptions> <CompilerOptions>
<Version Value="11"/> <Version Value="11"/>
<SearchPaths> <SearchPaths>
@ -19,8 +20,19 @@
</Parsing> </Parsing>
</CompilerOptions> </CompilerOptions>
<Description Value="Lazarus Port of Turbo Power's VisualPlanIt components (designtime package)"/> <Description Value="Lazarus Port of Turbo Power's VisualPlanIt components (designtime package)"/>
<License Value="The contents of these files are subject to the Mozilla Public License Version 1.1 (the &quot;License&quot;); you may not use this file except in compliance with the License. You may obtain a copy of the License at http://www.mozilla.org/MPL/.
Software distributed under the License is distributed on an &quot;AS IS&quot; basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for the specific language governing rights and limitations under the License.
The Original Code is TurboPower Visual PlanIt.
The Initial Developer of the Original Code is TurboPower Software.
Portions created by TurboPower Software Inc. are Copyright (C) 2002 TurboPower Software Inc. All Rights Reserved.
Contributor(s): "/>
<Version Major="1" Release="4"/> <Version Major="1" Release="4"/>
<Files Count="2"> <Files Count="6">
<Item1> <Item1>
<Filename Value="../source/vpabout.pas"/> <Filename Value="../source/vpabout.pas"/>
<UnitName Value="VpAbout"/> <UnitName Value="VpAbout"/>
@ -30,6 +42,22 @@
<HasRegisterProc Value="True"/> <HasRegisterProc Value="True"/>
<UnitName Value="VpReg"/> <UnitName Value="VpReg"/>
</Item2> </Item2>
<Item3>
<Filename Value="../source/vpflxdsed1.lfm"/>
<Type Value="LFM"/>
</Item3>
<Item4>
<Filename Value="../source/vpflxdsed1.pas"/>
<UnitName Value="VpFlxDsEd1"/>
</Item4>
<Item5>
<Filename Value="../source/vpnabed.lfm"/>
<Type Value="LFM"/>
</Item5>
<Item6>
<Filename Value="../source/vpnabed.pas"/>
<UnitName Value="VpNabEd"/>
</Item6>
</Files> </Files>
<i18n> <i18n>
<EnableI18N Value="True"/> <EnableI18N Value="True"/>

132
components/tvplanit/packages/laz_visualplanit_runtime.lpk
View File

@ -3,6 +3,7 @@
<Package Version="4"> <Package Version="4">
<Name Value="laz_visualplanit_runtime"/> <Name Value="laz_visualplanit_runtime"/>
<AddToProjectUsesSection Value="True"/> <AddToProjectUsesSection Value="True"/>
<Author Value="Original author: TurboPower Software"/>
<CompilerOptions> <CompilerOptions>
<Version Value="11"/> <Version Value="11"/>
<SearchPaths> <SearchPaths>
@ -18,8 +19,19 @@
</Parsing> </Parsing>
</CompilerOptions> </CompilerOptions>
<Description Value="Lazarus Port of Turbo Power's VisualPlanIt components (Runtime-Package)"/> <Description Value="Lazarus Port of Turbo Power's VisualPlanIt components (Runtime-Package)"/>
<License Value="The contents of these files are subject to the Mozilla Public License Version 1.1 (the &quot;License&quot;); you may not use this file except in compliance with the License. You may obtain a copy of the License at http://www.mozilla.org/MPL/.
Software distributed under the License is distributed on an &quot;AS IS&quot; basis, WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License for the specific language governing rights and limitations under the License.
The Original Code is TurboPower Visual PlanIt.
The Initial Developer of the Original Code is TurboPower Software.
Portions created by TurboPower Software Inc. are Copyright (C) 2002 TurboPower Software Inc. All Rights Reserved.
Contributor(s): "/>
<Version Major="1" Release="4"/> <Version Major="1" Release="4"/>
<Files Count="62"> <Files Count="58">
<Item1> <Item1>
<Filename Value="../source/vpalarmdlg.lfm"/> <Filename Value="../source/vpalarmdlg.lfm"/>
<Type Value="LFM"/> <Type Value="LFM"/>
@ -149,125 +161,109 @@
<UnitName Value="VpMonthView"/> <UnitName Value="VpMonthView"/>
</Item32> </Item32>
<Item33> <Item33>
<Filename Value="../source/vpnabed.lfm"/>
<Type Value="LFM"/>
</Item33>
<Item34>
<Filename Value="../source/vpnabed.pas"/>
<UnitName Value="VpNabEd"/>
</Item34>
<Item35>
<Filename Value="../source/vpnavbar.pas"/> <Filename Value="../source/vpnavbar.pas"/>
<UnitName Value="VpNavBar"/> <UnitName Value="VpNavBar"/>
</Item35> </Item33>
<Item36> <Item34>
<Filename Value="../source/vpprtfmt.pas"/> <Filename Value="../source/vpprtfmt.pas"/>
<UnitName Value="VpPrtFmt"/> <UnitName Value="VpPrtFmt"/>
</Item36> </Item34>
<Item37> <Item35>
<Filename Value="../source/vpprtfmtcbox.pas"/> <Filename Value="../source/vpprtfmtcbox.pas"/>
<UnitName Value="VpPrtFmtCBox"/> <UnitName Value="VpPrtFmtCBox"/>
</Item37> </Item35>
<Item38> <Item36>
<Filename Value="../source/vpprtfmtdlg.pas"/> <Filename Value="../source/vpprtfmtdlg.pas"/>
<UnitName Value="VpPrtFmtDlg"/> <UnitName Value="VpPrtFmtDlg"/>
</Item38> </Item36>
<Item39> <Item37>
<Filename Value="../source/vpprtfmted.pas"/> <Filename Value="../source/vpprtfmted.pas"/>
<UnitName Value="VpPrtFmtEd"/> <UnitName Value="VpPrtFmtEd"/>
</Item39> </Item37>
<Item40> <Item38>
<Filename Value="../source/vpprtprv.pas"/> <Filename Value="../source/vpprtprv.pas"/>
<UnitName Value="VpPrtPrv"/> <UnitName Value="VpPrtPrv"/>
</Item38>
<Item39>
<Filename Value="../source/vpprtprvdlg.lfm"/>
<Type Value="LFM"/>
</Item39>
<Item40>
<Filename Value="../source/vpprtprvdlg.pas"/>
<UnitName Value="VpPrtPrvDlg"/>
</Item40> </Item40>
<Item41> <Item41>
<Filename Value="../source/vpprtprvdlg.lfm"/> <Filename Value="../source/vpreseditdlg.lfm"/>
<Type Value="LFM"/> <Type Value="LFM"/>
</Item41> </Item41>
<Item42> <Item42>
<Filename Value="../source/vpprtprvdlg.pas"/> <Filename Value="../source/vpreseditdlg.pas"/>
<UnitName Value="VpPrtPrvDlg"/> <UnitName Value="VpResEditDlg"/>
</Item42> </Item42>
<Item43> <Item43>
<Filename Value="../source/vpreseditdlg.lfm"/> <Filename Value="../source/vpselresdlg.lfm"/>
<Type Value="LFM"/> <Type Value="LFM"/>
</Item43> </Item43>
<Item44> <Item44>
<Filename Value="../source/vpreseditdlg.pas"/>
<UnitName Value="VpResEditDlg"/>
</Item44>
<Item45>
<Filename Value="../source/vpselresdlg.lfm"/>
<Type Value="LFM"/>
</Item45>
<Item46>
<Filename Value="../source/vpselresdlg.pas"/> <Filename Value="../source/vpselresdlg.pas"/>
<UnitName Value="VpSelResDlg"/> <UnitName Value="VpSelResDlg"/>
</Item46> </Item44>
<Item47> <Item45>
<Filename Value="../source/vpsr.pas"/> <Filename Value="../source/vpsr.pas"/>
<UnitName Value="VpSR"/> <UnitName Value="VpSR"/>
</Item47> </Item45>
<Item48> <Item46>
<Filename Value="../source/vptaskeditdlg.lfm"/> <Filename Value="../source/vptaskeditdlg.lfm"/>
<Type Value="LFM"/> <Type Value="LFM"/>
</Item48> </Item46>
<Item49> <Item47>
<Filename Value="../source/vptaskeditdlg.pas"/> <Filename Value="../source/vptaskeditdlg.pas"/>
<UnitName Value="VpTaskEditDlg"/> <UnitName Value="VpTaskEditDlg"/>
</Item49> </Item47>
<Item50> <Item48>
<Filename Value="../source/vptasklist.pas"/> <Filename Value="../source/vptasklist.pas"/>
<UnitName Value="VpTaskList"/> <UnitName Value="VpTaskList"/>
</Item50> </Item48>
<Item51> <Item49>
<Filename Value="../source/vptimerpool.pas"/> <Filename Value="../source/vptimerpool.pas"/>
<UnitName Value="VpTimerPool"/> <UnitName Value="VpTimerPool"/>
</Item51> </Item49>
<Item52> <Item50>
<Filename Value="../source/vpwavdlg.lfm"/> <Filename Value="../source/vpwavdlg.lfm"/>
<Type Value="LFM"/> <Type Value="LFM"/>
</Item52> </Item50>
<Item53> <Item51>
<Filename Value="../source/vpwavdlg.pas"/> <Filename Value="../source/vpwavdlg.pas"/>
<UnitName Value="VpWavDlg"/> <UnitName Value="VpWavDlg"/>
</Item53> </Item51>
<Item54> <Item52>
<Filename Value="../source/vpwavpe.pas"/> <Filename Value="../source/vpwavpe.pas"/>
<UnitName Value="VpWavPE"/> <UnitName Value="VpWavPE"/>
</Item54> </Item52>
<Item55> <Item53>
<Filename Value="../source/vpweekview.pas"/> <Filename Value="../source/vpweekview.pas"/>
<UnitName Value="VpWeekView"/> <UnitName Value="VpWeekView"/>
</Item55> </Item53>
<Item56> <Item54>
<Filename Value="../source/vpxbase.pas"/> <Filename Value="../source/vpxbase.pas"/>
<UnitName Value="VpXBase"/> <UnitName Value="VpXBase"/>
</Item56> </Item54>
<Item57> <Item55>
<Filename Value="../source/vpxchrflt.pas"/> <Filename Value="../source/vpxchrflt.pas"/>
<UnitName Value="VpXChrFlt"/> <UnitName Value="VpXChrFlt"/>
</Item57> </Item55>
<Item58> <Item56>
<Filename Value="../source/vpxparsr.pas"/> <Filename Value="../source/vpxparsr.pas"/>
<UnitName Value="VpXParsr"/> <UnitName Value="VpXParsr"/>
</Item58> </Item56>
<Item59> <Item57>
<Filename Value="../source/vpbase.res"/> <Filename Value="../source/vpbase.res"/>
<Type Value="Binary"/> <Type Value="Binary"/>
</Item59> </Item57>
<Item60> <Item58>
<Filename Value="../source/vpflxds.pas"/> <Filename Value="../source/vpflxds.pas"/>
<UnitName Value="VpFlxDS"/> <UnitName Value="VpFlxDS"/>
</Item60> </Item58>
<Item61>
<Filename Value="../source/vpflxdsed1.pas"/>
<UnitName Value="VpFlxDsEd1"/>
</Item61>
<Item62>
<Filename Value="../source/vpflxdsed1.lfm"/>
<Type Value="LFM"/>
</Item62>
</Files> </Files>
<i18n> <i18n>
<EnableI18N Value="True"/> <EnableI18N Value="True"/>

35
components/tvplanit/source/vpabout.lfm
View File

@ -2,13 +2,13 @@ object frmAbout: TfrmAbout
Left = 282 Left = 282
Height = 312 Height = 312
Top = 205 Top = 205
Width = 471 Width = 502
HorzScrollBar.Page = 470 HorzScrollBar.Page = 470
VertScrollBar.Page = 311 VertScrollBar.Page = 311
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'About Visual PlanIt' Caption = 'About Visual PlanIt'
ClientHeight = 312 ClientHeight = 312
ClientWidth = 471 ClientWidth = 502
OnActivate = FormActivate OnActivate = FormActivate
OnMouseMove = FormMouseMove OnMouseMove = FormMouseMove
Position = poScreenCenter Position = poScreenCenter
@ -17,14 +17,14 @@ object frmAbout: TfrmAbout
Left = 152 Left = 152
Height = 96 Height = 96
Top = 160 Top = 160
Width = 305 Width = 344
Shape = bsFrame Shape = bsFrame
end end
object Bevel2: TBevel object Bevel2: TBevel
Left = 6 Left = 6
Height = 17 Height = 17
Top = 265 Top = 265
Width = 451 Width = 490
Shape = bsTopLine Shape = bsTopLine
end end
object ProgramName: TLabel object ProgramName: TLabel
@ -58,14 +58,11 @@ object frmAbout: TfrmAbout
object lblTurboLink: TLabel object lblTurboLink: TLabel
Cursor = crHandPoint Cursor = crHandPoint
Left = 161 Left = 161
Height = 14 Height = 15
Top = 125 Top = 125
Width = 193 Width = 222
Caption = 'http://sourceforge.net/projects/tpvplanit/' Caption = 'http://sourceforge.net/projects/tpvplanit/'
Font.Color = clBlue Font.Color = clBlue
Font.Height = -11
Font.Name = 'Default'
Font.Style = [fsUnderline]
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
OnClick = lblTurboLinkClick OnClick = lblTurboLinkClick
@ -74,14 +71,11 @@ object frmAbout: TfrmAbout
object lblHelp: TLabel object lblHelp: TLabel
Cursor = crHandPoint Cursor = crHandPoint
Left = 168 Left = 168
Height = 14 Height = 15
Top = 198 Top = 198
Width = 278 Width = 315
Caption = 'http://sourceforge.net/forum/forum.php?forum_id=241880' Caption = 'http://sourceforge.net/forum/forum.php?forum_id=241880'
Font.Color = clBlue Font.Color = clBlue
Font.Height = -11
Font.Name = 'Default'
Font.Style = [fsUnderline]
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
OnClick = lblHelpClick OnClick = lblHelpClick
@ -106,14 +100,11 @@ object frmAbout: TfrmAbout
object lblGeneralDiscussion: TLabel object lblGeneralDiscussion: TLabel
Cursor = crHandPoint Cursor = crHandPoint
Left = 168 Left = 168
Height = 14 Height = 15
Top = 230 Top = 230
Width = 278 Width = 315
Caption = 'http://sourceforge.net/forum/forum.php?forum_id=241879' Caption = 'http://sourceforge.net/forum/forum.php?forum_id=241879'
Font.Color = clBlue Font.Color = clBlue
Font.Height = -11
Font.Name = 'Default'
Font.Style = [fsUnderline]
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
OnClick = lblGeneralDiscussionClick OnClick = lblGeneralDiscussionClick
@ -137,9 +128,9 @@ object frmAbout: TfrmAbout
end end
object Label1: TLabel object Label1: TLabel
Left = 152 Left = 152
Height = 49 Height = 58
Top = 40 Top = 40
Width = 265 Width = 336
AutoSize = False 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.' 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 ParentColor = False
@ -1289,7 +1280,7 @@ object frmAbout: TfrmAbout
end end
end end
object OKButton: TButton object OKButton: TButton
Left = 380 Left = 416
Height = 25 Height = 25
Top = 277 Top = 277
Width = 75 Width = 75

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

@ -47,8 +47,8 @@ uses
Forms, StdCtrls; Forms, StdCtrls;
const const
BuildTime = '09/13/2002 09:25 AM'; BuildTime = {$I %DATE%} + {$I %TIME}; //'09/13/2002 09:25 AM';
VpVersionStr = 'v1.03'; {Visual PlanIt library version} VpVersionStr = 'v1.04'; {Visual PlanIt library version}
VpProductName = 'Visual PlanIt'; VpProductName = 'Visual PlanIt';
BorderStyles : array[TBorderStyle] of LongInt = BorderStyles : array[TBorderStyle] of LongInt =

1
components/tvplanit/source/vpflxdsed1.pas
View File

@ -246,7 +246,6 @@ var
ErrorStr: string; ErrorStr: string;
begin begin
ErrorStr := ''; ErrorStr := '';
btnAddMapping.Caption := 'Add Field'#13#10'Mapping';
DSResActive := false; DSResActive := false;
DSEventActive := false; DSEventActive := false;

94
components/tvplanit/source/vpnabed.lfm
View File

@ -1,12 +1,12 @@
object frmNavBarEd: TfrmNavBarEd object frmNavBarEd: TfrmNavBarEd
Left = 374 Left = 374
Height = 326 Height = 344
Top = 236 Top = 236
Width = 426 Width = 426
HorzScrollBar.Page = 425 HorzScrollBar.Page = 425
VertScrollBar.Page = 322 VertScrollBar.Page = 322
Caption = 'Nav Bar Layout Tool' Caption = 'Nav Bar Layout Tool'
ClientHeight = 326 ClientHeight = 344
ClientWidth = 426 ClientWidth = 426
FormStyle = fsStayOnTop FormStyle = fsStayOnTop
OnClose = FormClose OnClose = FormClose
@ -16,18 +16,19 @@ object frmNavBarEd: TfrmNavBarEd
LCLVersion = '1.7' LCLVersion = '1.7'
object pnlItems: TPanel object pnlItems: TPanel
Left = 217 Left = 217
Height = 224 Height = 226
Top = 0 Top = 0
Width = 209 Width = 209
Align = alClient Align = alClient
ClientHeight = 224 BevelOuter = bvNone
ClientHeight = 226
ClientWidth = 209 ClientWidth = 209
TabOrder = 1 TabOrder = 1
object lbItems: TListBox object lbItems: TListBox
Left = 1 Left = 0
Height = 199 Height = 203
Top = 24 Top = 23
Width = 175 Width = 173
Align = alClient Align = alClient
ItemHeight = 13 ItemHeight = 13
OnClick = lbItemsClick OnClick = lbItemsClick
@ -36,13 +37,14 @@ object frmNavBarEd: TfrmNavBarEd
TabOrder = 1 TabOrder = 1
end end
object Panel1: TPanel object Panel1: TPanel
Left = 176 Left = 173
Height = 199 Height = 203
Top = 24 Top = 23
Width = 32 Width = 32
Align = alRight Align = alRight
BorderSpacing.Right = 4
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 199 ClientHeight = 203
ClientWidth = 32 ClientWidth = 32
TabOrder = 2 TabOrder = 2
object btnItemAdd: TSpeedButton object btnItemAdd: TSpeedButton
@ -135,17 +137,17 @@ object frmNavBarEd: TfrmNavBarEd
end end
end end
object Panel4: TPanel object Panel4: TPanel
Left = 1 Left = 0
Height = 23 Height = 23
Top = 1 Top = 0
Width = 207 Width = 209
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 23 ClientHeight = 23
ClientWidth = 207 ClientWidth = 209
TabOrder = 0 TabOrder = 0
object Label2: TLabel object Label2: TLabel
Left = 4 Left = 0
Height = 15 Height = 15
Top = 4 Top = 4
Width = 62 Width = 62
@ -157,32 +159,34 @@ object frmNavBarEd: TfrmNavBarEd
end end
object pnlFolders: TPanel object pnlFolders: TPanel
Left = 0 Left = 0
Height = 224 Height = 226
Top = 0 Top = 0
Width = 217 Width = 217
Align = alLeft Align = alLeft
ClientHeight = 224 BevelOuter = bvNone
ClientHeight = 226
ClientWidth = 217 ClientWidth = 217
TabOrder = 0 TabOrder = 0
object lbFolders: TListBox object lbFolders: TListBox
Left = 1 Left = 4
Height = 199 Height = 203
Top = 24 Top = 23
Width = 183 Width = 181
Align = alClient Align = alClient
BorderSpacing.Left = 4
ItemHeight = 0 ItemHeight = 0
OnClick = lbFoldersClick OnClick = lbFoldersClick
TabOrder = 1 TabOrder = 1
end end
object Panel6: TPanel object Panel6: TPanel
Left = 1 Left = 0
Height = 23 Height = 23
Top = 1 Top = 0
Width = 215 Width = 217
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 23 ClientHeight = 23
ClientWidth = 215 ClientWidth = 217
TabOrder = 0 TabOrder = 0
object Label1: TLabel object Label1: TLabel
Left = 4 Left = 4
@ -195,13 +199,13 @@ object frmNavBarEd: TfrmNavBarEd
end end
end end
object Panel5: TPanel object Panel5: TPanel
Left = 184 Left = 185
Height = 199 Height = 203
Top = 24 Top = 23
Width = 32 Width = 32
Align = alRight Align = alRight
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 199 ClientHeight = 203
ClientWidth = 32 ClientWidth = 32
TabOrder = 2 TabOrder = 2
object btnFolderAdd: TSpeedButton object btnFolderAdd: TSpeedButton
@ -296,25 +300,26 @@ object frmNavBarEd: TfrmNavBarEd
end end
object pnlImages: TPanel object pnlImages: TPanel
Left = 0 Left = 0
Height = 102 Height = 118
Top = 224 Top = 226
Width = 426 Width = 426
Align = alBottom Align = alBottom
ClientHeight = 102 BevelOuter = bvNone
ClientHeight = 118
ClientWidth = 426 ClientWidth = 426
TabOrder = 2 TabOrder = 2
object Panel8: TPanel object Panel8: TPanel
Left = 1 Left = 0
Height = 27 Height = 27
Top = 1 Top = 0
Width = 424 Width = 426
Align = alTop Align = alTop
BevelOuter = bvNone BevelOuter = bvNone
ClientHeight = 27 ClientHeight = 27
ClientWidth = 424 ClientWidth = 426
TabOrder = 0 TabOrder = 0
object Label3: TLabel object Label3: TLabel
Left = 8 Left = 4
Height = 15 Height = 15
Top = 8 Top = 8
Width = 89 Width = 89
@ -323,11 +328,14 @@ object frmNavBarEd: TfrmNavBarEd
end end
end end
object lbImages: TListBox object lbImages: TListBox
Left = 1 Left = 4
Height = 73 Height = 87
Top = 28 Top = 27
Width = 424 Width = 418
Align = alClient Align = alClient
BorderSpacing.Left = 4
BorderSpacing.Right = 4
BorderSpacing.Bottom = 4
Columns = 10 Columns = 10
ItemHeight = 16 ItemHeight = 16
OnClick = lbImagesClick OnClick = lbImagesClick