paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-18 18:39:28 +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 } { TApplication }
TQueryEndSessionEvent = procedure (var Cancel : Boolean) of object; TQueryEndSessionEvent = procedure (var Cancel: Boolean) of object;
TExceptionEvent = procedure (Sender: TObject; E: Exception) of object; TExceptionEvent = procedure (Sender: TObject; E: Exception) of object;
TGetHandleEvent = procedure(var Handle: HWND) of object; TGetHandleEvent = procedure(var Handle: HWND) of object;
TIdleEvent = procedure (Sender: TObject; var Done: Boolean) of object; TIdleEvent = procedure (Sender: TObject; var Done: Boolean) of object;
@ -1227,8 +1227,8 @@ type
FOnHint: TNotifyEvent; FOnHint: TNotifyEvent;
FOnIdle: TIdleEvent; FOnIdle: TIdleEvent;
FOnIdleEnd: TNotifyEvent; FOnIdleEnd: TNotifyEvent;
FOnEndSession : TNotifyEvent; FOnEndSession: TNotifyEvent;
FOnQueryEndSession : TQueryEndSessionEvent; FOnQueryEndSession: TQueryEndSessionEvent;
FOnMinimize: TNotifyEvent; FOnMinimize: TNotifyEvent;
FOnRestore: TNotifyEvent; FOnRestore: TNotifyEvent;
FOnShortcut: TShortcutEvent; FOnShortcut: TShortcutEvent;
@ -1390,7 +1390,7 @@ type
procedure RemoveAllHandlersOfObject(AnObject: TObject); virtual; procedure RemoveAllHandlersOfObject(AnObject: TObject); virtual;
procedure DoBeforeMouseMessage(CurMouseControl: TControl); procedure DoBeforeMouseMessage(CurMouseControl: TControl);
function IsShortcut(var Message: TLMKey): boolean; function IsShortcut(var Message: TLMKey): boolean;
procedure IntfQueryEndSession(var Cancel : Boolean); procedure IntfQueryEndSession(var Cancel: Boolean);
procedure IntfEndSession; procedure IntfEndSession;
procedure IntfAppActivate; procedure IntfAppActivate;
procedure IntfAppDeactivate; procedure IntfAppDeactivate;

4
lcl/include/application.inc
View File

@ -1909,9 +1909,9 @@ begin
end; 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 var
i: LongInt; i: LongInt;
begin begin