home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / template.exe / AS_SETUP.COD < prev    next >
Encoding:
Text File  |  1992-03-10  |  3.7 KB  |  152 lines
  1. //
  2. // Module Name: AS_SETUP.COD
  3. // Description: Setup for current menu
  4. //
  5. PROCEDURE SET0{prgcnt}
  6. *{replicate("-",69)}
  7. * {mnuname} setup routine.  This procedure will open up the file or
  8. * view for this menu, and setup the color scheme.
  9. {if !menusave && Menu_Type == bar then}
  10. * It will then paint the menu on the screen.
  11. {endif}
  12. *{replicate("-",69)}
  13. {LMARG(3);}
  14.  
  15. ON KEY LABEL F1 DO 1HELP1{tabto(41)}&& Define F1-Help key
  16. //
  17. // capture the menu level database/view
  18. //
  19. {if (not Menu_Ovride) or (not Menu_View) or (global_view == Menu_View) then
  20.    gc_view = global_view;
  21. //
  22. // capture the menu level index(es)
  23. //
  24.    if (not Menu_Ovride) or (not Menu_NDX) or (global_ndx == Menu_NDX) then
  25.      gc_ndx = global_ndx;
  26.    else
  27.      gc_ndx = Menu_NDX;
  28.    endif
  29. //
  30. // capture the menu level index order(s)
  31. //
  32.    if (not Menu_Ovride) or (not Menu_Order) or (global_ord == Menu_Order) then
  33.      gc_ord = global_ord;
  34.    else
  35.      gc_ord = Menu_Order;
  36.    endif
  37.  else
  38.    gc_view = Menu_View;
  39.    gc_ndx  = Menu_NDX;
  40.    gc_ord  = Menu_Order;
  41.  endif
  42. }
  43. {if Menu_Ovride != 2 then}
  44.  
  45. DO DBF0{prgcnt}{tabto(41)}&& open menu level database
  46. {endif}
  47. {if Menu_Type != btch then}
  48.  
  49. IF gn_error = 0
  50.   IF gl_color .AND. .NOT. SET("ATTRIBUTES") = ;
  51.      "\
  52. {
  53. color(Clr_Text)+","+color(Clr_Hghlight)+",N/N "}"+CHR(38)+CHR(38)+" \
  54. {color(Clr_Messages)+","+color(Clr_Heading)+
  55. ","+color(Clr_Box)+","+color(Clr_Info)+","+color(Clr_Fields)
  56. }"
  57.     SET COLOR OF NORMAL TO {color(Clr_Text)}
  58.     SET COLOR OF MESSAGES TO {color(Clr_Messages)}
  59.     SET COLOR OF TITLES TO {color(Clr_Heading)}
  60.     SET COLOR OF HIGHLIGHT TO {color(Clr_Hghlight)}
  61.     SET COLOR OF BOX TO {color(Clr_Box)}
  62.     SET COLOR OF INFORMATION TO {color(Clr_Info)}
  63.     SET COLOR OF FIELDS TO {color(Clr_Fields)}
  64.   ENDIF
  65. {endif}
  66. //
  67. // if the pad menu has a box around it, draw it.
  68. //
  69. {if !menusave && Menu_Type == bar then}
  70.  
  71.   DO SET0{prgcnt}A{tabto(41)}&& Paint the bar menu
  72.  
  73. {endif}
  74. //
  75. {if Menu_Type != btch then}
  76. ENDIF
  77.  
  78. {endif}
  79. {LMARG(1);}
  80. RETURN
  81. *-- EOP: SET0{prgcnt} - Menu {mnuname}
  82. {if !menusave && Menu_Type == bar then}
  83.  
  84. PROCEDURE SET0{prgcnt}A
  85. *{replicate("-",69)}
  86. * {mnuname} menu paint routine.
  87. *{replicate("-",69)}
  88. {LMARG(3);}
  89. PRIVATE ll_exact
  90. SET BORDER TO
  91. {  if Mnu_Border != 3 then}
  92. @ {row1()},{col1()} TO {row2()},{col2()}\
  93. {    case Mnu_Border of}
  94. {    0:}
  95.  PANEL\
  96. {    2:}
  97.  DOUBLE\
  98. {    endcase}
  99.  COLOR {color(Clr_Box)}
  100. {  endif}
  101. @ {row1()+1},{col1()+1} CLEAR TO {row2()-1},{col2()-1}
  102. @ {row1()+1},{col1()+1} FILL TO {row2()-1},{col2()-1} \
  103. COLOR {color(Clr_Messages)}
  104. {  foreach FLD_ELEMENT}
  105. @ {Row_Positn+Row1()},{Col_Positn+Col1()} SAY "{Fld_Pictur}" \
  106. COLOR {color(Clr_Messages)}
  107. {  next
  108.    x=0;
  109.    foreach FLD_ELEMENT
  110.      if Menu_act == 1 then
  111.        if !x then
  112.          x=1;}
  113. ll_exact = SET("EXACT") = "ON"{tabto(41)}&& Save Exact state
  114. SET EXACT ON{tabto(41)}&& Force Exact on for menu name compare
  115. lc_popup = POPUP(){tabto(41)}&& Find out the active pulldown
  116.  
  117. *-- Determine which menu pad to draw as highlight
  118. {      endif}
  119. IF lc_popup = "{Open_menu}"
  120.   @ {Row_Positn+Row1()},{Col_Positn+Col1()} SAY "{Fld_Pictur}" \
  121. COLOR {color(Clr_Hghlight)}
  122. ENDIF
  123. {    endif
  124.    next
  125.    if x then}
  126. IF .NOT. ll_exact{tabto(41)}&& If Exact was off
  127.   SET EXACT OFF{tabto(41)}&& Turn it back off
  128. ENDIF
  129. {  endif}
  130. {LMARG(1);}
  131.  
  132. RETURN
  133. *-- EOP: SET0{prgcnt}A - Menu {mnuname}
  134. {endif}
  135.  
  136. {if Menu_Ovride != 2 then}
  137. PROCEDURE DBF0{prgcnt}
  138. *{replicate("-",69)}
  139. * {mnuname} open DBF or view procedure
  140. *{replicate("-",69)}
  141. {LMARG(3);}
  142. PRIVATE lc_message
  143. CLOSE DATABASES
  144. *-- Open menu level view/database
  145. {  dbfOpen(gc_view,gc_ndx,gc_ord,1);}
  146. {LMARG(1);}
  147. RETURN
  148. *-- EOP: DBF0{prgcnt} - Menu {mnuname}
  149.  
  150. {endif}
  151. // EOP AS_SETUP.COD
  152.