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

TvPlanIt: Fix compilation after Laz/main commit 74446557f6825c4ddadd9f6321a80147798dbf99. Less hints and warnings.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8836 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-06-15 10:20:49 +00:00
parent 875a3a826d
commit b84bdf27e1
10 changed files with 45 additions and 58 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@ -721,41 +721,41 @@ object MainForm: TMainForm
DrawingStyle = dsCoolTab
FolderCollection = <
item
Version = 'v1.7.0'
Version = 'v1.8.0'
Caption = 'Planner'
Enabled = True
FolderType = ftDefault
ItemCollection = <
item
Version = 'v1.7.0'
Version = 'v1.8.0'
Caption = 'Events'
IconIndex = 0
Name = 'NIEvents'
Tag = 0
end
item
Version = 'v1.7.0'
Version = 'v1.8.0'
Caption = 'Month view'
IconIndex = 5
Name = 'NIEventsByMonth'
Tag = 0
end
item
Version = 'v1.7.0'
Version = 'v1.8.0'
Caption = 'Week view'
IconIndex = 4
Name = 'NIEventsByWeek'
Tag = 0
end
item
Version = 'v1.7.0'
Version = 'v1.8.0'
Caption = 'Day view'
IconIndex = 3
Name = 'NIEventsByDay'
Tag = 0
end
item
Version = 'v1.7.0'
Version = 'v1.8.0'
Caption = 'Tasks'
Description = 'Show tasks'
IconIndex = 1
@ -763,7 +763,7 @@ object MainForm: TMainForm
Tag = 0
end
item
Version = 'v1.7.0'
Version = 'v1.8.0'
Caption = 'Contacts'
Description = 'Show address book'
IconIndex = 2
@ -775,20 +775,20 @@ object MainForm: TMainForm
Tag = 0
end
item
Version = 'v1.7.0'
Version = 'v1.8.0'
Caption = 'Maintenance'
Enabled = True
FolderType = ftDefault
ItemCollection = <
item
Version = 'v1.7.0'
Version = 'v1.8.0'
Caption = 'Resources'
IconIndex = 7
Name = 'NIResources'
Tag = 0
end
item
Version = 'v1.7.0'
Version = 'v1.8.0'
Caption = 'Settings'
IconIndex = 8
Name = 'NISettings'
@ -825,12 +825,12 @@ object MainForm: TMainForm
Printer.MarginUnits = imPercent
Printer.PrintFormats = <
item
Version = 'v1.7.0'
Version = 'v1.8.0'
DayInc = 0
DayIncUnits = duDay
Elements = <
item
Version = 'v1.7.0'
Version = 'v1.8.0'
Caption.Caption = 'Current week'
Caption.Font.Style = [fsItalic]
DayOffset = 0
@ -845,12 +845,12 @@ object MainForm: TMainForm
FormatName = 'Events of current week (Day view)'
end
item
Version = 'v1.7.0'
Version = 'v1.8.0'
DayInc = 0
DayIncUnits = duWeek
Elements = <
item
Version = 'v1.7.0'
Version = 'v1.8.0'
DayOffset = 0
DayOffsetUnits = duDay
ElementName = 'WeekView'
@ -864,12 +864,12 @@ object MainForm: TMainForm
FormatName = 'Events of current week (Week view)'
end
item
Version = 'v1.7.0'
Version = 'v1.8.0'
DayInc = 0
DayIncUnits = duDay
Elements = <
item
Version = 'v1.7.0'
Version = 'v1.8.0'
DayOffset = 0
DayOffsetUnits = duWeek
ElementName = 'TaskList'
@ -883,12 +883,12 @@ object MainForm: TMainForm
FormatName = 'Tasks of current week'
end
item
Version = 'v1.7.0'
Version = 'v1.8.0'
DayInc = 0
DayIncUnits = duDay
Elements = <
item
Version = 'v1.7.0'
Version = 'v1.8.0'
DayOffset = 0
DayOffsetUnits = duDay
ElementName = 'TaskList'
@ -903,12 +903,12 @@ object MainForm: TMainForm
FormatName = 'Tasks of current week (landscape)'
end
item
Version = 'v1.7.0'
Version = 'v1.8.0'
DayInc = 1
DayIncUnits = duWeek
Elements = <
item
Version = 'v1.7.0'
Version = 'v1.8.0'
DayOffset = 0
DayOffsetUnits = duDay
ElementName = 'WeekView'
@ -928,7 +928,7 @@ object MainForm: TMainForm
Top = 200
end
object VpResourceEditDialog1: TVpResourceEditDialog
Version = 'v1.7.0'
Version = 'v1.8.0'
Options = []
Placement.Position = mpCenter
Placement.Top = 10
@ -1350,7 +1350,7 @@ object MainForm: TMainForm
Top = 344
end
object VpPrintPreviewDialog1: TVpPrintPreviewDialog
Version = 'v1.7.0'
Version = 'v1.8.0'
ControlLink = VpControlLink1
EndDate = 42561.5151169907
MarginUnits = imPercent
@ -1365,7 +1365,7 @@ object MainForm: TMainForm
Top = 432
end
object VpPrintFormatEditDialog1: TVpPrintFormatEditDialog
Version = 'v1.7.0'
Version = 'v1.8.0'
ControlLink = VpControlLink1
Options = []
Placement.Position = mpCenter

3
components/tvplanit/examples/fulldemo/demomain.pas
View File

@ -881,8 +881,7 @@ begin
end;
CbLanguages.Items.Assign(po);
// SetLanguage(lang);
SetLanguage(GetDefaultLang);
SetLanguage(lang);
finally
po.Free;