| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Поворот картинок [D6, Win2k, WinXP]

Fostr ©   (2005-09-16 09:03:00) 

Господа! Очень прошу разъяснить как работает эта процедура поворота картинки:

procedureTForm1.Button1Click(Sender: TObject);
var
x,y:integer;
Image,Image_REV: TBitMap;
source, result: PByteArray;

begin
  Image:=TBitMap.Create;
  Image_REV:=TBitMap.Create;
  Image.LoadFromFile('home.bmp');
  Image.PixelFormat :=pf24bit;
  Image_REV.PixelFormat :=pf24bit;
  Image_REV.Width:=Image.Height;
  Image_REV.Height:=Image.Width;

{до этого  момента все понятно}
  fory:=0 to(Image.Height-1) do
    begin
   source:=Image.ScanLine[y];
    forx:=0 to(Image.Width-1) do
      begin
        result:=Image_REV.ScanLine[x];
        result[(Image.Height-1-y)*3]:=source[x*3];
        result[(Image.Height-1-y)*3+1]:=source[x*3+1];
        result[(Image.Height-1-y)*3+2]:=source[x*3+2];
      end;
    end;

  Form1.Canvas.Draw(10,100,Image_REV); {эта строка понятна}
end;

Если можно, то прямо по строчкам. Заранее спасибо!

---

Fostr   (2005-09-16 09:21:00) [1]

Огромное спасибо! Сейчас начну читать! В хелпе дельфийском о ScanLine я ничего толкового не нашел, кроме того, что она "Provides indexed access to each line of pixels" и примерчик. Так что еще раз спасибо за ссылку на статью.

---

MBo   (2005-09-16 09:17:00) [2]

Наверно, стоит прочитать в хелпе про ScanLine.
Практически исчерпывающая статья об этом:
http://www.efg2.com/Lab/ImageProcessing/Scanline.htm

Процедура предназначена для поворота 24-х битных картинок на 90 градусов.

---

Наверх