Update simba.import_lcl_misc.pas

Author: Torwent

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

@@ -29,6 +29,7 @@ implementation
 
   PDateEdit = ^TDateEdit;
   PTimeEdit = ^TTimeEdit;
+  PSpeedButton = ^TSpeedButton;
 
   PMenu = ^TMenu;
   PPopupMenu = ^TPopupMenu;
@@ -253,6 +254,16 @@ procedure _LapeDateEdit_Text_Write(const Params: PParamArray); LAPE_WRAPPER_CALL
   PDateEdit(Params^[0])^.Text := PCaption(Params^[1])^;
 end;
 
+procedure _LapeDateEdit_Button_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
+begin
+  PSpeedButton(Result)^ := PDateEdit(Params^[0])^.Button;
+end;
+
+procedure _LapeDateEdit_Button_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
+begin
+  PDateEdit(Params^[0])^.Button := PSpeedButton(Params^[1])^;
+end;
+
 procedure _LapeDateEdit_OnChange_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
 begin
   PNotifyEvent(Result)^ := PDateEdit(Params^[0])^.OnChange;
@@ -263,6 +274,16 @@ procedure _LapeDateEdit_OnChange_Write(const Params: PParamArray); LAPE_WRAPPER_
   PDateEdit(Params^[0])^.OnChange := PNotifyEvent(Params^[1])^;
 end;
 
+procedure _LapeDateEdit_OnButtonClick_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
+begin
+  PNotifyEvent(Result)^ := PDateEdit(Params^[0])^.OnButtonClick;
+end;
+
+procedure _LapeDateEdit_OnButtonClick_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
+begin
+  PDateEdit(Params^[0])^.OnButtonClick := PNotifyEvent(Params^[1])^;
+end;
+
 procedure _LapeDateEdit_Create(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
 begin
   PDateEdit(Result)^ := TDateEdit.Create(PComponent(Params^[0])^);
@@ -350,6 +371,26 @@ procedure _LapeTimeEdit_OnChange_Write(const Params: PParamArray); LAPE_WRAPPER_
   PTimeEdit(Params^[0])^.OnChange := PNotifyEvent(Params^[1])^;
 end;
 
+procedure _LapeTimeEdit_Button_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
+begin
+  PSpeedButton(Result)^ := PTimeEdit(Params^[0])^.Button;
+end;
+
+procedure _LapeTimeEdit_Button_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
+begin
+  PTimeEdit(Params^[0])^.Button := PSpeedButton(Params^[1])^;
+end;
+
+procedure _LapeTimeEdit_OnButtonClick_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
+begin
+  PNotifyEvent(Result)^ := PTimeEdit(Params^[0])^.OnButtonClick;
+end;
+
+procedure _LapeTimeEdit_OnButtonClick_Write(const Params: PParamArray); LAPE_WRAPPER_CALLING_CONV
+begin
+  PTimeEdit(Params^[0])^.OnButtonClick := PNotifyEvent(Params^[1])^;
+end;
+
 procedure _LapeTimeEdit_Create(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
 begin
   PTimeEdit(Result)^ := TTimeEdit.Create(PComponent(Params^[0])^);
@@ -835,7 +876,9 @@ procedure ImportLCLMisc(Script: TSimbaScript);
     addProperty('TLazDateEdit', 'DirectInput', 'Boolean', @_LapeDateEdit_DirectInput_Read, @_LapeDateEdit_DirectInput_Write);
     addProperty('TLazDateEdit', 'NumbersOnly', 'Boolean', @_LapeDateEdit_NumbersOnly_Read, @_LapeDateEdit_NumbersOnly_Write);
     addProperty('TLazDateEdit', 'Text', 'String', @_LapeDateEdit_Text_Read, @_LapeDateEdit_Text_Write);
+    addProperty('TLazDateEdit', 'Button', 'TLazSpeedButton', @_LapeDateEdit_Button_Read, @_LapeDateEdit_Button_Write);
     addProperty('TLazDateEdit', 'OnChange', 'TLazNotifyEvent', @_LapeDateEdit_OnChange_Read, @_LapeDateEdit_OnChange_Write);
+    addProperty('TLazDateEdit', 'OnButtonClick', 'TLazNotifyEvent', @_LapeDateEdit_OnButtonClick_Read, @_LapeDateEdit_OnButtonClick_Write);
     addClassConstructor('TLazDateEdit', '(TheOwner: TLazComponent)', @_LapeDateEdit_Create);
 
     addClass('TLazTimeEdit', 'TLazCustomControl', TTimeEdit);
@@ -846,7 +889,9 @@ procedure ImportLCLMisc(Script: TSimbaScript);
     addProperty('TLazTimeEdit', 'NumbersOnly', 'Boolean', @_LapeTimeEdit_NumbersOnly_Read, @_LapeTimeEdit_NumbersOnly_Write);
     addProperty('TLazTimeEdit', 'SimpleLayout', 'Boolean', @_LapeTimeEdit_SimpleLayout_Read, @_LapeTimeEdit_SimpleLayout_Write);
     addProperty('TLazTimeEdit', 'Text', 'String', @_LapeTimeEdit_Text_Read, @_LapeTimeEdit_Text_Write);
+    addProperty('TLazTimeEdit', 'Button', 'TLazSpeedButton', @_LapeTimeEdit_Button_Read, @_LapeTimeEdit_Button_Write);
     addProperty('TLazTimeEdit', 'OnChange', 'TLazNotifyEvent', @_LapeTimeEdit_OnChange_Read, @_LapeTimeEdit_OnChange_Write);
+    addProperty('TLazTimeEdit', 'OnButtonClick', 'TLazNotifyEvent', @_LapeTimeEdit_OnButtonClick_Read, @_LapeTimeEdit_OnButtonClick_Write);
     addClassConstructor('TLazTimeEdit', '(TheOwner: TLazComponent)', @_LapeTimeEdit_Create);