VPF::Негатив изображения - Форум программистов

DrWeb

Дата 1.4.2010, 21:48 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 78
Регистрация: 25.11.2007
Где: Украина, Донецк

Репутация: нет
Всего: 1

Как картинку,загруженную в Image сделать в негативе?

DrWeb

Дата 1.4.2010, 22:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 78
Регистрация: 25.11.2007
Где: Украина, Донецк

Репутация: нет
Всего: 1

Уже сделал сам.Если надо кому-кидаю код

Код


//---------------------------------------------------------------------------
Graphics::TBitmap * Bitmap = new Graphics::TBitmap;
Byte __fastcall customIntToByte(int i)
{
  if(i > 255) return 255;
  else if(i < 0) return 0;
  else return i;
}
void __fastcall Invert(Graphics::TBitmap *Bitmap, bool Value)
{
  Byte *p0;
  int r, g, b;
  for(int y=0; y<Bitmap->Height; y++)
    {
      p0 = (Byte *)Bitmap->ScanLine[y];
      for(int x=0; x<Bitmap->Width; x++)
        {
          r = p0[x * 3];
          g = p0[x * 3 + 1];
          b = p0[x * 3 + 2];

          // invert
          if(Value == true)
            {
              r = 255 - r;
              g = 255 - g;
              b = 255 - b;
            }

          p0[x * 3] = customIntToByte(r);
          p0[x * 3 + 1] = customIntToByte(g);
          p0[x * 3 + 2] = customIntToByte(b);
        }
    }

}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{   
    TJPEGImage * examp = new TJPEGImage;
    examp->LoadFromFile("img.jpg");
    Bitmap->Assign(examp);
    int h=Bitmap->Height;
    int b=Bitmap->Width;
    Form1->Image1->Height=h;
    Form1->Image1->Width=b;
    Form1->Image1->Canvas->Draw(0,0,Bitmap);
    delete examp;
    Invert(Bitmap,true);
    Form1->Image1->Canvas->Draw(0,0,Bitmap);
}
//---------------------------------------------------------------------------

586

Дата 2.4.2010, 03:39 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 2243
Регистрация: 8.5.2006

Репутация: 57
Всего: 146

Цитата(DrWeb @ 1.4.2010, 21:48

)

Как картинку,загруженную в Image сделать в негативе?

Код

void __fastcall TForm1::Button2Click(TObject *Sender)
{
    Graphics::TBitmap *bmp = Image1->Picture->Bitmap;
    InvertRect(bmp->Canvas->Handle, &TRect(0, 0, bmp->Width, bmp->Height));
    Image1->Repaint();
}

Цитата(DrWeb @ 1.4.2010, 22:10

)

Уже сделал сам.Если надо кому-кидаю код

проще так написать:

Код

void __fastcall TForm1::Button1Click(TObject *Sender)
{
    TJPEGImage * examp = new TJPEGImage;
    examp->LoadFromFile("test.jpg");
    Graphics::TBitmap *Bitmap = new Graphics::TBitmap();
    Bitmap->Assign(examp);
    InvertRect(Bitmap->Canvas->Handle, &TRect(0, 0, Bitmap->Width, Bitmap->Height));

    Image1->Height=Bitmap->Height;
    Image1->Width=Bitmap->Width;
    Image1->Picture->Bitmap = Bitmap;

    delete Bitmap;
    delete examp;
}

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| C++ Builder \| Следующая тема »