Как повернуть изображение в TImage на 90 градусов?

var i,j:integer;
tb1,tb2 : tbitmap; p1,p2:pargb;
begin
tb1:=tbitmap.create;
tb1.PixelFormat:=pf24bit;
tb2:=tbitmap.create;
tb2.PixelFormat:=pf24bit;

tb1.Width:=fimage.Graphic.Width; //fimage - исходное изображение
tb1.Height:=fimage.Graphic.height;
tb2.Width:=fimage.Graphic.height;
tb2.Height:=fimage.Graphic.Width;

tb1.Canvas.Draw(0,0,fimage.Graphic);

for i:=0 to tb1.Height-1 do //сам алгоритм
begin
p1:=tb1.ScanLine[tb1.Height-i-1];
for j:=0 to tb1.Width-1 do
begin
p2:=tb2.ScanLine[j];
p2[i].r:=p1[j].r;
p2[i].g:=p1[j].g;
p2[i].b:=p1[j].b;
end;
end;
//теперь в tb2 перевёрнутое изображение
end;

З.Ы. Это вырезка из одного кода, его можно сильно оптимизировать

Как ужасно смотрятся исходные тексты здесь публикуемые... Причем в тегах {code}{/code} не многим лучше. А вроде бы "Форум программистов"...

Для работы с изображениями есть либа DImageEn7

Цитата(Dmitry @ 19.10.2003, 19:05)

Как ужасно смотрятся ...

а действительно, админ, почему бы не сделать для кодов, чтобы выделял хотябы основные зарезервированые слова жирным шрифтом, ведь не так сложно, а вот притяно будет читаться как,

Да уж тут не до шрифтовых выделений. Форматирование текста сохранять хотя бы...

Цитата

а действительно, админ, почему бы не сделать для кодов, чтобы выделял хотябы основные зарезервированые слова жирным шрифтом, ведь не так сложно, а вот притяно будет читаться как,

.
Мужики не наглейте, вам как мед так и ложку.
Кому надо тот прочтет и так.!!!!

Georg4 Кому надо - прочтет, ибо понадеется увидеть ответ на свой вопрос. А вот станет ли читать тот, кто потенциально способен этот ответ дать? Возможно. Но времени у него это отнимет гораздо больше. И не факт, что заметит оплошность.

Был бы это форум любителей поэзии - претензии вряд ли возникли бы. Но это форум программистов...

Не стал бы поднимать этот вопрос, если бы не поймал себя на том, что публикуется код, который интересно было бы "заценить", но "почему-то" захотелось плюнуть и пройти дальше... После прислушивания к собственным ощущениям и возникло первоначальное послание.

Этот вопрос уже задан в Обсуждение форума и каталога программ , дабы не гневить оффтопиком здешних модераторов.

Illusion Dolphin Что заструктура Pargb? Где посмотреть описание?
Baa Где находится эта либа DImageEn7

Цитата(Z_P @ 19.10.2003, 22:39)

Цитата(Dmitry @ 19.10.2003, ) Как ужасно смотрятся ... а действительно, админ, почему бы не сделать для кодов, чтобы выделял хотябы основные зарезервированые слова жирным шрифтом, ведь не так сложно, а вот притяно будет читаться как

А по-моему сложно... Как я тя понял ты предлагаешь выделять зарезервированные слова в каждом языке програмирования жирным шрифтом. А представь: в паскале енто - одни слова, в си - другие, в ВБ - совсем третьи. А ведь на форуме обсуждаются не толко исходники на Си.
З.Ы. Если не сложно, то напиши скрипт и вышли админу. Будешь Героем форума