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

ций клавиш Alt-U и Alt-D пользователь увеличивает или уменьшает длину
окна.

void _fastcall TFormI::EditlKeyUp(TObject *Sender, WORD &Key,

TShiftState Shift)
(

if((Key == 'U')&&(Shift.Contains(ssAlt)))
Editl->ScaleBy(ll,10) ;

else if((Key== ' D')&& (Shift .Contains (ssAlt) ))
Editl->ScaleBy(10,11) ;

)

Когда Editi находится в фокусе, при нажатии пользователем клавиши Alt и
клавиши U (в любом регистре и независимо от переключения на латинский или
русский язык) длина окна редактирования увеличится на 10% , а при нажатии Alt
и D соответственно уменьшится.

ScaleControls_________________________________________

Масштабирует дочерние компоненты оконного элемента, не изменяя масшта-
ба самого элемента

Класс TWinControl

Определение

void _fastcall ScaleControls(int M, int D) ;

Описание

Метод ScaleControls масштабирует все компоненты, содержащиеся в оконном
элементе, не изменяя масштаба самого элемента. Метод ScaleControls вызывает
метод ChangeScale для каждого дочернего компонента. Отличается от метода Sca-
leBy тем, что не изменяет масштаба самого элемента.

Параметры M and D определяют соответственно множитель и делитель масш-
таба. Например, чтобы уменьшить размеры на 10% начального значения, можно
задать М равным 9, а D равным 10 (9/10). Если же вы хотите увеличить размер на
1/3, то можно задать М=133 и D=100 (133/100) или М=4 и D=3 (4/3).

Подробности см. в разделах ChangeScale и ScaleBy.

S creenToClient

Преобразует координаты экрана в координаты клиентской области компонента
Класс TControl

Определение

struct TPoint
(

int x;

int у;

Windows::TPoint _fastcall ScreenToClient(const Windows::TPoint &Point) ;

Описание

Метод ScreenToClient преобразует координаты точки в системе координат эк-
рана (начало координат — левый верхний угол экрана) в систему координат кли-
ентской области компонента (начало координат — левый верхний угол клиентской
области).