paweld/lazarus-ccr
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

tvplanit: Fix compilation with Laz 3.0

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@9111 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz 2023-12-30 18:03:58 +00:00
parent 360f872175
commit f30d928804
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -32,7 +32,7 @@ type
function GetEventText(AEvent: TVpICalEvent): String;
procedure SetCalendar(const AValue: TVpICalendar);
{$IF LCL_FullVersion >= 3000000}
{$IF LCL_FullVersion >= 3990000}
private
FCanCloseTaskDialog: Boolean;
procedure OpenEndEventsDialog;
@ -222,7 +222,7 @@ procedure TVpImportPreviewICalEventForm.btnExecuteClick(Sender: TObject);
begin
if FCalendar.ContainsOpenEndEvents then
begin
{$IF LCL_FullVersion >= 3000000}
{$IF LCL_FullVersion >= 3990000}
OpenEndEventsDialog;
{$ELSE}
if not (rbOpenEndDuration30mins.Checked or rbOpenEndDuration1Hr.Checked or
@ -283,7 +283,7 @@ begin
Result := item.Checked;
end;
{$IF LCL_FullVersion >= 3000000}
{$IF LCL_FullVersion >= 3990000}
procedure TVpImportPreviewICalEventForm.OpenendEventsDialog;
const
DURATIONS: array[0..3] of Double = (0.5/24, 1.0/24, 2.0/24, 4.0/24);