paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 20:39:14 +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 begin
if Showing then if Showing then
FWindowState := wsMinimized; FWindowState := wsMinimized;
if (WidgetSet.GetLCLCapability(lcNeedMininimizeAppWithMainForm) <> 0) if (WidgetSet.GetLCLCapability(lcNeedMininimizeAppWithMainForm) <> LCL_CAPABILITY_NO)
and (Application.MainForm = Self) then and (Application.MainForm = Self) then
Application.Minimize; Application.Minimize;
end; end;
@ -2251,7 +2251,7 @@ begin
ModalResult := 0; ModalResult := 0;
try try
if WidgetSet.GetLCLCapability(lcModalWindow) = 0 then if WidgetSet.GetLCLCapability(lcModalWindow) = LCL_CAPABILITY_NO then
DisabledList := Screen.DisableForms(Self) DisabledList := Screen.DisableForms(Self)
else else
DisabledList := nil; DisabledList := nil;

4
lcl/include/interfacebase.inc
View File

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

4
lcl/interfacebase.pp
View File

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

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

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

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

@ -364,9 +364,9 @@ end;
function TQtWidgetSet.GetLCLCapability(ACapability: TLCLCapability): PtrUInt; function TQtWidgetSet.GetLCLCapability(ACapability: TLCLCapability): PtrUInt;
begin begin
case ACapability of case ACapability of
lcCanDrawOutsideOnPaint: Result := LCLC_DOES_NOT_HAVE_CAPACITY; lcCanDrawOutsideOnPaint: Result := LCL_CAPABILITY_NO;
lcDragDockStartOnTitleClick: Result := 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 else
Result := inherited GetLCLCapability(ACapability); Result := inherited GetLCLCapability(ACapability);
end; end;

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

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

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

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