more properties

Author: Torwent

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

@@ -212,6 +212,28 @@ procedure _LapeDateEdit_DefaultToday_Write(const Params: PParamArray); LAPE_WRAP
   PDateEdit(Params^[0])^.DefaultToday := PBoolean(Params^[1])^;
 end;
 
+procedure _LapeDateEdit_ReadOnly_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
+begin
+  PBoolean(Result)^ := PDateEdit(Params^[0])^.ReadOnly;
+end;
+
+procedure _LapeDateEdit_ReadOnly_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
+begin
+  PDateEdit(Params^[0])^.ReadOnly := PBoolean(Params^[1])^;
+end;
+
+procedure _LapeDateEdit_DirectInput_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
+begin
+  PBoolean(Result)^ := PDateEdit(Params^[0])^.DirectInput;
+end;
+
+procedure _LapeDateEdit_DirectInput_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
+begin
+  PDateEdit(Params^[0])^.DirectInput := PBoolean(Params^[1])^;
+end;
+
+
+
 procedure _LapeDateEdit_Create(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
 begin
   PDateEdit(Result)^ := TDateEdit.Create(PComponent(Params^[0])^);
@@ -238,6 +260,26 @@ procedure _LapeTimeEdit_DefaultNow_Write(const Params: PParamArray); LAPE_WRAPPE
   PTimeEdit(Params^[0])^.DefaultNow := PBoolean(Params^[1])^;
 end;
 
+procedure _LapeTimeEdit_ReadOnly_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
+begin
+  PBoolean(Result)^ := PTimeEdit(Params^[0])^.ReadOnly;
+end;
+
+procedure _LapeTimeEdit_ReadOnly_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
+begin
+  PTimeEdit(Params^[0])^.ReadOnly := PBoolean(Params^[1])^;
+end;
+
+procedure _LapeTimeEdit_DirectInput_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
+begin
+  PBoolean(Result)^ := PTimeEdit(Params^[0])^.DirectInput;
+end;
+
+procedure _LapeTimeEdit_DirectInput_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
+begin
+  PTimeEdit(Params^[0])^.DirectInput := PBoolean(Params^[1])^;
+end;
+
 procedure _LapeTimeEdit_Create(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
 begin
   PTimeEdit(Result)^ := TTimeEdit.Create(PComponent(Params^[0])^);
@@ -720,11 +762,15 @@ procedure ImportLCLMisc(Script: TSimbaScript);
     addProperty('TLazDateEdit', 'MaxDate', 'TDateTime', @_LapeDateEdit_MaxDate_Read, @_LapeDateEdit_MaxDate_Write);
     addProperty('TLazDateEdit', 'DateFormat', 'String', @_LapeDateEdit_DateFormat_Read, @_LapeDateEdit_DateFormat_Write);
     addProperty('TLazDateEdit', 'DefaultToday', 'Boolean', @_LapeDateEdit_DefaultToday_Read, @_LapeDateEdit_DefaultToday_Write);
+    addProperty('TLazDateEdit', 'ReadOnly', 'Boolean', @_LapeDateEdit_ReadOnly_Read, @_LapeDateEdit_ReadOnly_Write);
+    addProperty('TLazDateEdit', 'DirectInput', 'Boolean', @_LapeDateEdit_DirectInput_Read, @_LapeDateEdit_DirectInput_Write);
     addClassConstructor('TLazDateEdit', '(TheOwner: TLazComponent)', @_LapeDateEdit_Create);
 
     addClass('TLazTimeEdit', 'TLazCustomControl', TTimeEdit);
     addProperty('TLazTimeEdit', 'Time', 'TDateTime', @_LapeTimeEdit_Time_Read, @_LapeTimeEdit_Time_Write);
     addProperty('TLazTimeEdit', 'DefaultNow', 'Boolean', @_LapeTimeEdit_DefaultNow_Read, @_LapeTimeEdit_DefaultNow_Write);
+    addProperty('TLazTimeEdit', 'ReadOnly', 'Boolean', @_LapeTimeEdit_ReadOnly_Read, @_LapeTimeEdit_ReadOnly_Write);
+    addProperty('TLazTimeEdit', 'DirectInput', 'Boolean', @_LapeTimeEdit_DirectInput_Read, @_LapeTimeEdit_DirectInput_Write);
     addClassConstructor('TLazTimeEdit', '(TheOwner: TLazComponent)', @_LapeTimeEdit_Create);