paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-22 07:39:26 +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,
lcModalWindow,
lcReceivesLMClearCutCopyPasteReliably,
lcEmulatedMDI:
Result := LCL_CAPABILITY_YES;
lcSendsUTF8KeyPress:
Result := LCL_CAPABILITY_YES;
lcAccessibilitySupport: Result := LCL_CAPABILITY_NO;
lcSendsUTF8KeyPress,
lcEmulatedMDI: Result := LCL_CAPABILITY_YES;
else
Result := LCL_CAPABILITY_NO;
end;

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

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

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

@ -1003,6 +1003,16 @@ begin
Result:= lpGtk2;
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;
{------------------------------------------------------------------------------

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

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

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

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