mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-08-28 21:41:01 +02:00
LCL: add lcTransparentWindow LCL capability
git-svn-id: trunk@53193 -
This commit is contained in:
parent
cd1f78d608
commit
677e9d99f2
@ -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 }
|
||||
|
@ -1421,6 +1421,7 @@ begin
|
||||
lcAntialiasingEnabledByDefault:
|
||||
Result := LCL_CAPABILITY_YES;
|
||||
lcAccessibilitySupport: Result := LCL_CAPABILITY_YES;
|
||||
lcTransparentWindow: Result := LCL_CAPABILITY_YES;
|
||||
else
|
||||
Result := inherited;
|
||||
end;
|
||||
|
@ -280,6 +280,7 @@ begin
|
||||
{$endif}
|
||||
lcAntialiasingEnabledByDefault:
|
||||
Result := LCL_CAPABILITY_YES;
|
||||
lcTransparentWindow: Result := LCL_CAPABILITY_YES;
|
||||
else
|
||||
Result := inherited;
|
||||
end;
|
||||
|
@ -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;
|
||||
|
@ -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;
|
||||
|
Loading…
Reference in New Issue
Block a user