Вверх ↑
Разработчик
Ответов: 26163
Рейтинг: 2127
#1: 2008-01-21 13:06:01 ЛС | профиль | цитата
Galkov писал(а):
Наличие отдельных методов для разных мероприятий как-то народ напрягают
Или наоборот облегчают, когда один используется

Ну а если пропорционально вписывать картинку надо а не во весь размер окна, что тогда делать, плодить свойства?

Galkov писал(а):
чтение букварей тоже не возбраняется, +:
Да, это правильно, учиться, и только учиться

Вот код с описанием


      procedure ClientRect;
begin
// получение полного размера главного окна (для Bitmap'a это -- Width, Height; тут может и тупо)
wsz := hRect.Right - hRect.Left;
hsz := hRect.Bottom - hRect.Top;
// получение размеров окна вписывания
hw := x2 - x1;
hh := y2 - y1;
// ограничение размера окна вписывания границами главного окна
if hw > (wsz - x1) then hw := wsz - x1;
if hh > (hsz - y1) then hh := hsz - y1;
// если нет координат, то назначаем размер главного окна окну вписывания
if (hw = 0) or (hh = 0) then begin
x1 := 0;
y1 := 0;
hw := wsz;
hh := hsz;
end;
end;


Galkov писал(а):
Метод размерностей не всем преподавали

Преподавали, но успело уже забыться.
Galkov писал(а):
Ты у нас умнее пользователя, и лучше его знаешь, какого у него размера картинка, и какого поле

И какие будут конструктивные предложения?
карма: 22

0