mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-19 19:29:25 +02:00
LCL/TDateEdit: Remove TCalendarPopupForm.Paint (not needed any more, and destroys dark mode in macOS). Issue #39930.
This commit is contained in:
parent
bf6c6ba4d9
commit
a61e58f556
@ -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
|
||||
|
@ -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.
|
||||
|
Loading…
Reference in New Issue
Block a user