diff --git a/lcl/forms.pp b/lcl/forms.pp index 19f24502ec..053e20f325 100644 --- a/lcl/forms.pp +++ b/lcl/forms.pp @@ -1327,9 +1327,9 @@ type ); TApplicationDoubleBuffered = ( // what Forms.DoubleBuffered with ParentDoubleBuffered=True will gain when created - dbDefault, // widgetset dependent (LCLWin32: True unless in remote desktop connection; other WSs: False) - dbFalse, // False - dbTrue); // True + adbDefault, // widgetset dependent (LCLWin32: True unless in remote desktop connection; other WSs: False) + adbFalse, // False + adbTrue); // True { TApplication } @@ -1584,7 +1584,7 @@ type property BidiMode: TBiDiMode read FBidiMode write SetBidiMode; property CaptureExceptions: boolean read FCaptureExceptions write SetCaptureExceptions; - property DoubleBuffered: TApplicationDoubleBuffered read FDoubleBuffered write FDoubleBuffered default dbDefault; + property DoubleBuffered: TApplicationDoubleBuffered read FDoubleBuffered write FDoubleBuffered default adbDefault; property ExtendedKeysSupport: Boolean read FExtendedKeysSupport write FExtendedKeysSupport; // See VK_LSHIFT in LCLType for more details property ExceptionDialog: TApplicationExceptionDlg read FExceptionDialog write FExceptionDialog; property FindGlobalComponentEnabled: boolean read FFindGlobalComponentEnabled diff --git a/lcl/include/customform.inc b/lcl/include/customform.inc index 0340776dae..aa93919015 100644 --- a/lcl/include/customform.inc +++ b/lcl/include/customform.inc @@ -2090,9 +2090,9 @@ begin FAlphaBlend := False; FAlphaBlendValue := 255; case Application.DoubleBuffered of - dbDefault: FDoubleBuffered := TWSCustomFormClass(WidgetSetClass).GetDefaultDoubleBuffered; - dbTrue: FDoubleBuffered := True; - dbFalse: FDoubleBuffered := False; + adbDefault: FDoubleBuffered := TWSCustomFormClass(WidgetSetClass).GetDefaultDoubleBuffered; + adbTrue: FDoubleBuffered := True; + adbFalse: FDoubleBuffered := False; end; // set border style before handle is allocated if not (fsBorderStyleChanged in FFormState) then