Отправляет email-рассылки с помощью сервиса Sendsay

Программирование. Форум !!!

За 2005-01-12

Re: Delphi OpenGL

Hello, janalex <janal***@n*****.ru>!

On Wed, 12 Jan 2005 23:39:13 +0600 you wrote:

> Помогите пожалуйста с таким вопросом, рисую сферу, если окно в которое
> осуществляется вывод квадратное, т.е. Width = Height то все нормально,
> если же это условие нарушить то получается эллипсоид сплюснутый
> пропорционально размерам формы.

Посмотри инициализацию (или приведи ее код сюда).

   "B." 2005-01-12 21:40:45 (#295799)

Re: Delphi OpenGL

Там должно быть что-то вроде функции, которая вызывается при изменении
размеров окна. В этой функции у меня написан код (на С++):

glViewport(0,0, (GLsizei) Width, (GLsizei) Height);
glMatrixMode(GL_PROJECTION);
glLoadIdentity();
gluPerspective(30, Width*1.0/Height, 1.0, 100.0);
glMatrixMode(GL_MODELVIEW);
glLoadIdentity();

Я думаю, вся прелесть здесь именно в вызове gluPerspective(30,
Width*1.0/Height, 1.0, 100.0).

Номер выпуска : 3930
Возраст листа : 478 (дней)
Количество подписчиков : 518
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/295791
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

   2005-01-12 21:23:55 (#295791)

kz

Здравствуйте.
Система Win XP sp2, Delphi7
Проблема такая: В проекте необходимо использовать казахский язык. Но при наборе
специфических каз. символов
таких как ? ? ? ? ? ? ? ? отображаются ?,???,,?,??.
Кстати это проблема не только Delphi, почему-то часть программ работает корректно,
а другая нет.

P.S. Используемые шрифты поддерживают KZ (Arial, Times New Roman и т.д. ).

С уважением,
Алексей.

Номер выпуска : 3929
Возраст листа : 478 (дней)
Количество подписчиков : 518
Адрес в архиве : http://subscribe.ru/archive/comp.soft.prog.prog/msg/295770
Получить правила : mailto:comp.soft.prog.prog-rules@subscribe.ru
Формат "дайджест" : mailto:comp.soft.prog.prog-digest@subscribe.ru
Формат "каждое письмо" : mailto:comp.soft.prog.prog-normal@subscribe.ru
Формат "читать с веба" : mailto:comp.soft.prog.prog-webonly@subscribe.ru

   "Alex" 2005-01-12 21:00:17 (#295770)

Delphi OpenGL

Здравствуйте, Програмеры.

Помогите пожалуйста с таким вопросом, рисую сферу, если окно в которое
осуществляется вывод квадратное, т.е. Width = Height то все нормально,
если же это условие нарушить то получается эллипсоид сплюснутый
пропорционально размерам формы.
Win XP Pro

   2005-01-12 20:48:35 (#295756)

Re: Ошибка при удалении обьекта_2. Delphi

Здравствуйте, Малышев.

Вы писали 12 января 2005 г., 1:03:52:

МГ> - Я же сам создал обьект, следовательно должен и сам его удалить. Не учто
МГ> List.Free уничтожает ещё все обьекты, связанные с ним?

Если перекрывался конструктор и деструктор, то да. А вообще должен
удалить только TList. Во всяком случае, у меня именно так и делал

МГ> Если да, то он вызавет деструктор или каким-нибудь "диким" метод очистит
МГ> память?

А что за "дикий" метод? Все деструкторы работают по принципу вызова
стандартной системной функции очистки памяти типа паскалевской FreeMem

МГ> Ктому же в l- я записываю указатели на тип-запись. Метод Free очистит
МГ> память, занятую и под них?

Нет, указатели будут затерты, но вот данные по этим указателям
останутся на своих местах

МГ> А как можно прокантралировать освобождение памяти?

Например, с помощью программы memproof

   2005-01-12 19:35:52 (#295721)

Re: Ошибка при удалении обьекта_2. Delphi

Hello Малышев,

Tuesday, January 11, 2005, 9:03:52 PM, you wrote:

МГ> Привет ALL!
МГ> Если всё зделать так.
МГ> /=========/
МГ> destructor TLPoint.Destroy;
МГ> var
МГ> i:integer;
МГ> begin
МГ> bmp.Free;
МГ> l.free;
МГ> inherited Destroy;
МГ> end;
МГ> МГ> procedure Tform1.DestroyForm(sender:Tobject);
МГ> begin
МГ> listP.Free;
МГ> end;
МГ> МГ> То работает без ошибок.
МГ> МГ> Меня интересует класс Tlist.
МГ> - Я же сам создал обьект, следовательно должен и сам его удалить. Не учто
МГ> List.Free уничтожает ещё все обьекты, связанные с ним?
МГ> Если да, то он вызавет деструктор или каким-нибудь "диким" метод очистит
МГ> память?

Ну да! Метод Free любого объекта проверяет существование объекта и,
если он существует, вызывает деструктор объекта. Причем, сколько бы ни
было элементов в объекте (у нас это - список), они все освобождаются.

МГ> Ктому же в l- я записываю указатели на тип-запись. Метод Free очистит
МГ> память, занятую и под них?
Да. Все равно, какой тип туда пишется. Важно, что все это -
указатели. Да и в самом процессе очистки нет ничего магического.
Просто, указатели сбрасываются в nil, переставая куда-либо указывать.

МГ> А как можно прокантралировать освобождение памяти?
Думаю, можно использовать GetHeapStatus/

   Вадим Шешунов 2005-01-12 01:32:54 (#295242)