home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD1.mdf / pascal / library / windows / rcnt / ctrldll.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1991-11-10  |  1.5 KB  |  40 lines
  1. {***************************************************************************
  2.  
  3.     Percent Control Window Library            $Version$
  4.         $Author$        $Date$
  5.  
  6.         Copyright 1991 Anthony M. Vitabile
  7.  
  8.         Library Description
  9.  
  10.         This Turbo Pascal for Windows library contains the code used to
  11.         implement a new kind of control window for use in dialog boxes.
  12.         The control displays a title, a bar, and an optional gradation
  13.         below the bar.  The bar displays a value between 0 and 100% as
  14.         a colored region inside of it.  Messages can be sent to the
  15.         control to change the percent displayed.
  16.  
  17.         The library uses straight Windows calls and does NOT use Object-
  18.         Windows.  This is to allow the control to be used by ANY Windows
  19.         program.
  20.  
  21. ***************************************************************************}
  22.  
  23. {$R CtrlDLL.RES}
  24. {$C Preload Discardable}
  25. Library CtrlDLL;
  26.   Uses CtrlCommonDefs, CtrlDlgs, CtrlFlags, CtrlInfoProcs, CtrlInit,
  27.        WndFnPercentCtrl;
  28.  
  29.   exports
  30.     ListClasses                  ,            { RW List Classes function }
  31.     PercentCtrlInfo    Index    2,            { Information   function }
  32.     PercentCtrlStyle    Index    3,            { Style         function }
  33.     PercentCtrlFlags    Index    4,            { Control flags function }
  34.     PercentCtrlWndFn    Index    5,            { Window        function }
  35.     PercentCtrlDlgFn    Index    6,            { Style dialog  function }
  36.     CenterPopup        Index    7;            { Center popup windows }
  37.  
  38.   begin
  39.     CtrlLibInit
  40.   end.