Page 77 - 4260

Листинг модуля форми

unit Prg_1_3_3;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls,
Forms, Dialogs, ExtCtrls, StdCtrls;
type
TForm1 = class(TForm)
FormColor: TButton;
ShapeColor: TButton;
ScrollBar1: TScrollBar;
ComboBox1: TComboBox;
Shape1: TShape;
ColorDialog1: TColorDialog;
ScrollBar2: TScrollBar;
Panel1: TPanel;
procedure FormColorClick(Sender: TObject);
procedure ShapeColorClick(Sender: TObject);
procedure ScrollBar1Change(Sender: TObject);
procedure ScrollBar2Change(Sender: TObject);
procedure ComboBox1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;

implementation

77