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

lcl: formatting

Browse Source 
git-svn-id: trunk@30060 -
This commit is contained in:
paul 2011-03-29 05:25:21 +00:00
parent eb193faaf6
commit b6dfaf0b4b
2 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
lcl/forms.pp
View File

@ -1065,7 +1065,7 @@ type
{ TApplication }
TQueryEndSessionEvent = procedure (var Cancel : Boolean) of object;
TQueryEndSessionEvent = procedure (var Cancel: Boolean) of object;
TExceptionEvent = procedure (Sender: TObject; E: Exception) of object;
TGetHandleEvent = procedure(var Handle: HWND) of object;
TIdleEvent = procedure (Sender: TObject; var Done: Boolean) of object;
@ -1227,8 +1227,8 @@ type
FOnHint: TNotifyEvent;
FOnIdle: TIdleEvent;
FOnIdleEnd: TNotifyEvent;
FOnEndSession : TNotifyEvent;
FOnQueryEndSession : TQueryEndSessionEvent;
FOnEndSession: TNotifyEvent;
FOnQueryEndSession: TQueryEndSessionEvent;
FOnMinimize: TNotifyEvent;
FOnRestore: TNotifyEvent;
FOnShortcut: TShortcutEvent;
@ -1390,7 +1390,7 @@ type
procedure RemoveAllHandlersOfObject(AnObject: TObject); virtual;
procedure DoBeforeMouseMessage(CurMouseControl: TControl);
function IsShortcut(var Message: TLMKey): boolean;
procedure IntfQueryEndSession(var Cancel : Boolean);
procedure IntfQueryEndSession(var Cancel: Boolean);
procedure IntfEndSession;
procedure IntfAppActivate;
procedure IntfAppDeactivate;

4
lcl/include/application.inc
View File

@ -1909,9 +1909,9 @@ begin
end;
{------------------------------------------------------------------------------
procedure TApplication.IntfQueryEndSession(var Cancel : Boolean);
procedure TApplication.IntfQueryEndSession(var Cancel: Boolean);
------------------------------------------------------------------------------}
procedure TApplication.IntfQueryEndSession(var Cancel : Boolean);
procedure TApplication.IntfQueryEndSession(var Cancel: Boolean);
var
i: LongInt;
begin