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

LCL-Win32: Optimize TWindowProcHelper. Issue #35223, patch from Benito van der Zander.

Browse Source 
git-svn-id: trunk@60678 -
This commit is contained in:
juha 2019-03-15 11:23:36 +00:00
parent 47cb9daae0
commit ab1727e00b
1 changed files with 8 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/interfaces/win32/win32callback.inc
View File

@ -293,7 +293,7 @@ end;
type
TAccessCustomEdit = class(TCustomEdit);
TWindowProcHelper = class
TWindowProcHelper = object
private
// WindowProc parameters
Window: HWnd; // DWord / QWord
@ -2663,17 +2663,13 @@ function
var
Helper: TWindowProcHelper;
begin
Helper := TWindowProcHelper.Create;
try
Helper.Window := Window;
Helper.Msg := Msg;
Helper.WParam := WParam;
Helper.LParam := LParam;
Helper.NMHdr := PNMHdr(LParam);
Result := Helper.DoWindowProc;
finally
Helper.Free;
end;
helper := default(TWindowProcHelper);
Helper.Window := Window;
Helper.Msg := Msg;
Helper.WParam := WParam;
Helper.LParam := LParam;
Helper.NMHdr := PNMHdr(LParam);
Result := Helper.DoWindowProc;
end;
{$ifdef MSG_DEBUG}