paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-16 18:08:18 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL/TDateEdit: Remove TCalendarPopupForm.Paint (not needed any more, and destroys dark mode in macOS). Issue #39930.

Browse Source
This commit is contained in:
wp_xyz 2022-09-27 15:46:03 +02:00
parent bf6c6ba4d9
commit a61e58f556
2 changed files with 4 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
lcl/forms/calendarpopup.lfm
View File

@ -1,19 +1,18 @@
object CalendarPopupForm: TCalendarPopupForm object CalendarPopupForm: TCalendarPopupForm
Left = 635 Left = 635
Height = 192 Height = 160
Top = 259 Top = 259
Width = 233 Width = 176
AutoSize = True AutoSize = True
BorderIcons = [biMinimize, biMaximize] BorderIcons = [biMinimize, biMaximize]
BorderStyle = bsNone BorderStyle = bsNone
Caption = 'CalendarPopupForm' Caption = 'CalendarPopupForm'
ClientHeight = 192 ClientHeight = 160
ClientWidth = 233 ClientWidth = 176
OnClose = FormClose OnClose = FormClose
OnCreate = FormCreate OnCreate = FormCreate
OnDeactivate = FormDeactivate OnDeactivate = FormDeactivate
PopupMode = pmAuto PopupMode = pmAuto
LCLVersion = '2.1.0.0'
object Calendar: TCalendar object Calendar: TCalendar
Left = 0 Left = 0
Height = 160 Height = 160

10
lcl/forms/calendarpopup.pas
View File

@ -43,8 +43,6 @@ type
AMinDate, AMaxDate: TDateTime); AMinDate, AMaxDate: TDateTime);
procedure KeepInView(const PopupOrigin: TPoint); procedure KeepInView(const PopupOrigin: TPoint);
procedure ReturnDate; procedure ReturnDate;
protected
procedure Paint; override;
end; end;
procedure ShowCalendarPopup(const APosition: TPoint; ADate: TDateTime; procedure ShowCalendarPopup(const APosition: TPoint; ADate: TDateTime;
@ -192,12 +190,4 @@ begin
Close; Close;
end; end;
procedure TCalendarPopupForm.Paint;
begin
inherited Paint;
Canvas.Pen.Color := clWindowText;
Canvas.Pen.Style := psSolid;
Canvas.Rectangle(0, 0, Width, Height);
end;
end. end.