home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / sibyl_cw.zip / CW_Test / CW_Win.PAS < prev   
Pascal/Delphi Source File  |  1998-02-15  |  901b  |  41 lines
  1. Unit CW_Win;
  2.  
  3. Interface
  4.  
  5. Uses
  6.   Classes, Forms, Graphics, ColorWheel, Buttons, Dialogs, ExtCtrls;
  7.  
  8. Type
  9.   TForm1 = Class (TForm)
  10.     ColorWheel1 : TColorWheel;
  11.     Button1     : TButton;
  12.     BitBtn1     : TBitBtn;
  13.     Procedure Button1OnClick (Sender: TObject);
  14.   Private
  15.     {Insert private declarations here}
  16.   Public
  17.     procedure WMColorWheelChanged(VAR Msg : TMESSAGE);
  18.      message wm_ColorWheelChanged; {warp 4 only}
  19.   End;
  20.  
  21. Var
  22.   Form1: TForm1;
  23.  
  24. Implementation
  25.  
  26. Procedure TForm1.Button1OnClick (Sender: TObject);
  27. Begin
  28.   IF ColorWheel1.Execute
  29.    THEN MessageBox('Color set.',mtInformation,[mbOK])
  30.   ELSE MessageBox('Color not changed.',mtInformation,[mbOK]);
  31. End;
  32.  
  33. Procedure TForm1.WMColorWheelChanged(VAR Msg : TMESSAGE);
  34. Begin
  35.   Color := TCLR(Msg.Param1).lColor;
  36. End;
  37.  
  38. Initialization
  39.   RegisterClasses ([TForm1, TColorWheel, TButton, TBitBtn]);
  40. End.
  41.