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

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

View File

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

View File

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

View File

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

View File

@ -79,7 +79,6 @@ object Form1: TForm1
TimeSlotColors.Active = clWhite TimeSlotColors.Active = clWhite
TimeSlotColors.Inactive = 8454143 TimeSlotColors.Inactive = 8454143
TimeSlotColors.Holiday = 16744703 TimeSlotColors.Holiday = 16744703
TimeSlotColors.Weekday = clWhite
TimeSlotColors.Weekend = 16777088 TimeSlotColors.Weekend = 16777088
TimeSlotColors.ActiveRange.RangeBegin = h_00 TimeSlotColors.ActiveRange.RangeBegin = h_00
TimeSlotColors.ActiveRange.RangeEnd = h_00 TimeSlotColors.ActiveRange.RangeEnd = h_00
@ -147,22 +146,21 @@ object Form1: TForm1
TabOrder = 1 TabOrder = 1
KBNavigation = True KBNavigation = True
DateLabelFormat = 'mmmm yyyy' DateLabelFormat = 'mmmm yyyy'
DayHeadAttributes.Color = clBtnFace
DayHeadAttributes.Font.Height = -13 DayHeadAttributes.Font.Height = -13
DayHeadAttributes.Font.Name = 'Tahoma' DayHeadAttributes.Font.Name = 'Tahoma'
DayHeadAttributes.Color = clBtnFace
DayNameStyle = dsShort DayNameStyle = dsShort
DrawingStyle = dsFlat DrawingStyle = dsFlat
EventDayStyle = [] EventDayStyle = []
HeadAttributes.Color = clBtnFace HeadAttributes.Color = clBtnFace
LineColor = clGray
TimeFormat = tf12Hour
TodayAttributes.Color = clSilver
TodayAttributes.BorderPen.Color = clRed
TodayAttributes.BorderPen.Width = 3
OffDayColor = clSilver OffDayColor = clSilver
SelectedDayColor = clRed SelectedDayColor = clRed
ShowEvents = True ShowEvents = True
ShowEventTime = False ShowEventTime = False
TimeFormat = tf12Hour
TodayAttributes.Color = clSilver
TodayAttributes.BorderPen.Color = clRed
TodayAttributes.BorderPen.Width = 3
WeekStartsOn = dtMonday WeekStartsOn = dtMonday
end end
object Splitter2: TSplitter object Splitter2: TSplitter
@ -265,7 +263,7 @@ object Form1: TForm1
top = 168 top = 168
end end
object VpResourceEditDialog1: TVpResourceEditDialog object VpResourceEditDialog1: TVpResourceEditDialog
Version = 'v1.04' Version = 'v1.05'
DataStore = VpFlexDataStore1 DataStore = VpFlexDataStore1
Options = [] Options = []
Placement.Position = mpCenter Placement.Position = mpCenter

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

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>

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>

View File

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

View File

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

View File

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

View File

@ -27,7 +27,8 @@
{* ***** END LICENSE BLOCK ***** *} {* ***** END LICENSE BLOCK ***** *}
{$I Vp.INC} { Compiler Version Defines } {$I Vp.INC} { Compiler Version Defines }
{$R vpreg.res} { Palette Glyphs }
{$R vpreg.res} { Palette Glyphs }
unit VpReg; unit VpReg;
{Registration unit for the Visual PlanIt design-time interface} {Registration unit for the Visual PlanIt design-time interface}
@ -40,7 +41,7 @@ uses
{$ELSE} {$ELSE}
Windows, Windows,
{$ENDIF} {$ENDIF}
Dialogs,
{$IFDEF VERSION6} {$IFDEF VERSION6}
{$IFNDEF LCL} {$IFNDEF LCL}
DesignIntf, DesignEditors, VCLEditors, DesignIntf, DesignEditors, VCLEditors,
@ -50,7 +51,7 @@ uses
{$ELSE} {$ELSE}
DsgnIntf, DsgnIntf,
{$ENDIF} {$ENDIF}
Classes, Controls, TypInfo, Forms, SysUtils, Dialogs, Classes, Controls, TypInfo, Forms, SysUtils,
VpDatePropEdit; VpDatePropEdit;
type type
@ -134,8 +135,23 @@ type
procedure SetValue(const Value: string); override; procedure SetValue(const Value: string); override;
end; 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; procedure Register;
implementation implementation
uses uses
@ -186,7 +202,7 @@ uses
{ Designtime Interfaces (Property and Component Editors) } { Designtime Interfaces (Property and Component Editors) }
VpAbout, { About form for the About property editor } VpAbout, { About form for the About property editor }
{$IFDEF DELPHI} {$IFDEF DELPHI}
VpNabEd, { component editor for the VpNavBar } VpNabEd, { component editor for the VpNavBar } // crashes in Lazarus
{$ENDIF} {$ENDIF}
VpFlxDSEd1; { Field mapper component editor for the FlexDS } VpFlxDSEd1; { Field mapper component editor for the FlexDS }
@ -198,13 +214,11 @@ function TDBStringProperty.GetAttributes: TPropertyAttributes;
begin begin
Result := [paValueList, paSortList, paMultiSelect]; Result := [paValueList, paSortList, paMultiSelect];
end; end;
{=====}
procedure TDBStringProperty.GetValueList(List: TStrings); procedure TDBStringProperty.GetValueList(List: TStrings);
begin begin
Unused(List); Unused(List);
end; end;
{=====}
procedure TDBStringProperty.GetValues(Proc: TGetStrProc); procedure TDBStringProperty.GetValues(Proc: TGetStrProc);
var var
@ -219,7 +233,6 @@ begin
Values.Free; Values.Free;
end; end;
end; end;
{=====}
{$IFDEF DELPHI} {$IFDEF DELPHI}
(*****************************************************************************) (*****************************************************************************)
@ -257,7 +270,6 @@ begin
FCheckProc := Proc; FCheckProc := Proc;
inherited GetValues(CheckComponent); inherited GetValues(CheckComponent);
end; end;
{=====}
{$ENDIF} {$ENDIF}
(*****************************************************************************) (*****************************************************************************)
@ -275,25 +287,21 @@ begin
frmDatePropertyEditor.Free; frmDatePropertyEditor.Free;
end; end;
end; end;
{=====}
function TVpDateProperty.GetAttributes : TPropertyAttributes; function TVpDateProperty.GetAttributes : TPropertyAttributes;
begin begin
Result := [paDialog, paMultiSelect]; Result := [paDialog, paMultiSelect];
end; end;
{=====}
function TVpDateProperty.GetValue : string; function TVpDateProperty.GetValue : string;
begin begin
Result := FormatDateTime('ddddd', GetFloatValue); Result := FormatDateTime('ddddd', GetFloatValue);
end; end;
{=====}
procedure TVpDateProperty.SetValue (const Value : string); procedure TVpDateProperty.SetValue (const Value : string);
begin begin
SetFloatValue(StrToDate (Value)); SetFloatValue(StrToDate (Value));
end; end;
{=====}
(*****************************************************************************) (*****************************************************************************)
{ TVpGeneralFileNameProperty } { TVpGeneralFileNameProperty }
@ -365,40 +373,6 @@ begin
Result := 'Localization files (*.xml)|*.xml|' + inherited; Result := 'Localization files (*.xml)|*.xml|' + inherited;
end; 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 } { TVpWavFilenameProperty }
@ -428,51 +402,6 @@ begin
end; 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 } { TVpMediaFolderProperty }
function TVpMediaFolderProperty.GetAttributes: TPropertyAttributes; function TVpMediaFolderProperty.GetAttributes: TPropertyAttributes;
@ -518,7 +447,110 @@ begin
end; 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; procedure Register;
begin begin
{----------------------------------------------------------------------------} {----------------------------------------------------------------------------}
@ -621,11 +653,11 @@ begin
TVpCalendar, TVpCalendar,
TVpNavBar, TVpNavBar,
TVpFlexDataStore, TVpFlexDataStore,
{$IFDEF DELPHI} {$IFDEF DELPHI}
TVpBDEDataStore, // BDE is not available in Lazarus TVpBDEDataStore, // BDE is not available in Lazarus
TVpDateEdit, // Does not work in Lazarus TVpDateEdit, // Does not work in Lazarus
{$ENDIF} {$ENDIF}
{$IFDEF LCL} {$IFDEF LCL}
TVpIniDatastore, TVpIniDatastore,
TVpXmlDatastore, TVpXmlDatastore,
TVpBufDSDatastore, TVpBufDSDatastore,
@ -633,7 +665,7 @@ begin
TVpFirebirdDatastore, TVpFirebirdDatastore,
//TVpSdfDatastore, // to do (maybe)... //TVpSdfDatastore, // to do (maybe)...
//TVpDbfDatastore, // to do... //TVpDbfDatastore, // to do...
{$ENDIF} {$ENDIF}
TVpControlLink, TVpControlLink,
TVpPrintPreview, TVpPrintPreview,
TVpPrintFormatComboBox, TVpPrintFormatComboBox,
@ -650,7 +682,8 @@ begin
TVpContactEditDialog, TVpContactEditDialog,
TVpTaskEditDialog, TVpTaskEditDialog,
TVpPrintFormatEditDialog, TVpPrintFormatEditDialog,
TVpPrintPreviewDialog]); TVpPrintPreviewDialog
]);
end; end;
end. end.

View File

@ -36,12 +36,9 @@ interface
uses uses
{$IFDEF VERSION6} {$IFDEF VERSION6}
{$IFNDEF LCL} {$IFNDEF LCL}
DesignIntf, DesignEditors,VCLEditors, DesignIntf, DesignEditors, VCLEditors,
{$ELSE} {$ELSE}
PropEdits, PropEdits, LazarusPackageIntf, FieldsEditor, ComponentEditors,
LazarusPackageIntf,
FieldsEditor,
ComponentEditors,
{$ENDIF} {$ENDIF}
{$ELSE} {$ELSE}
DsgnIntf, DsgnIntf,

View File

@ -39,6 +39,7 @@ uses
Windows, Messages, Windows, Messages,
{$ENDIF} {$ENDIF}
Forms, Graphics, Controls, Dialogs, StdCtrls, ExtCtrls, Forms, Graphics, Controls, Dialogs, StdCtrls, ExtCtrls,
(*
{$IFDEF VERSION6} {$IFDEF VERSION6}
{$IFDEF DELPHI} {$IFDEF DELPHI}
DesignIntf, DesignEditors, DesignIntf, DesignEditors,
@ -48,6 +49,7 @@ uses
{$ELSE} {$ELSE}
DsgnIntf, DsgnIntf,
{$ENDIF} {$ENDIF}
*)
Classes, SysUtils; Classes, SysUtils;
type type
@ -87,13 +89,6 @@ type
IsServer : boolean; IsServer : boolean;
end; end;
TVpAboutProperty = class(TStringProperty)
public
function GetAttributes: TPropertyAttributes;
override;
procedure Edit;
override;
end;
implementation implementation
@ -118,25 +113,6 @@ const
LAZARUS_FORUM_URL = 'http://forum.lazarus.freepascal.org'; 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 } { FrmAbout }
procedure TfrmAbout.FormActivate(Sender: TObject); procedure TfrmAbout.FormActivate(Sender: TObject);
@ -151,7 +127,8 @@ var
begin begin
ProgramName.Caption := VpProductName + ' ' + VpVersionStr; ProgramName.Caption := VpProductName + ' ' + VpVersionStr;
DecodeDate(Now, Year, junk, junk); 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.', LineEnding + 'All rights reserved.',
[COPYRIGHT, Year]); [COPYRIGHT, Year]);

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -39,7 +39,7 @@ uses
{$IFDEF LCL} {$IFDEF LCL}
LCLProc, LCLType, LCLIntf, LazFileUtils, LCLProc, LCLType, LCLIntf, LazFileUtils,
{$ENDIF} {$ENDIF}
Classes, Dialogs,SysUtils, Graphics, Forms, Classes, Dialogs, SysUtils, Graphics, Forms,
VpBase, VpMisc, VpXParsr, VpPrtFmt; { For TVpAttributes } VpBase, VpMisc, VpXParsr, VpPrtFmt; { For TVpAttributes }
type type
@ -226,8 +226,6 @@ type
end; end;
implementation implementation
{ TVpLocalizeLanguageItem } { TVpLocalizeLanguageItem }

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

@ -33,11 +33,8 @@ unit VpXChrFlt;
interface interface
uses uses
SysUtils, SysUtils, Classes, VpSR,
Classes, VpBase, VpXBase;
VpSR,
VpBase,
VpXBase;
const const
VpEndOfStream = #1; VpEndOfStream = #1;
@ -144,8 +141,8 @@ type
implementation implementation
const const
CR = 13; {Carriage return} CR = 13; {Carriage return}
LF = 10; {Line feed} LF = 10; {Line feed}
{====================================================================} {====================================================================}
constructor TVpBaseCharFilter.Create(aStream : TStream; constructor TVpBaseCharFilter.Create(aStream : TStream;

View File

@ -45,32 +45,27 @@ type
StringIds = array[0..1] of DOMString; StringIds = array[0..1] of DOMString;
{== Event types ======================================================} {== Event types ======================================================}
TVpDocTypeDeclEvent = procedure(oOwner : TObject; TVpDocTypeDeclEvent = procedure(oOwner: TObject;
sDecl, sDecl, sId0, sId1: DOMString) of object;
sId0,
sId1 : DOMString) of object; TVpValueEvent = procedure(oOwner: TObject; sValue: DOMString) of object;
TVpValueEvent = procedure(oOwner : TObject;
sValue : DOMString) of object; TVpAttributeEvent = procedure(oOwner: TObject;
TVpAttributeEvent = procedure(oOwner : TObject; sName, sValue: DOMString; bSpecified: Boolean) of object;
sName,
sValue : DOMString; TVpProcessInstrEvent = procedure(oOwner: TObject;
bSpecified : Boolean) of object; sName, sValue: DOMString) of object;
TVpProcessInstrEvent = procedure(oOwner : TObject;
sName, TVpResolveEvent = procedure(oOwner: TObject;
sValue : DOMString) of object; const sName, sPublicId, sSystemId: DOMString;
TVpResolveEvent = procedure(oOwner : TObject; var sValue: DOMString) of object;
const sName,
sPublicId, TVpNonXMLEntityEvent = procedure(oOwner: TObject;
sSystemId : DOMString; sEntityName, sPublicId, sSystemId, sNotationName: DOMString) of object;
var sValue : DOMString) of object;
TVpNonXMLEntityEvent = procedure(oOwner : TObject; TVpPreserveSpaceEvent = procedure(oOwner: TObject; sElementName: DOMString;
sEntityName, var bPreserve: Boolean) of object;
sPublicId,
sSystemId,
sNotationName : DOMString) of object;
TVpPreserveSpaceEvent = procedure(oOwner : TObject;
sElementName : DOMString;
var bPreserve : Boolean) of object;
{== Class types ======================================================} {== Class types ======================================================}
TVpParser = class(TVpComponent) TVpParser = class(TVpComponent)
protected protected