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

LCL: made TCustomForm.IsShortcut virtual (bug #7921) from Colin Western

Browse Source 
git-svn-id: trunk@10298 -
This commit is contained in:
vincents 2006-12-05 07:41:39 +00:00
parent 28bfc29f27
commit 470920716e
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/forms.pp
View File

@ -488,7 +488,7 @@ type
procedure RemoveHandlerClose(OnCloseHandler: TCloseEvent);
procedure AddHandlerCreate(OnCreateHandler: TNotifyEvent; AsLast: Boolean=true);
procedure RemoveHandlerCreate(OnCreateHandler: TNotifyEvent);
function IsShortcut(var Message: TLMKey): boolean;
function IsShortcut(var Message: TLMKey): boolean; virtual;
procedure IntfHelp(AComponent: TComponent);
public
// drag and dock