Выравнить окно по сетке

← →
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;

> 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]

Спасибо

Выравнить окно по сетке Найти похожие ветки