home *** CD-ROM | disk | FTP | other *** search
/ Mastering Visual Basic 6 / mastvb6.iso / numega / sc501.exe / data1.cab / Examples / BCERRTYP.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-11-25  |  1.8 KB  |  71 lines
  1. (*
  2.  * BCERRTYP.PAS
  3.  * $Header: $
  4.  *
  5.  * Description:
  6.  *  Defines the structures used in filling the Tree control.
  7.  *
  8.  * Notes:
  9.  *  <implementation notes go here>
  10.  *
  11.  ***********************************************************************
  12.  *
  13.  * Nu-Mega Technologies, Inc.
  14.  * P.O. Box 7780
  15.  * Nashua, NH 03060
  16.  *
  17.  * (c) Copyright 1994, 1995 Nu-Mega Technologies, Inc.
  18.  * ALL RIGHTS RESERVED.
  19.  *
  20.  ***********************************************************************
  21.  *
  22.  **********************************************************************)
  23.  
  24.  
  25. type
  26.     PERRFUNC = procedure ;
  27.  
  28. (* The leaf node. *)
  29.    ErrorOccurance = record
  30.       (* The instance string ID.  The tree control text. *)
  31.       uiInstance : UINT    ;
  32.       (* The description of the error. *)
  33.       uiDescription : UINT ;
  34.       (* The function that does the error. *)
  35.       pFunc : PERRFUNC     ;
  36.    end;
  37.  
  38. (* The level 1 node. *)
  39.    ErrorType = record
  40.        (* The error string ID.  The tree control text. *)
  41.         uiError : UINT       ;
  42.        (* If true, then this is an error that BC Personal handles. *)
  43.        bPersonalDoes : Boolean ;
  44.    end;
  45.  
  46. (* The root, or zero, node in the tree. *)
  47.    ErrorCategory = record
  48.       (* The category error ID,  The tree control text. *)
  49.       uiCategory : UINT    ;
  50.       (* The description of the error category. *)
  51.       uiDescription : UINT ;
  52.    end;
  53.  
  54. (* The structure that is placed in the lparam info. *)
  55.    LParamInfo = record
  56.        (* 0 is ErrorCategory. (Root)
  57.           1 is ErrorType.
  58.           2 is ErrorOccurence. (Leaf) *)
  59.  
  60.        hModule : Longint;
  61.        case iType : Integer of
  62.  
  63.        0: ( stEC : ErrorCategory  ) ;
  64.         1: ( stET : ErrorType      ) ;
  65.     2: ( stEO : ErrorOccurance ) ;
  66.    end;
  67.  
  68.    PLParamInfo = ^LParamInfo ;
  69.  
  70.  
  71.