home *** CD-ROM | disk | FTP | other *** search
/ Delphi Programming Unleashed / Delphi_Programming_Unleashed_SAMS_Publishing_1995.iso / misc / shape / main.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-03-21  |  1.6 KB  |  77 lines
  1. unit Main;
  2.  
  3. { Program copyright (c) 1995 by Charles Calvert }
  4. { Project Name: SHAPE }
  5.  
  6. interface
  7.  
  8. uses WinTypes, WinProcs, StdCtrls,
  9.      Classes, Graphics, ExtCtrls,
  10.      Controls, Dialogs, Forms;
  11.  
  12. type
  13.   TForm1 = class(TForm)
  14.     Button1: TButton;
  15.     GroupBox1: TGroupBox;
  16.     CircleBtn: TRadioButton;
  17.     RectBtn: TRadioButton;
  18.     RoundRectBtn: TRadioButton;
  19.     ColorDialog1: TColorDialog;
  20.     Button2: TButton;
  21.     Button3: TButton;
  22.     procedure Button1Click(Sender: TObject);
  23.     procedure CircleBtnClick(Sender: TObject);
  24.     procedure RectBtnClick(Sender: TObject);
  25.     procedure RoundRectBtnClick(Sender: TObject);
  26.     procedure Button2Click(Sender: TObject);
  27.     procedure Button3Click(Sender: TObject);
  28.   private
  29.     MyShape: TShape;
  30.   end;
  31.  
  32. var
  33.   Form1: TForm1;
  34.  
  35. implementation
  36.  
  37. {$R *.DFM}
  38.  
  39. procedure TForm1.Button1Click(Sender: TObject);
  40. begin
  41.   MyShape := TShape.Create(Form1);
  42.   MyShape.Parent := Form1;
  43.   Button1.Enabled := False;
  44. end;
  45.  
  46. procedure TForm1.CircleBtnClick(Sender: TObject);
  47. begin
  48.   if CircleBtn.Checked then 
  49.     MyShape.Shape := StEllipse;
  50. end;
  51.  
  52. procedure TForm1.RectBtnClick(Sender: TObject);
  53. begin
  54.   if RectBtn.Checked then
  55.     MyShape.Shape := StRectangle;
  56. end;
  57.  
  58. procedure TForm1.RoundRectBtnClick(Sender: TObject);
  59. begin
  60.   if RoundRectBtn.Checked then
  61.     MyShape.Shape := StRoundRect;
  62. end;
  63.  
  64. procedure TForm1.Button2Click(Sender: TObject);
  65. begin
  66.   if ColorDialog1.Execute then
  67.     MyShape.Brush.Color := ColorDialog1.Color;
  68. end;
  69.  
  70. procedure TForm1.Button3Click(Sender: TObject);
  71. begin
  72.   if ColorDialog1.Execute then
  73.     MyShape.Pen.Color := ColorDialog1.Color;
  74. end;
  75.  
  76. end.
  77.