| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Выравнить окно по сетке [D7, XP]
Terasbetoni © (2008-10-24 17:27:00)Здравствуйте. Я хочу, чтобы при перемещении окна и изменении его размеров происходило его выравнивание по сетке 20х20. То есть чтобы обе координаты и оба размера окна постоянно нацело делились на 20. Как выравнивать размеры, я знаю:
procedure TForm1.FormCanResize(Sender: TObject; var NewWidth,
NewHeight: Integer; var Resize: Boolean);
begin
NewWidth:=NewWidth div 20 * 20;
NewHeight:=NewHeight div 20 * 20;
end;
А как сделать это с координатами окон?
Terasbetoni (2008-10-24 18:35:00) [1]Спасибо
Leonid Troyanovsky (2008-10-24 18:04:00) [2]
> Terasbetoni (24.10.08 17:27)
> То есть чтобы обе координаты и оба размера окна постоянно
> нацело делились на 20. Как выравнивать размеры, я знаю:
http://groups.google.com/group/fido7.ru.delphi.chainik/msg/83b70bd6c0f5db70
--
Regards, LVT.
Германн (2008-10-24 17:48:00) [3]
> А где есть такие?
Ну тогда просто Left, Top.
Left:=Left div 20 * 20;
Top:=Top div 20 * 20;
Terasbetoni (2008-10-24 17:40:00) [4]Германн © (24.10.08 17:29) [1]
> NewLeft, NewTop ?
А где есть такие?
Германн (2008-10-24 17:29:00) [5]
> А как сделать это с координатами окон?
>
NewLeft, NewTop ?
| |
