paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-16 05:39:18 +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
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

6
lcl/include/customform.inc
View File

@ -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