You've already forked lazarus-ccr
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:
@ -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"/>
|
||||||
|
@ -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"/>
|
||||||
|
@ -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"/>
|
||||||
|
@ -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
|
||||||
|
@ -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"/>
|
||||||
|
@ -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"/>
|
||||||
|
@ -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>
|
||||||
|
@ -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"/>
|
||||||
|
@ -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"/>
|
||||||
|
@ -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"/>
|
||||||
|
@ -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
|
||||||
|
@ -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"/>
|
||||||
|
@ -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
|
||||||
|
@ -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"/>
|
||||||
|
@ -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"/>
|
||||||
|
@ -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 "License"); 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 "License"); 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 "AS IS" 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 "AS IS" 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>
|
84
components/tvplanit/laz_visualplanit_design.lpk
Normal file
84
components/tvplanit/laz_visualplanit_design.lpk
Normal 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 "License"); 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 "AS IS" 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
49
components/tvplanit/laz_visualplanit_zeos.lpk
Normal 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 "License"); 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 "AS IS" 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>
|
@ -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)"/>
|
@ -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
|
||||||
|
|
@ -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
|
@ -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.
|
@ -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,
|
@ -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]);
|
||||||
|
|
||||||
|
@ -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 }
|
||||||
|
|
||||||
|
@ -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;
|
||||||
|
@ -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;
|
||||||
|
@ -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;
|
||||||
|
@ -176,6 +176,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
{ TVpContactButtonBar }
|
{ TVpContactButtonBar }
|
||||||
|
|
||||||
constructor TVpContactButtonBar.Create(AOwner: TComponent);
|
constructor TVpContactButtonBar.Create(AOwner: TComponent);
|
||||||
|
@ -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;
|
||||||
|
@ -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
|
||||||
|
@ -47,7 +47,6 @@ type
|
|||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
StrUtils,
|
|
||||||
VpCanvasUtils, VpMisc, VpSR;
|
VpCanvasUtils, VpMisc, VpSR;
|
||||||
|
|
||||||
type
|
type
|
||||||
|
@ -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;
|
||||||
|
@ -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;
|
||||||
|
|
||||||
|
@ -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;
|
||||||
|
@ -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
|
||||||
|
@ -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);
|
||||||
|
@ -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}
|
||||||
|
@ -82,7 +82,8 @@ implementation
|
|||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Math, VpMisc, VpSR;
|
Math,
|
||||||
|
VpMisc, VpSR;
|
||||||
|
|
||||||
{ TfrmEditLayout }
|
{ TfrmEditLayout }
|
||||||
|
|
||||||
|
@ -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);
|
||||||
|
@ -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 }
|
||||||
|
@ -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;
|
||||||
|
@ -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)
|
||||||
|
@ -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;
|
||||||
|
@ -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
|
||||||
|
@ -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;
|
||||||
|
|
||||||
|
@ -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
|
||||||
|
@ -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 }
|
||||||
|
@ -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
|
||||||
|
@ -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
|
||||||
|
@ -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;
|
||||||
|
@ -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}
|
||||||
|
@ -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)
|
||||||
|
@ -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 }
|
||||||
|
|
||||||
|
@ -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;
|
||||||
|
@ -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;
|
||||||
|
@ -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 }
|
||||||
|
@ -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)
|
||||||
|
@ -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)
|
||||||
|
@ -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);
|
||||||
|
@ -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
|
||||||
|
@ -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)
|
||||||
|
@ -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 =
|
||||||
|
@ -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
|
||||||
|
|
||||||
|
@ -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;
|
||||||
|
@ -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)
|
||||||
|
@ -107,7 +107,8 @@ uses
|
|||||||
{$ELSE}
|
{$ELSE}
|
||||||
Windows,
|
Windows,
|
||||||
{$ENDIF}
|
{$ENDIF}
|
||||||
SysUtils, VpMisc;
|
SysUtils,
|
||||||
|
VpMisc;
|
||||||
|
|
||||||
|
|
||||||
{== Utility methods ==================================================}
|
{== Utility methods ==================================================}
|
||||||
|
@ -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;
|
||||||
|
@ -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
|
||||||
|
Reference in New Issue
Block a user