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

tvplanit: Separate code into designtime and runtime packages. Move lpk files to library root folder for better visibility. Test all demos.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@5372 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2016-11-21 17:12:05 +00:00
parent a9bff701eb
commit fcfce0aa75
75 changed files with 632 additions and 563 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
components/tvplanit/examples/datastores/bufdataset/project1.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
@ -10,9 +10,6 @@
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
</General>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
@ -58,6 +55,9 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>

5
components/tvplanit/examples/datastores/flex/access/project1.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
@ -62,6 +62,9 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>

8
components/tvplanit/examples/datastores/flex/sqlite3/project1.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
@ -10,9 +10,6 @@
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
</General>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
@ -65,6 +62,9 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>

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

@ -79,7 +79,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 +146,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 = dtMonday
end
object Splitter2: TSplitter
@ -265,7 +263,7 @@ object Form1: TForm1
top = 168
end
object VpResourceEditDialog1: TVpResourceEditDialog
Version = 'v1.04'
Version = 'v1.05'
DataStore = VpFlexDataStore1
Options = []
Placement.Position = mpCenter

8
components/tvplanit/examples/datastores/ini/project1.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
@ -10,9 +10,6 @@
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
</General>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
@ -58,6 +55,9 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>

5
components/tvplanit/examples/datastores/sqlite3/project1.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
@ -61,6 +61,9 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>

5
components/tvplanit/examples/datastores/xml/project1.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
@ -10,9 +10,6 @@
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
</General>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>

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

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>

2
components/tvplanit/examples/fulldemo/demo.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>

9
components/tvplanit/examples/gadgets/project1.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
@ -9,11 +9,7 @@
<Title Value="project1"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
@ -59,6 +55,9 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>

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

@ -1,7 +1,7 @@
object Form1: TForm1
Left = 262
Left = 320
Height = 283
Top = 155
Top = 160
Width = 461
Caption = 'Form1'
ClientHeight = 283

9
components/tvplanit/examples/navbar/project1.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
@ -9,11 +9,7 @@
<Title Value="project1"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
@ -59,6 +55,9 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>

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

@ -22,34 +22,34 @@ object Form1: TForm1
DrawingStyle = dsEtchedButton
FolderCollection = <
item
Version = 'v1.04'
Version = 'v1.05'
Caption = 'Folder 1'
Enabled = True
FolderType = ftDefault
ItemCollection = <
item
Version = 'v1.04'
Version = 'v1.05'
Caption = 'Item 1 (Folder 1)'
IconIndex = 0
Name = 'Item0-0'
Tag = 0
end
item
Version = 'v1.04'
Version = 'v1.05'
Caption = 'Item 2 (Folder 1)'
IconIndex = 1
Name = 'Item0-1'
Tag = 0
end
item
Version = 'v1.04'
Version = 'v1.05'
Caption = 'Item 3 (Folder 1)'
IconIndex = 2
Name = 'Item0-2'
Tag = 0
end
item
Version = 'v1.04'
Version = 'v1.05'
Caption = 'Item 4 (Folder 1)'
IconIndex = 3
Name = 'Item0-3'
@ -60,20 +60,20 @@ object Form1: TForm1
Tag = 0
end
item
Version = 'v1.04'
Version = 'v1.05'
Caption = 'Folder 2'
Enabled = True
FolderType = ftDefault
ItemCollection = <
item
Version = 'v1.04'
Version = 'v1.05'
Caption = 'Item 1 (Folder 2)'
IconIndex = 4
Name = 'Item1-0'
Tag = 0
end
item
Version = 'v1.04'
Version = 'v1.05'
Caption = 'Item 2 (Folder 2)'
IconIndex = 5
Name = 'Item1-1'
@ -84,27 +84,27 @@ object Form1: TForm1
Tag = 0
end
item
Version = 'v1.04'
Version = 'v1.05'
Caption = 'Folder 3'
Enabled = True
FolderType = ftDefault
ItemCollection = <
item
Version = 'v1.04'
Version = 'v1.05'
Caption = 'Item 1 (Folder 3)'
IconIndex = 6
Name = 'Item2-0'
Tag = 0
end
item
Version = 'v1.04'
Version = 'v1.05'
Caption = 'Item 2 (Folder 3)'
IconIndex = 7
Name = 'Item2-1'
Tag = 0
end
item
Version = 'v1.04'
Version = 'v1.05'
Caption = 'Item 3 (Folder 3)'
IconIndex = 8
Name = 'Item2-2'
@ -115,7 +115,7 @@ object Form1: TForm1
Tag = 0
end
item
Version = 'v1.04'
Version = 'v1.05'
Caption = 'Container'
Enabled = True
FolderType = ftContainer

8
components/tvplanit/examples/runtime/project1.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
@ -10,9 +10,6 @@
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
</General>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
<SharedMatrixOptions Count="1">
@ -61,6 +58,9 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>

9
components/tvplanit/examples/tutorial/project1.lpi
View File

@ -1,7 +1,7 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<ProjectOptions>
<Version Value="9"/>
<Version Value="10"/>
<PathDelim Value="\"/>
<General>
<SessionStorage Value="InProjectDir"/>
@ -9,11 +9,7 @@
<Title Value="project1"/>
<ResourceType Value="res"/>
<UseXPManifest Value="True"/>
<Icon Value="0"/>
</General>
<VersionInfo>
<StringTable ProductVersion=""/>
</VersionInfo>
<BuildModes Count="1">
<Item1 Name="Default" Default="True"/>
</BuildModes>
@ -59,6 +55,9 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Linking>
<Debugging>
<UseExternalDbgSyms Value="True"/>
</Debugging>
<Options>
<Win32>
<GraphicApplication Value="True"/>

343
components/tvplanit/source/laz_visualplanit.lpk → components/tvplanit/laz_visualplanit.lpk
View File

@ -1,29 +1,20 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<Package Version="4">
<PathDelim Value="\"/>
<Name Value="laz_visualplanit"/>
<Type Value="RunAndDesignTime"/>
<AddToProjectUsesSection Value="True"/>
<Author Value="Original author: TurboPower Software"/>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<SearchPaths>
<UnitOutputDirectory Value="lib/$(TargetCPU)-$(TargetOS)/$(LCLWidgetType)"/>
<IncludeFiles Value="source\include"/>
<OtherUnitFiles Value="source"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
<Parsing>
<SyntaxOptions>
<SyntaxMode Value="Delphi"/>
<UseAnsiStrings Value="False"/>
</SyntaxOptions>
</Parsing>
<Other>
<CustomOptions Value="-dWITHRTTI"/>
<OtherDefines Count="1">
<Define0 Value="WITHRTTI"/>
</OtherDefines>
</Other>
</CompilerOptions>
<Description Value="Lazarus Port of Turbo Power's VisualPlanIt components based on version 1.0.3."/>
<Description Value="Lazarus Port of Turbo Power's VisualPlanIt components based on version 1.0.3.
(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.
@ -36,344 +27,310 @@ Portions created by TurboPower Software Inc. are Copyright (C) 2002 TurboPower S
Contributor(s): "/>
<Version Major="1" Release="5"/>
<Files Count="78">
<Files Count="71">
<Item1>
<Filename Value="vpalarmdlg.lfm"/>
<Type Value="LFM"/>
<Filename Value="source\vpbase.pas"/>
<UnitName Value="VpBase"/>
</Item1>
<Item2>
<Filename Value="vpalarmdlg.pas"/>
<UnitName Value="VpAlarmDlg"/>
<Filename Value="source\vpbase.res"/>
<Type Value="Binary"/>
</Item2>
<Item3>
<Filename Value="vpbase.pas"/>
<UnitName Value="VpBase"/>
<Filename Value="source\vpbaseds.pas"/>
<UnitName Value="VpBaseDS"/>
</Item3>
<Item4>
<Filename Value="vpbaseds.pas"/>
<UnitName Value="VpBaseDS"/>
<Filename Value="source\vpbasepainter.pas"/>
<UnitName Value="VpBasePainter"/>
</Item4>
<Item5>
<Filename Value="vpcalendar.pas"/>
<UnitName Value="VpCalendar"/>
<Filename Value="source\vpbufds.pas"/>
<UnitName Value="VpBufDS"/>
</Item5>
<Item6>
<Filename Value="vpcanvasutils.pas"/>
<UnitName Value="VpCanvasUtils"/>
<Filename Value="source\vpconst.pas"/>
<UnitName Value="VpConst"/>
</Item6>
<Item7>
<Filename Value="vpconst.pas"/>
<UnitName Value="VpConst"/>
<Filename Value="source\vpdata.pas"/>
<UnitName Value="VpData"/>
</Item7>
<Item8>
<Filename Value="vpcontactbuttons.pas"/>
<UnitName Value="VpContactButtons"/>
<Filename Value="source\vpdbds.pas"/>
<UnitName Value="VpDBDS"/>
</Item8>
<Item9>
<Filename Value="vpcontacteditdlg.lfm"/>
<Type Value="LFM"/>
<Filename Value="source\vpexception.pas"/>
<UnitName Value="VpException"/>
</Item9>
<Item10>
<Filename Value="vpcontacteditdlg.pas"/>
<UnitName Value="VpContactEditDlg"/>
<Filename Value="source\vpinids.pas"/>
<UnitName Value="VpIniDs"/>
</Item10>
<Item11>
<Filename Value="vpcontactgrid.pas"/>
<UnitName Value="VpContactGrid"/>
<Filename Value="source\vpmisc.pas"/>
<UnitName Value="VpMisc"/>
</Item11>
<Item12>
<Filename Value="vpdata.pas"/>
<UnitName Value="VpData"/>
<Filename Value="source\vpsqlite3ds.pas"/>
<UnitName Value="VpSQLite3DS"/>
</Item12>
<Item13>
<Filename Value="vpdatepropedit.lfm"/>
<Type Value="LFM"/>
<Filename Value="source\vpsr.pas"/>
<UnitName Value="VpSR"/>
</Item13>
<Item14>
<Filename Value="vpdatepropedit.pas"/>
<UnitName Value="VpDatePropEdit"/>
<Filename Value="source\vpcanvasutils.pas"/>
<UnitName Value="VpCanvasUtils"/>
</Item14>
<Item15>
<Filename Value="vpdayview.pas"/>
<UnitName Value="VpDayView"/>
<Filename Value="source\vpabout.lfm"/>
<Type Value="LFM"/>
</Item15>
<Item16>
<Filename Value="vpdbds.pas"/>
<UnitName Value="VpDBDS"/>
<Filename Value="source\vpabout.pas"/>
<UnitName Value="VpAbout"/>
</Item16>
<Item17>
<Filename Value="vpdlg.pas"/>
<UnitName Value="VpDlg"/>
<Filename Value="source\vpalarmdlg.lfm"/>
<Type Value="LFM"/>
</Item17>
<Item18>
<Filename Value="vpedelem.lfm"/>
<Type Value="LFM"/>
<Filename Value="source\vpalarmdlg.pas"/>
<UnitName Value="VpAlarmDlg"/>
</Item18>
<Item19>
<Filename Value="vpedelem.pas"/>
<UnitName Value="VpEdElem"/>
<Filename Value="source\vpcalendar.pas"/>
<UnitName Value="VpCalendar"/>
</Item19>
<Item20>
<Filename Value="vpedfmt.lfm"/>
<Type Value="LFM"/>
<Filename Value="source\vpcalendarpainter.pas"/>
<UnitName Value="VpCalendarPainter"/>
</Item20>
<Item21>
<Filename Value="vpedfmt.pas"/>
<UnitName Value="VpEdFmt"/>
<Filename Value="source\vpcontactbuttons.pas"/>
<UnitName Value="VpContactButtons"/>
</Item21>
<Item22>
<Filename Value="vpedshape.lfm"/>
<Filename Value="source\vpcontacteditdlg.lfm"/>
<Type Value="LFM"/>
</Item22>
<Item23>
<Filename Value="vpedshape.pas"/>
<UnitName Value="VpEdShape"/>
<Filename Value="source\vpcontacteditdlg.pas"/>
<UnitName Value="VpContactEditDlg"/>
</Item23>
<Item24>
<Filename Value="vpevnteditdlg.lfm"/>
<Type Value="LFM"/>
<Filename Value="source\vpcontactgrid.pas"/>
<UnitName Value="VpContactGrid"/>
</Item24>
<Item25>
<Filename Value="vpevnteditdlg.pas"/>
<UnitName Value="VpEvntEditDlg"/>
<Filename Value="source\vpcontactgridpainter.pas"/>
<UnitName Value="VpContactGridPainter"/>
</Item25>
<Item26>
<Filename Value="vpexception.pas"/>
<UnitName Value="VpException"/>
<Filename Value="source\vpdayview.pas"/>
<UnitName Value="VpDayView"/>
</Item26>
<Item27>
<Filename Value="vpledlabel.pas"/>
<UnitName Value="VpLEDLabel"/>
<Filename Value="source\vpdayviewpainter.pas"/>
<UnitName Value="VpDayViewPainter"/>
</Item27>
<Item28>
<Filename Value="vplocalize.pas"/>
<UnitName Value="VpLocalize"/>
<Filename Value="source\vpdlg.pas"/>
<UnitName Value="VpDlg"/>
</Item28>
<Item29>
<Filename Value="vpmisc.pas"/>
<UnitName Value="VpMisc"/>
<Filename Value="source\vpedelem.lfm"/>
<Type Value="LFM"/>
</Item29>
<Item30>
<Filename Value="vpmonthview.pas"/>
<UnitName Value="VpMonthView"/>
<Filename Value="source\vpedelem.pas"/>
<UnitName Value="VpEdElem"/>
</Item30>
<Item31>
<Filename Value="vpnavbar.pas"/>
<UnitName Value="VpNavBar"/>
<Filename Value="source\vpedfmt.lfm"/>
<Type Value="LFM"/>
</Item31>
<Item32>
<Filename Value="vpprtfmt.pas"/>
<UnitName Value="VpPrtFmt"/>
<Filename Value="source\vpedfmt.pas"/>
<UnitName Value="VpEdFmt"/>
</Item32>
<Item33>
<Filename Value="vpprtfmtcbox.pas"/>
<UnitName Value="VpPrtFmtCBox"/>
<Filename Value="source\vpedfmtlst.lfm"/>
<Type Value="LFM"/>
</Item33>
<Item34>
<Filename Value="vpprtfmtdlg.pas"/>
<UnitName Value="VpPrtFmtDlg"/>
<Filename Value="source\vpedfmtlst.pas"/>
<UnitName Value="VpEdFmtLst"/>
</Item34>
<Item35>
<Filename Value="vpprtfmted.pas"/>
<UnitName Value="VpPrtFmtEd"/>
<Filename Value="source\vpedshape.lfm"/>
<Type Value="LFM"/>
</Item35>
<Item36>
<Filename Value="vpprtprv.pas"/>
<UnitName Value="VpPrtPrv"/>
<Filename Value="source\vpedshape.pas"/>
<UnitName Value="VpEdShape"/>
</Item36>
<Item37>
<Filename Value="vpprtprvdlg.lfm"/>
<Filename Value="source\vpevnteditdlg.lfm"/>
<Type Value="LFM"/>
</Item37>
<Item38>
<Filename Value="vpprtprvdlg.pas"/>
<UnitName Value="VpPrtPrvDlg"/>
<Filename Value="source\vpevnteditdlg.pas"/>
<UnitName Value="VpEvntEditDlg"/>
</Item38>
<Item39>
<Filename Value="vpreseditdlg.lfm"/>
<Type Value="LFM"/>
<Filename Value="source\vpfbds.pas"/>
<UnitName Value="VpFBDS"/>
</Item39>
<Item40>
<Filename Value="vpreseditdlg.pas"/>
<UnitName Value="VpResEditDlg"/>
<Filename Value="source\vpflxds.pas"/>
<UnitName Value="VpFlxDS"/>
</Item40>
<Item41>
<Filename Value="vpselresdlg.lfm"/>
<Type Value="LFM"/>
<Filename Value="source\vpflxdsed1.pas"/>
<UnitName Value="VpFlxDsEd1"/>
</Item41>
<Item42>
<Filename Value="vpselresdlg.pas"/>
<UnitName Value="VpSelResDlg"/>
<Filename Value="source\vpflxdsed1.lfm"/>
<Type Value="LFM"/>
</Item42>
<Item43>
<Filename Value="vpsr.pas"/>
<UnitName Value="VpSR"/>
<Filename Value="source\vpledlabel.pas"/>
<UnitName Value="VpLEDLabel"/>
</Item43>
<Item44>
<Filename Value="vptaskeditdlg.lfm"/>
<Type Value="LFM"/>
<Filename Value="source\vplocalize.pas"/>
<UnitName Value="VpLocalize"/>
</Item44>
<Item45>
<Filename Value="vptaskeditdlg.pas"/>
<UnitName Value="VpTaskEditDlg"/>
<Filename Value="source\vpmonthview.pas"/>
<UnitName Value="VpMonthView"/>
</Item45>
<Item46>
<Filename Value="vptasklist.pas"/>
<UnitName Value="VpTaskList"/>
<Filename Value="source\vpmonthviewpainter.pas"/>
<UnitName Value="VpMonthViewPainter"/>
</Item46>
<Item47>
<Filename Value="vptimerpool.pas"/>
<UnitName Value="VpTimerPool"/>
<Filename Value="source\vpnavbar.pas"/>
<UnitName Value="VpNavBar"/>
</Item47>
<Item48>
<Filename Value="vpwavdlg.lfm"/>
<Type Value="LFM"/>
<Filename Value="source\vpnavbarpainter.pas"/>
<UnitName Value="VpNavBarPainter"/>
</Item48>
<Item49>
<Filename Value="vpwavdlg.pas"/>
<UnitName Value="VpWavDlg"/>
<Filename Value="source\vpprtfmt.pas"/>
<UnitName Value="VpPrtFmt"/>
</Item49>
<Item50>
<Filename Value="vpwavpe.pas"/>
<UnitName Value="VpWavPE"/>
<Filename Value="source\vpprtfmtcbox.pas"/>
<UnitName Value="VpPrtFmtCBox"/>
</Item50>
<Item51>
<Filename Value="vpweekview.pas"/>
<UnitName Value="VpWeekView"/>
<Filename Value="source\vpprtfmtdlg.pas"/>
<UnitName Value="VpPrtFmtDlg"/>
</Item51>
<Item52>
<Filename Value="vpxbase.pas"/>
<UnitName Value="VpXBase"/>
<Filename Value="source\vpprtprv.pas"/>
<UnitName Value="VpPrtPrv"/>
</Item52>
<Item53>
<Filename Value="vpxchrflt.pas"/>
<UnitName Value="VpXChrFlt"/>
<Filename Value="source\vpprtprvdlg.lfm"/>
<Type Value="LFM"/>
</Item53>
<Item54>
<Filename Value="vpxparsr.pas"/>
<UnitName Value="VpXParsr"/>
<Filename Value="source\vpprtprvdlg.pas"/>
<UnitName Value="VpPrtPrvDlg"/>
</Item54>
<Item55>
<Filename Value="vpbase.res"/>
<Type Value="Binary"/>
<Filename Value="source\vpreseditdlg.lfm"/>
<Type Value="LFM"/>
</Item55>
<Item56>
<Filename Value="vpflxds.pas"/>
<UnitName Value="VpFlxDS"/>
<Filename Value="source\vpreseditdlg.pas"/>
<UnitName Value="VpResEditDlg"/>
</Item56>
<Item57>
<Filename Value="vpabout.lfm"/>
<Filename Value="source\vpselresdlg.lfm"/>
<Type Value="LFM"/>
</Item57>
<Item58>
<Filename Value="vpabout.pas"/>
<UnitName Value="VpAbout"/>
<Filename Value="source\vpselresdlg.pas"/>
<UnitName Value="VpSelResDlg"/>
</Item58>
<Item59>
<Filename Value="vpflxdsed1.lfm"/>
<Type Value="LFM"/>
<Filename Value="source\vptaskeditdlg.pas"/>
<UnitName Value="VpTaskEditDlg"/>
</Item59>
<Item60>
<Filename Value="vpflxdsed1.pas"/>
<UnitName Value="VpFlxDsEd1"/>
<Filename Value="source\vptasklist.pas"/>
<UnitName Value="VpTaskList"/>
</Item60>
<Item61>
<Filename Value="vpnabed.lfm"/>
<Type Value="LFM"/>
<Filename Value="source\vptasklistpainter.pas"/>
<UnitName Value="VpTasklistPainter"/>
</Item61>
<Item62>
<Filename Value="vpnabed.pas"/>
<UnitName Value="VpNabEd"/>
<Filename Value="source\vptimerpool.pas"/>
<UnitName Value="VpTimerPool"/>
</Item62>
<Item63>
<Filename Value="vpreg.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="VpReg"/>
<Filename Value="source\vpwavdlg.lfm"/>
<Type Value="LFM"/>
</Item63>
<Item64>
<Filename Value="vpbufds.pas"/>
<UnitName Value="VpBufDS"/>
<Filename Value="source\vpwavdlg.pas"/>
<UnitName Value="VpWavDlg"/>
</Item64>
<Item65>
<Filename Value="vpdayviewpainter.pas"/>
<UnitName Value="VpDayViewPainter"/>
<Filename Value="source\vpweekview.pas"/>
<UnitName Value="VpWeekView"/>
</Item65>
<Item66>
<Filename Value="vpweekviewpainter.pas"/>
<Filename Value="source\vpweekviewpainter.pas"/>
<UnitName Value="VpWeekViewPainter"/>
</Item66>
<Item67>
<Filename Value="vpmonthviewpainter.pas"/>
<UnitName Value="VpMonthViewPainter"/>
<Filename Value="source\vpxbase.pas"/>
<UnitName Value="VpXBase"/>
</Item67>
<Item68>
<Filename Value="vpbasepainter.pas"/>
<UnitName Value="VpBasePainter"/>
<Filename Value="source\vpxchrflt.pas"/>
<UnitName Value="VpXChrFlt"/>
</Item68>
<Item69>
<Filename Value="vpcontactgridpainter.pas"/>
<UnitName Value="VpContactGridPainter"/>
<Filename Value="source\vpxmlds.pas"/>
<UnitName Value="VpXmlDs"/>
</Item69>
<Item70>
<Filename Value="vptasklistpainter.pas"/>
<UnitName Value="VpTasklistPainter"/>
<Filename Value="source\vpxparsr.pas"/>
<UnitName Value="VpXParsr"/>
</Item70>
<Item71>
<Filename Value="vpcalendarpainter.pas"/>
<UnitName Value="VpCalendarPainter"/>
<Filename Value="source\vpclock.pas"/>
<UnitName Value="VpClock"/>
</Item71>
<Item72>
<Filename Value="vpinids.pas"/>
<UnitName Value="VpIniDs"/>
</Item72>
<Item73>
<Filename Value="vpsqlite3ds.pas"/>
<UnitName Value="VpSQLite3DS"/>
</Item73>
<Item74>
<Filename Value="vpxmlds.pas"/>
<UnitName Value="VpXmlDs"/>
</Item74>
<Item75>
<Filename Value="vpnavbarpainter.pas"/>
<UnitName Value="VpNavBarPainter"/>
</Item75>
<Item76>
<Filename Value="vpfbds.pas"/>
<UnitName Value="VpFBDS"/>
</Item76>
<Item77>
<Filename Value="vpedfmtlst.lfm"/>
<Type Value="LFM"/>
</Item77>
<Item78>
<Filename Value="vpedfmtlst.pas"/>
<UnitName Value="VpEdFmtLst"/>
</Item78>
</Files>
<i18n>
<EnableI18N Value="True"/>
<OutDir Value="../languages"/>
<OutDir Value="languages"/>
<EnableI18NForLFM Value="True"/>
</i18n>
<RequiredPkgs Count="3">
<RequiredPkgs Count="2">
<Item1>
<PackageName Value="FCL"/>
<MinVersion Major="1" Valid="True"/>
<PackageName Value="LCL"/>
</Item1>
<Item2>
<PackageName Value="LCL"/>
<PackageName Value="FCL"/>
</Item2>
<Item3>
<PackageName Value="IDEIntf"/>
</Item3>
</RequiredPkgs>
<UsageOptions>
<UnitPath Value="$(PkgOutDir)"/>
</UsageOptions>
<PublishOptions>
<Version Value="2"/>
<IgnoreBinaries Value="False"/>
</PublishOptions>
</Package>
</CONFIG>

84
components/tvplanit/laz_visualplanit_design.lpk Normal file
View File

@ -0,0 +1,84 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<Package Version="4">
<PathDelim Value="\"/>
<Name Value="laz_visualplanit_design"/>
<Type Value="RunAndDesignTime"/>
<Author Value="Original author: TurboPower Software"/>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<SearchPaths>
<IncludeFiles Value="source\include;source\design"/>
<OtherUnitFiles Value="source\design"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
</CompilerOptions>
<Description Value="Lazarus Port of Turbo Power's VisualPlanIt components based on version 1.0.3.
(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="5"/>
<Files Count="6">
<Item1>
<Filename Value="source\design\vpreg.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="VpReg"/>
</Item1>
<Item2>
<Filename Value="source\design\vpprtfmted.pas"/>
<UnitName Value="VpPrtFmtEd"/>
</Item2>
<Item3>
<Filename Value="source\design\vpdatepropedit.pas"/>
<UnitName Value="VpDatePropEdit"/>
</Item3>
<Item4>
<Filename Value="source\design\vpnabed.lfm"/>
<Type Value="LFM"/>
</Item4>
<Item5>
<Filename Value="source\design\vpnabed.pas"/>
<UnitName Value="VpNabEd"/>
</Item5>
<Item6>
<Filename Value="source\design\vpdatepropedit.lfm"/>
<Type Value="LFM"/>
</Item6>
</Files>
<i18n>
<EnableI18N Value="True"/>
<OutDir Value="languages"/>
<EnableI18NForLFM Value="True"/>
</i18n>
<RequiredPkgs Count="4">
<Item1>
<PackageName Value="laz_visualplanit"/>
</Item1>
<Item2>
<PackageName Value="IDEIntf"/>
</Item2>
<Item3>
<PackageName Value="LCL"/>
</Item3>
<Item4>
<PackageName Value="FCL"/>
</Item4>
</RequiredPkgs>
<UsageOptions>
<UnitPath Value="$(PkgOutDir)"/>
</UsageOptions>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
</Package>
</CONFIG>

49
components/tvplanit/laz_visualplanit_zeos.lpk Normal file
View File

@ -0,0 +1,49 @@
<?xml version="1.0" encoding="UTF-8"?>
<CONFIG>
<Package Version="4">
<PathDelim Value="\"/>
<Name Value="laz_visualplanit_zeos"/>
<Author Value="W. Pamler"/>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<SearchPaths>
<IncludeFiles Value="source\include;source\addons\zeos"/>
<OtherUnitFiles Value="source\addons\zeos"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
</CompilerOptions>
<Description Value="Visual PlanIt datastore for ZEOS database 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.
"/>
<Version Major="1" Release="5"/>
<Files Count="1">
<Item1>
<Filename Value="source\addons\zeos\vpzeosds.pas"/>
<Type Value="Include"/>
</Item1>
</Files>
<RequiredPkgs Count="4">
<Item1>
<PackageName Value="zcomponent"/>
</Item1>
<Item2>
<PackageName Value="laz_visualplanit"/>
</Item2>
<Item3>
<PackageName Value="LCL"/>
</Item3>
<Item4>
<PackageName Value="FCL"/>
</Item4>
</RequiredPkgs>
<UsageOptions>
<UnitPath Value="$(PkgOutDir)"/>
</UsageOptions>
<PublishOptions>
<Version Value="2"/>
</PublishOptions>
</Package>
</CONFIG>

26
components/tvplanit/source/addons/zeos/laz_visualplanit_zeos.lpk → components/tvplanit/laz_visualplanit_zeos_design.lpk
View File

@ -2,41 +2,33 @@
<CONFIG>
<Package Version="4">
<PathDelim Value="\"/>
<Name Value="laz_visualplanit_zeos"/>
<Name Value="laz_visualplanit_zeos_design"/>
<Type Value="RunAndDesignTime"/>
<AddToProjectUsesSection Value="True"/>
<Author Value="W. Pamler"/>
<CompilerOptions>
<Version Value="11"/>
<PathDelim Value="\"/>
<SearchPaths>
<IncludeFiles Value="..\.."/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\$(LCLWidgetType)"/>
<IncludeFiles Value="source\include;source\addons\zeos"/>
<OtherUnitFiles Value="source\addons\zeos"/>
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)"/>
</SearchPaths>
</CompilerOptions>
<Description Value="Visual PlanIt datastore for ZEOS database components"/>
<Version Major="1" Release="5"/>
<Files Count="2">
<Files Count="1">
<Item1>
<Filename Value="vpregzeos.pas"/>
<Filename Value="source\addons\zeos\vpregzeos.pas"/>
<HasRegisterProc Value="True"/>
<UnitName Value="VpRegZEOS"/>
</Item1>
<Item2>
<Filename Value="vpzeosds.pas"/>
<Type Value="Include"/>
</Item2>
</Files>
<RequiredPkgs Count="3">
<RequiredPkgs Count="2">
<Item1>
<PackageName Value="zcomponent"/>
<PackageName Value="laz_visualplanit_zeos"/>
</Item1>
<Item2>
<PackageName Value="laz_visualplanit"/>
</Item2>
<Item3>
<PackageName Value="FCL"/>
</Item3>
</Item2>
</RequiredPkgs>
<UsageOptions>
<UnitPath Value="$(PkgOutDir)"/>

3
components/tvplanit/readme.txt
View File

@ -109,7 +109,7 @@ steps:
- Add new sample projects
4.3 Release 1.05
4.3 Release 1.06
- Add mORMot datastore
- Add drag and drop of events to DayView and WeekView
@ -122,4 +122,5 @@ steps:
and add them to the contact editor; redesigned contact editor.
- Activate task fields Priority and Category in task editor.
- Holiday support
- Separate design-time and run-time packages

0
components/tvplanit/source/vpdatepropedit.lfm → components/tvplanit/source/design/vpdatepropedit.lfm
View File

0
components/tvplanit/source/vpdatepropedit.pas → components/tvplanit/source/design/vpdatepropedit.pas
View File

0
components/tvplanit/source/vpnabed.lfm → components/tvplanit/source/design/vpnabed.lfm
View File

7
components/tvplanit/source/vpnabed.pas → components/tvplanit/source/design/vpnabed.pas
View File

@ -40,6 +40,7 @@ uses
Windows, Messages,
{$ENDIF}
SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
{$IFDEF VERSION6}
{$IFNDEF LCL}
DesignIntf, DesignEditors,
@ -52,6 +53,7 @@ uses
{$ELSE}
DsgnIntf,
{$ENDIF}
StdCtrls, ExtCtrls, Buttons,
VpBase, VpNavBar;
@ -186,6 +188,7 @@ begin
Result := 1;
end;
{*** TfrmNavBarEd ***}
procedure TfrmNavBarEd.FormCreate(Sender: TObject);
@ -292,7 +295,7 @@ var
{$ELSE}
SelList : TComponentList;
{$ENDIF}
i : Integer;
{%H-}i : Integer;
begin
{$IFNDEF LCL}
PopulateItemList;
@ -392,7 +395,7 @@ var
{$ELSE}
SelList : TComponentList;
{$ENDIF}
i : Integer;
{%H-}i : Integer;
begin
{$IFNDEF LCL}
if (lbItems.ItemIndex <> -1) then begin

0
components/tvplanit/source/vpprtfmted.pas → components/tvplanit/source/design/vpprtfmted.pas
View File

217
components/tvplanit/source/vpreg.pas → components/tvplanit/source/design/vpreg.pas
View File

@ -27,6 +27,7 @@
{* ***** END LICENSE BLOCK ***** *}
{$I Vp.INC} { Compiler Version Defines }
{$R vpreg.res} { Palette Glyphs }
unit VpReg;
@ -40,7 +41,7 @@ uses
{$ELSE}
Windows,
{$ENDIF}
Dialogs,
{$IFDEF VERSION6}
{$IFNDEF LCL}
DesignIntf, DesignEditors, VCLEditors,
@ -50,7 +51,7 @@ uses
{$ELSE}
DsgnIntf,
{$ENDIF}
Classes, Controls, TypInfo, Forms, SysUtils,
Dialogs, Classes, Controls, TypInfo, Forms, SysUtils,
VpDatePropEdit;
type
@ -134,8 +135,23 @@ type
procedure SetValue(const Value: string); override;
end;
TVpAboutProperty = class(TStringProperty)
public
function GetAttributes: TPropertyAttributes;
override;
procedure Edit;
override;
end;
TVpFlexDSEditor = class(TComponentEditor)
procedure ExecuteVerb(Index: Integer); override;
function GetVerb(Index: Integer): string; override;
function GetVerbCount: Integer; override;
end;
procedure Register;
implementation
uses
@ -186,7 +202,7 @@ uses
{ Designtime Interfaces (Property and Component Editors) }
VpAbout, { About form for the About property editor }
{$IFDEF DELPHI}
VpNabEd, { component editor for the VpNavBar }
VpNabEd, { component editor for the VpNavBar } // crashes in Lazarus
{$ENDIF}
VpFlxDSEd1; { Field mapper component editor for the FlexDS }
@ -198,13 +214,11 @@ function TDBStringProperty.GetAttributes: TPropertyAttributes;
begin
Result := [paValueList, paSortList, paMultiSelect];
end;
{=====}
procedure TDBStringProperty.GetValueList(List: TStrings);
begin
Unused(List);
end;
{=====}
procedure TDBStringProperty.GetValues(Proc: TGetStrProc);
var
@ -219,7 +233,6 @@ begin
Values.Free;
end;
end;
{=====}
{$IFDEF DELPHI}
(*****************************************************************************)
@ -257,7 +270,6 @@ begin
FCheckProc := Proc;
inherited GetValues(CheckComponent);
end;
{=====}
{$ENDIF}
(*****************************************************************************)
@ -275,25 +287,21 @@ begin
frmDatePropertyEditor.Free;
end;
end;
{=====}
function TVpDateProperty.GetAttributes : TPropertyAttributes;
begin
Result := [paDialog, paMultiSelect];
end;
{=====}
function TVpDateProperty.GetValue : string;
begin
Result := FormatDateTime('ddddd', GetFloatValue);
end;
{=====}
procedure TVpDateProperty.SetValue (const Value : string);
begin
SetFloatValue(StrToDate (Value));
end;
{=====}
(*****************************************************************************)
{ TVpGeneralFileNameProperty }
@ -365,40 +373,6 @@ begin
Result := 'Localization files (*.xml)|*.xml|' + inherited;
end;
{
procedure TVpGenericFileNameProperty.Edit;
const
VpRegLocalizeFilter = 'Localization Files (*.XML)|*.XML';
VpRegDefFilter = 'All Files (*.*)|*.*';
var
Dlg : TOpenDialog;
Filter : string;
begin
Filter := '';
if Self is TVpLocalizeFileNameProperty then
Filter := VpRegLocalizeFilter;
if Filter = '' then
Filter := VpRegDefFilter
else
Filter := Filter + '|' + VpRegDefFilter;
Dlg := TOpenDialog.Create (Application);
try
Dlg.DefaultExt := '*.*';
Dlg.Filter := Filter;
Dlg.FilterIndex := 0;
Dlg.Options := [ofHideReadOnly];
// Dlg.FileName := Value;
// if Dlg.Execute then
// Value := Dlg.FileName;
finally
Dlg.Free;
end;
end;
}
{ TVpWavFilenameProperty }
@ -428,51 +402,6 @@ begin
end;
{ TVpWavFileProperty }
{
function TVpWavFileProperty.GetAttributes: TPropertyAttributes;
begin
Result := [paDialog];
end;
function TVpWavFileProperty.GetValue: string;
begin
Result := GetStrValue;
end;
procedure TVpWavFileProperty.SetValue(const Value: string);
begin
SetStrValue(Value);
end;
procedure TVpWavFileProperty.Edit;
var
dlg: TOpenDialog;
ds: TVpCustomDatastore;
begin
ds := GetComponent(0) as TVpCustomDatastore;
if Assigned(ds) then
begin
dlg := TOpenDialog.Create(nil);
try
dlg.Filter := 'Wav files (*.wav)|*.wav|All files (*.*)|*.*';
dlg.FilterIndex := 1;
dlg.DefaultExt := '*.wav';
if ds.DefaultEventSound = '' then
dlg.InitialDir := ds.MediaFolder
else
dlg.InitialDir := ExtractFilePath(ds.DefaultEventSound);
if dlg.Execute then
ds.DefaultEventSound := dlg.FileName;
finally
dlg.Free;
end;
end
else
inherited;
end;
}
{ TVpMediaFolderProperty }
function TVpMediaFolderProperty.GetAttributes: TPropertyAttributes;
@ -518,7 +447,110 @@ begin
end;
{*** component registration ***}
{ TVpAboutProperty }
function TVpAboutProperty.GetAttributes: TPropertyAttributes;
begin
Result := [paDialog, paReadOnly];
end;
procedure TVpAboutProperty.Edit;
begin
with TfrmAbout.Create(Application) do begin
try
ShowModal;
finally
Free;
end;
end;
end;
{ TVpFlexDSEditor }
{$IFDEF LCL}
procedure MapDatabaseFields(Designer: TComponentEditorDesigner;
FlexDS: TVpFlexDataStore);
{$ELSE}
{$IFDEF VERSION6}
procedure MapDatabaseFields(Designer: TComponentEditorDesigner;; // was: Designer : IDesigner;
FlexDS: TVpFlexDataStore);
{$ELSE}
procedure MapDatabaseFields(Designer: IFormDesigner;
FlexDS: TVpFlexDataStore);
{$ENDIF}{$ENDIF}
var
frmFieldMapper: TfrmFieldMapper;
savedResourceMappings: TCollection;
savedContactMappings: TCollection;
savedEventMappings: TCollection;
savedTaskMappings: TCollection;
begin
if FlexDS = nil then
Exit;
savedResourceMappings := TCollection.Create(TVpFieldMapping);
savedContactMappings := TCollection.Create(TVpFieldMapping);
savedEventMappings := TCollection.Create(TVpFieldMapping);
savedTaskMappings := TCollection.Create(TVpFieldMapping);
try
savedResourceMappings.Assign(FlexDS.ResourceMappings);
savedContactMappings.Assign(FlexDS.ContactMappings);
savedEventMappings.Assign(FlexDS.EventMappings);
savedTaskMappings.Assign(FlexDS.TaskMappings);
Application.CreateForm(TfrmFieldMapper, frmFieldMapper);
try
frmFieldMapper.FlexDS := FlexDS;
if FlexDS.ResourceDataSource <> nil then
frmFieldMapper.ResDS := FlexDS.ResourceDataSource.DataSet;
if FlexDS.EventsDataSource <> nil then
frmFieldMapper.EventsDS := FlexDS.EventsDataSource.DataSet;
if FlexDS.ContactsDataSource <> nil then
frmFieldMapper.ContactsDS := FlexDS.ContactsDataSource.DataSet;
if FlexDS.TasksDataSource <> nil then
frmFieldMapper.TasksDS := FlexDS.TasksDataSource.DataSet;
if frmFieldMapper.ShowModal <> mrOK then begin
FlexDS.ResourceMappings.Assign(savedResourceMappings);
FlexDS.ContactMappings.Assign(savedContactMappings);
FlexDS.EventMappings.Assign(savedEventMappings);
FlexDS.TaskMappings.Assign(savedTaskMappings);
end;
finally
frmFieldMapper.Release;
end;
Designer.Modified;
finally
savedResourceMappings.Free;
savedContactMappings.Free;
savedEventMappings.Free;
savedTaskMappings.Free;
end;
end;
procedure TVpFlexDSEditor.ExecuteVerb(Index: Integer);
begin
if Index = 0 then
MapDatabaseFields(Designer, (Component as TVpFlexDataStore));
end;
function TVpFlexDSEditor.GetVerb(Index: Integer): string;
begin
if Index = 0 then
Result := 'Map Database Fields...';
end;
function TVpFlexDSEditor.GetVerbCount: Integer;
begin
Result := 1;
end;
{******************************************************************************}
{ Component registration }
{******************************************************************************}
procedure Register;
begin
{----------------------------------------------------------------------------}
@ -650,7 +682,8 @@ begin
TVpContactEditDialog,
TVpTaskEditDialog,
TVpPrintFormatEditDialog,
TVpPrintPreviewDialog]);
TVpPrintPreviewDialog
]);
end;
end.

0
components/tvplanit/source/vpreg.res → components/tvplanit/source/design/vpreg.res
View File

5
components/tvplanit/source/vpwavpe.pas → components/tvplanit/source/design/vpwavpe.pas
View File

@ -38,10 +38,7 @@ uses
{$IFNDEF LCL}
DesignIntf, DesignEditors, VCLEditors,
{$ELSE}
PropEdits,
LazarusPackageIntf,
FieldsEditor,
ComponentEditors,
PropEdits, LazarusPackageIntf, FieldsEditor, ComponentEditors,
{$ENDIF}
{$ELSE}
DsgnIntf,

0
components/tvplanit/source/vp.inc → components/tvplanit/source/include/vp.inc
View File

31
components/tvplanit/source/vpabout.pas
View File

@ -39,6 +39,7 @@ uses
Windows, Messages,
{$ENDIF}
Forms, Graphics, Controls, Dialogs, StdCtrls, ExtCtrls,
(*
{$IFDEF VERSION6}
{$IFDEF DELPHI}
DesignIntf, DesignEditors,
@ -48,6 +49,7 @@ uses
{$ELSE}
DsgnIntf,
{$ENDIF}
*)
Classes, SysUtils;
type
@ -87,13 +89,6 @@ type
IsServer : boolean;
end;
TVpAboutProperty = class(TStringProperty)
public
function GetAttributes: TPropertyAttributes;
override;
procedure Edit;
override;
end;
implementation
@ -118,25 +113,6 @@ const
LAZARUS_FORUM_URL = 'http://forum.lazarus.freepascal.org';
{*** TVpAboutProperty ***}
function TVpAboutProperty.GetAttributes: TPropertyAttributes;
begin
Result := [paDialog, paReadOnly];
end;
procedure TVpAboutProperty.Edit;
begin
with TfrmAbout.Create(Application) do begin
try
ShowModal;
finally
Free;
end;
end;
end;
{ FrmAbout }
procedure TfrmAbout.FormActivate(Sender: TObject);
@ -151,7 +127,8 @@ var
begin
ProgramName.Caption := VpProductName + ' ' + VpVersionStr;
DecodeDate(Now, Year, junk, junk);
CopyrightLabel.Caption := Format('%s Copyright 2000 - %d, TurboPower Software Company and Lazarus team.' +
CopyrightLabel.Caption := Format(
'%s Copyright 2000 - %d, TurboPower Software Company and Lazarus team.' +
LineEnding + 'All rights reserved.',
[COPYRIGHT, Year]);

7
components/tvplanit/source/vpalarmdlg.pas
View File

@ -39,8 +39,8 @@ uses
{$ELSE}
Windows, Messages,
{$ENDIF}
SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
VpDlg, VpData, ExtCtrls, StdCtrls, VpEvntEditDlg, VpBaseDS, VpConst;
SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls,
VpDlg, VpData, VpEvntEditDlg, VpBaseDS, VpConst;
type
{ forward declarations }
@ -102,7 +102,8 @@ implementation
{$ENDIF}
uses
StrUtils, VpMisc, VpSR;
StrUtils,
VpMisc, VpSR;
{ TVpNotificationDialog }

9
components/tvplanit/source/vpcalendar.pas
View File

@ -39,9 +39,8 @@ uses
{$ELSE}
Windows, Messages,
{$ENDIF}
Buttons, Classes, Controls, Forms, Graphics, Menus,
SysUtils, VpBase, VpSR, VpConst, VpMisc, VpBaseDS, VpCanvasUtils,
VpException;
SysUtils, Buttons, Classes, Controls, Forms, Graphics, Menus,
VpBase, VpSR, VpConst, VpMisc, VpBaseDS, VpCanvasUtils, VpException;
type
TVpCalDisplayOption = (cdoShortNames, cdoShowYear, cdoShowInactive,
@ -559,7 +558,7 @@ begin
clFirst := I;
{find the index of the last day in the month}
clLast := clFirst + DaysInAMonth(clYear, clMonth) - 1;
clLast := clFirst + DaysInAMonth(clYear, clMonth) {%H-}- 1;
{initialize the first part of the calendar}
if clMonth = 1 then
@ -1297,7 +1296,7 @@ begin
{create the menu items}
repeat
MI := TMenuItem.Create(M);
MI.Caption := LongMonthNames[I];
MI.Caption := FormatSettings.LongMonthNames[I];
MI.Enabled := Enabled;
MI.OnClick := calChangeMonth;
MI.Tag := I;

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

@ -39,8 +39,8 @@ uses
{$ELSE}
Windows, Messages, VpTimerPool,
{$ENDIF}
Classes, Controls, Dialogs, Forms, Graphics, Menus,Math,
SysUtils, VpBase, VpLEDLabel;
SysUtils, Classes, Controls, Dialogs, Forms, Graphics, Menus, Math,
VpBase, VpLEDLabel;
type
TVpPercent = 0..100;

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

@ -95,7 +95,7 @@ const
strFALSE = 'false';
WEEKDAY_COLOR = $FFFFFF;
WEEKEND_COLOR = $C0C0C0; //$C0C0FF;
WEEKEND_COLOR = $C0C0C0;
HOLIDAY_COLOR = $8080FF;
TODAY_COLOR = $FFC0C0;
OFF_COLOR = $E0E0E0;

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

@ -176,6 +176,7 @@ type
end;
implementation
{ TVpContactButtonBar }
constructor TVpContactButtonBar.Create(AOwner: TComponent);

14
components/tvplanit/source/vpcontacteditdlg.pas
View File

@ -40,8 +40,8 @@ uses
{$ENDIF}
SysUtils,
{$IFDEF VERSION6} Variants, {$ENDIF}
Classes, Graphics, Controls, Forms, Dialogs, VpData, ExtCtrls, StdCtrls,
VpException, VpMisc, VpBase, VpSR, VpDlg, VpBaseDS, ComCtrls, EditBtn;
Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls, ComCtrls, EditBtn,
VpData, VpException, VpMisc, VpBase, VpSR, VpDlg, VpBaseDS;
type
{ forward declarations }
@ -504,24 +504,16 @@ end;
procedure TContactEditForm.ResizeControls;
const
ComboArrowWidth = 32;
// FieldVertSep = 25;
// FormRightBorder = 20;
// MinFormWidth = 265;
// FormHeightOffset = 103;
// MinFormHeight = 250;
TopField = 8;
type
TLabelArray = array of TLabel;
TComboboxArray = array of TCombobox;
TEditArray = array of TEdit;
var
Labels: TLabelArray;
Comboboxes: TComboboxArray;
Edits: TEditArray;
largestLabelWidth: Integer;
i, j: Integer;
i: Integer;
OldFont: TFont;
FieldTop: Integer;
delta: Integer;

5
components/tvplanit/source/vpcontactgrid.pas
View File

@ -38,8 +38,8 @@ uses
{$ELSE}
Windows, Messages,
{$ENDIF}
Classes, Graphics, Controls, ExtCtrls, StdCtrls, Forms,
VpBase, VpBaseDS, VpMisc, VpData, VpConst, VpSR, VpCanvasUtils, Menus;
Classes, Graphics, Controls, ExtCtrls, StdCtrls, Forms, Menus,
VpBase, VpBaseDS, VpMisc, VpData, VpConst, VpSR, VpCanvasUtils;
const
MaxColumns = 100; { An arbitrary number representing the maximum number of }
@ -923,7 +923,6 @@ const
MaxWidth = 400;
var
txt: String;
i: Integer;
contact: TVpContact;
R, RHint,RCont, RScr: TRect;
begin

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

@ -47,7 +47,6 @@ type
implementation
uses
StrUtils,
VpCanvasUtils, VpMisc, VpSR;
type

6
components/tvplanit/source/vpdata.pas
View File

@ -252,7 +252,7 @@ type
FChanged: Boolean;
FDeleted: Boolean;
FLoading: Boolean;
FPrivateEvent: Boolean;
//FPrivateEvent: Boolean;
FAlarmSet: Boolean;
FDingPath: string;
FAllDayEvent: Boolean;
@ -536,7 +536,7 @@ type
FCountry1: string;
FCountry2: String;
FNotes: string;
FPrivateRec: boolean;
//FPrivateRec: boolean;
FCategory: integer;
FCustom1: string;
FCustom2: string;
@ -934,8 +934,6 @@ begin
end;
procedure TVpResources.RemoveResourceGroup(AGroup: TVpResourceGroup);
var
idx: Integer;
begin
// The resource group removes the list entry in its destructor.
AGroup.Free;

12
components/tvplanit/source/vpdayview.pas
View File

@ -63,9 +63,8 @@ uses
{$ELSE}
Windows, Messages,
{$ENDIF}
Classes, Graphics, Controls, ExtCtrls, StdCtrls, Buttons, Forms,
VpBase, VpBaseDS, VpMisc, VpData, VpSR, VpConst,
VpCanvasUtils, Menus;
Classes, Graphics, Controls, ExtCtrls, StdCtrls, Buttons, Forms, Menus,
VpBase, VpBaseDS, VpMisc, VpData, VpSR, VpConst, VpCanvasUtils;
type
TVpLineRec = packed record
@ -1490,7 +1489,7 @@ begin
{$IFDEF LCL}
EventName := FActiveEvent.Description;
GetCursorPos(P);
GetCursorPos(P{%H-});
P := TVpDayView(Self).ScreenToClient(P);
HotSpot := Point(P.X - Self.dvActiveEventRec.Left, P.Y - Self.dvActiveEventRec.Top);
@ -1513,6 +1512,7 @@ end;
procedure TVpDayView.DoEndDrag(Target: TObject; X, Y: Integer);
begin
Unused(Target, X, Y);
if ReadOnly or (not FAllowDragAndDrop) then
Exit;
{$IFNDEF LCL}
@ -1525,6 +1525,8 @@ end;
procedure TVpDayView.DragOver(Source: TObject; X, Y: Integer; State: TDragState;
var Accept: Boolean);
begin
Unused(Source, State);
if ReadOnly or (not FAllowDragAndDrop) then begin
Accept := False;
Exit;
@ -1546,6 +1548,8 @@ var
DragToTime: TDateTime;
i: Integer;
begin
Unused(X, Y);
if ReadOnly or (not FAllowDragAndDrop) then
Exit;

8
components/tvplanit/source/vpdayviewpainter.pas
View File

@ -5,8 +5,8 @@ unit VpDayViewPainter;
interface
uses
SysUtils, LCLType, LCLIntf, Types,
Classes, Graphics, VpConst, VPBase, VpData, VpBasePainter, VpDayView;
SysUtils, LCLType, LCLIntf, Types, Classes, Graphics,
VpConst, VPBase, VpData, VpBasePainter, VpDayView;
type
{ Defines matrix of event records for managing how events overlap with each other. }
@ -128,7 +128,7 @@ implementation
uses
StrUtils, Math, LazUtf8,
VpSR, VpCanvasUtils, VpMisc;
VpCanvasUtils, VpMisc;
const
ICON_MARGIN = 4;
@ -637,7 +637,7 @@ procedure TVpDayViewPainter.DrawColHeader(R: TRect; ARenderDate: TDateTime;
Col: Integer);
var
SaveFont: TFont;
DateStr, DateOnlyStr, ResStr: string;
DateStr, ResStr: string;
DateStrLen, ResStrLen: integer;
DateStrHt: Integer;
TextRect: TRect;

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

@ -1397,7 +1397,6 @@ end;
procedure TVpCustomDBDataStore.LoadTasks;
var
Task: TVpTask;
F: TField;
begin
if (Resource <> nil) then
with TasksTable do begin

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

@ -38,7 +38,8 @@ uses
Controls,
{$ELSE}
{$ENDIF}
Classes, Forms, Graphics, VpBase, VpBaseDS, VpConst, VpSR;
Classes, Forms, Graphics,
VpBase, VpBaseDS, VpConst, VpSR;
type
TVpDialogPosition = (mpCenter, mpCenterTop, mpCustom);

7
components/tvplanit/source/vpedelem.pas
View File

@ -39,8 +39,8 @@ uses
Windows, Messages,
{$ENDIF}
SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls,
VpBase, VpSR, VpPrtFmt, ComCtrls;
StdCtrls, ExtCtrls, ComCtrls,
VpBase, VpSR, VpPrtFmt;
type
@ -119,7 +119,8 @@ type
implementation
uses
Math, VpMisc, VpEdShape;
Math,
VpMisc, VpEdShape;
{$IFDEF LCL}
{$R *.lfm}

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

@ -82,7 +82,8 @@ implementation
{$ENDIF}
uses
Math, VpMisc, VpSR;
Math,
VpMisc, VpSR;
{ TfrmEditLayout }

13
components/tvplanit/source/vpedfmtlst.pas
View File

@ -39,10 +39,8 @@ uses
Windows, Messages,
{$ENDIF}
SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, TypInfo, ExtCtrls,
VpPrtFmt, VpBase, VpBaseDS, VpPrtPrv, Buttons,
VpException, VpSR;
StdCtrls, ExtCtrls, Buttons,
VpPrtFmt, VpBase, VpBaseDS, VpPrtPrv, VpException, VpSR;
const
BaseCaption = 'Print Format Designer';
@ -147,7 +145,7 @@ var
implementation
uses
Math,
Math, TypInfo,
VpMisc, VpEdFmt, VpEdElem;
{$IFDEF DELPHI}
@ -678,13 +676,8 @@ var
w: Integer;
HDist: Integer = 8;
VDist: Integer = 8;
btndist: Integer;
hBtn: Integer;
btnHeight: Integer;
po: TPosition;
begin
po := Position;
HDist := ScaleX(HDist, DesignTimeDPI);
VDist := ScaleY(VDist, DesignTimeDPI);
hBtn := ScaleY(btnOK.Height, DesignTimeDPI);

5
components/tvplanit/source/vpedshape.pas
View File

@ -39,7 +39,7 @@ uses
Windows, Messages, ColorGrd,
{$ENDIF}
SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, TypInfo, ComCtrls, Buttons,
StdCtrls, ExtCtrls, ComCtrls, Buttons,
VpPrtFmt;
type
@ -119,7 +119,8 @@ implementation
{$ENDIF}
uses
Math, VpMisc, VpSr;
Math, TypInfo,
VpMisc, VpSr;
{ TfrmEditShape }

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

@ -41,7 +41,7 @@ uses
{$ENDIF}
SysUtils, {$IFDEF VERSION6}Variants,{$ENDIF} Classes,
Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls, Buttons,
VpData, VpBase, VpBaseDS, VpDlg, VpConst; //VpEdPop,
VpData, VpBase, VpBaseDS, VpDlg, VpConst;
const
blabla = 1; // to make the $IF work in Laz 1.4.4. Why?
@ -635,7 +635,6 @@ const
DELTA = 8;
VDELTA = 8;
VDIST = 5;
VBEVELDIST = 8;
var
w, h: Integer;
cnv: TControlCanvas;

5
components/tvplanit/source/vpfbds.pas
View File

@ -7,9 +7,8 @@ unit VpFBDS;
interface
uses
SysUtils, Classes, DB,
VpBaseDS, VpDBDS,
IBConnection, sqldb;
SysUtils, Classes, DB, IBConnection, sqldb,
VpBaseDS, VpDBDS;
type
TVpFirebirdDatastore = class(TVpCustomDBDatastore)

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

@ -2218,9 +2218,7 @@ procedure TVpFlexDataStore.PostResources;
var
I: Integer;
Res: TVpResource;
{FieldName}
FN: string;
isactive: Boolean;
begin
Loading := true;
try
@ -2319,9 +2317,7 @@ begin
if FN <> '' then
FieldByName(FN).AsString := Res.UserField9;
isactive := Active;
Post;
isactive := Active;
except
Cancel;
raise EDBPostError.Create;

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

@ -37,6 +37,7 @@ interface
uses
SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
(*
{$IFNDEF RUNTIMETEST}
{$IFDEF LCL}
propedits, componenteditors, FormEditingIntf, lclintf, IDEIntf,
@ -45,7 +46,9 @@ uses
{$IFDEF VERSION6} DesignIntf, DesignEditors, {$ELSE} DsgnIntf, {$ENDIF}, DBTables,
{$ENDIF}
{$ENDIF} {RUNTIMETEST}
ExtCtrls, StdCtrls, Db, VpFlxDS, ComCtrls, Buttons;
*)
ExtCtrls, StdCtrls, Db, ComCtrls, Buttons,
VpFlxDS;
type
@ -100,7 +103,7 @@ type
ContactsDS: TDataset;
TasksDS: TDataset;
end;
(*
{$IFDEF RUNTIMETEST}
procedure RuntimeTest(FlexDS: TVpFlexDataStore);
{$ELSE}
@ -110,6 +113,7 @@ procedure RuntimeTest(FlexDS: TVpFlexDataStore);
function GetVerbCount: Integer; override;
end;
{$ENDIF}
*)
implementation
{$IFDEF LCL}
@ -120,7 +124,7 @@ implementation
uses
vpConst, VpMisc;
(*
{$IFDEF RUNTIMETEST}
{ Runtime test }
@ -239,7 +243,7 @@ begin
Result := 1;
end;
{$ENDIF} {RuntimeTest}
*)
procedure TfrmFieldMapper.FormShow(Sender: TObject);
begin

5
components/tvplanit/source/vpinids.pas
View File

@ -63,7 +63,8 @@ type
implementation
uses
typinfo, StrUtils, Strings, IniFiles,
typinfo,
IniFiles,
VpConst, VpMisc, VpSR;
procedure IniError(const AMsg: String);
@ -131,6 +132,7 @@ end;
{ TVpIniStrings_v104 }
procedure TVpIniStrings_v104.AddField(AName, AValue: String);
begin
Unused(AName);
Add('{' + AValue + '}');
end;
@ -147,6 +149,7 @@ end;
function TVpIniStrings_v104.Extract(AName: String): String;
begin
Unused(AName);
Result := '';
end;

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

@ -57,8 +57,7 @@ type
procedure Initialize(out Points: array of TPoint);
function NewOffset(xOry: char; OldOffset: Integer): Integer;
procedure ProcessCaption(Points: array of TPoint);
procedure PaintSegment(Segment: Integer; Color: TColor;
Points: array of TPoint;
procedure PaintSegment(Segment: Integer; Color: TColor; Points: array of TPoint;
OffsetX, OffsetY: Integer);
procedure ResizeControl(Row, Col, Size: Integer);
function GetAbout: string;
@ -69,8 +68,7 @@ type
procedure SetRows(Value: Integer);
procedure SetColumns(Value: Integer);
procedure SetbgColor(Value: TColor);
procedure SelectSegments(Segment: Word;
Points: array of TPoint;
procedure SelectSegments(Segment: Word; Points: array of TPoint;
OffsetX, OffsetY: Integer);
protected
procedure Paint; override;

2
components/tvplanit/source/vplocalize.pas
View File

@ -226,8 +226,6 @@ type
end;
implementation
{ TVpLocalizeLanguageItem }

6
components/tvplanit/source/vpmisc.pas
View File

@ -39,8 +39,8 @@ uses
{$ELSE}
Windows, Consts, Messages,
{$ENDIF}
Buttons, Classes, Controls, StdCtrls, ExtCtrls, Forms, Graphics, Menus,
SysUtils, VpBase, VpData, VpConst;
SysUtils, Buttons, Classes, Controls, StdCtrls, ExtCtrls, Forms, Graphics, Menus,
VpBase, VpData, VpConst;
type
TDayList = array[1..12] of Word;
@ -185,7 +185,7 @@ uses
{$IFDEF LCL}
DateUtils, StrUtils,
{$ENDIF}
VpException, VpSR, VpBaseDS;
VpSR, VpBaseDS;
procedure StripString(var Str: string);
begin

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

@ -38,8 +38,8 @@ uses
{$ELSE}
Windows, Messages,
{$ENDIF}
Classes, Graphics, Controls, ComCtrls, ExtCtrls, Forms,
VpBase, VpBaseDS, VpMisc, VpData, VpSR, VpConst, VpCanvasUtils, Menus;
Classes, Graphics, Controls, ComCtrls, ExtCtrls, Forms, Menus,
VpBase, VpBaseDS, VpMisc, VpData, VpSR, VpConst, VpCanvasUtils;
type
TVpMonthdayRec = packed record

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

@ -63,7 +63,7 @@ type
implementation
uses
LazUtf8, StrUtils, Math,
LazUtf8, Math,
VpCanvasUtils, VpMisc;
type
@ -393,7 +393,7 @@ var
DayOffset: Integer;
StartingDate: TDateTime;
ThisDate: TDateTime;
I, J: Integer;
I: Integer;
Drawn: Boolean;
OldBrush: TBrush;
OldPen: TPen;

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

@ -40,8 +40,8 @@ uses
{$ELSE}
Windows, Messages, MMSystem,
{$ENDIF}
Controls, Graphics, Forms, Buttons, SysUtils,
StdCtrls, Classes, ExtCtrls, VpBase, VpConst, VpMisc, VpSR, Math;
Controls, Graphics, Forms, Buttons, SysUtils, StdCtrls, Classes, ExtCtrls, Math,
VpBase, VpConst, VpMisc, VpSR;
type
{Forward Declaration}

9
components/tvplanit/source/vpprtfmtcbox.pas
View File

@ -38,13 +38,8 @@ uses
{$ELSE}
Windows, Messages,
{$ENDIF}
SysUtils,
Classes,
Controls,
StdCtrls,
VpBase,
VpBaseDS,
VpConst;
SysUtils, Classes, Controls, StdCtrls,
VpBase, VpBaseDS, VpConst;
type
TVpPrintFormatComboBox = class (TCustomComboBox)

5
components/tvplanit/source/vpprtfmtdlg.pas
View File

@ -38,8 +38,7 @@ uses
{$ELSE}
Windows, Messages,
{$ENDIF}
SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
TypInfo, ExtCtrls,
SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls,
VpBase, VpBaseDS, VpDlg, VpPrtFmtCBox, VpEdFmtLst;
type
@ -68,6 +67,8 @@ type
implementation
uses
TypInfo;
{ TVpPrintFormatEditDialog }

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

@ -418,7 +418,7 @@ end;
procedure TVpPrintPreview.GeneratePageImage;
var
LastPage: Boolean;
LastPage: Boolean = false;
UseDate: TDateTime;
UseContact: Integer;
UseTask: Integer;
@ -689,6 +689,8 @@ var
ATask: Integer;
AContact: Integer;
begin
Unused(EndDate);
Result := PageNum;
if PageNum < FPageInfo.Count then
Exit;

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

@ -163,7 +163,6 @@ implementation
{$ENDIF}
uses
Math,
VpPrtFmt;
{ TfrmPrintPreview }
@ -418,11 +417,13 @@ begin
end;
procedure TfrmPrintPreview.FormShow(Sender: TObject);
{
var
maxlen: Integer;
cnv: TControlCanvas;
i: Integer;
fmts: TVpPrintFormat;
}
begin
if VpPrintPreview1.ControlLink = nil then
exit;

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

@ -40,8 +40,8 @@ uses
{$ENDIF}
SysUtils,
{$IFDEF VERSION6} Variants, {$ENDIF}
Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,
VpDlg, VpBase, VpData, ComCtrls, VpConst;
Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, ComCtrls,
VpDlg, VpBase, VpData, VpConst;
type
{ forward declarations }

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

@ -36,8 +36,8 @@ uses
{$ELSE}
Windows, Messages,
{$ENDIF}
SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, VpBaseDS, VpResEditDlg, ExtCtrls;
SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,
VpBaseDS, VpResEditDlg;
type
TfrmSelectResource = class(TForm)

5
components/tvplanit/source/vpsqlite3ds.pas
View File

@ -5,9 +5,8 @@ unit VpSQLite3DS;
interface
uses
SysUtils, Classes, DB,
VpBaseDS, VpDBDS,
sqlite3conn, sqldb;
SysUtils, Classes, DB, sqlite3conn, sqldb,
VpBaseDS, VpDBDS;
type
TVpSqlite3Datastore = class(TVpCustomDBDatastore)

7
components/tvplanit/source/vptaskeditdlg.pas
View File

@ -35,14 +35,14 @@ interface
uses
{$IFDEF LCL}
LCLProc, LCLType, LCLIntf, LResources,
LCLProc, LCLType, LCLIntf, LResources, EditBtn,
{$ELSE}
Windows, Messages, VpEdPop, VpDateEdit,
{$ENDIF}
SysUtils,
{$IFDEF VERSION6} Variants, {$ENDIF}
Classes, Graphics, Controls, Forms, Dialogs, VpData, StdCtrls, ExtCtrls,
VpBase, VpSR, VpDlg, ComCtrls, EditBtn;
Classes, Graphics, Controls, Forms, Dialogs, VpData, StdCtrls, ExtCtrls, ComCtrls,
VpBase, VpSR, VpDlg;
type
{ forward declarations }
@ -193,7 +193,6 @@ var
HDist: Integer = 8; // Horizontal distance between controls:
w: Integer;
cnv: TControlCanvas;
cb: TCheckbox;
begin
VBevelDist := ScaleY(VBevelDist, DesignTimeDPI);
VDist := ScaleY(VDist, DesignTimeDPI);

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

@ -38,8 +38,8 @@ uses
{$ELSE}
Windows, Messages,
{$ENDIF}
Classes, Graphics, Controls, ExtCtrls, StdCtrls,
VpBase, VpBaseDS, VpMisc, VpData, VpSR, VpConst, VpCanvasUtils, Menus;
Classes, Graphics, Controls, ExtCtrls, StdCtrls, Menus,
VpBase, VpBaseDS, VpMisc, VpData, VpSR, VpConst, VpCanvasUtils;
type
TVpTaskRec = packed record

5
components/tvplanit/source/vptasklistpainter.pas
View File

@ -6,11 +6,8 @@ interface
uses
SysUtils, LCLType, LCLIntf,
//SysUtils, LCLType, LCLIntf, Types,
Classes, Graphics, Types,
//VpConst,
VPBase, //VpData,
VpTaskList, VpBasePainter;
VPBase, VpTaskList, VpBasePainter;
type
TVpTaskListPainter = class(TVpBasePainter)

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

@ -39,7 +39,8 @@ uses
{$ELSE}
Windows, Messages,
{$ENDIF}
Classes, SysUtils, Forms, VpException;
Classes, SysUtils, Forms,
VpException;
type
TVpTimerTriggerEvent =

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

@ -41,7 +41,8 @@ uses
Windows, Messages,
{$ENDIF}
SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls, Buttons, VpBase, ComCtrls, ShellCtrls;
StdCtrls, ExtCtrls, Buttons, ComCtrls, ShellCtrls,
VpBase;
type

11
components/tvplanit/source/vpweekview.pas
View File

@ -52,9 +52,8 @@ uses
{$ELSE}
Windows, Messages,
{$ENDIF}
Classes, Graphics, Controls, ComCtrls, ExtCtrls, StdCtrls, Forms,
VpBase, VpBaseDS, VpMisc, VpData, VpSR, VpConst, VpCanvasUtils, Menus,
VpDayView;
Classes, Graphics, Controls, ComCtrls, ExtCtrls, StdCtrls, Forms, Menus,
VpBase, VpBaseDS, VpMisc, VpData, VpSR, VpConst, VpCanvasUtils, VpDayView;
type
TVpWeekdayRec = packed record
@ -899,6 +898,8 @@ end;
procedure TVpWeekView.DoEndDrag(Target: TObject; X, Y: Integer);
begin
Unused(Target, X, Y);
if ReadOnly or (not FAllowDragAndDrop) then
Exit;
{$IFNDEF LCL}
@ -919,7 +920,7 @@ begin
if FActiveEvent <> nil then begin
{$IFDEF LCL}
GetCursorPos(P);
GetCursorPos(P{%H-});
P := TVpWeekView(Self).ScreenToClient(P);
EventName := FActiveEvent.Description;
HotSpot := Point(P.X - Self.wvActiveEventRec.Left, P.Y - Self.wvActiveEventRec.Top);
@ -971,6 +972,8 @@ end;
procedure TVpWeekView.DragOver(Source: TObject; X, Y: Integer; State: TDragState;
var Accept: Boolean);
begin
Unused(Source, X, State);
Accept := false;
if ReadOnly or (not FAllowDragAndDrop) then
Exit;

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

@ -5,8 +5,8 @@ unit VpWeekViewPainter;
interface
uses
SysUtils, LCLType, LCLIntf, Types,
Classes, Graphics, VpConst, VPBase, VpData, VpBasePainter, VpWeekView;
SysUtils, LCLType, LCLIntf, Types, Classes, Graphics,
VpConst, VPBase, VpData, VpBasePainter, VpWeekView;
type
TVpWeekViewPainter = class(TVpBasePainter)

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

@ -107,7 +107,8 @@ uses
{$ELSE}
Windows,
{$ENDIF}
SysUtils, VpMisc;
SysUtils,
VpMisc;
{== Utility methods ==================================================}

7
components/tvplanit/source/vpxchrflt.pas
View File

@ -33,11 +33,8 @@ unit VpXChrFlt;
interface
uses
SysUtils,
Classes,
VpSR,
VpBase,
VpXBase;
SysUtils, Classes, VpSR,
VpBase, VpXBase;
const
VpEndOfStream = #1;

33
components/tvplanit/source/vpxparsr.pas
View File

@ -46,31 +46,26 @@ type
{== Event types ======================================================}
TVpDocTypeDeclEvent = procedure(oOwner: TObject;
sDecl,
sId0,
sId1 : DOMString) of object;
TVpValueEvent = procedure(oOwner : TObject;
sValue : DOMString) of object;
sDecl, sId0, sId1: DOMString) of object;
TVpValueEvent = procedure(oOwner: TObject; sValue: DOMString) of object;
TVpAttributeEvent = procedure(oOwner: TObject;
sName,
sValue : DOMString;
bSpecified : Boolean) of object;
sName, sValue: DOMString; bSpecified: Boolean) of object;
TVpProcessInstrEvent = procedure(oOwner: TObject;
sName,
sValue : DOMString) of object;
sName, sValue: DOMString) of object;
TVpResolveEvent = procedure(oOwner: TObject;
const sName,
sPublicId,
sSystemId : DOMString;
const sName, sPublicId, sSystemId: DOMString;
var sValue: DOMString) of object;
TVpNonXMLEntityEvent = procedure(oOwner: TObject;
sEntityName,
sPublicId,
sSystemId,
sNotationName : DOMString) of object;
TVpPreserveSpaceEvent = procedure(oOwner : TObject;
sElementName : DOMString;
sEntityName, sPublicId, sSystemId, sNotationName: DOMString) of object;
TVpPreserveSpaceEvent = procedure(oOwner: TObject; sElementName: DOMString;
var bPreserve: Boolean) of object;
{== Class types ======================================================}
TVpParser = class(TVpComponent)
protected