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

git-svn-id: trunk@60698 -

lcl/interfaces/win32/win32callback.inc

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

lcl/interfaces/win32/win32int.pp

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