gui2: added widgets.

This commit is contained in:
Martin Preuss
2026-03-09 21:06:16 +01:00
parent 2827f4e063
commit d3f24284ca
8 changed files with 1043 additions and 82 deletions

View File

@@ -161,17 +161,7 @@ Label_OnGetDefaultWidth:
rcall labelCalcTextWidth
mov r18, r12
mov r19, r13
; add borders
ldd zl, Y+WIDGET_OFFS_STYLE_LO
ldd zh, Y+WIDGET_OFFS_STYLE_HI
adiw zh:zl, WIDGET_STYLE_OFFS_OUTERBORDERSIZE
lpm r20, Z
clr r21
add r18, r20 ; add border at begin
adc r19, r21
add r18, r20 ; add border at end
adc r19, r21
bigcall Widget_AddOuterStyleBorders ; (r20, r21)
sec
ret
; @end
@@ -192,17 +182,7 @@ Label_OnGetDefaultHeight:
rcall Widget_GetCharHeight ; R16=char height
mov r18, r16
clr r19
; add borders
ldd zl, Y+WIDGET_OFFS_STYLE_LO
ldd zh, Y+WIDGET_OFFS_STYLE_HI
adiw zh:zl, WIDGET_STYLE_OFFS_OUTERBORDERSIZE
lpm r20, Z
clr r21
add r18, r20 ; add border at begin
adc r19, r21
add r18, r20 ; add border at end
adc r19, r21
bigcall Widget_AddOuterStyleBorders ; (r20, r21)
sec
ret
; @end