paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-16 19:29:33 +01: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; TLCLPlatforms = set of TLCLPlatform;
TLCLCapability = ( TLCLCapability = (
lcAsyncProcess, // Support for async process lcAsyncProcess, // Support for async process
lcCanDrawOutsideOnPaint, // Support for drawing outside OnPaint event of an control lcCanDrawOutsideOnPaint, // Support for drawing outside OnPaint event of an control
lcNeedMininimizeAppWithMainForm, lcNeedMininimizeAppWithMainForm,
// When main form is minimized, then minimize also app // When main form is minimized, then minimize also app
lcApplicationTitle, // Can change application title in runtime lcApplicationTitle, // Can change application title in runtime
lcFormIcon, // Forms have icon lcFormIcon, // Forms have icon
lcModalWindow lcModalWindow, // native modal windows support
lcDragDockStartOnTitleClick // ability to start drag/dock events on title bar click
); );
{ TWidgetSet } { TWidgetSet }

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

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

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

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

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

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