@@ -232,13 +232,32 @@ procedure _LapeDateEdit_DirectInput_Write(const Params: PParamArray); LAPE_WRAPP
232232 PDateEdit(Params^[0 ])^.DirectInput := PBoolean(Params^[1 ])^;
233233end ;
234234
235+ procedure _LapeDateEdit_NumbersOnly_Read (const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
236+ begin
237+ PBoolean(Result)^ := PDateEdit(Params^[0 ])^.NumbersOnly;
238+ end ;
239+
240+ procedure _LapeDateEdit_NumbersOnly_Write (const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
241+ begin
242+ PDateEdit(Params^[0 ])^.NumbersOnly := PBoolean(Params^[1 ])^;
243+ end ;
235244
245+ procedure _LapeDateEdit_OnChange_Read (const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
246+ begin
247+ PNotifyEvent(Result)^ := PDateEdit(Params^[0 ])^.OnChange;
248+ end ;
249+
250+ procedure _LapeDateEdit_OnChange_Write (const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
251+ begin
252+ PDateEdit(Params^[0 ])^.OnChange := PNotifyEvent(Params^[1 ])^;
253+ end ;
236254
237255procedure _LapeDateEdit_Create (const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
238256begin
239257 PDateEdit(Result)^ := TDateEdit.Create(PComponent(Params^[0 ])^);
240258end ;
241259
260+
242261// TIME
243262procedure _LapeTimeEdit_Time_Read (const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
244263begin
@@ -280,6 +299,36 @@ procedure _LapeTimeEdit_DirectInput_Write(const Params: PParamArray); LAPE_WRAPP
280299 PTimeEdit(Params^[0 ])^.DirectInput := PBoolean(Params^[1 ])^;
281300end ;
282301
302+ procedure _LapeTimeEdit_NumbersOnly_Read (const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
303+ begin
304+ PBoolean(Result)^ := PTimeEdit(Params^[0 ])^.NumbersOnly;
305+ end ;
306+
307+ procedure _LapeTimeEdit_NumbersOnly_Write (const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
308+ begin
309+ PTimeEdit(Params^[0 ])^.NumbersOnly := PBoolean(Params^[1 ])^;
310+ end ;
311+
312+ procedure _LapeTimeEdit_SimpleLayout_Read (const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
313+ begin
314+ PBoolean(Result)^ := PTimeEdit(Params^[0 ])^.SimpleLayout;
315+ end ;
316+
317+ procedure _LapeTimeEdit_SimpleLayout_Write (const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
318+ begin
319+ PTimeEdit(Params^[0 ])^.SimpleLayout := PBoolean(Params^[1 ])^;
320+ end ;
321+
322+ procedure _LapeTimeEdit_OnChange_Read (const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
323+ begin
324+ PNotifyEvent(Result)^ := PTimeEdit(Params^[0 ])^.OnChange;
325+ end ;
326+
327+ procedure _LapeTimeEdit_OnChange_Write (const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
328+ begin
329+ PTimeEdit(Params^[0 ])^.OnChange := PNotifyEvent(Params^[1 ])^;
330+ end ;
331+
283332procedure _LapeTimeEdit_Create (const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
284333begin
285334 PTimeEdit(Result)^ := TTimeEdit.Create(PComponent(Params^[0 ])^);
@@ -764,13 +813,18 @@ procedure ImportLCLMisc(Script: TSimbaScript);
764813 addProperty(' TLazDateEdit' , ' DefaultToday' , ' Boolean' , @_LapeDateEdit_DefaultToday_Read, @_LapeDateEdit_DefaultToday_Write);
765814 addProperty(' TLazDateEdit' , ' ReadOnly' , ' Boolean' , @_LapeDateEdit_ReadOnly_Read, @_LapeDateEdit_ReadOnly_Write);
766815 addProperty(' TLazDateEdit' , ' DirectInput' , ' Boolean' , @_LapeDateEdit_DirectInput_Read, @_LapeDateEdit_DirectInput_Write);
816+ addProperty(' TLazDateEdit' , ' NumbersOnly' , ' Boolean' , @_LapeDateEdit_NumbersOnly_Read, @_LapeDateEdit_NumbersOnly_Write);
817+ addProperty(' TLazDateEdit' , ' OnChange' , ' TLazNotifyEvent' , @_LapeDateEdit_OnChange_Read, @_LapeDateEdit_OnChange_Write);
767818 addClassConstructor(' TLazDateEdit' , ' (TheOwner: TLazComponent)' , @_LapeDateEdit_Create);
768819
769820 addClass(' TLazTimeEdit' , ' TLazCustomControl' , TTimeEdit);
770821 addProperty(' TLazTimeEdit' , ' Time' , ' TDateTime' , @_LapeTimeEdit_Time_Read, @_LapeTimeEdit_Time_Write);
771822 addProperty(' TLazTimeEdit' , ' DefaultNow' , ' Boolean' , @_LapeTimeEdit_DefaultNow_Read, @_LapeTimeEdit_DefaultNow_Write);
772823 addProperty(' TLazTimeEdit' , ' ReadOnly' , ' Boolean' , @_LapeTimeEdit_ReadOnly_Read, @_LapeTimeEdit_ReadOnly_Write);
773824 addProperty(' TLazTimeEdit' , ' DirectInput' , ' Boolean' , @_LapeTimeEdit_DirectInput_Read, @_LapeTimeEdit_DirectInput_Write);
825+ addProperty(' TLazTimeEdit' , ' NumbersOnly' , ' Boolean' , @_LapeTimeEdit_NumbersOnly_Read, @_LapeTimeEdit_NumbersOnly_Write);
826+ addProperty(' TLazTimeEdit' , ' SimpleLayout' , ' Boolean' , @_LapeTimeEdit_SimpleLayout_Read, @_LapeTimeEdit_SimpleLayout_Write);
827+ addProperty(' TLazTimeEdit' , ' OnChange' , ' TLazNotifyEvent' , @_LapeTimeEdit_OnChange_Read, @_LapeTimeEdit_OnChange_Write);
774828 addClassConstructor(' TLazTimeEdit' , ' (TheOwner: TLazComponent)' , @_LapeTimeEdit_Create);
775829
776830
0 commit comments