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

TvPlanIt: Workaround for opaque labels issue in Laz 2.2.4.

Browse Source 
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@8692 8e941d3f-bd1b-0410-a28a-d453659cc2b4
This commit is contained in:
wp_xxyyzz
2023-01-18 10:55:52 +00:00
parent 19b469917e
commit 98b7bb2e30
26 changed files with 83 additions and 84 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.0.7'
Version = 'v1.7.0'
Caption = 'Planner'
Enabled = True
FolderType = ftDefault
ItemCollection = <
item
Version = 'v1.0.7'
Version = 'v1.7.0'
Caption = 'Events'
IconIndex = 0
Name = 'NIEvents'
Tag = 0
end
item
Version = 'v1.0.7'
Version = 'v1.7.0'
Caption = 'Month view'
IconIndex = 5
Name = 'NIEventsByMonth'
Tag = 0
end
item
Version = 'v1.0.7'
Version = 'v1.7.0'
Caption = 'Week view'
IconIndex = 4
Name = 'NIEventsByWeek'
Tag = 0
end
item
Version = 'v1.0.7'
Version = 'v1.7.0'
Caption = 'Day view'
IconIndex = 3
Name = 'NIEventsByDay'
Tag = 0
end
item
Version = 'v1.0.7'
Version = 'v1.7.0'
Caption = 'Tasks'
Description = 'Show tasks'
IconIndex = 1
@ -763,7 +763,7 @@ object MainForm: TMainForm
Tag = 0
end
item
Version = 'v1.0.7'
Version = 'v1.7.0'
Caption = 'Contacts'
Description = 'Show address book'
IconIndex = 2
@ -775,20 +775,20 @@ object MainForm: TMainForm
Tag = 0
end
item
Version = 'v1.0.7'
Version = 'v1.7.0'
Caption = 'Maintenance'
Enabled = True
FolderType = ftDefault
ItemCollection = <
item
Version = 'v1.0.7'
Version = 'v1.7.0'
Caption = 'Resources'
IconIndex = 7
Name = 'NIResources'
Tag = 0
end
item
Version = 'v1.0.7'
Version = 'v1.7.0'
Caption = 'Settings'
IconIndex = 8
Name = 'NISettings'
@ -825,12 +825,12 @@ object MainForm: TMainForm
Printer.MarginUnits = imPercent
Printer.PrintFormats = <
item
Version = 'v1.0.7'
Version = 'v1.7.0'
DayInc = 0
DayIncUnits = duDay
Elements = <
item
Version = 'v1.0.7'
Version = 'v1.7.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.0.7'
Version = 'v1.7.0'
DayInc = 0
DayIncUnits = duWeek
Elements = <
item
Version = 'v1.0.7'
Version = 'v1.7.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.0.7'
Version = 'v1.7.0'
DayInc = 0
DayIncUnits = duDay
Elements = <
item
Version = 'v1.0.7'
Version = 'v1.7.0'
DayOffset = 0
DayOffsetUnits = duWeek
ElementName = 'TaskList'
@ -883,12 +883,12 @@ object MainForm: TMainForm
FormatName = 'Tasks of current week'
end
item
Version = 'v1.0.7'
Version = 'v1.7.0'
DayInc = 0
DayIncUnits = duDay
Elements = <
item
Version = 'v1.0.7'
Version = 'v1.7.0'
DayOffset = 0
DayOffsetUnits = duDay
ElementName = 'TaskList'
@ -903,12 +903,12 @@ object MainForm: TMainForm
FormatName = 'Tasks of current week (landscape)'
end
item
Version = 'v1.0.7'
Version = 'v1.7.0'
DayInc = 1
DayIncUnits = duWeek
Elements = <
item
Version = 'v1.0.7'
Version = 'v1.7.0'
DayOffset = 0
DayOffsetUnits = duDay
ElementName = 'WeekView'
@ -928,7 +928,7 @@ object MainForm: TMainForm
Top = 200
end
object VpResourceEditDialog1: TVpResourceEditDialog
Version = 'v1.0.7'
Version = 'v1.7.0'
Options = []
Placement.Position = mpCenter
Placement.Top = 10
@ -1350,7 +1350,7 @@ object MainForm: TMainForm
Top = 344
end
object VpPrintPreviewDialog1: TVpPrintPreviewDialog
Version = 'v1.0.7'
Version = 'v1.7.0'
ControlLink = VpControlLink1
EndDate = 42561.5151169907
MarginUnits = imPercent
@ -1365,7 +1365,7 @@ object MainForm: TMainForm
Top = 432
end
object VpPrintFormatEditDialog1: TVpPrintFormatEditDialog
Version = 'v1.0.7'
Version = 'v1.7.0'
ControlLink = VpControlLink1
Options = []
Placement.Position = mpCenter

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

@ -673,6 +673,8 @@ begin
// Fix TLabel transparency issue of Laz 2.2+
for i := 0 to ComponentCount-1 do
if Components[i] is TLabel then TLabel(Components[i]).Transparent := true;
FixLabels(self);
end;
procedure TMainForm.FormDestroy(Sender: TObject);