Skip to content

Commit ef6b575

Browse files
committed
fix: export .Text property of the new controls
1 parent 5731825 commit ef6b575

File tree

1 file changed

+22
-0
lines changed

1 file changed

+22
-0
lines changed

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

Lines changed: 22 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -242,6 +242,16 @@ procedure _LapeDateEdit_NumbersOnly_Write(const Params: PParamArray); LAPE_WRAPP
242242
PDateEdit(Params^[0])^.NumbersOnly := PBoolean(Params^[1])^;
243243
end;
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+
245255
procedure _LapeDateEdit_OnChange_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
246256
begin
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])^;
320330
end;
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+
322342
procedure _LapeTimeEdit_OnChange_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
323343
begin
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

Comments
 (0)