paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-07-26 14:56:00 +02:00
Code Issues Packages Projects Releases Wiki Activity

LCL: TimePopup: better DoubleBuffered

Browse Source 
git-svn-id: trunk@58102 -
This commit is contained in:
ondrej 2018-06-03 20:52:42 +00:00
parent 5854ef0c77
commit fc360e75a1
1 changed files with 2 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
lcl/forms/timepopup.pas
View File

@ -20,7 +20,7 @@ interface
uses uses
Classes, SysUtils, DateUtils, FileUtil, LCLType, Forms, Controls, Classes, SysUtils, DateUtils, FileUtil, LCLType, Forms, Controls,
Graphics, Dialogs, Grids, ExtCtrls, Buttons, StdCtrls, ActnList; Graphics, Dialogs, Grids, ExtCtrls, Buttons, StdCtrls, ActnList, WSForms;
type type
TReturnTimeEvent = procedure (Sender: TObject; const ATime: TDateTime) of object; TReturnTimeEvent = procedure (Sender: TObject; const ATime: TDateTime) of object;
@ -239,9 +239,7 @@ end;
procedure TTimePopupForm.ActivateDoubleBuffered; procedure TTimePopupForm.ActivateDoubleBuffered;
begin begin
Self.DoubleBuffered := True; DoubleBuffered := TWSCustomFormClass(WidgetSetClass).GetDefaultDoubleBuffered;
HoursGrid.DoubleBuffered := True;
MinutesGrid.DoubleBuffered := True;
end; end;
procedure TTimePopupForm.CalcGridHeights; procedure TTimePopupForm.CalcGridHeights;