Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > разработка игр, графический дизайн и моделирование > Gamedev - cоздание игр: Unity, OpenGL, DirectX
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.04.2011, 08:04   #561
Asker13
Форумчанин
 
Аватар для Asker13
 
Регистрация: 01.12.2010
Сообщений: 140
По умолчанию

Не расширение, а разрешение. Есть одна процедура, код ниже:
Код:
procedure ChangeDisplayResolution(X,Y: word);
var
  dm: TDevMode;
begin
  ZeroMemory(@dm, sizeof(dm));
  dm.dmSize := sizeof(TDevMode);
  dm.dmPelsWidth := X;
  dm.dmPelsHeight := Y;
  dm.dmDisplayFrequency := DispFreq;
  dm.dmFields := DM_PELSWIDTH or DM_PELSHEIGHT or DM_DISPLAYFREQUENCY;
  ChangeDisplaySettings(dm, 0);
end;
DispFreq - глобальная переменная типа Integer. Чтобы изменить разрешение экрана, при старте программы:
Код:
procedure TMainForm.FormCreate(Sender: TObject);
  ScrW := Screen.Width;
  ScrH := Screen.Height;
  DispFreq := GetDeviceCaps(GetDC(0), VREFRESH); // Запомнить частоту обновления экрана
  ChangeDisplayResolution(Width, Height);
end;
ScrW, ScrH - две глобальные переменные типа Integer. Нужны для того, чтобы при закрытии программы с помощью них установилось старое разрешение экрана.
При закрытии такой код:
Код:
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
  ChangeDisplayResolution(ScrW, ScrH);
end;
Можно ещё сделать, чтобы устанавливалось старое разрешение, когда сворачиваешь приложение или просто выбираешь другое окно с помощью Alt+Tab.
Asker13 вне форума Ответить с цитированием
Старый 04.04.2011, 20:29   #562
Odinok
Пользователь
 
Аватар для Odinok
 
Регистрация: 08.03.2011
Сообщений: 91
По умолчанию

эээммм почему у меня он автоматом не растягивает окно на весь экран или я чего то много го не понимаю
Всё будет так, как должно было быть, даже, если будет наоборот.
Odinok вне форума Ответить с цитированием
Старый 04.04.2011, 20:55   #563
Asker13
Форумчанин
 
Аватар для Asker13
 
Регистрация: 01.12.2010
Сообщений: 140
По умолчанию

Потому что надо задать форме Width и Height.
В OnFormCreate нужно дописать:
Код:
Top := 0;
Left := 0;
Width := 800; // Например, можно 1024
Height := 600; // Можно 768
Только, разумеется, до того, как ты сменишь разрешение с помощью ChangeDisplayResolution.
Asker13 вне форума Ответить с цитированием
Старый 05.04.2011, 02:23   #564
Odinok
Пользователь
 
Аватар для Odinok
 
Регистрация: 08.03.2011
Сообщений: 91
По умолчанию

Цитата:
Сообщение от Asker13 Посмотреть сообщение
Потому что надо задать форме Width и Height.
В OnFormCreate нужно дописать:
Код:
Top := 0;
Left := 0;
Width := 800; // Например, можно 1024
Height := 600; // Можно 768
Только, разумеется, до того, как ты сменишь разрешение с помощью ChangeDisplayResolution.
круто спасибо
Всё будет так, как должно было быть, даже, если будет наоборот.
Odinok вне форума Ответить с цитированием
Старый 06.04.2011, 20:25   #565
Odinok
Пользователь
 
Аватар для Odinok
 
Регистрация: 08.03.2011
Сообщений: 91
По умолчанию

Извините, опять по беспокою, как сделать так что бы не просто определенный цвет был прозрачным, а подругому, а то в некоторых текстурках видно белая грань которой не должно быть, где то про это на форуме писалось, а найти не могу
Всё будет так, как должно было быть, даже, если будет наоборот.
Odinok вне форума Ответить с цитированием
Старый 07.04.2011, 15:52   #566
Beermonza
Инженер ИС
Старожил
 
Аватар для Beermonza
 
Регистрация: 13.12.2006
Сообщений: 2,671
По умолчанию

Цитата:
Сообщение от Odinok Посмотреть сообщение
Извините, опять по беспокою, как сделать так что бы не просто определенный цвет был прозрачным, а подругому, а то в некоторых текстурках видно белая грань которой не должно быть, где то про это на форуме писалось, а найти не могу
Canvas не поддерживает полный альфа-канал, только ключ прозрачности, т.е. нужно подготавливать текстуру в редакторе так, чтобы переход был резкий без белых тонов. Иначе нужно переходить на библиотеки DirectX или OpenGL, или создавать процедуры отрисовки самостоятельно.
Руководитель проекта MMO 2D RPG: Настоящее имя Денис Стрижак (10.05.1981-6.02.2019) Мир духу его
Beermonza вне форума Ответить с цитированием
Старый 07.04.2011, 18:12   #567
Odinok
Пользователь
 
Аватар для Odinok
 
Регистрация: 08.03.2011
Сообщений: 91
По умолчанию

Цитата:
Сообщение от Beermonza Посмотреть сообщение
Canvas не поддерживает полный альфа-канал, только ключ прозрачности, т.е. нужно подготавливать текстуру в редакторе так, чтобы переход был резкий без белых тонов. Иначе нужно переходить на библиотеки DirectX или OpenGL, или создавать процедуры отрисовки самостоятельно.
круто, будем переходить на DirectX, забросим делать на канвасе
Всё будет так, как должно было быть, даже, если будет наоборот.

Последний раз редактировалось Beermonza; 10.04.2011 в 23:25.
Odinok вне форума Ответить с цитированием
Старый 14.04.2011, 18:32   #568
A.S.W
Пользователь
 
Регистрация: 16.12.2009
Сообщений: 39
По умолчанию

пишу игру ловушку снаряда(делфи),создал форму,на нем два shape,один ловушка,второй снаряд...Ловушка управляется клавиатурой,это я сделал,а вот снаряд нет,надо сделать,чтобы он двигался рандомно по полю,но естественно не заходя за границы формы,если кто может помочь,буду благодарен...
A.S.W вне форума Ответить с цитированием
Старый 14.04.2011, 19:52   #569
phomm
personality
Старожил
 
Аватар для phomm
 
Регистрация: 28.04.2009
Сообщений: 2,876
По умолчанию

смотрите в конце темы http://programmersforum.ru/showthread.php?t=146953
там движение шарика с отскоком от стенок формы
phomm вне форума Ответить с цитированием
Старый 14.04.2011, 20:41   #570
A.S.W
Пользователь
 
Регистрация: 16.12.2009
Сообщений: 39
По умолчанию

спасибо,сейчас буду пробовать
A.S.W вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Хорошие уроки Render Общие вопросы Delphi 9 15.09.2012 07:13
Акцесс вопросы новичков Yaga Помощь студентам 4 02.06.2008 00:16
Учебники для новичков в програмировании Рар Общие вопросы Delphi 6 08.01.2007 08:07