IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

> Вставка картинок в Pascal
Katja
сообщение 2.04.2004 13:32
Сообщение #1


Гость






Подскажите пожалуйста, как вставить bmp картинку в Borland Pascal
 К началу страницы 
+ Ответить 
 
Closed Topic Открыть новую тему 
Ответов
murphy
сообщение 27.12.2004 23:32
Сообщение #2


Пионер
**

Группа: Пользователи
Сообщений: 98
Пол: Мужской

Репутация: -  0  +


В том то и дело что убирал blink.gif

вот прога
Код

program test;
uses bmp, graph, crt;
var gd,gm:integer;
begin
{gd:=detect;
initgraph(gd,gm,'D:\TP_71\TP\bgi');
{bar(0,0,20,20);}

gd:=installuserdriver('VESA256',nil);
initgraph(gd,gm,'');
if graphresult <> grok then halt;

SBMI('D:\P2s2.bmp', 0, 0, 0 );
readkey;
end.

помогите :p2:

Сообщение отредактировано: murphy - 28.12.2004 0:11


--------------------
collect the infotrons and find Exit
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

Сообщений в этой теме
Katja   Вставка картинок в Pascal   2.04.2004 13:32
Altair   Стандартных процедур в Паскале нет, надо использов...   2.04.2004 15:10
CJ   Качай с моего сайта модуль для работы с bmp и ника...   12.04.2004 22:39
яЕПЦХЕМЙН юМРНМ   help me ъ ОПХДСЛЮК ЙПСРНИ ЛЕРНД ЯФЮРХЪ ЦПЮТХВЕЯЙНИ...   21.10.2004 11:36
APAL   Перевожу:   21.10.2004 11:38
Altair   Ачто за кодировка? APAL, ты у нас прямо перекодиро...   21.10.2004 11:46
APAL   KOI Так показал Штирлиц вер.4   21.10.2004 12:16
Altair   А у меня 4.01 версия... :) У меня тоже. (APAL) кс...   21.10.2004 12:36
xds   Прошу прощения за оффтоп, даже БК-001x использует ...   21.10.2004 13:07
P@sh@   яЕПЦХЕМЙН юМРНМ BMP-файл состоит из трех основных...   22.10.2004 10:30
xds   а) только не в BP; б) в общем солучае SizeOf(Inte...   23.10.2004 8:04
P@sh@   xds а он написал, что знает Delphi, вот я и решил...   26.10.2004 10:20
murphy   Oleg_Z чего то у меня не получилось... program...   26.12.2004 21:52
SKVOZNJAK   Бмп разные бывают, может этот модуль не все правил...   26.12.2004 22:16
murphy   Шо я только не пробовал. :p6: :( :( :( :( :yp...   26.12.2004 23:59
Altair   Дык надо графический драйвер нестандартный - VESA2...   27.12.2004 15:46
murphy   Oleg_Z Скачал VESA256 что мне изменить здесь g...   27.12.2004 20:16
volvo   murphy Я же, по-моему, в тестовом форуме давал: v...   27.12.2004 20:21
murphy   volvo Ну да :p2: :p2: :p2: Offtop У volvo ...   27.12.2004 20:33
murphy   только у меня прога сразу вылетает когда запускаю   27.12.2004 20:41
Altair   убери вот эту строчку: if graphresult <> g...   27.12.2004 20:58
murphy   В том то и дело что убирал :blink: вот прога pro...   27.12.2004 23:32
volvo   murphy Чем компилируешь? У меня в ТР70 и Vesa и S...   28.12.2004 0:14
murphy   TP 7.1 ошибка graphics error (30) tp 7.0 вобще...   28.12.2004 0:19
Guest   народ подскажите где можно достать этот файл ---- ...   29.06.2005 20:10
volvo   FAQ: Модули для вывода графики закрыто. Тема раз...   29.06.2005 20:14


Closed Topic Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 



- Текстовая версия 22.06.2025 7:48
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"