Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2010.08.27;
Скачать: 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 вся ветка

Текущий архив: 2010.08.27;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.047 c
2-1273347308
NBAH1990
2010-05-08 23:35
2010.08.27
Есть ли возможность осуществить запись действий экрана


15-1268371530
vajo
2010-03-12 08:25
2010.08.27
Непонятки с сетью на ноуте


4-1234818468
istok
2009-02-17 00:07
2010.08.27
проблема с CoShellWindows


2-1273094862
concord
2010-05-06 01:27
2010.08.27
Настройка выпадающего списка


15-1274781377
boriskb
2010-05-25 13:56
2010.08.27
В игрушку с таким интерфейсом даже я поиграл бы