martin/aqhomecontrol
Public Access
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

gui: implemented DlgLightConns_OnCmdLight and DlgLightConns_OnDlgEndLight.

Browse Source
This commit is contained in:
Martin Preuss
2026-05-11 12:11:33 +02:00
parent d54a259060
commit 313b2c05a1
1 changed files with 51 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

51
avr/modules/lcd2/gui/aqhome/d_light_conns.asm
View File

@@ -514,6 +514,37 @@ DlgLightConns_OnDlgEndMotion2_leave:
; @clobbers any, !Y ; @clobbers any, !Y
DlgLightConns_OnCmdLight: DlgLightConns_OnCmdLight:
push yl
push yh
ldd zl, Y+DLGLIGHTCONNS_OFFS_SETTINGS_LO
ldd zh, Y+DLGLIGHTCONNS_OFFS_SETTINGS_HI
bigcall Widget_GetApp ; R19:R18=gui
mov yl, r18
mov yh, r19
ldi r20, LOW(RESSOURCE_TXT_LEDBRIGHTNESSSRC)
ldi r21, HIGH(RESSOURCE_TXT_LEDBRIGHTNESSSRC)
push zl
push zh
bigcall DlgNodeValueId_new
pop zh
pop zl
ldi r16, DLGLIGHTCONNS_SEL_DLG_LIGHT
std Y+OBJECT_OFFS_SELECTOR, r16
; set values
ldd xl, Z+LIGHTSETTINGS_OFFS_BSOURCE_NODEADDR
clr xh
bigcall DlgNodeValueId_SetNodeAddr
ldd xl, Z+LIGHTSETTINGS_OFFS_BSOURCE_VALUEID
clr xh
bigcall DlgNodeValueId_SetValueId
mov xl, yl
mov xh, yh
pop yh
pop yl
rcall dlgLightConnsEnterSubDialog
sec sec
ret ret
; @end ; @end
@@ -527,6 +558,26 @@ DlgLightConns_OnCmdLight:
; @clobbers any, !Y ; @clobbers any, !Y
DlgLightConns_OnDlgEndLight: DlgLightConns_OnDlgEndLight:
cpi xl, DIALOG_RESULT_OK
brne DlgLightConns_OnDlgEndLight_leave
; get values
ldd zl, Y+DLGLIGHTCONNS_OFFS_SETTINGS_LO
ldd zh, Y+DLGLIGHTCONNS_OFFS_SETTINGS_HI
push yl
push yh
ldd r16, Y+DLGLIGHTCONNS_OFFS_CURRDLG_LO
ldd yh, Y+DLGLIGHTCONNS_OFFS_CURRDLG_HI
mov yl, r16
bigcall DlgNodeValueId_GetNodeAddr
std Z+LIGHTSETTINGS_OFFS_BSOURCE_NODEADDR, r18
bigcall DlgNodeValueId_GetValueId
std Z+LIGHTSETTINGS_OFFS_BSOURCE_VALUEID, r18
pop yh
pop yl
DlgLightConns_OnDlgEndLight_leave:
rcall dlgLightConnsLeaveSubDialog
sec sec
ret ret
; @end ; @end