home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / shazam / cluster.evt < prev    next >
Encoding:
Text File  |  1992-09-01  |  446 b   |  20 lines
  1. procedure hdInsert ;
  2. {$IFDEF code}{$I cluster.src }{$ENDIF}
  3. begin
  4. {$IFDEF code}
  5.    Desktop^.Insert ( MakeDialog ) ;
  6. {$ELSE}
  7.    Desktop^.Insert ( PDIALOG ( RezFile^.Get ( 'DIALOG_CLUSTER' ) ) ) ;
  8. {$ENDIF}
  9. end ;
  10.  
  11. procedure hdExecView ;
  12. {$IFDEF code}{$I cluster.src }{$ENDIF}
  13. begin
  14. {$IFDEF code}
  15.    Desktop^.ExecView ( MakeDialog ) ;
  16. {$ELSE}
  17.    Desktop^.ExecView ( PDIALOG ( RezFile^.Get ( 'DIALOG_CLUSTER' ) ) ) ;
  18. {$ENDIF}
  19. end ;
  20.