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 DrawingStyle = dsCoolTab
FolderCollection = < FolderCollection = <
item item
Version = 'v1.0.7' Version = 'v1.7.0'
Caption = 'Planner' Caption = 'Planner'
Enabled = True Enabled = True
FolderType = ftDefault FolderType = ftDefault
ItemCollection = < ItemCollection = <
item item
Version = 'v1.0.7' Version = 'v1.7.0'
Caption = 'Events' Caption = 'Events'
IconIndex = 0 IconIndex = 0
Name = 'NIEvents' Name = 'NIEvents'
Tag = 0 Tag = 0
end end
item item
Version = 'v1.0.7' Version = 'v1.7.0'
Caption = 'Month view' Caption = 'Month view'
IconIndex = 5 IconIndex = 5
Name = 'NIEventsByMonth' Name = 'NIEventsByMonth'
Tag = 0 Tag = 0
end end
item item
Version = 'v1.0.7' Version = 'v1.7.0'
Caption = 'Week view' Caption = 'Week view'
IconIndex = 4 IconIndex = 4
Name = 'NIEventsByWeek' Name = 'NIEventsByWeek'
Tag = 0 Tag = 0
end end
item item
Version = 'v1.0.7' Version = 'v1.7.0'
Caption = 'Day view' Caption = 'Day view'
IconIndex = 3 IconIndex = 3
Name = 'NIEventsByDay' Name = 'NIEventsByDay'
Tag = 0 Tag = 0
end end
item item
Version = 'v1.0.7' Version = 'v1.7.0'
Caption = 'Tasks' Caption = 'Tasks'
Description = 'Show tasks' Description = 'Show tasks'
IconIndex = 1 IconIndex = 1
@ -763,7 +763,7 @@ object MainForm: TMainForm
Tag = 0 Tag = 0
end end
item item
Version = 'v1.0.7' Version = 'v1.7.0'
Caption = 'Contacts' Caption = 'Contacts'
Description = 'Show address book' Description = 'Show address book'
IconIndex = 2 IconIndex = 2
@ -775,20 +775,20 @@ object MainForm: TMainForm
Tag = 0 Tag = 0
end end
item item
Version = 'v1.0.7' Version = 'v1.7.0'
Caption = 'Maintenance' Caption = 'Maintenance'
Enabled = True Enabled = True
FolderType = ftDefault FolderType = ftDefault
ItemCollection = < ItemCollection = <
item item
Version = 'v1.0.7' Version = 'v1.7.0'
Caption = 'Resources' Caption = 'Resources'
IconIndex = 7 IconIndex = 7
Name = 'NIResources' Name = 'NIResources'
Tag = 0 Tag = 0
end end
item item
Version = 'v1.0.7' Version = 'v1.7.0'
Caption = 'Settings' Caption = 'Settings'
IconIndex = 8 IconIndex = 8
Name = 'NISettings' Name = 'NISettings'
@ -825,12 +825,12 @@ object MainForm: TMainForm
Printer.MarginUnits = imPercent Printer.MarginUnits = imPercent
Printer.PrintFormats = < Printer.PrintFormats = <
item item
Version = 'v1.0.7' Version = 'v1.7.0'
DayInc = 0 DayInc = 0
DayIncUnits = duDay DayIncUnits = duDay
Elements = < Elements = <
item item
Version = 'v1.0.7' Version = 'v1.7.0'
Caption.Caption = 'Current week' Caption.Caption = 'Current week'
Caption.Font.Style = [fsItalic] Caption.Font.Style = [fsItalic]
DayOffset = 0 DayOffset = 0
@ -845,12 +845,12 @@ object MainForm: TMainForm
FormatName = 'Events of current week (Day view)' FormatName = 'Events of current week (Day view)'
end end
item item
Version = 'v1.0.7' Version = 'v1.7.0'
DayInc = 0 DayInc = 0
DayIncUnits = duWeek DayIncUnits = duWeek
Elements = < Elements = <
item item
Version = 'v1.0.7' Version = 'v1.7.0'
DayOffset = 0 DayOffset = 0
DayOffsetUnits = duDay DayOffsetUnits = duDay
ElementName = 'WeekView' ElementName = 'WeekView'
@ -864,12 +864,12 @@ object MainForm: TMainForm
FormatName = 'Events of current week (Week view)' FormatName = 'Events of current week (Week view)'
end end
item item
Version = 'v1.0.7' Version = 'v1.7.0'
DayInc = 0 DayInc = 0
DayIncUnits = duDay DayIncUnits = duDay
Elements = < Elements = <
item item
Version = 'v1.0.7' Version = 'v1.7.0'
DayOffset = 0 DayOffset = 0
DayOffsetUnits = duWeek DayOffsetUnits = duWeek
ElementName = 'TaskList' ElementName = 'TaskList'
@ -883,12 +883,12 @@ object MainForm: TMainForm
FormatName = 'Tasks of current week' FormatName = 'Tasks of current week'
end end
item item
Version = 'v1.0.7' Version = 'v1.7.0'
DayInc = 0 DayInc = 0
DayIncUnits = duDay DayIncUnits = duDay
Elements = < Elements = <
item item
Version = 'v1.0.7' Version = 'v1.7.0'
DayOffset = 0 DayOffset = 0
DayOffsetUnits = duDay DayOffsetUnits = duDay
ElementName = 'TaskList' ElementName = 'TaskList'
@ -903,12 +903,12 @@ object MainForm: TMainForm
FormatName = 'Tasks of current week (landscape)' FormatName = 'Tasks of current week (landscape)'
end end
item item
Version = 'v1.0.7' Version = 'v1.7.0'
DayInc = 1 DayInc = 1
DayIncUnits = duWeek DayIncUnits = duWeek
Elements = < Elements = <
item item
Version = 'v1.0.7' Version = 'v1.7.0'
DayOffset = 0 DayOffset = 0
DayOffsetUnits = duDay DayOffsetUnits = duDay
ElementName = 'WeekView' ElementName = 'WeekView'
@ -928,7 +928,7 @@ object MainForm: TMainForm
Top = 200 Top = 200
end end
object VpResourceEditDialog1: TVpResourceEditDialog object VpResourceEditDialog1: TVpResourceEditDialog
Version = 'v1.0.7' Version = 'v1.7.0'
Options = [] Options = []
Placement.Position = mpCenter Placement.Position = mpCenter
Placement.Top = 10 Placement.Top = 10
@ -1350,7 +1350,7 @@ object MainForm: TMainForm
Top = 344 Top = 344
end end
object VpPrintPreviewDialog1: TVpPrintPreviewDialog object VpPrintPreviewDialog1: TVpPrintPreviewDialog
Version = 'v1.0.7' Version = 'v1.7.0'
ControlLink = VpControlLink1 ControlLink = VpControlLink1
EndDate = 42561.5151169907 EndDate = 42561.5151169907
MarginUnits = imPercent MarginUnits = imPercent
@ -1365,7 +1365,7 @@ object MainForm: TMainForm
Top = 432 Top = 432
end end
object VpPrintFormatEditDialog1: TVpPrintFormatEditDialog object VpPrintFormatEditDialog1: TVpPrintFormatEditDialog
Version = 'v1.0.7' Version = 'v1.7.0'
ControlLink = VpControlLink1 ControlLink = VpControlLink1
Options = [] Options = []
Placement.Position = mpCenter 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+ // Fix TLabel transparency issue of Laz 2.2+
for i := 0 to ComponentCount-1 do for i := 0 to ComponentCount-1 do
if Components[i] is TLabel then TLabel(Components[i]).Transparent := true; if Components[i] is TLabel then TLabel(Components[i]).Transparent := true;
FixLabels(self);
end; end;
procedure TMainForm.FormDestroy(Sender: TObject); procedure TMainForm.FormDestroy(Sender: TObject);

7
components/tvplanit/source/vpalarmdlg.lfm
View File

@ -15,6 +15,7 @@ object AlarmNotifyForm: TAlarmNotifyForm
OnCreate = FormCreate OnCreate = FormCreate
OnKeyDown = FormKeyDown OnKeyDown = FormKeyDown
OnShow = FormShow OnShow = FormShow
LCLVersion = '2.3.0.0'
object SnoozeCaption: TLabel object SnoozeCaption: TLabel
AnchorSideLeft.Control = lTime AnchorSideLeft.Control = lTime
AnchorSideTop.Control = Bevel1 AnchorSideTop.Control = Bevel1
@ -29,7 +30,6 @@ object AlarmNotifyForm: TAlarmNotifyForm
BorderSpacing.Right = 8 BorderSpacing.Right = 8
BorderSpacing.Bottom = 8 BorderSpacing.Bottom = 8
Caption = 'SnoozeCaption' Caption = 'SnoozeCaption'
Color = clDefault
Constraints.MinWidth = 200 Constraints.MinWidth = 200
ParentColor = False ParentColor = False
end end
@ -43,7 +43,6 @@ object AlarmNotifyForm: TAlarmNotifyForm
Width = 45 Width = 45
BorderSpacing.Top = 4 BorderSpacing.Top = 4
Caption = 'lSubject' Caption = 'lSubject'
Color = clDefault
Font.Style = [fsBold] Font.Style = [fsBold]
ParentColor = False ParentColor = False
ParentFont = False ParentFont = False
@ -58,7 +57,6 @@ object AlarmNotifyForm: TAlarmNotifyForm
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Top = 8 BorderSpacing.Top = 8
Caption = 'lTime' Caption = 'lTime'
Color = clDefault
ParentColor = False ParentColor = False
end end
object DismissBtn: TButton object DismissBtn: TButton
@ -163,7 +161,6 @@ object AlarmNotifyForm: TAlarmNotifyForm
BorderSpacing.Top = 8 BorderSpacing.Top = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'lNotes' Caption = 'lNotes'
Color = clDefault
ParentColor = False ParentColor = False
WordWrap = True WordWrap = True
end end
@ -182,7 +179,7 @@ object AlarmNotifyForm: TAlarmNotifyForm
Shape = bsTopLine Shape = bsTopLine
end end
object EventDialog: TVpEventEditDialog object EventDialog: TVpEventEditDialog
Version = 'v1.0.7' Version = 'v1.7.0'
TimeFormat = tf24Hour TimeFormat = tf24Hour
Options = [] Options = []
Placement.Position = mpCenterTop Placement.Position = mpCenterTop

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

@ -115,8 +115,6 @@ begin
FPlacement.Position := mpCustom; FPlacement.Position := mpCustom;
FPlacement.Width := 412; FPlacement.Width := 412;
end; end;
{=====}
procedure TVpNotificationDialog.Execute(Event: TVpEvent); procedure TVpNotificationDialog.Execute(Event: TVpEvent);
var var
@ -143,7 +141,7 @@ begin
end; end;
end; end;
end; end;
{=====}
{ TAlarmNotifyForm } { TAlarmNotifyForm }
@ -199,8 +197,6 @@ begin
ShowTime := Now; ShowTime := Now;
end; end;
end; end;
{=====}
procedure TAlarmNotifyForm.SnoozeComboChange(Sender: TObject); procedure TAlarmNotifyForm.SnoozeComboChange(Sender: TObject);
begin begin
@ -228,14 +224,12 @@ begin
20: SnoozeDelay := 7.0; {1 week } 20: SnoozeDelay := 7.0; {1 week }
end; end;
end; end;
{=====}
procedure TAlarmNotifyForm.SnoozeBtnClick(Sender: TObject); procedure TAlarmNotifyForm.SnoozeBtnClick(Sender: TObject);
begin begin
CalcSnooze; CalcSnooze;
Close; Close;
end; end;
{=====}
procedure TAlarmNotifyForm.DismissBtnClick(Sender: TObject); procedure TAlarmNotifyForm.DismissBtnClick(Sender: TObject);
var var
@ -268,11 +262,9 @@ end;
procedure TAlarmNotifyForm.FormCreate(Sender: TObject); procedure TAlarmNotifyForm.FormCreate(Sender: TObject);
begin begin
// SnoozeCombo.Top := SnoozeBtn.Top + (SnoozeBtn.Height - SnoozeCombo.Height) div 2; FixLabels(Self);
end; end;
{=====}
procedure TAlarmNotifyForm.OpenItemBtnClick(Sender: TObject); procedure TAlarmNotifyForm.OpenItemBtnClick(Sender: TObject);
begin begin
Self.Hide; Self.Hide;
@ -280,7 +272,6 @@ begin
EventDialog.Execute(Event); EventDialog.Execute(Event);
Close; Close;
end; end;
{=====}
procedure TAlarmNotifyForm.FormKeyDown(Sender: TObject; var Key: Word; procedure TAlarmNotifyForm.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState); Shift: TShiftState);
@ -291,13 +282,11 @@ begin
Close; Close;
end; end;
end; end;
{=====}
procedure TAlarmNotifyForm.CalcSnooze; procedure TAlarmNotifyForm.CalcSnooze;
begin begin
Event.SnoozeTime := Now + SnoozeDelay; Event.SnoozeTime := Now + SnoozeDelay;
end; end;
{=====}
procedure TAlarmNotifyForm.FormShow(Sender: TObject); procedure TAlarmNotifyForm.FormShow(Sender: TObject);
begin begin

6
components/tvplanit/source/vpcontacteditdlg.lfm
View File

@ -13,7 +13,7 @@ object ContactEditForm: TContactEditForm
OnKeyDown = FormKeyDown OnKeyDown = FormKeyDown
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.9.0.0' LCLVersion = '2.3.0.0'
object PageControl: TPageControl object PageControl: TPageControl
Left = 0 Left = 0
Height = 577 Height = 577
@ -97,10 +97,10 @@ object ContactEditForm: TContactEditForm
AnchorSideTop.Control = edTitle AnchorSideTop.Control = edTitle
AnchorSideTop.Side = asrCenter AnchorSideTop.Side = asrCenter
AnchorSideRight.Control = edTitle AnchorSideRight.Control = edTitle
Left = 75 Left = 76
Height = 15 Height = 15
Top = 66 Top = 66
Width = 23 Width = 22
Alignment = taRightJustify Alignment = taRightJustify
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Left = 8 BorderSpacing.Left = 8

1
components/tvplanit/source/vpcontacteditdlg.pas
View File

@ -205,6 +205,7 @@ procedure TContactEditForm.FormCreate(Sender: TObject);
begin begin
ReturnCode := rtAbandon; ReturnCode := rtAbandon;
SetCaptions; SetCaptions;
FixLabels(Self);
end; end;
procedure TContactEditForm.SetCaptions; procedure TContactEditForm.SetCaptions;

1
components/tvplanit/source/vpedelem.pas
View File

@ -182,6 +182,7 @@ begin
gbPosition.Font.Style := [fsBold]; gbPosition.Font.Style := [fsBold];
SetCaptions; SetCaptions;
FixLabels(Self);
end; end;
procedure TfrmEditElement.FormShow(Sender: TObject); procedure TfrmEditElement.FormShow(Sender: TObject);

4
components/tvplanit/source/vpedfmt.lfm
View File

@ -13,6 +13,7 @@ object frmEditFormat: TfrmEditFormat
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '2.3.0.0'
object Panel1: TPanel object Panel1: TPanel
Left = 8 Left = 8
Height = 148 Height = 148
@ -39,7 +40,6 @@ object frmEditFormat: TfrmEditFormat
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Name: ' Caption = 'Name: '
Color = clDefault
FocusControl = edName FocusControl = edName
ParentColor = False ParentColor = False
end end
@ -55,7 +55,6 @@ object frmEditFormat: TfrmEditFormat
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Day Increment:' Caption = 'Day Increment:'
Color = clDefault
FocusControl = edIncrement FocusControl = edIncrement
ParentColor = False ParentColor = False
end end
@ -71,7 +70,6 @@ object frmEditFormat: TfrmEditFormat
BorderSpacing.Left = 8 BorderSpacing.Left = 8
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Description: ' Caption = 'Description: '
Color = clDefault
FocusControl = edDescription FocusControl = edDescription
ParentColor = False ParentColor = False
end end

1
components/tvplanit/source/vpedfmt.pas
View File

@ -123,6 +123,7 @@ end;
procedure TfrmEditFormat.FormCreate(Sender: TObject); procedure TfrmEditFormat.FormCreate(Sender: TObject);
begin begin
SetCaptions; SetCaptions;
FixLabels(Self);
end; end;
procedure TfrmEditFormat.SaveData(AFormat: TVpPrintFormatItem); procedure TfrmEditFormat.SaveData(AFormat: TVpPrintFormatItem);

4
components/tvplanit/source/vpedfmtlst.lfm
View File

@ -21,7 +21,6 @@ object frmPrnFormat: TfrmPrnFormat
BorderSpacing.Left = 6 BorderSpacing.Left = 6
BorderSpacing.Top = 8 BorderSpacing.Top = 8
Caption = '&Formats:' Caption = '&Formats:'
Color = clDefault
FocusControl = lbFormats FocusControl = lbFormats
ParentColor = False ParentColor = False
end end
@ -35,7 +34,6 @@ object frmPrnFormat: TfrmPrnFormat
Width = 51 Width = 51
BorderSpacing.Top = 8 BorderSpacing.Top = 8
Caption = 'Ele&ments:' Caption = 'Ele&ments:'
Color = clDefault
FocusControl = lbElements FocusControl = lbElements
ParentColor = False ParentColor = False
end end
@ -80,7 +78,6 @@ object frmPrnFormat: TfrmPrnFormat
Alignment = taCenter Alignment = taCenter
Anchors = [akLeft, akBottom] Anchors = [akLeft, akBottom]
Caption = 'Print'#13#10'Order' Caption = 'Print'#13#10'Order'
Color = clDefault
ParentColor = False ParentColor = False
WordWrap = True WordWrap = True
end end
@ -306,7 +303,6 @@ object frmPrnFormat: TfrmPrnFormat
Width = 44 Width = 44
BorderSpacing.Left = 4 BorderSpacing.Left = 4
Caption = 'Preview:' Caption = 'Preview:'
Color = clDefault
ParentColor = False ParentColor = False
end end
object PrintPreview: TVpPrintPreview object PrintPreview: TVpPrintPreview

1
components/tvplanit/source/vpedfmtlst.pas
View File

@ -174,6 +174,7 @@ begin
EnableElementButtons(False); EnableElementButtons(False);
SetCaptions; SetCaptions;
FixLabels(Self);
end; end;
procedure TfrmPrnFormat.EnableMoveButtons; procedure TfrmPrnFormat.EnableMoveButtons;

3
components/tvplanit/source/vpedshape.lfm
View File

@ -15,7 +15,7 @@ object frmEditShape: TfrmEditShape
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
ShowHint = True ShowHint = True
LCLVersion = '1.6.4.0' LCLVersion = '2.3.0.0'
object gbBrush: TGroupBox object gbBrush: TGroupBox
AnchorSideLeft.Control = gbPen AnchorSideLeft.Control = gbPen
AnchorSideLeft.Side = asrBottom AnchorSideLeft.Side = asrBottom
@ -221,7 +221,6 @@ object frmEditShape: TfrmEditShape
Min = 0 Min = 0
Position = 0 Position = 0
TabOrder = 3 TabOrder = 3
Wrap = False
end end
object edPenWidth: TEdit object edPenWidth: TEdit
AnchorSideLeft.Control = cbPenStyle AnchorSideLeft.Control = cbPenStyle

1
components/tvplanit/source/vpedshape.pas
View File

@ -382,6 +382,7 @@ begin
UpdateBitmaps; UpdateBitmaps;
SetCaptions; SetCaptions;
FixLabels(Self);
end; end;
procedure TfrmEditShape.FormDestroy(Sender: TObject); procedure TfrmEditShape.FormDestroy(Sender: TObject);

9
components/tvplanit/source/vpevnteditdlg.lfm
View File

@ -11,6 +11,7 @@ object DlgEventEdit: TDlgEventEdit
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '2.3.0.0'
object ButtonPanel: TPanel object ButtonPanel: TPanel
Left = 0 Left = 0
Height = 37 Height = 37
@ -32,7 +33,6 @@ object DlgEventEdit: TDlgEventEdit
Width = 88 Width = 88
BorderSpacing.Left = 12 BorderSpacing.Left = 12
Caption = 'Resource Name' Caption = 'Resource Name'
Color = clDefault
Font.CharSet = ANSI_CHARSET Font.CharSet = ANSI_CHARSET
Font.Color = clMaroon Font.Color = clMaroon
Font.Style = [fsBold] Font.Style = [fsBold]
@ -134,7 +134,6 @@ object DlgEventEdit: TDlgEventEdit
BorderSpacing.Left = 12 BorderSpacing.Left = 12
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Description:' Caption = 'Description:'
Color = clDefault
ParentColor = False ParentColor = False
end end
object DescriptionEdit: TEdit object DescriptionEdit: TEdit
@ -161,7 +160,6 @@ object DlgEventEdit: TDlgEventEdit
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Location:' Caption = 'Location:'
Color = clDefault
FocusControl = LocationEdit FocusControl = LocationEdit
ParentColor = False ParentColor = False
end end
@ -192,7 +190,6 @@ object DlgEventEdit: TDlgEventEdit
BorderSpacing.Left = 12 BorderSpacing.Left = 12
BorderSpacing.Right = 12 BorderSpacing.Right = 12
Caption = 'Category:' Caption = 'Category:'
Color = clDefault
ParentColor = False ParentColor = False
end end
object Category: TComboBox object Category: TComboBox
@ -248,7 +245,6 @@ object DlgEventEdit: TDlgEventEdit
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'Start:' Caption = 'Start:'
Color = clDefault
ParentColor = False ParentColor = False
end end
object EndTimeLbl: TLabel object EndTimeLbl: TLabel
@ -264,7 +260,6 @@ object DlgEventEdit: TDlgEventEdit
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Right = 8 BorderSpacing.Right = 8
Caption = 'End:' Caption = 'End:'
Color = clDefault
ParentColor = False ParentColor = False
end end
object StartDate: TDateEdit object StartDate: TDateEdit
@ -410,7 +405,6 @@ object DlgEventEdit: TDlgEventEdit
Width = 136 Width = 136
BorderSpacing.Left = 12 BorderSpacing.Left = 12
Caption = 'Appointment Recurrence:' Caption = 'Appointment Recurrence:'
Color = clDefault
ParentColor = False ParentColor = False
end end
object RecurringType: TComboBox object RecurringType: TComboBox
@ -440,7 +434,6 @@ object DlgEventEdit: TDlgEventEdit
Anchors = [akTop, akRight] Anchors = [akTop, akRight]
BorderSpacing.Left = 36 BorderSpacing.Left = 36
Caption = 'Interval (days):' Caption = 'Interval (days):'
Color = clDefault
ParentColor = False ParentColor = False
end end
object CustomInterval: TEdit object CustomInterval: TEdit

2
components/tvplanit/source/vpevnteditdlg.pas
View File

@ -275,6 +275,8 @@ begin
Category.DropDownCount := DROPDOWN_COUNT; Category.DropDownCount := DROPDOWN_COUNT;
Category.ItemHeight := LocationEdit.Height - 4; Category.ItemHeight := LocationEdit.Height - 4;
FixLabels(self);
end; end;
{=====} {=====}

2
components/tvplanit/source/vpflxdsed1.lfm
View File

@ -12,7 +12,7 @@ object frmFieldMapper: TfrmFieldMapper
OnClose = FormClose OnClose = FormClose
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.6.4.0' LCLVersion = '2.3.0.0'
object ButtonPanel: TPanel object ButtonPanel: TPanel
Left = 0 Left = 0
Height = 35 Height = 35

1
components/tvplanit/source/vpflxdsed1.pas
View File

@ -248,6 +248,7 @@ end;
procedure TfrmFieldMapper.FormShow(Sender: TObject); procedure TfrmFieldMapper.FormShow(Sender: TObject);
begin begin
FixLabels(Self);
PositionControls; PositionControls;
DatasetCombo.Items.Clear; DatasetCombo.Items.Clear;

18
components/tvplanit/source/vpmisc.pas
View File

@ -35,7 +35,7 @@ interface
uses uses
{$IFDEF LCL} {$IFDEF LCL}
LCLProc, LCLType, LCLIntf, LCLProc, LCLType, LCLIntf, LCLVersion,
{$ELSE} {$ELSE}
Windows, Consts, Messages, Windows, Consts, Messages,
{$ENDIF} {$ENDIF}
@ -207,6 +207,8 @@ procedure LoadImageFromRCDATA(AImage: TImage; ABaseResName: String;
function GetScrollbarHeight: Integer; function GetScrollbarHeight: Integer;
function GetScrollbarWidth: Integer; function GetScrollbarWidth: Integer;
procedure FixLabels(AForm: TCustomForm);
procedure Unused(const A1); overload; procedure Unused(const A1); overload;
procedure Unused(const A1, A2); overload; procedure Unused(const A1, A2); overload;
procedure Unused(const A1, A2, A3); overload; procedure Unused(const A1, A2, A3); overload;
@ -1281,6 +1283,20 @@ begin
Result := GetSystemMetrics(SM_CXVSCROLL); Result := GetSystemMetrics(SM_CXVSCROLL);
end; end;
{ Fix label transparency issue in Laz v2.2.4 }
procedure FixLabels(AForm: TCustomForm);
{$IF LCL_FullVersion = 2020400}
var
i: Integer;
{$IFEND}
begin
{$IF LCL_FullVersion = 2020400}
for i := 0 to AForm.ControlCount-1 do
if AForm.Controls[i] is TLabel
then TLabel(AForm.Controls[i]).Transparent := true;
{$IFEND}
end;
{$PUSH}{$HINTS OFF} {$PUSH}{$HINTS OFF}
procedure Unused(const A1); procedure Unused(const A1);
begin begin

1
components/tvplanit/source/vpprtprvdlg.pas
View File

@ -183,6 +183,7 @@ begin
Toolbar1.ButtonHeight := ScaleY(Toolbar1.ButtonHeight, DesignTimeDPI); Toolbar1.ButtonHeight := ScaleY(Toolbar1.ButtonHeight, DesignTimeDPI);
{$IFEND} {$IFEND}
Toolbar1.ButtonWidth := Toolbar1.ButtonHeight; Toolbar1.ButtonWidth := Toolbar1.ButtonHeight;
FixLabels(Self);
end; end;
procedure TfrmPrintPreview.PopulateImageList; procedure TfrmPrintPreview.PopulateImageList;

2
components/tvplanit/source/vpreseditdlg.lfm
View File

@ -79,7 +79,6 @@ object ResEditForm: TResEditForm
Width = 63 Width = 63
BorderSpacing.Left = 8 BorderSpacing.Left = 8
Caption = 'Description:' Caption = 'Description:'
Color = clDefault
ParentColor = False ParentColor = False
end end
object lblNotes: TLabel object lblNotes: TLabel
@ -92,7 +91,6 @@ object ResEditForm: TResEditForm
Width = 34 Width = 34
BorderSpacing.Top = 8 BorderSpacing.Top = 8
Caption = 'Notes:' Caption = 'Notes:'
Color = clDefault
ParentColor = False ParentColor = False
end end
object imgResources: TImage object imgResources: TImage

1
components/tvplanit/source/vpreseditdlg.pas
View File

@ -259,6 +259,7 @@ procedure TResEditForm.FormCreate(Sender: TObject);
begin begin
ReturnCode := rtAbandon; ReturnCode := rtAbandon;
ResourceChanged := false; ResourceChanged := false;
FixLabels(Self);
end; end;
{=====} {=====}

9
components/tvplanit/source/vpselresdlg.lfm
View File

@ -8,8 +8,9 @@ object frmSelectResource: TfrmSelectResource
Caption = 'Select a Resource' Caption = 'Select a Resource'
ClientHeight = 162 ClientHeight = 162
ClientWidth = 274 ClientWidth = 274
OnCreate = FormCreate
Position = poDesktopCenter Position = poDesktopCenter
LCLVersion = '1.6.4.0' LCLVersion = '2.3.0.0'
object Bevel1: TBevel object Bevel1: TBevel
Left = 8 Left = 8
Height = 105 Height = 105
@ -70,14 +71,14 @@ object frmSelectResource: TfrmSelectResource
TabOrder = 2 TabOrder = 2
end end
object VpResourceEditDialog1: TVpResourceEditDialog object VpResourceEditDialog1: TVpResourceEditDialog
Version = 'v1.05' Version = 'v1.7.0'
Options = [] Options = []
Placement.Position = mpCenter Placement.Position = mpCenter
Placement.Top = 10 Placement.Top = 10
Placement.Left = 10 Placement.Left = 10
Placement.Height = 250 Placement.Height = 250
Placement.Width = 400 Placement.Width = 400
left = 232 Left = 232
top = 16 Top = 16
end end
end end

11
components/tvplanit/source/vpselresdlg.pas
View File

@ -37,9 +37,12 @@ uses
Windows, Messages, Windows, Messages,
{$ENDIF} {$ENDIF}
SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, ExtCtrls,
VpBaseDS, VpResEditDlg; VpMisc, VpBaseDS, VpResEditDlg;
type type
{ TfrmSelectResource }
TfrmSelectResource = class(TForm) TfrmSelectResource = class(TForm)
VpResourceCombo1: TVpResourceCombo; VpResourceCombo1: TVpResourceCombo;
lblSelectResource: TLabel; lblSelectResource: TLabel;
@ -51,6 +54,7 @@ type
Bevel1: TBevel; Bevel1: TBevel;
procedure btnAddNewClick(Sender: TObject); procedure btnAddNewClick(Sender: TObject);
procedure btnEditClick(Sender: TObject); procedure btnEditClick(Sender: TObject);
procedure FormCreate(Sender: TObject);
private private
{ Private declarations } { Private declarations }
public public
@ -78,5 +82,10 @@ begin
VpResourceEditDialog1.Execute; VpResourceEditDialog1.Execute;
end; end;
procedure TfrmSelectResource.FormCreate(Sender: TObject);
begin
FixLabels(Self);
end;
end. end.

4
components/tvplanit/source/vptaskeditdlg.lfm
View File

@ -11,7 +11,7 @@ object TaskEditForm: TTaskEditForm
OnCreate = FormCreate OnCreate = FormCreate
OnShow = FormShow OnShow = FormShow
Position = poScreenCenter Position = poScreenCenter
LCLVersion = '1.6.4.0' LCLVersion = '2.3.0.0'
object ButtonPanel: TPanel object ButtonPanel: TPanel
Left = 0 Left = 0
Height = 33 Height = 33
@ -307,7 +307,7 @@ object TaskEditForm: TTaskEditForm
Left = 358 Left = 358
Height = 19 Height = 19
Top = 66 Top = 66
Width = 72 Width = 70
BorderSpacing.Right = 4 BorderSpacing.Right = 4
Caption = 'Complete' Caption = 'Complete'
TabOrder = 2 TabOrder = 2

14
components/tvplanit/source/vptaskeditdlg.pas
View File

@ -127,8 +127,7 @@ uses
procedure TTaskEditForm.FormCreate(Sender: TObject); procedure TTaskEditForm.FormCreate(Sender: TObject);
begin begin
FReturnCode := rtAbandon; FReturnCode := rtAbandon;
// FBtnHeight := ScaleY(OKBtn.Height, DesignTimeDPI); FixLabels(Self);
// FEditHeight := ScaleY(DueDateEdit.Height, DesignTimeDPI);
end; end;
procedure TTaskEditForm.DePopulateSelf; procedure TTaskEditForm.DePopulateSelf;
@ -139,9 +138,7 @@ begin
Task.Complete := CbComplete.Checked; Task.Complete := CbComplete.Checked;
Task.Priority := CbPriority.ItemIndex-1; Task.Priority := CbPriority.ItemIndex-1;
Task.Category := CbCategory.ItemIndex; Task.Category := CbCategory.ItemIndex;
// DueDateLbl.Caption := RSDueDateLabel;
end; end;
{=====}
procedure TTaskEditForm.SetCaptions; procedure TTaskEditForm.SetCaptions;
var var
@ -237,34 +234,29 @@ begin
AutoSize := true; AutoSize := true;
end; end;
{=====}
procedure TTaskEditForm.OnChange(Sender: TObject); procedure TTaskEditForm.OnChange(Sender: TObject);
begin begin
Task.Changed := true; Task.Changed := true;
end; end;
{=====}
procedure TTaskEditForm.OKBtnClick(Sender: TObject); procedure TTaskEditForm.OKBtnClick(Sender: TObject);
begin begin
FReturnCode := rtCommit; FReturnCode := rtCommit;
Close; Close;
end; end;
{=====}
procedure TTaskEditForm.CancelBtnClick(Sender: TObject); procedure TTaskEditForm.CancelBtnClick(Sender: TObject);
begin begin
Close; Close;
end; end;
{=====}
procedure TTaskEditForm.FormShow(Sender: TObject); procedure TTaskEditForm.FormShow(Sender: TObject);
begin begin
PositionControls; PositionControls;
DescriptionEdit.SetFocus; DescriptionEdit.SetFocus;
end; end;
{=====}
{ TVpTaskEditDialog } { TVpTaskEditDialog }
@ -303,7 +295,6 @@ begin
end; end;
end; end;
end; end;
{=====}
function TVpTaskEditDialog.AddNewTask: Boolean; function TVpTaskEditDialog.AddNewTask: Boolean;
begin begin
@ -317,7 +308,6 @@ begin
end; end;
end; end;
end; end;
{=====}
end. end.

1
components/tvplanit/source/vpwavdlg.pas
View File

@ -138,6 +138,7 @@ begin
{$IFDEF NEW_ICONS} {$IFDEF NEW_ICONS}
LoadGlyphFromRCDATA(PlayBtn.Glyph, 'VpSpeaker', 16, 24, 32); LoadGlyphFromRCDATA(PlayBtn.Glyph, 'VpSpeaker', 16, 24, 32);
{$ENDIF} {$ENDIF}
FixLabels(Self);
end; end;
procedure TFrmSoundDialog.FormShow(Sender: TObject); procedure TFrmSoundDialog.FormShow(Sender: TObject);