home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / dos / tvision / gravis / gv / gvvalid.int < prev    next >
Encoding:
Text File  |  1994-05-23  |  1.8 KB  |  73 lines
  1. Unit GVValid;
  2.  
  3.  
  4. interface
  5.  
  6.  
  7. uses Objects, Validate;
  8.  
  9. type
  10.  
  11. { TGPXPictureValidator object }
  12.  
  13.   PGPXPictureValidator = ^TGPXPictureValidator;
  14.   TGPXPictureValidator = object(TPXPictureValidator)
  15.                            procedure Error; virtual;
  16.                          end;
  17.  
  18. { TGFilterValidator object }
  19.  
  20.   PGFilterValidator = ^TGFilterValidator;
  21.   TGFilterValidator = object(TFilterValidator)
  22.                         procedure Error; virtual;
  23.                       end;
  24.  
  25. { TGRangeValidator object }
  26.  
  27.   PGRangeValidator = ^TGRangeValidator;
  28.   TGRangeValidator = object(TRangeValidator)
  29.                        procedure Error; virtual;
  30.                      end;
  31.  
  32. { TGStringLookupValidator object }
  33.  
  34.   PGStringLookupValidator = ^TGStringLookupValidator;
  35.   TGStringLookupValidator = object(TStringLookupValidator)
  36.                               procedure Error; virtual;
  37.                             end;
  38.  
  39. { Stream registration procedure }
  40.  
  41. procedure RegisterGVValid;
  42.  
  43. const
  44.  
  45. { Stream registration records }
  46.  
  47.   RGPXPictureValidator: TStreamRec = (
  48.     ObjType: 95;
  49.     VmtLink: Ofs(TypeOf(TGPXPictureValidator)^);
  50.     Load: @TGPXPictureValidator.Load;
  51.     Store: @TGPXPictureValidator.Store);
  52.  
  53.   RGFilterValidator: TStreamRec = (
  54.     ObjType: 96;
  55.     VmtLink: Ofs(TypeOf(TGFilterValidator)^);
  56.     Load: @TGFilterValidator.Load;
  57.     Store: @TGFilterValidator.Store);
  58.  
  59.   RGRangeValidator: TStreamRec = (
  60.     ObjType: 97;
  61.     VmtLink: Ofs(TypeOf(TGRangeValidator)^);
  62.     Load: @TGRangeValidator.Load;
  63.     Store: @TGRangeValidator.Store);
  64.  
  65.   RGStringLookupValidator: TStreamRec = (
  66.     ObjType: 98;
  67.     VmtLink: Ofs(TypeOf(TGStringLookupValidator)^);
  68.     Load: @TGStringLookupValidator.Load;
  69.     Store: @TGStringLookupValidator.Store);
  70.  
  71.  
  72. implementation
  73.