102 lines
2.1 KiB
Plaintext
102 lines
2.1 KiB
Plaintext
|
|
; LAST UPDATE: 28.05.2025 savelij
|
|
|
|
MAKEWINDOW MACRO TYPE
|
|
CALL JUMPS.MakeWindow
|
|
DB TYPE
|
|
ENDM
|
|
|
|
; ®¯¨á â¥«ì ®ª
|
|
W_MAIN MACRO X,Y,H,V
|
|
DW X,Y,H,V
|
|
ENDM
|
|
|
|
; ⥪á⮢ ï áâப
|
|
W_TEXT MACRO OFFSETX,OFFSETY,COLOR,TXT
|
|
DB WINSUBOBJ.TEXT
|
|
DW OFFSETX,OFFSETY
|
|
DB COLOR,TXT,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'}"
|