@@ -242,6 +242,16 @@ procedure _LapeDateEdit_NumbersOnly_Write(const Params: PParamArray); LAPE_WRAPP
242242 PDateEdit(Params^[0 ])^.NumbersOnly := PBoolean(Params^[1 ])^;
243243end ;
244244
245+ procedure _LapeDateEdit_Text_Read (const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
246+ begin
247+ PString(Result)^ := PDateEdit(Params^[0 ])^.Text;
248+ end ;
249+
250+ procedure _LapeDateEdit_Text_Write (const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
251+ begin
252+ PDateEdit(Params^[0 ])^.Text := PCaption(Params^[1 ])^;
253+ end ;
254+
245255procedure _LapeDateEdit_OnChange_Read (const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
246256begin
247257 PNotifyEvent(Result)^ := PDateEdit(Params^[0 ])^.OnChange;
@@ -319,6 +329,16 @@ procedure _LapeTimeEdit_SimpleLayout_Write(const Params: PParamArray); LAPE_WRAP
319329 PTimeEdit(Params^[0 ])^.SimpleLayout := PBoolean(Params^[1 ])^;
320330end ;
321331
332+ procedure _LapeTimeEdit_Text_Read (const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
333+ begin
334+ PString(Result)^ := PTimeEdit(Params^[0 ])^.Text;
335+ end ;
336+
337+ procedure _LapeTimeEdit_Text_Write (const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
338+ begin
339+ PTimeEdit(Params^[0 ])^.Text := PCaption(Params^[1 ])^;
340+ end ;
341+
322342procedure _LapeTimeEdit_OnChange_Read (const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
323343begin
324344 PNotifyEvent(Result)^ := PTimeEdit(Params^[0 ])^.OnChange;
@@ -814,6 +834,7 @@ procedure ImportLCLMisc(Script: TSimbaScript);
814834 addProperty(' TLazDateEdit' , ' ReadOnly' , ' Boolean' , @_LapeDateEdit_ReadOnly_Read, @_LapeDateEdit_ReadOnly_Write);
815835 addProperty(' TLazDateEdit' , ' DirectInput' , ' Boolean' , @_LapeDateEdit_DirectInput_Read, @_LapeDateEdit_DirectInput_Write);
816836 addProperty(' TLazDateEdit' , ' NumbersOnly' , ' Boolean' , @_LapeDateEdit_NumbersOnly_Read, @_LapeDateEdit_NumbersOnly_Write);
837+ addProperty(' TLazDateEdit' , ' Text' , ' String' , @_LapeDateEdit_Text_Read, @_LapeDateEdit_Text_Write);
817838 addProperty(' TLazDateEdit' , ' OnChange' , ' TLazNotifyEvent' , @_LapeDateEdit_OnChange_Read, @_LapeDateEdit_OnChange_Write);
818839 addClassConstructor(' TLazDateEdit' , ' (TheOwner: TLazComponent)' , @_LapeDateEdit_Create);
819840
@@ -824,6 +845,7 @@ procedure ImportLCLMisc(Script: TSimbaScript);
824845 addProperty(' TLazTimeEdit' , ' DirectInput' , ' Boolean' , @_LapeTimeEdit_DirectInput_Read, @_LapeTimeEdit_DirectInput_Write);
825846 addProperty(' TLazTimeEdit' , ' NumbersOnly' , ' Boolean' , @_LapeTimeEdit_NumbersOnly_Read, @_LapeTimeEdit_NumbersOnly_Write);
826847 addProperty(' TLazTimeEdit' , ' SimpleLayout' , ' Boolean' , @_LapeTimeEdit_SimpleLayout_Read, @_LapeTimeEdit_SimpleLayout_Write);
848+ addProperty(' TLazTimeEdit' , ' Text' , ' String' , @_LapeTimeEdit_Text_Read, @_LapeTimeEdit_Text_Write);
827849 addProperty(' TLazTimeEdit' , ' OnChange' , ' TLazNotifyEvent' , @_LapeTimeEdit_OnChange_Read, @_LapeTimeEdit_OnChange_Write);
828850 addClassConstructor(' TLazTimeEdit' , ' (TheOwner: TLazComponent)' , @_LapeTimeEdit_Create);
829851
0 commit comments