Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Упаковка

Agent[007] © (2003-03-18 14:48:00)

Как упаковать к примеру графику в *.exe или в какие-либо другие файлы?

k-man (2003-03-27 09:46:00) [1]

Что это за книга по Delphi, где нет информации о циклах?

Dabus (2003-03-25 23:52:00) [2]

:))))))

Darthman (2003-03-25 16:52:00) [3]

2Agent007:
Писать ручками. Изучать математику и писать... писать.
А если в книге нет, то купи еще одну, где все это будет.

Dabus (2003-03-24 21:48:00) [4]

Ищи чувак и ты найдешь !!! Я за пол часа два таких вопроса видел. Ну и ответы на них соответственно.

Agent[007] (2003-03-22 05:25:00) [5]

А можно поинтересоваться?
Как BMP поворачивать на любой угол вокруг любой точки ?!?!?!?!

Agent[007] (2003-03-20 21:14:00) [6]

Thanks, я почти не знаю Delphi, а в книге нет некоторых данных.

Asteroid (2003-03-20 20:57:00) [7]

Дык обращение через Pixels особо тормознутое. Уж лучше Canvas.Draw( 0, 0, bmp1 )

Agent[007] (2003-03-20 20:35:00) [8]
А что здесь не правильно ?

procedure TForm1.Button1Click(Sender: TObject);

var bmp1:TBitMap;
var bmp2:TBitMap;
var i, g:Integer;

begin
bmp1:=TBitMap.Create;
bmp1.LoadFromFile("C:\My_games\test.bmp");
image1.Picture.Assign(bmp1);
bmp2 := TBitMap.Create;
for i := 0 to 31 do for g := 0 to 15 do bmp2.Canvas.Pixels ( bmp2)
А что здесь не правильно ?

procedure TForm1.Button1Click(Sender: TObject);

var bmp1:TBitMap;
var bmp2:TBitMap;
var i, g:Integer;

begin
bmp1:=TBitMap.Create;
bmp1.LoadFromFile("C:\My_games\test.bmp");
image1.Picture.Assign(bmp1);
bmp2 := TBitMap.Create;
for i := 0 to 31 do for g := 0 to 15 do bmp2.Canvas.Pixels [i,g] := bmp1.Canvas.Pixels[i,g];
image2.Picture.Assign(bmp2);
end;

end.

MeF88 (2003-03-20 07:43:00) [9]

Вроде будет, но сташно медленно на старых компах. =)

Agent[007] (2003-03-20 06:46:00) [10]

И ещё :

for i :=0 to 31 do for g := 0 to 15 do bmp1.canvas.pixels[i,g]:=
bmp2.canvas.pixels[i,g];

Будет работать?

Agent[007] (2003-03-20 06:34:00) [11]

Thanks

Juster~ (2003-03-19 21:19:00) [12]

:))

for i := 1 to 100000 do i := 1;

Agent[007] (2003-03-19 21:12:00) [13]

извините за глупый вопрос, но как пользоваться циклом for.
Напишите сдесь или пришлите текст проги на agent007mail@list.ru

cyborg (2003-03-19 15:01:00) [14]

Опечатку сделал :(

cyborg (2003-03-19 15:00:00) [15]

Упаковать в каком смысле? В смысле архиватором или свалить всё в один файл? Чтобы свалить всё в файл используй процедуры и функции для работы с файлами: BlocrWrite BlockRead, либо FileStream-ы.

Agent[007] (2003-03-19 14:37:00) [16]

20-30

MeF88 (2003-03-19 06:58:00) [17]

Блин писал уже линк: http://delphigfx.mastak.ru/- там была статья про хранения графики.

Darthman (2003-03-18 14:57:00) [18]

Большое ли количество?

Наверх

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