| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Значение свойства Top, Left

Baboshkin ©   (2002-11-13 16:27:00) 

Уважаемые мастера, помогите разобраться, пожалуйста!
Свойства Top и Left из TControl типа integer
(по справочнику - 32-битное в Delphi 5),
но реально устанавливается как 16-битное, не более (+/-)32767

---

Baboshkin   (2002-11-13 18:57:00) [1]

PIII-800
W2000
D5
Создаю паспорт объекта, содержащий большое множество
разных визуальных компонентов.
Top почему-то не хочет быть > 32767
ПОЧЕМУ ?

---

Игорь Шевченко   (2002-11-13 18:16:00) [2]

F1 © (13.11.02 17:59)

D5, WinNT 4.0

---

AlexT1000   (2002-11-13 18:13:00) [3]

а никак ты не установишь.

---

Sectey   (2002-11-13 18:09:00) [4]

Повтарил код Игорь Шевченко один в один у меня -1536 еще веселее :)))

---

F1   (2002-11-13 17:59:00) [5]

>Игорь Шевченко © (13.11.02 17:31)
А у меня 64000!!! Серьезно! Что за хрень???

---

TTCustomDelphiMaster   (2002-11-13 17:53:00) [6]

Baboshkin
Так вы толково объясните зачем это вам, тогда и совет можно будет дать.

---

Baboshkin   (2002-11-13 17:47:00) [7]

Уважаемые мастера, дайте дельный совет, пожалуйста,
как мне установить Top(Left)>32767 ??

---

Игорь Шевченко   (2002-11-13 17:31:00) [8]

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls;

type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button2Click(Sender: TObject);
begin
Button1.Left := 64000;
ShowMessageFmt("Button1.Left = %d", [Button1.Left]);
end;

end.


Э....32767 выводится...

---

F1   (2002-11-13 17:18:00) [9]

>Игорь Шевченко © (13.11.02 17:17)
А как насчет

Button1.Left:=64000;
Button1.Caption:=IntToStr(Button1.Left);
Надпись после этого 64000!!!

---

Игорь Шевченко   (2002-11-13 17:17:00) [10]

> Baboshkin (13.11.02 16:27)
> Уважаемые мастера, помогите разобраться, пожалуйста!
> Свойства Top и Left из TControl типа integer
> (по справочнику - 32-битное в Delphi 5),
> но реально устанавливается как 16-битное, не более (+/-)32767


Совместимость с 16-битной Windows. Об этом в MSDN написано.

---

Baboshkin   (2002-11-13 17:17:00) [11]

Я сделал по образцу
Button1.Left:=64000;
Button1.Caption:=IntToStr(Button1.Left);
Надпись после этого 32767 !
Может какие-то опции нужно установить?

---

F1   (2002-11-13 16:49:00) [12]

Карту мира в натуральную величину :))

---

Кот Бегемот   (2002-11-13 16:45:00) [13]

Припустим это так - имеем 32 тыс. точек :)
Даже при разрешении в 1200 дпи ты получишь до 30 дюймов смещения :-\
На какой интересно формат ты выводишь ???

---

F1   (2002-11-13 16:35:00) [14]

Это ты с чего взял???
Button1.Left:=64000;
Button1.Caption:=IntToStr(Button1.Left);
Надпись после этого 64000!!!
PS А зачем так много? В среднем разрешение монитора 1024*768. :)

---

Наверх