LCL: add lcTransparentWindow LCL capability

git-svn-id: trunk@53193 -
This commit is contained in:
ondrej 2016-10-21 19:56:05 +00:00
parent cd1f78d608
commit 677e9d99f2
5 changed files with 6 additions and 1 deletions

View File

@ -80,7 +80,8 @@ type
lcAllowChildControlsInNativeControls, // Utilized by LCL-CustomDrawn so that it can inject child controls in native ones
lcEmulatedMDI, // used for emulating MDI on widgetsets which does not provide native MDI handling
lcAccessibilitySupport, // Indicates that accessibility is implemented, mostly for TCustomControl descendents as native widgests should have in-built accessibility
lcRadialGradientBrush // Indicates that the function CreateBrushWithRadialGradient is supported, i.e. we can create a brush with a radial gradient pattern
lcRadialGradientBrush, // Indicates that the function CreateBrushWithRadialGradient is supported, i.e. we can create a brush with a radial gradient pattern
lcTransparentWindow // ability to pass mouse messages through a window (on win32 LM_NCHITTEST with HTTRANSPARENT result)
);
{ TDialogButton }

View File

@ -1421,6 +1421,7 @@ begin
lcAntialiasingEnabledByDefault:
Result := LCL_CAPABILITY_YES;
lcAccessibilitySupport: Result := LCL_CAPABILITY_YES;
lcTransparentWindow: Result := LCL_CAPABILITY_YES;
else
Result := inherited;
end;

View File

@ -280,6 +280,7 @@ begin
{$endif}
lcAntialiasingEnabledByDefault:
Result := LCL_CAPABILITY_YES;
lcTransparentWindow: Result := LCL_CAPABILITY_YES;
else
Result := inherited;
end;

View File

@ -1257,6 +1257,7 @@ begin
{when issue #20475 is fixed, then set this to LCL_CAPABILITY_YES}
lcReceivesLMClearCutCopyPasteReliably: Result := LCL_CAPABILITY_NO;
lcRadialGradientBrush: Result := LCL_CAPABILITY_YES;
lcTransparentWindow: Result := LCL_CAPABILITY_YES;
else
Result := inherited GetLCLCapability(ACapability);
end;

View File

@ -563,6 +563,7 @@ begin
lcLMHelpSupport: Result := LCL_CAPABILITY_YES;
lcNeedMininimizeAppWithMainForm: Result := LCL_CAPABILITY_NO;
lcSendsUTF8KeyPress: Result := LCL_CAPABILITY_YES;
lcTransparentWindow: Result := LCL_CAPABILITY_YES;
else
Result := inherited;
end;