Interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls;

type

TForm1 = class(TForm)

Label1: TLabel;

Label2: TLabel;

Label3: TLabel;

ScrollBar1: TScrollBar;

ScrollBar2: TScrollBar;

ScrollBar3: TScrollBar;

Label4: TLabel;

Edit1: TEdit;

Edit2: TEdit;

Edit3: TEdit;

Edit4: TEdit;

procedure ScrollBar1Change(Sender: TObject);

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

if Shift = [ssLeft] then

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

end;

Р ис. 44

Листинг 51

unit Unit1;