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

LCL-Win32: Optimize TWindowProcHelper using a record. Issue #35223.

Browse Source 
git-svn-id: trunk@60698 -
This commit is contained in:
juha 2019-03-16 15:25:09 +00:00
parent 2a57c119c9
commit 552a6d23c8
2 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -293,7 +293,9 @@ end;
type type
TAccessCustomEdit = class(TCustomEdit); TAccessCustomEdit = class(TCustomEdit);
TWindowProcHelper = object { TWindowProcHelper }
TWindowProcHelper = record
private private
// WindowProc parameters // WindowProc parameters
Window: HWnd; // DWord / QWord Window: HWnd; // DWord / QWord
@ -2667,7 +2669,7 @@ function
var var
Helper: TWindowProcHelper; Helper: TWindowProcHelper;
begin begin
helper := default(TWindowProcHelper); FillChar(Helper, SizeOf(TWindowProcHelper), 0);
Helper.Window := Window; Helper.Window := Window;
Helper.Msg := Msg; Helper.Msg := Msg;
Helper.WParam := WParam; Helper.WParam := WParam;

1
lcl/interfaces/win32/win32int.pp
View File

@ -19,6 +19,7 @@
unit Win32Int; unit Win32Int;
{$mode objfpc}{$H+}{$T-}{$message warning Fix implicit pointer conversions} {$mode objfpc}{$H+}{$T-}{$message warning Fix implicit pointer conversions}
{$ModeSwitch advancedrecords}
{$I win32defines.inc} {$I win32defines.inc}
interface interface