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

LCL: Add capability lcTransparentWindow for GTK2. Formatting.

Browse Source 
git-svn-id: trunk@55929 -
This commit is contained in:
juha 2017-09-26 11:28:00 +00:00
parent 835f1e78f2
commit 12046b3ddb
5 changed files with 23 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
lcl/include/interfacebase.inc
View File

@ -89,11 +89,8 @@ begin
lcFormIcon, lcFormIcon,
lcModalWindow, lcModalWindow,
lcReceivesLMClearCutCopyPasteReliably, lcReceivesLMClearCutCopyPasteReliably,
lcEmulatedMDI: lcSendsUTF8KeyPress,
Result := LCL_CAPABILITY_YES; lcEmulatedMDI: Result := LCL_CAPABILITY_YES;
lcSendsUTF8KeyPress:
Result := LCL_CAPABILITY_YES;
lcAccessibilitySupport: Result := LCL_CAPABILITY_NO;
else else
Result := LCL_CAPABILITY_NO; Result := LCL_CAPABILITY_NO;
end; end;

1
lcl/interfaces/gtk2/gtk2int.pas
View File

@ -259,6 +259,7 @@ type
destructor Destroy; override; destructor Destroy; override;
function LCLPlatform: TLCLPlatform; override; function LCLPlatform: TLCLPlatform; override;
function GetLCLCapability(ACapability: TLCLCapability): PtrUInt; override;
procedure AppInit(var ScreenInfo: TScreenInfo); override; procedure AppInit(var ScreenInfo: TScreenInfo); override;
procedure AppBringToFront; override; procedure AppBringToFront; override;

10
lcl/interfaces/gtk2/gtk2widgetset.inc
View File

@ -1003,6 +1003,16 @@ begin
Result:= lpGtk2; Result:= lpGtk2;
end; end;
function TGtk2WidgetSet.GetLCLCapability(ACapability: TLCLCapability): PtrUInt;
begin
case ACapability of
lcTransparentWindow: Result := LCL_CAPABILITY_YES;
// ToDo: Set other capabilities.
else
Result := inherited GetLCLCapability(ACapability);
end;
end;
function gdk_screen_get_resolution(screen:PGdkScreen):gdouble; cdecl; external gdklib; function gdk_screen_get_resolution(screen:PGdkScreen):gdouble; cdecl; external gdklib;
{------------------------------------------------------------------------------ {------------------------------------------------------------------------------

10
lcl/interfaces/qt/qtobject.inc
View File

@ -1283,11 +1283,11 @@ begin
lcEmulatedMDI, lcEmulatedMDI,
lcCanDrawOutsideOnPaint: Result := LCL_CAPABILITY_NO; lcCanDrawOutsideOnPaint: Result := LCL_CAPABILITY_NO;
lcDragDockStartOnTitleClick: Result := lcDragDockStartOnTitleClick: Result :=
{$ifdef MSWINDOWS} LCL_CAPABILITY_YES {$else} LCL_CAPABILITY_NO {$endif}; {$ifdef MSWINDOWS} LCL_CAPABILITY_YES {$else} LCL_CAPABILITY_NO {$endif};
lcNeedMininimizeAppWithMainForm: Result := lcNeedMininimizeAppWithMainForm: Result :=
{$ifdef HASX11} LCL_CAPABILITY_YES {$else} LCL_CAPABILITY_NO {$endif}; {$ifdef HASX11} LCL_CAPABILITY_YES {$else} LCL_CAPABILITY_NO {$endif};
{when issue #20475 is fixed, then set this to LCL_CAPABILITY_YES} {when issue #20475 is fixed, then set this to LCL_CAPABILITY_YES}
lcReceivesLMClearCutCopyPasteReliably: Result := LCL_CAPABILITY_NO; lcReceivesLMClearCutCopyPasteReliably: Result := LCL_CAPABILITY_NO;
lcRadialGradientBrush: Result := LCL_CAPABILITY_YES; lcRadialGradientBrush: Result := LCL_CAPABILITY_YES;
lcTransparentWindow: Result := LCL_CAPABILITY_YES; lcTransparentWindow: Result := LCL_CAPABILITY_YES;
else else

10
lcl/interfaces/qt5/qtobject.inc
View File

@ -1205,11 +1205,11 @@ begin
lcEmulatedMDI, lcEmulatedMDI,
lcCanDrawOutsideOnPaint: Result := LCL_CAPABILITY_NO; lcCanDrawOutsideOnPaint: Result := LCL_CAPABILITY_NO;
lcDragDockStartOnTitleClick: Result := lcDragDockStartOnTitleClick: Result :=
{$ifdef MSWINDOWS} LCL_CAPABILITY_YES {$else} LCL_CAPABILITY_NO {$endif}; {$ifdef MSWINDOWS} LCL_CAPABILITY_YES {$else} LCL_CAPABILITY_NO {$endif};
lcNeedMininimizeAppWithMainForm: Result := lcNeedMininimizeAppWithMainForm: Result :=
{$ifdef HASX11} LCL_CAPABILITY_YES {$else} LCL_CAPABILITY_NO {$endif}; {$ifdef HASX11} LCL_CAPABILITY_YES {$else} LCL_CAPABILITY_NO {$endif};
{when issue #20475 is fixed, then set this to LCL_CAPABILITY_YES} {when issue #20475 is fixed, then set this to LCL_CAPABILITY_YES}
lcReceivesLMClearCutCopyPasteReliably: Result := LCL_CAPABILITY_NO; lcReceivesLMClearCutCopyPasteReliably: Result := LCL_CAPABILITY_NO;
lcRadialGradientBrush: Result := LCL_CAPABILITY_YES; lcRadialGradientBrush: Result := LCL_CAPABILITY_YES;
lcTransparentWindow: Result := LCL_CAPABILITY_YES; lcTransparentWindow: Result := LCL_CAPABILITY_YES;
else else