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

tvplanit: Fix compilation with Laz 1.8.4. Avoid crashes of import methods if no resource has been created.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@6508 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2018-06-18 20:01:53 +00:00
parent c2bdef7621
commit bab84c3523
10 changed files with 26 additions and 17 deletions
Download Patch File Download Diff File Expand all files Collapse all files

1
components/tvplanit/examples/fulldemo/demomain.lfm
View File

@ -775,7 +775,6 @@ object MainForm: TMainForm
Tag = 0
end>
Images = ImageList1
ImagesWidth = 0
ItemFont.Color = clWhite
SelectedItem = -1
SelectedItemFont.Color = clWhite

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

@ -128,7 +128,6 @@ object Form1: TForm1
ContainerIndex = 0
end>
Images = Images
ImagesWidth = 0
ItemFont.Color = clWhite
ItemSpacing = 5
SelectedItem = -1

2
components/tvplanit/examples/runtime/unit1.lfm
View File

@ -7,7 +7,7 @@ object Form1: TForm1
ClientHeight = 441
ClientWidth = 934
OnCreate = FormCreate
LCLVersion = '1.9.0.0'
LCLVersion = '1.8.4.0'
object Panel1: TPanel
Left = 0
Height = 42

2
components/tvplanit/examples/runtime/unit1.pas
View File

@ -64,7 +64,7 @@ begin
ControlLink := TVpControlLink.Create(self);
ControlLink.Datastore := Datastore;
// This establishes the links to all controls that depend on Datastore.
// Must be called when all dependent controls are created.
// Must be called when all dependent controls have been created.
if Datastore.Resources.Count > 0 then
Datastore.Resource := Datastore.Resources.Items[0];

6
components/tvplanit/laz_visualplanit.lpk
View File

@ -303,7 +303,7 @@ Contributor(s): "/>
</Item67>
<Item68>
<Filename Value="source\vpxmlds.pas"/>
<UnitName Value="VpXmlDs"/>
<UnitName Value="VpXmlDS"/>
</Item68>
<Item69>
<Filename Value="source\vpxparsr.pas"/>
@ -319,11 +319,11 @@ Contributor(s): "/>
</Item71>
<Item72>
<Filename Value="source\vpvcard.pas"/>
<UnitName Value="vpvcard"/>
<UnitName Value="VpVCard"/>
</Item72>
<Item73>
<Filename Value="source\vpbasedatafiles.pas"/>
<UnitName Value="vpbasedatafiles"/>
<UnitName Value="VpBaseDataFiles"/>
</Item73>
<Item74>
<Filename Value="source\vpical.pas"/>

1
components/tvplanit/laz_visualplanit_zeos_design.lpk
View File

@ -14,6 +14,7 @@
<UnitOutputDirectory Value="lib\$(TargetCPU)-$(TargetOS)\zeos_design"/>
</SearchPaths>
</CompilerOptions>
<Description Value="Visual PlanIt datastore for ZEOS database components (Designtime package)"/>
<Version Major="1" Release="11"/>
<Files Count="1">
<Item1>

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

@ -1310,6 +1310,11 @@ var
id: Integer;
startTime, endTime: TDateTime;
begin
if ReadOnly or (not CheckCreateResource) or
(not Assigned(DataStore)) or (not Assigned(DataStore.Resource))
then
Exit;
dlg := TOpenDialog.Create(nil);
try
dlg.Title := RSLoadICalTitle;

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

@ -344,7 +344,9 @@ type
property DrawingStyle: TVpFolderDrawingStyle read FDrawingStyle write SetDrawingStyle;
property FolderCollection: TVpCollection read FFolders write FFolders;
property Images: TImageList read FImages write SetImages;
property ImagesWidth: Integer read FImagesWidth write SetImagesWidth;
{$IF LCL_FullVersion >= 1090000}
property ImagesWidth: Integer read FImagesWidth write SetImagesWidth default 0;
{$ENDIF}
property ItemFont: TFont read FItemFont write SetItemFont;
property ItemSpacing: Integer read FItemSpacing write SetItemSpacing stored IsStoredItemSpacing;
property ItemTheme: TVpItemTheme read FItemTheme write FItemTheme default itNoTheme;

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

@ -904,8 +904,10 @@ var
i: Integer;
id: Integer;
begin
if ReadOnly or (not CheckCreateResource) then
exit;
if ReadOnly or (not CheckCreateResource) or
(not Assigned(DataStore)) or (not Assigned(DataStore.Resource))
then
Exit;
dlg := TOpenDialog.Create(nil);
try

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

@ -1222,13 +1222,9 @@ var
StartTime: TDateTime;
EndTime: TDateTime;
begin
if ReadOnly then
Exit;
if not CheckCreateResource then
Exit;
if not Assigned(DataStore) then
Exit;
if not Assigned(DataStore.Resource) then
if ReadOnly or (not CheckCreateResource) or
(not Assigned(DataStore) ) or (not Assigned(DataStore.Resource))
then
Exit;
StartTime := trunc(Date) + 1 / 2; { default to 12:00 noon }
@ -1253,6 +1249,11 @@ var
id: Integer;
startTime, endTime: TDateTime;
begin
if ReadOnly or (not CheckCreateResource) or
(not Assigned(DataStore)) or (not Assigned(DataStore.Resource))
then
Exit;
dlg := TOpenDialog.Create(nil);
try
dlg.Title := RSLoadICalTitle;