forgot result params

Author: Torwent

Source/script/imports/lcl/simba.import_lcl_misc.pas

@@ -162,7 +162,7 @@ procedure _LapeSpinEdit_Create(const Params: PParamArray; const Result: Pointer)
 
 
 //DATE
-procedure _LapeDateEdit_Date_Read(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
+procedure _LapeDateEdit_Date_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
 begin
   PDateTime(Result)^ := PDateEdit(Params^[0])^.Date;
 end;
@@ -172,7 +172,7 @@ procedure _LapeDateEdit_Date_Write(const Params: PParamArray); LAPE_WRAPPER_CALL
   PDateEdit(Params^[0])^.Date := PDouble(Params^[1])^;
 end;
 
-procedure _LapeDateEdit_MinDate_Read(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
+procedure _LapeDateEdit_MinDate_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
 begin
   PDateTime(Result)^ := PDateEdit(Params^[0])^.MinDate;
 end;
@@ -182,7 +182,7 @@ procedure _LapeDateEdit_MinDate_Write(const Params: PParamArray); LAPE_WRAPPER_C
   PDateEdit(Params^[0])^.MinDate := PDouble(Params^[1])^;
 end;
 
-procedure _LapeDateEdit_MaxDate_Read(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
+procedure _LapeDateEdit_MaxDate_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
 begin
   PDateTime(Result)^ := PDateEdit(Params^[0])^.MaxDate;
 end;
@@ -192,7 +192,7 @@ procedure _LapeDateEdit_MaxDate_Write(const Params: PParamArray); LAPE_WRAPPER_C
   PDateEdit(Params^[0])^.MaxDate := PDateTime(Params^[1])^;
 end;
 
-procedure _LapeDateEdit_DateFormat_Read(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
+procedure _LapeDateEdit_DateFormat_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
 begin
   PString(Result)^ := PDateEdit(Params^[0])^.DateFormat;
 end;
@@ -202,7 +202,7 @@ procedure _LapeDateEdit_DateFormat_Write(const Params: PParamArray); LAPE_WRAPPE
   PDateEdit(Params^[0])^.DateFormat := PString(Params^[1])^;
 end;
 
-procedure _LapeDateEdit_DefaultToday_Read(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
+procedure _LapeDateEdit_DefaultToday_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
 begin
   PBoolean(Result)^ := PDateEdit(Params^[0])^.DefaultToday;
 end;
@@ -218,7 +218,7 @@ procedure _LapeDateEdit_Create(const Params: PParamArray; const Result: Pointer)
 end;
 
 //TIME
-procedure _LapeTimeEdit_Time_Read(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
+procedure _LapeTimeEdit_Time_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
 begin
   PDateTime(Result)^ := PTimeEdit(Params^[0])^.Time;
 end;
@@ -228,7 +228,7 @@ procedure _LapeTimeEdit_Time_Write(const Params: PParamArray); LAPE_WRAPPER_CALL
   PTimeEdit(Params^[0])^.Time := PDateTime(Params^[1])^;
 end;
 
-procedure _LapeTimeEdit_DefaultNow_Read(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
+procedure _LapeTimeEdit_DefaultNow_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
 begin
   PBoolean(Result)^ := PTimeEdit(Params^[0])^.DefaultNow;
 end;