home *** CD-ROM | disk | FTP | other *** search
/ Delphi Developer's Kit 1996 / Delphi Developer's Kit 1996.iso / power / source7 / gadgfrm.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-12-22  |  2.5 KB  |  107 lines
  1. unit Gadgfrm;
  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;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     BalloonHint1: TBalloonHint;
  13.     LEDLabel1: TLEDLabel;
  14.     VisualApp1: TVisualApp;
  15.     CheckBox1: TCheckBox;
  16.     CheckBox2: TCheckBox;
  17.     RotaryKnob1: TRotaryKnob;
  18.     PieMeter1: TPieMeter;
  19.     CheckBox3: TCheckBox;
  20.     Image1: TImage;
  21.     RadioGroup1: TRadioGroup;
  22.     NeatoMeter1: TNeatoMeter;
  23.     Image2: TImage;
  24.     RadioGroup2: TRadioGroup;
  25.     procedure RotaryKnob1Change(Sender: TObject);
  26.     procedure CheckBox1Click(Sender: TObject);
  27.     procedure CheckBox2Click(Sender: TObject);
  28.     procedure CheckBox3Click(Sender: TObject);
  29.     procedure RadioGroup2Click(Sender: TObject);
  30.     procedure RadioGroup1Click(Sender: TObject);
  31.   private
  32.     { Private declarations }
  33.   public
  34.     { Public declarations }
  35.   end;
  36.  
  37. var
  38.   Form1: TForm1;
  39.  
  40. implementation
  41.  
  42. {$R *.DFM}
  43.  
  44. procedure TForm1.RotaryKnob1Change(Sender: TObject);
  45. begin
  46.   NeatoMeter1.Completed := RotaryKnob1.Position;
  47.   PieMeter1.Completed := RotaryKnob1.Position;
  48. end;
  49.  
  50. procedure TForm1.CheckBox1Click(Sender: TObject);
  51. begin
  52.   if CheckBox1.Checked then
  53.     LEDLabel1.UnlitColor := $00004000
  54.   else
  55.     LEDLabel1.UnlitColor := LEDLabel1.BackColor;
  56. end;
  57.  
  58.  
  59. procedure TForm1.CheckBox2Click(Sender: TObject);
  60. var
  61.   s: String;
  62. begin
  63.   if CheckBox2.Checked then
  64.     s := 'Hi!'
  65.   else
  66.     s := '';
  67.   NeatoMeter1.Caption := s;
  68.   PieMeter1.Caption := s;
  69. end;
  70.  
  71. procedure TForm1.CheckBox3Click(Sender: TObject);
  72. begin
  73.   NeatoMeter1.ShowPercent := CheckBox3.Checked;
  74.   PieMeter1.ShowPercent := CheckBox3.Checked;
  75. end;
  76.  
  77. procedure TForm1.RadioGroup2Click(Sender: TObject);
  78. begin
  79.   NeatoMeter1.Direction := TMeterDirection(RadioGroup2.ItemIndex);
  80. end;
  81.  
  82. procedure TForm1.RadioGroup1Click(Sender: TObject);
  83. begin
  84.   case RadioGroup1.ItemIndex of
  85.     0:  NeatoMeter1.Bitmap := nil;
  86.     1:
  87.       begin
  88.         CheckBox2.Checked := False;
  89.         CheckBox3.Checked := False;
  90.         NeatoMeter1.Bitmap := Image2.Picture.Bitmap;
  91.         NeatoMeter1.BitmapDrawStyle := dsStretch;
  92.       end;
  93.     2:
  94.       begin
  95.         NeatoMeter1.Bitmap := Image1.Picture.Bitmap;
  96.         NeatoMeter1.BitmapDrawStyle := dsTile;
  97.       end;
  98.     3:
  99.       begin
  100.         NeatoMeter1.Bitmap := Image1.Picture.Bitmap;
  101.         NeatoMeter1.BitmapDrawStyle := dsTileInvert;
  102.       end;
  103.   end;
  104. end;
  105.  
  106. end.
  107.