flex_nav/fn_macros.a80
2025-06-25 08:54:42 +03:00

107 lines
2.2 KiB
Plaintext

; LAST UPDATE: 25.06.2025 savelij
MAKEWINDOW MACRO TYPE
CALL JUMPS.MakeWindow
DB TYPE
ENDM
; ®¯¨á â¥«ì ®ª­ 
W_MAIN MACRO X,Y,H,V
DW X,Y,H,V
ENDM
; ⥪á⮢ ï áâப 
; BUILDDATE - §­ ç¥­¨¥ «î¡®¥, ¯à¨ ­ «¨ç¨¨ ¢áâ ¢«ï¥âáï ¤ â  ᡮન
W_TEXT MACRO OFFSETX,OFFSETY,COLOR,TXT,BUILDDATE
DB WINSUBOBJ.TEXT
DW OFFSETX,OFFSETY
DB COLOR,TXT
IFNB BUILDDATE
TEXTDATE
ENDIF
DB 0
ENDM
W_ADRTEXT MACRO OFFSETX,OFFSETY,COLOR,ADRTXT
DB WINSUBOBJ.ADRTEXT
DW OFFSETX,OFFSETY
DB COLOR
DW ADRTXT
ENDM
; § ¯®«­¥­¨¥ ¯àאַ㣮«ì­®© ¯«®áª®áâ¨
W_FILL MACRO OFFSETX,OFFSETY,H,V,COLOR
DB WINSUBOBJ.FILL
DW OFFSETX,OFFSETY,H,V
DB COLOR
ENDM
; ®âà¨á®¢ª  㣫㡫ñ­­®© ¯àאַ㣮«ì­®© ¯«®áª®áâ¨
W_BORDER MACRO OFFSETX,OFFSETY,H,V
DB WINSUBOBJ.BORDER
DW OFFSETX,OFFSETY,H,V
ENDM
; ®âà¨á®¢ª  ¢ë¯ãª«®© ¯àאַ㣮«ì­®© ¯«®áª®áâ¨
W_BUTTON MACRO OFFSETX,OFFSETY,H,V
DB WINSUBOBJ.BUTTON
DW OFFSETX,OFFSETY,H,V
ENDM
; ®âà¨á®¢ª  ª­®¯ª¨ á ⥪á⮬ (¯¥ç âì ⥪áâ  ®áãé¥á⢫ï¥âáï á ¯®§¨æ¨© x + 4, y + 1)
W_BUTTONTEXT MACRO OFFSETX,OFFSETY,H,V,COLOR,TXT
DB WINSUBOBJ.BUTTONTEXT
DW OFFSETX,OFFSETY,H,V
DB COLOR,TXT,0
ENDM
; ®âà¨á®¢ª  £®à¨§®­â «ì­®£® à §¤¥«¨â¥«ï
W_HORIZLINE MACRO OFFSETX,OFFSETY,SIZE
DB WINSUBOBJ.HORIZLINE
DW OFFSETX,OFFSETY,SIZE
ENDM
; ®âà¨á®¢ª  ¢¥à⨪ «ì­®£® à §¤¥«¨â¥«ï
W_VERTICLINE MACRO OFFSETX,OFFSETY,SIZE
DB WINSUBOBJ.VERTICLINE
DW OFFSETX,OFFSETY,SIZE
ENDM
; ®âà¨á®¢ª  «¥¢®© ª­®¯ª¨ áªà®«¡ à 
W_ICONLEFTARROW MACRO OFFSETX,OFFSETY
DB WINSUBOBJ.ICONLEFTARROW
DW OFFSETX,OFFSETY
ENDM
; ®âà¨á®¢ª  ¯à ¢®© ª­®¯ª¨ áªà®«¡ à 
W_ICONRIGHTARROW MACRO OFFSETX,OFFSETY
DB WINSUBOBJ.ICONRIGHTARROW
DW OFFSETX,OFFSETY
ENDM
; ®âà¨á®¢ª  ¢¥àå­¥© ª­®¯ª¨ áªà®«¡ à 
W_ICONUPARROW MACRO OFFSETX,OFFSETY
DB WINSUBOBJ.ICONUPARROW
DW OFFSETX,OFFSETY
ENDM
; ®âà¨á®¢ª  ­¨¦­¥© ª­®¯ª¨ áªà®«¡ à 
W_ICONDOWNARROW MACRO OFFSETX,OFFSETY
DB WINSUBOBJ.ICONDOWNARROW
DW OFFSETX,OFFSETY
ENDM
; ª®­¥æ ®¯¨á â¥«ï ®ª­ 
W_END MACRO
DB WINSUBOBJ.END
ENDM
; ¢®ááâ ­®¢¨âì ¤ ­­ë¥ ¯®¤ ®ª­®¬
WINDOWCLOSE MACRO
MAKEWINDOW WINSUBOBJ.RESTOREWIN
W_END
ENDM
BUILDDATE EQU "\{(DDATE / 10) + '0'}\{(DDATE # 10) + '0'}.\{MMOUNTH / 10 + '0'}\{MMOUNTH # 10 + '0'}.20\{(YYEAR / 10) + '0'}\{(YYEAR # 10) + '0'}"