home *** CD-ROM | disk | FTP | other *** search
/ swCHIP 1991 January / swCHIP_95-1.bin / chip / tvgenpas / demo3pas.exe / EXAMPLE / AHOJ.DSF < prev    next >
Text File  |  1994-12-19  |  498b  |  29 lines
  1. 
  2. TXT_HELP.$S$
  3.  
  4.    ▄ Ahoj, svête!
  5.    ▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀
  6.  
  7. 
  8. TXT_HELP.$SD
  9. Help Text
  10. 
  11. MTD_HAND.$S$
  12. procedure %TYPE%.HandleEvent;
  13. @CALL AppDialogData 'Jinÿ dialog' Data
  14. begin
  15.   inherited HandleEvent(Event);
  16.   if Event.What and evMessage <> 0 then
  17.      begin
  18.        case Event.Command of
  19. @NOCR   cmDialog :
  20. @CALL AppDialogCall 'Jinÿ dialog' Data           
  21.        else Exit;
  22.        end;
  23.        ClearEvent(Event);
  24.      end;
  25. end;
  26. 
  27. MTD_HAND.$SD
  28. procedure HandleEvent
  29.