Форум: "Начинающим";
Текущий архив: 2008.12.07;
Скачать: [xml.tar.bz2];
ВнизВыравнить окно по сетке Найти похожие ветки
← →
Terasbetoni (2008-10-24 17:27) [0]Здравствуйте. Я хочу, чтобы при перемещении окна и изменении его размеров происходило его выравнивание по сетке 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;
А как сделать это с координатами окон?
← →
Германн © (2008-10-24 17:29) [1]
> А как сделать это с координатами окон?
>
NewLeft, NewTop ?
← →
Terasbetoni (2008-10-24 17:40) [2]Германн © (24.10.08 17:29) [1]
> NewLeft, NewTop ?
А где есть такие?
← →
Германн © (2008-10-24 17:48) [3]
> А где есть такие?
Ну тогда просто Left, Top.
Left:=Left div 20 * 20;
Top:=Top div 20 * 20;
← →
Leonid Troyanovsky © (2008-10-24 18:04) [4]
> Terasbetoni (24.10.08 17:27)
> То есть чтобы обе координаты и оба размера окна постоянно
> нацело делились на 20. Как выравнивать размеры, я знаю:
http://groups.google.com/group/fido7.ru.delphi.chainik/msg/83b70bd6c0f5db70
--
Regards, LVT.
← →
Terasbetoni (2008-10-24 18:35) [5]Спасибо
Страницы: 1 вся ветка
Форум: "Начинающим";
Текущий архив: 2008.12.07;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.005 c