home *** CD-ROM | disk | FTP | other *** search
/ Chip 1999 January / Chip_1999-01_cd.bin / zkuste / delphi / D1 / DTOOLS30.ZIP / DEMOMISC.PAS < prev    next >
Pascal/Delphi Source File  |  1995-11-01  |  2KB  |  95 lines
  1. unit Demomisc;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, VisApp, Feedback, Ledgadgt, Balloon, MMGadget, StdCtrls,
  8.   ExtCtrls, Custbtn;
  9.  
  10. type
  11.   TMiscGadgets = class(TForm)
  12.     LEDLabel1: TLEDLabel;
  13.     CheckBox2: TCheckBox;
  14.     RotaryKnob1: TRotaryKnob;
  15.     PieMeter1: TPieMeter;
  16.     CheckBox3: TCheckBox;
  17.     Image1: TImage;
  18.     RadioGroup1: TRadioGroup;
  19.     NeatoMeter1: TNeatoMeter;
  20.     Image2: TImage;
  21.     RadioGroup2: TRadioGroup;
  22.     ShadowButton1: TShadowButton;
  23.     procedure RotaryKnob1Change(Sender: TObject);
  24.     procedure CheckBox2Click(Sender: TObject);
  25.     procedure CheckBox3Click(Sender: TObject);
  26.     procedure RadioGroup2Click(Sender: TObject);
  27.     procedure RadioGroup1Click(Sender: TObject);
  28.   private
  29.     { Private declarations }
  30.   public
  31.     { Public declarations }
  32.   end;
  33.  
  34. var
  35.   MiscGadgets: TMiscGadgets;
  36.  
  37. implementation
  38.  
  39. {$R *.DFM}
  40.  
  41. procedure TMiscGadgets.RotaryKnob1Change(Sender: TObject);
  42. begin
  43.   NeatoMeter1.Completed := RotaryKnob1.Position;
  44.   PieMeter1.Completed := RotaryKnob1.Position;
  45. end;
  46.  
  47. procedure TMiscGadgets.CheckBox2Click(Sender: TObject);
  48. var
  49.   s: String;
  50. begin
  51.   if CheckBox2.Checked then
  52.     s := 'Hi!'
  53.   else
  54.     s := '';
  55.   NeatoMeter1.Caption := s;
  56.   PieMeter1.Caption := s;
  57. end;
  58.  
  59. procedure TMiscGadgets.CheckBox3Click(Sender: TObject);
  60. begin
  61.   NeatoMeter1.ShowPercent := CheckBox3.Checked;
  62.   PieMeter1.ShowPercent := CheckBox3.Checked;
  63. end;
  64.  
  65. procedure TMiscGadgets.RadioGroup2Click(Sender: TObject);
  66. begin
  67.   NeatoMeter1.Direction := TMeterDirection(RadioGroup2.ItemIndex);
  68. end;
  69.  
  70. procedure TMiscGadgets.RadioGroup1Click(Sender: TObject);
  71. begin
  72.   case RadioGroup1.ItemIndex of
  73.     0:  NeatoMeter1.Bitmap := nil;
  74.     1:
  75.       begin
  76.         CheckBox2.Checked := False;
  77.         CheckBox3.Checked := False;
  78.         NeatoMeter1.Bitmap := Image2.Picture.Bitmap;
  79.         NeatoMeter1.BitmapDrawStyle := dsStretch;
  80.       end;
  81.     2:
  82.       begin
  83.         NeatoMeter1.Bitmap := Image1.Picture.Bitmap;
  84.         NeatoMeter1.BitmapDrawStyle := dsTile;
  85.       end;
  86.     3:
  87.       begin
  88.         NeatoMeter1.Bitmap := Image1.Picture.Bitmap;
  89.         NeatoMeter1.BitmapDrawStyle := dsTileInvert;
  90.       end;
  91.   end;
  92. end;
  93.  
  94. end.
  95.