Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.009 c