Private

{ Private declarations }

Public

{ Public declarations }

end;

Var

Form1: TForm1;

Implementation

{$R *.dfm}

procedure TForm1.ScrollBar1Change(Sender: TObject);

Var

red, green, blue: byte; {переменные для фиксации численных значений степени насыщения базовых цветов}

nc: TColor; {переменная для фиксации номера синтезированного цвета}

Begin

red:=Scrollbar1.Position; {фиксация позиции ползунка для красного цвета}

green:=Scrollbar2.Position; {фиксация позиции ползунка для зеленого цвета}

blue:=Scrollbar3.Position; {снятие позиции ползунка для синего цвета}

Edit1.Text:=IntToStr(red); {отображение численного значения степени насыщения для красного цвета}

Edit2.Text:=IntToStr(green); {отображение численного значения степени насыщения для зеленого цвета}

Edit3.Text:=IntToStr(blue); {отображение численного значения степени насыщения для синего цвета}

nc:=RGB(red, green, blue); {определение номера синтезированного цвета}

Label4.Color:=nc; {отображение синтезированного цвета}

Edit4.Text:=IntToStr(nc); {отображение номера синтезированного цвета}

end;

end.

OnClick, OnResize

OnTimer, OnCreate

Sender

- OnMouseDown (нажатие одной или обеих клавиш мыши);

- OnMouseUp (отпускание нажатой клавиши);

- OnDblClick (двойной щелчок ЛКМ).

- OnMouseMove (перемещение мыши);

- OnMouseWheel (вращение колеса мыши);

- OnMouseWheelDown (нажатие колеса мыши);

- OnMouseWheelUp (отпускание колеса мыши).

procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

· SsShift – в момент срабатывания мыши нажата клавиша Shift;

· SsAlt – в момент срабатывания мыши нажата клавиша Alt;

· ssCtrl - в момент срабатывания мыши нажата клавиша Ctrl;

· ssLeft – использована левая клавиша мыши;

· ssRight - использована правая клавиша мыши;

· ssMiddle - использована средняя клавиша мыши;

· mbLeft – использована левая клавиша мыши;

· mbRight - использована правая клавиша мыши;

· mbMiddle - использована средняя клавиша мыши;

Листинг 48

procedure Image1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y: Integer);

Begin

if (Shift = [ssAlt, ssLeft]) then

Form1.caption := ‘Нажата левая клавиша’;

if (Shift = [ssAlt, ssRight]) then

Form1.caption := ‘Нажата правая клавиша’;

end;

Листинг 49

procedure TForm1.MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

Begin

Canvas.Ellipse(x - 20, y - 20, x + 20, y + 20);

end;

Листинг 50

procedure TForm1.MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);

Begin

ifShift = [ssLeft] then

Canvas.Ellipse(x - 20, y - 20, x + 20, y + 20);

end;

Рис. 44

Листинг 51

unit Unit1;