76 lines
1.9 KiB
NASM
76 lines
1.9 KiB
NASM
; ***************************************************************************
|
|
; copyright : (C) 2026 by Martin Preuss
|
|
; email : martin@libchipcard.de
|
|
;
|
|
; ***************************************************************************
|
|
; * This file is part of the project "AqHome". *
|
|
; * Please see toplevel file COPYING of that project for license details. *
|
|
; ***************************************************************************
|
|
|
|
#ifndef AQH_AVR_GUI2_IMAGEBUTTON_ASM
|
|
#define AQH_AVR_GUI2_IMAGEBUTTON_ASM
|
|
|
|
|
|
; ***************************************************************************
|
|
; code
|
|
|
|
.cseg
|
|
|
|
|
|
|
|
; ---------------------------------------------------------------------------
|
|
; @routine ImageButton_new
|
|
;
|
|
; @param X parent
|
|
; @param r16 value for OBJECT_OFFS_OPTS
|
|
; @param r17 value for WIDGET_OFFS_PACK
|
|
; @param r21:r20 img ressource
|
|
; @param r22 selector (target will be parent, can be overridden later)
|
|
; @return CFLAG set if new object created, cleared on error
|
|
; @return Y button created
|
|
; @clobbers any, !X
|
|
|
|
ImageButton_new:
|
|
push xl
|
|
push xh
|
|
push r20
|
|
push r21
|
|
push r22
|
|
ldi r20, BUTTON_MODE_NORMAL
|
|
bigcall Button_new
|
|
pop r22
|
|
pop r21
|
|
pop r20
|
|
brcc ImageButton_new_done
|
|
mov xl, yl
|
|
mov xh, yh
|
|
push xl ; Button
|
|
push xh
|
|
push r22
|
|
ldi r16, 0
|
|
ldi r17, (WIDGET_PACK_BEGIN<<WIDGET_PACK_HSELF0_BIT) | (WIDGET_PACK_BEGIN<<WIDGET_PACK_VSELF0_BIT) ; PACK
|
|
bigcall ImageView_new
|
|
pop r22
|
|
pop yh ; pop button into Y
|
|
pop yl
|
|
brcc ImageButton_new_done
|
|
pop xh
|
|
pop xl
|
|
std Y+OBJECT_OFFS_TARGET_LO, xl
|
|
std Y+OBJECT_OFFS_TARGET_HI, xh
|
|
std Y+OBJECT_OFFS_SELECTOR, r22
|
|
rjmp ImageButton_new_ret
|
|
ImageButton_new_done:
|
|
pop xh
|
|
pop xl
|
|
ImageButton_new_ret:
|
|
ret
|
|
; @end
|
|
|
|
|
|
|
|
|
|
#endif
|
|
|
|
|