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

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

View File

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

View File

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