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

LCL: Added property TApplication.Active (#8083)

Browse Source 
git-svn-id: trunk@10387 -
This commit is contained in:
vincents 2007-01-07 20:36:08 +00:00
parent 735b70957a
commit 6694bbe784
2 changed files with 8 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/forms.pp
View File

@ -929,6 +929,7 @@ type
FLastMouseControl: TControl;
FLastMouseControlValid: Boolean;
procedure DoOnIdleEnd;
function GetActive: boolean;
function GetCurrentHelpFile: string;
function GetExename: String;
function GetIconHandle: HICON;
@ -1047,6 +1048,7 @@ type
procedure DoReturnKey(AControl: TWinControl; var Key: Word;
Shift: TShiftState);
procedure DoTabKey(AControl: TWinControl; var Key: Word;Shift: TShiftState);
property Active: boolean read GetActive;
property CaptureExceptions: boolean read FCaptureExceptions
write SetCaptureExceptions;
property FindGlobalComponentEnabled: boolean read FFindGlobalComponentEnabled

6
lcl/include/application.inc
View File

@ -869,6 +869,7 @@ begin
DebugLn('TApplication.HandleException: ',
'there was another exception during showing the first exception');
HaltingProgram:=true;
//DumpExceptionBackTrace;
Halt;
end;
Include(FFlags,AppHandlingException);
@ -1150,6 +1151,11 @@ begin
Include(FFlags,AppIdleEndSent);
end;
function TApplication.GetActive: boolean;
begin
Result := AppActive in Flags;
end;
{------------------------------------------------------------------------------
function TApplication.GetCurrentHelpFile: string;
------------------------------------------------------------------------------}