Skip to content

Commit 5731825

Browse files
committed
missing exports
1 parent f0b50d5 commit 5731825

File tree

1 file changed

+54
-0
lines changed

1 file changed

+54
-0
lines changed

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

Lines changed: 54 additions & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -232,13 +232,32 @@ procedure _LapeDateEdit_DirectInput_Write(const Params: PParamArray); LAPE_WRAPP
232232
PDateEdit(Params^[0])^.DirectInput := PBoolean(Params^[1])^;
233233
end;
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

237255
procedure _LapeDateEdit_Create(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
238256
begin
239257
PDateEdit(Result)^ := TDateEdit.Create(PComponent(Params^[0])^);
240258
end;
241259

260+
242261
//TIME
243262
procedure _LapeTimeEdit_Time_Read(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
244263
begin
@@ -280,6 +299,36 @@ procedure _LapeTimeEdit_DirectInput_Write(const Params: PParamArray); LAPE_WRAPP
280299
PTimeEdit(Params^[0])^.DirectInput := PBoolean(Params^[1])^;
281300
end;
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+
283332
procedure _LapeTimeEdit_Create(const Params: PParamArray; const Result: Pointer); LAPE_WRAPPER_CALLING_CONV
284333
begin
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

Comments
 (0)