paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-09-02 17:01:35 +02:00
Code Issues Packages Projects Releases Wiki Activity

lcl: add new LCLCapability flag lcDragDockStartOnTitleClick

Browse Source 
git-svn-id: trunk@19701 -
This commit is contained in:
paul 2009-04-30 03:22:04 +00:00
parent b083f34d53
commit 02f8fc163d
4 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
lcl/interfacebase.pp
View File

@ -69,13 +69,14 @@ type
TLCLPlatforms = set of TLCLPlatform;
TLCLCapability = (
lcAsyncProcess, // Support for async process
lcCanDrawOutsideOnPaint, // Support for drawing outside OnPaint event of an control
lcAsyncProcess, // Support for async process
lcCanDrawOutsideOnPaint, // Support for drawing outside OnPaint event of an control
lcNeedMininimizeAppWithMainForm,
// When main form is minimized, then minimize also app
lcApplicationTitle, // Can change application title in runtime
lcFormIcon, // Forms have icon
lcModalWindow
// When main form is minimized, then minimize also app
lcApplicationTitle, // Can change application title in runtime
lcFormIcon, // Forms have icon
lcModalWindow, // native modal windows support
lcDragDockStartOnTitleClick // ability to start drag/dock events on title bar click
);
{ TWidgetSet }

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

@ -362,7 +362,8 @@ end;
function TQtWidgetSet.GetLCLCapability(ACapability: TLCLCapability): PtrUInt;
begin
case ACapability of
lcCanDrawOutsideOnPaint: Result := 0
lcCanDrawOutsideOnPaint: Result := 0;
lcDragDockStartOnTitleClick: Result := {$ifdef MSWINDOWS} 1 {$else} 0 {$endif};
else
Result := inherited GetLCLCapability(ACapability);
end;

1
lcl/interfaces/win32/win32object.inc
View File

@ -469,6 +469,7 @@ begin
case ACapability of
lcAsyncProcess: Result := 1;
lcModalWindow: Result := 0;
lcDragDockStartOnTitleClick: Result := 1;
else
Result := inherited;
end;

1
lcl/interfaces/wince/winceobject.inc
View File

@ -447,6 +447,7 @@ function TWinCEWidgetSet.GetLCLCapability(ACapability: TLCLCapability): PtrUInt;
begin
case ACapability of
lcModalWindow: Result := 0;
lcDragDockStartOnTitleClick: Result := 1;
else
Result := inherited;
end;