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

Ограничение TControl.Top.   Найти похожие ветки 

← →
Дмитрий С ©   (2010-03-06 08:34) [0]

Почему subj не может быть больше ~32768 ?
Хочу разместить на форме 50 фреймов высотой 800 каждый. Расставляю их друг за другом вручную. VerticalScrollBar.Range устанавливаю. Но начиная с высоты ~32768 фреймы хз вообще где появляются.
Располагаю все фреймы следующий образом:

var
 I: Integer;
 T: Integer;
begin
 if AForce then
 begin
   P := VertScrollBar.Position;
   VertScrollBar.Range := 0;
   T := 0;
   for I := 0 to Pred(FFrameList.Count) do
   begin
     with TPhotoFrame(FFrameList[I]) do
     begin
       Width :=  Self.ClientWidth;
       Top := T;
       if Top <> T then
         Top := T;
       Inc(T, Height);
     end;
   end;
   Self.VertScrollBar.Range := T;
   VertScrollBar.Position := P;
 end;
end;
То что выделил - добавил для отладки.
Останавливаю программу на выделенной строке и получаю, что Top = 148 (при T > ~32768). Откуда вообще это число берется: 148.

Из-за чего так? Как побороть?

Win7, Delphi2010.

---

← →
Вася   (2010-03-06 09:13) [1]

Вероятно, там используется двухбайтный тип (со знаком, естественно)

---

← →
Игорь Шевченко ©   (2010-03-06 13:14) [2]

координаты окна не могут быть больше 32768 и меньше -32768, ограничение совместимости с 16-битными приложениями под Windows.

---

← →
Дмитрий С ©   (2010-03-06 16:10) [3]

> Игорь Шевченко ©   (06.03.10 13:14) [2]
>
> координаты окна не могут быть больше 32768 и меньше -32768,
>  ограничение совместимости с 16-битными приложениями под
> Windows.
>

Спасибо, буду знать...

ps. слово legacy мне все больше и больше нравится только и только в названии моей машины :)

---

Страницы: 1 вся ветка

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



Память: 0.45 MB
Время: 0.219 c