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

Updates LCL Capability constants

Browse Source 
git-svn-id: trunk@21284 -
This commit is contained in:
sekelsenmat 2009-08-18 15:47:26 +00:00
parent 5fe98142c0
commit 839f502c1d
7 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
lcl/include/customform.inc
View File

@ -579,7 +579,7 @@ begin
begin
if Showing then
FWindowState := wsMinimized;
if (WidgetSet.GetLCLCapability(lcNeedMininimizeAppWithMainForm) <> 0)
if (WidgetSet.GetLCLCapability(lcNeedMininimizeAppWithMainForm) <> LCL_CAPABILITY_NO)
and (Application.MainForm = Self) then
Application.Minimize;
end;
@ -2251,7 +2251,7 @@ begin
ModalResult := 0;
try
if WidgetSet.GetLCLCapability(lcModalWindow) = 0 then
if WidgetSet.GetLCLCapability(lcModalWindow) = LCL_CAPABILITY_NO then
DisabledList := Screen.DisableForms(Self)
else
DisabledList := nil;

4
lcl/include/interfacebase.inc
View File

@ -79,9 +79,9 @@ begin
lcApplicationTitle,
lcFormIcon,
lcModalWindow:
Result := LCLC_HAS_CAPACITY;
Result := LCL_CAPABILITY_YES;
else
Result := LCLC_DOES_NOT_HAVE_CAPACITY;
Result := LCL_CAPABILITY_NO;
end;
end;

4
lcl/interfacebase.pp
View File

@ -144,8 +144,8 @@ const
);
{ Constants for the routine TWidgetSet.GetLCLCapability }
LCLC_DOES_NOT_HAVE_CAPACITY = 0;
LCLC_HAS_CAPACITY = 1;
LCL_CAPABILITY_NO = 0;
LCL_CAPABILITY_YES = 1;
type
EInterfaceException = class(Exception);

2
lcl/interfaces/carbon/carbonobject.inc
View File

@ -1063,7 +1063,7 @@ begin
lcNeedMininimizeAppWithMainForm,
lcApplicationTitle,
lcFormIcon:
Result := LCLC_DOES_NOT_HAVE_CAPACITY;
Result := LCL_CAPABILITY_NO;
else
Result := inherited;
end;

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

@ -364,9 +364,9 @@ end;
function TQtWidgetSet.GetLCLCapability(ACapability: TLCLCapability): PtrUInt;
begin
case ACapability of
lcCanDrawOutsideOnPaint: Result := LCLC_DOES_NOT_HAVE_CAPACITY;
lcCanDrawOutsideOnPaint: Result := LCL_CAPABILITY_NO;
lcDragDockStartOnTitleClick: Result :=
{$ifdef MSWINDOWS} LCLC_HAS_CAPACITY {$else} LCLC_DOES_NOT_HAVE_CAPACITY {$endif};
{$ifdef MSWINDOWS} LCL_CAPABILITY_YES {$else} LCL_CAPABILITY_NO {$endif};
else
Result := inherited GetLCLCapability(ACapability);
end;

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

@ -521,9 +521,9 @@ end;
function TWin32WidgetSet.GetLCLCapability(ACapability: TLCLCapability): PtrUInt;
begin
case ACapability of
lcAsyncProcess: Result := LCLC_HAS_CAPACITY;
lcModalWindow: Result := LCLC_DOES_NOT_HAVE_CAPACITY;
lcDragDockStartOnTitleClick: Result := LCLC_HAS_CAPACITY;
lcAsyncProcess: Result := LCL_CAPABILITY_YES;
lcModalWindow: Result := LCL_CAPABILITY_NO;
lcDragDockStartOnTitleClick: Result := LCL_CAPABILITY_YES;
else
Result := inherited;
end;

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

@ -429,8 +429,8 @@ end;
function TWinCEWidgetSet.GetLCLCapability(ACapability: TLCLCapability): PtrUInt;
begin
case ACapability of
lcModalWindow: Result := LCLC_DOES_NOT_HAVE_CAPACITY;
lcDragDockStartOnTitleClick: Result := LCLC_HAS_CAPACITY;
lcModalWindow: Result := LCL_CAPABILITY_NO;
lcDragDockStartOnTitleClick: Result := LCL_CAPABILITY_YES;
else
Result := inherited;
end;