home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Books / 4 / EX05.ZIP / SHA_FORM.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-12-02  |  1.6 KB  |  76 lines
  1. unit Sha_form;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, StdCtrls, ExtCtrls, ColorGrd;
  8.  
  9. type
  10.   TForm1 = class(TForm)
  11.     Shape1: TShape;
  12.     GroupBox1: TGroupBox;
  13.     RadioButton1: TRadioButton;
  14.     RadioButton2: TRadioButton;
  15.     RadioButton3: TRadioButton;
  16.     RadioButton4: TRadioButton;
  17.     RadioButton5: TRadioButton;
  18.     RadioButton6: TRadioButton;
  19.     ColorGrid1: TColorGrid;
  20.     procedure RadioButton1Click(Sender: TObject);
  21.     procedure RadioButton2Click(Sender: TObject);
  22.     procedure RadioButton3Click(Sender: TObject);
  23.     procedure RadioButton4Click(Sender: TObject);
  24.     procedure RadioButton5Click(Sender: TObject);
  25.     procedure RadioButton6Click(Sender: TObject);
  26.     procedure ColorGrid1Change(Sender: TObject);
  27.   private
  28.     { Private declarations }
  29.   public
  30.     { Public declarations }
  31.   end;
  32.  
  33. var
  34.   Form1: TForm1;
  35.  
  36. implementation
  37.  
  38. {$R *.DFM}
  39.  
  40. procedure TForm1.RadioButton1Click(Sender: TObject);
  41. begin
  42.   Shape1.Shape:=stCircle;
  43. end;
  44.  
  45. procedure TForm1.RadioButton2Click(Sender: TObject);
  46. begin
  47.   Shape1.Shape:=stEllipse;
  48. end;
  49.  
  50. procedure TForm1.RadioButton3Click(Sender: TObject);
  51. begin
  52.   Shape1.Shape:=stRectangle;
  53. end;
  54.  
  55. procedure TForm1.RadioButton4Click(Sender: TObject);
  56. begin
  57.   Shape1.Shape:=stRoundRect;
  58. end;
  59.  
  60. procedure TForm1.RadioButton5Click(Sender: TObject);
  61. begin
  62.   Shape1.Shape:=stRoundSquare;
  63. end;
  64.  
  65. procedure TForm1.RadioButton6Click(Sender: TObject);
  66. begin
  67.   Shape1.Shape:=stSquare;
  68. end;
  69.  
  70. procedure TForm1.ColorGrid1Change(Sender: TObject);
  71. begin
  72.   Shape1.Brush.Color:=ColorGrid1.ForeGroundColor;
  73. end;
  74.  
  75. end.
  76.