Свойства, методы, события, типы, классы_____________________993

Imagel->Canvas->DrawFocusRect(Rect(XO-5,YO-5,ХО+5,YO+5) ) ;

// рисование рамки

Imagel->Canvas->DrawFocusRect(Rect(X-5,Y-5,X+5,Y+5)) ;

// запоминание координат курсора

ХО = X;

YO = Y;

//————————————————————————

void _fastcall TFormI::ImagelMouseUp(TObject *Sender,

TMouseButton Button, TShiftState Shift, int X, int Y)
{

iff!drag) return;

// стирание рамки

Imagel->Canvas->DrawFocusRect(Rect(XO-5,YO-5,XO+5,YO+5)) ;

// выключение флажка режима перемещения рамки

drag = false;

}

При нажатии кнопки мыши рисуется первая рамка, запоминаются координаты
курсора и включается режим перемещения рамки (переменная drag = true). При пе-
ремещении мыши в режиме перемещения рамки стирается прежняя рамка, рисует-
ся рамка в новой позиции и запоминаются новые координаты курсора. При отпуска-
нии кнопки мыши стирается рамка и выключается режим перемещения рамки.

Ellipse

Рисует заполненную окружность или эллипс
Класс TCanvas

Прототип

void _fastcali Ellipse(int XI, int Yl, int X2, int Y2) ;

Описание

Метод Ellipse рисует окружность или эллипс с помощью текущих параметров
пера Pen. Фигура заполняется текущим значением Brush. Точки (XI, Yl) и (X2,
Y2) определяют прямоугольник, описывающий эллипс.

В Windows 95/98 суммы XI + X2, Yl + Y2 и XI + X2 + Yl + Y2 не должны
превышать 32768.

Пример

Оператор

Imagel->Canvas->Brush->Color = cIRed;

Imagel->Canvas->Brush->Style = bsDiagCross;

Imagel->Canvas->Ellipse(0, 0, Imagel->Width, Imagel->Height);

рисует эллипс, вписанный в компонент Imagel и заполненный красной штрихов-
кой.

EnabIeAlign__________________________________________

См. DisableAlign

Exchange

Меняет позиции двух элементов списка
Классы TList, TStringList, TStrings

32 Зак.764