home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 26 / CD_ASCQ_26_1295.iso / vrac / psslider.zip / PSCCTL.INT < prev    next >
Text File  |  1995-06-06  |  1KB  |  34 lines
  1. unit PSCCtl;
  2.  
  3. {This is the source of the abstract PSCustomControl component of the Perseus VCP.
  4.  All components of Perseus are descendants of this component. It simply implements
  5.  a public event which is called then a property has changed. If you purchase at
  6.  least 2 copies of this component you'll receive it with your registered version!
  7.  
  8.  Copyright ⌐ 1995: Sebastian Modersohn
  9.                    Softwaredevelopment
  10.                    Heinestrasse 20
  11.                    D 15370 Petershagen
  12.                    Phone: ++49 33439 7462
  13.                    CIS ID: 100340,1474
  14.  
  15.  Written by: Sebastian Modersohn
  16.  
  17.  The source is nearly undocumented, so if you have questions to details, just
  18.  contact us via CompuServe and we'll help you (if we can <g>).}
  19.  
  20. interface
  21.  
  22. uses WinTypes, Messages, Classes, Controls;
  23.  
  24. type
  25.   TPSCustomControl = class(TCustomControl)
  26.   private
  27.     EOnChange: TNotifyEvent;
  28.   protected
  29.     procedure Change; dynamic;
  30.   public
  31.     property OnStyleChanged: TNotifyEvent read EOnChange write EOnChange;
  32.   end;
  33.  
  34. implementation