;;
;;   DIALOG-BOX generator  v2.0    (C) 1996. by GyikSoft
;;
;;   *  minta men file  *
;;

;
; Almentipusok:
;   TYPE 1: YMENU1    [X]
;   TYPE 2: YMENU2    (o)
;   TYPE 3: XyMENU    [OK] [CANCEL]
;   TYPE 4: INPUT line  (uses modified INPUT2B.INC)
;   TYPE 16: PRINT      (uses PRINT1.INC)
;

; Meghvsa:
;;  BP->MENU      ; BP a men struktrra mutasson
;;  !DRAW_MENU    ; Dialog Box Generator meghvsa
;
; Ki: CF=1 ha ESC-el, CF=0 ah Enter-rel lptek ki
; a vlasztott menpontokat, belltsokat a struktrkbl kell kiolvasni

;----- Men-keret: -----------

{MENU
MENU:
DW -24,-10             ; kperny kzephez kpest relatv x;y
DW 40,15               ; X,Y mretek
DB 16*3+15,16*3+15     ; keret, fejlc szine
DW 8,STROFS ' Fmen ' ; men nevnek HOSSZA s OFFSET-je
DB 6,5                 ; 6 darab menblokkbl az els 5 aktv (vlaszthat)
DW 0                   ; default menblokk szma
; menblokkok megadsa:  tpus, X,Y pozci, almen struktra OFFSET-je
DW 2,5,2,OFS YMENU2    ; 0. menblokk: (o) tpus   (kivlaszt)
DW 1,5,7,OFS YMENU1    ; 1. menblokk: [x] tpus   (X-els)
DW 3,5,12,OFS XMENU1   ; 2. menblokk: menpontok
DW 3,30,4,OFS XMENU2   ; 3. menblokk: menpontok
DW 4,5,15,OFS INPUTBLOCK1  ; 4. mb.: input (string-beolvas) sor
DW 16,8,13,OFS DUMA1       ; 5. mb.: szveg krs, ez nem aktv
}

;----- men-blokkok: -----------

{MENU
DUMA1:
DB '**',8,16*1+15,'Ez itt csak egy kirs!',13,'->',0
;; Megj.: a string tartalmazhat vezrlkdokat is!
;; (kb. a DIALOG.INC 910. sornl le vannak rva a kdok)
}

{MENU
YMENU2:
DB 16*3+14,16*3+15    ; keret,fejlc szine
DW 3                  ; menpontok szma (Y mret)
DW 0                  ; aktulis pozici  (pp tszinezett menpont sorszma)
dw 15                 ; X mret
DB ' Search: ',0      ; fejlc
; menpontok megadsa:   hotkey, default value (0=[ ] 1=[X]), STRING+00h
DB 'C',1,'upCase',0   ; 0. menpont
DB 'B',0,'Backward',0 ; 1. menpont
DB 'J',1,'Jokers',0   ; 2 menpont
}

{MENU
YMENU1:
DB 16*3+14,16*3+15    ; keret,fejlc szine
DW 3                  ; menpontok szma (Y mret)
DW 0                  ; aktulis pozici  (pp tszinezett menpont sorszma)
dw 15                 ; X mret
DB ' Colors: ',0      ; fejlc
; menpontok megadsa:   hotkey, STRING+00h
DB 'BBlack',0
DB 'WWhite',0
DB 'OOrange',0
}

{MENU
XMENU1:
DB 3*16+14,0*16+15    ; szin1, szin2
DW 3                  ; menpontok szma
DW 0                  ; aktulis pozici  (pp tszinezett menpont sorszma)
; menpontok megadsa: x;y pozici (relatv blokk sarkhoz), hotkey, string+00h
DB  0,0,'Y Yes ',0
DB  8,0,'N No ',0
DB 15,0,'CCancel',0
}

{MENU
XMENU2:
DB 3*16+14,0*16+15    ; szin1, szin2
DW 3                  ; menpontok szma
DW 0                  ; aktulis pozici  (pp tszinezett menpont sorszma)
; menpontok megadsa: x;y pozici (relatv blokk sarkhoz), hotkey, string+00h
DB  0,0,'Y Yes ',0
DB  3,1,'N No ',0     ;; nem csak egyms mellett lehetnek a menpontok
DB  6,2,'CCancel',0
}

{MENU
INPUTBLOCK1:
 DB 4*16+15           ; color        (szin)
 DB ?                 ; reserved     (mindegy, hogy mi)
 DW 50                ; puffersize   (max. string hossz)
 DW 0                 ; inpchars     (aktulis string hossz)
 DW 20                ; screen_xsize (kpernyablak szlessge)
 DW OFS PUFFER        ; buffer ofs.  (puffer cme)

 PUFFER DB 50 DUP(?)  ; PUFFER  (ide elsz ebolvasva a string)
 ; megj.: ha a string nem 0 hossz meghvskor, akkor ezt tudjuk teditlni!
}

