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

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

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

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

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

Ответ
 
Опции темы Поиск в этой теме
Старый 18.06.2010, 13:21   #1
_-Re@l-_
C++, Java
Старожил
 
Аватар для _-Re@l-_
 
Регистрация: 10.04.2010
Сообщений: 2,665
По умолчанию Во весь экран

Вот так включаю полноэкранный режим:
Код:
function SetFullscreenMode:Boolean;
var
  DeviceMode : TDevMode;
begin
  with DeviceMode do
  begin
    dmSize:=SizeOf(DeviceMode);
    dmBitsPerPel:=16;
    dmPelsWidth:=640;
    dmPelsHeight:=480;
    dmFields:=DM_BITSPERPEL or DM_PELSWIDTH or DM_PELSHEIGHT;
    result:=False;
    if ChangeDisplaySettings(DeviceMode,CDS_TEST or CDS_FULLSCREEN) <> DISP_CHANGE_SUCCESSFUL
    then Exit;
    Result:=ChangeDisplaySettings(DeviceMode,CDS_FULLSCREEN) = DISP_CHANGE_SUCCESSFUL;
  end;
end;
Как теперь можно на весь экран вывести картинку, а когда я пытаюсь вывести, то получается бред(см.скрин)
Вот код:
Код:
procedure TForm1.FormCreate(Sender: TObject);
begin
     SetFullScreenMode;
     B:=TBitmap.Create;
     B.LoadFromFile('c:\bmp.bmp');
     Form1.Canvas.CopyRect(Rect(0,0,1024,768),B.Canvas,Rect(0,0,1024,768));
end;
Изображения
Тип файла: jpg скрин.jpg (46.0 Кб, 162 просмотров)

Последний раз редактировалось _-Re@l-_; 18.06.2010 в 13:24.
_-Re@l-_ вне форума Ответить с цитированием
Старый 18.06.2010, 13:27   #2
Пепел Феникса
Старожил
 
Аватар для Пепел Феникса
 
Регистрация: 28.01.2009
Сообщений: 21,000
По умолчанию

рисовать на форме в OnPaint надо.
форма максимизирована?
Хорошо поставленный вопрос это уже половина ответа. | Каков вопрос, таков ответ.
Программа делает то что написал программист, а не то что он хотел.
Функции/утилиты ждут в параметрах то что им надо, а не то что вы хотите.
Пепел Феникса вне форума Ответить с цитированием
Старый 18.06.2010, 13:28   #3
_-Re@l-_
C++, Java
Старожил
 
Аватар для _-Re@l-_
 
Регистрация: 10.04.2010
Сообщений: 2,665
По умолчанию

чёрт... про максимизацию забыл...а насчёт Paint уже тоже заметил..Но спасибо..

Код:
SetFullScreenMode;
     Menubuf:=TBitmap.Create;
     Menubuf.Width:=640;
     Menubuf.Height:=480;
     MenuBuf.Canvas.Brush.Color:=0;
     MenuBuf.Canvas.Rectangle(0,0,640,480);
     MenuBuf.Canvas.Font.Name:='Times New Roman';
     MenuBuf.Canvas.Font.Style:=[fsBold];
     MenuBuf.Canvas.Font.Size:=30;
     MenuBuf.Canvas.Font.Color:=clYellow;
     MenuBuf.Canvas.TextOut(190,50,'THE GREAT GAME');
Почему вместо черного экрана с надписью появляется чистый белый экран?
Изображения
Тип файла: jpg скрин.jpg (5.4 Кб, 149 просмотров)

Последний раз редактировалось Stilet; 22.06.2010 в 15:02.
_-Re@l-_ вне форума Ответить с цитированием
Старый 18.06.2010, 14:00   #4
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию

Может вам на имидже всё это дело рисовать?
SERG1980 вне форума Ответить с цитированием
Старый 18.06.2010, 14:00   #5
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

Ну дык а рисовать MenuBuf на экране будем или нет?
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума Ответить с цитированием
Старый 18.06.2010, 14:02   #6
_-Re@l-_
C++, Java
Старожил
 
Аватар для _-Re@l-_
 
Регистрация: 10.04.2010
Сообщений: 2,665
По умолчанию

Цитата:
Ну дык а рисовать MenuBuf на экране будем или нет?
В..... смысле?
_-Re@l-_ вне форума Ответить с цитированием
Старый 18.06.2010, 14:18   #7
SERG1980
Участник клуба
 
Аватар для SERG1980
 
Регистрация: 28.03.2007
Сообщений: 1,814
По умолчанию

Вы вообще что хотите получить... вывести картинку во весь экран?
SERG1980 вне форума Ответить с цитированием
Старый 18.06.2010, 14:19   #8
_-Re@l-_
C++, Java
Старожил
 
Аватар для _-Re@l-_
 
Регистрация: 10.04.2010
Сообщений: 2,665
По умолчанию

Я хочу развернуть форму на весь экран, сделать фон чёрным, и на этом фоне вывести текст!
_-Re@l-_ вне форума Ответить с цитированием
Старый 18.06.2010, 14:35   #9
Alex Cones
Trust no one.
Старожил
 
Аватар для Alex Cones
 
Регистрация: 07.04.2009
Сообщений: 6,526
По умолчанию

Цитата:
Сообщение от _-Re@l-_ Посмотреть сообщение
В..... смысле?
А что в смысле? Ну нарисовали вы на буфере что-то. Экрану от этого ни тепло, ни холодно.

Размещаем на форме имагу на всю форму:

Код:
Form1.Image1.Canvas.Draw(0,0,BuffImage)
SQUARY PROJECT - НАБОР БЕСПЛАТНЫХ ПРОГРАММ ДЛЯ РАБОЧЕГО СТОЛА.
МОЙ БЛОГ
GRAY FUR FRAMEWORK - УДОБНАЯ И БЫСТРАЯ РАЗРАБОТКА WINAPI ПРИЛОЖЕНИЙ
Alex Cones вне форума Ответить с цитированием
Старый 18.06.2010, 14:39   #10
_-Re@l-_
C++, Java
Старожил
 
Аватар для _-Re@l-_
 
Регистрация: 10.04.2010
Сообщений: 2,665
По умолчанию

Огромное спасибо, Alex Cones!
_-Re@l-_ вне форума Ответить с цитированием
Ответ


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

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Форма во весь экран }{oт@бь)ч Общие вопросы Delphi 14 14.01.2016 12:12
Развёртка на весь экран _-Re@l-_ Общие вопросы Delphi 5 28.05.2010 17:03
Во весь экран!!! Orodret Общие вопросы C/C++ 2 01.05.2009 17:58
форма во весь экран??? zzzzz Помощь студентам 8 08.11.2007 08:39
во весь экран Артэс Общие вопросы C/C++ 7 17.08.2007 23:37