home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Books / 4 / EX07.ZIP / SHAPEDEM / MAIN.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1995-10-16  |  1.4 KB  |  66 lines
  1. unit Main;
  2.  
  3. interface
  4.  
  5. uses
  6.   WinTypes, WinProcs, Classes,
  7.   Graphics, Forms, Controls,
  8.   ColorDlg, StdCtrls, Dialogs, ExtCtrls;
  9.  
  10. type
  11.   TForm1 = class(TForm)
  12.     Shape1: TShape;
  13.     ComboBox1: TComboBox;
  14.     ShapeColor: TButton;
  15.     ColorDialog1: TColorDialog;
  16.     FormColor: TButton;
  17.     ScrollBar1: TScrollBar;
  18.     ScrollBar2: TScrollBar;
  19.     procedure ComboBox1Click(Sender: TObject);
  20.     procedure ShapeColorClick(Sender: TObject);
  21.     procedure FormColorClick(Sender: TObject);
  22.     procedure ScrollBar2Change(Sender: TObject);
  23.     procedure ScrollBar1Change(Sender: TObject);
  24.   private
  25.     { Private declarations }
  26.   public
  27.     { Public declarations }
  28.   end;
  29.  
  30. var
  31.   Form1: TForm1;
  32.  
  33. implementation
  34.  
  35. {$R *.DFM}
  36.  
  37. procedure TForm1.ComboBox1Click(Sender: TObject);
  38. begin
  39.   Shape1.Shape := TShapeType(ComboBox1.ItemIndex);
  40. end;
  41.  
  42. procedure TForm1.ShapeColorClick(Sender: TObject);
  43. begin
  44.   if ColorDialog1.Execute then
  45.     Shape1.Brush.Color := ColorDialog1.Color;
  46. end;
  47.  
  48. procedure TForm1.FormColorClick(Sender: TObject);
  49. begin
  50.   if ColorDialog1.Execute then
  51.     Form1.Color := ColorDialog1.Color;
  52. end;
  53.  
  54. procedure TForm1.ScrollBar2Change(Sender: TObject);
  55. begin
  56.   Shape1.Height := ScrollBar2.Position * 2;
  57. end;
  58.  
  59. procedure TForm1.ScrollBar1Change(Sender: TObject);
  60. begin
  61.   Shape1.Width := ScrollBar1.Position * 3;
  62. end;
  63.  
  64. end.
  65.  
  66.