home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / library / dos / window / winedit / menue.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-07-28  |  948 b   |  47 lines
  1. (*
  2. Gibt eine (Menü)-Maske aus
  3.  
  4. Zur Nutzbarmachung der WINEDIT-Routinen ist ein entsprechendes
  5. Unit vorhanden:
  6.  
  7.    W_TBP_40.TPU  wenn mit TURBO 4.0,
  8.    W_TBP_50.TPU  wenn mit TURBO 5.0 und
  9.    W_TBP_55.TPU  wenn mit TURBO 5.5 gearbeitet wird.
  10.  
  11. Eventuell ist die USES-Anweisung in diesem Quelltext
  12. entsprechend der verwendeten Version zu ändern.
  13.  
  14. *)
  15.  
  16.  
  17. program menue;
  18.  
  19. uses w_tbp_55; (*Für andere Versionen abändern*)
  20.  
  21. var
  22.     m,ret,i   :integer;
  23. begin
  24. if paramcount <> 1 then
  25.     begin
  26.     writeln('Aufruf : menue <Maskendatei  mit Feldern> !!!');
  27.     writeln('z.B. menue hmenue.msk ');
  28.     halt(1);
  29.     end;
  30.  
  31. ret:=w_init(DIREKT);
  32. m:=w_load(paramstr(1),NOVIRTUELL);
  33. if m < 0 then
  34.     begin
  35.     writeln('Fehler ',w_error,' beim Laden der Maske ',paramstr(1));
  36.     ret:=w_deinit;
  37.     halt(1);
  38.     end;
  39. ret:=w_open(m);
  40. i  :=w_switch(m);
  41. ret:=w_close;
  42. ret:=w_deinit;
  43. v_clrscr;
  44. ret:=w_out_int(-1,-1,i);
  45. end.
  46.  
  47.