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

LCL: better prefix for TApplicationDoubleBuffered values

Browse Source 
git-svn-id: trunk@58104 -
This commit is contained in:
ondrej 2018-06-03 20:58:04 +00:00
parent 1137945eaf
commit dc47e847d7
2 changed files with 7 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/forms.pp
View File

@ -1327,9 +1327,9 @@ type
); );
TApplicationDoubleBuffered = ( // what Forms.DoubleBuffered with ParentDoubleBuffered=True will gain when created TApplicationDoubleBuffered = ( // what Forms.DoubleBuffered with ParentDoubleBuffered=True will gain when created
dbDefault, // widgetset dependent (LCLWin32: True unless in remote desktop connection; other WSs: False) adbDefault, // widgetset dependent (LCLWin32: True unless in remote desktop connection; other WSs: False)
dbFalse, // False adbFalse, // False
dbTrue); // True adbTrue); // True
{ TApplication } { TApplication }
@ -1584,7 +1584,7 @@ type
property BidiMode: TBiDiMode read FBidiMode write SetBidiMode; property BidiMode: TBiDiMode read FBidiMode write SetBidiMode;
property CaptureExceptions: boolean read FCaptureExceptions property CaptureExceptions: boolean read FCaptureExceptions
write SetCaptureExceptions; 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 ExtendedKeysSupport: Boolean read FExtendedKeysSupport write FExtendedKeysSupport; // See VK_LSHIFT in LCLType for more details
property ExceptionDialog: TApplicationExceptionDlg read FExceptionDialog write FExceptionDialog; property ExceptionDialog: TApplicationExceptionDlg read FExceptionDialog write FExceptionDialog;
property FindGlobalComponentEnabled: boolean read FFindGlobalComponentEnabled property FindGlobalComponentEnabled: boolean read FFindGlobalComponentEnabled

6
lcl/include/customform.inc
View File

@ -2090,9 +2090,9 @@ begin
FAlphaBlend := False; FAlphaBlend := False;
FAlphaBlendValue := 255; FAlphaBlendValue := 255;
case Application.DoubleBuffered of case Application.DoubleBuffered of
dbDefault: FDoubleBuffered := TWSCustomFormClass(WidgetSetClass).GetDefaultDoubleBuffered; adbDefault: FDoubleBuffered := TWSCustomFormClass(WidgetSetClass).GetDefaultDoubleBuffered;
dbTrue: FDoubleBuffered := True; adbTrue: FDoubleBuffered := True;
dbFalse: FDoubleBuffered := False; adbFalse: FDoubleBuffered := False;
end; end;
// set border style before handle is allocated // set border style before handle is allocated
if not (fsBorderStyleChanged in FFormState) then if not (fsBorderStyleChanged in FFormState) then