- void __fastcall TForm1::Button1Click(TObject *Sender)
- {
- for ( int i = 0; i < 1000 ; i++)
- {
- for ( int j = 0 ; j < 1000 ; j++)
- {
- int r = GetRValue(Image1->Picture->Bitmap->Canvas->Pixels[i][j]);
- int g = GetGValue(Image1->Picture->Bitmap->Canvas->Pixels[i][j]);
- int b = GetBValue(Image1->Picture->Bitmap->Canvas->Pixels[i][j]);
- r = (r/ScrollBar1->Position)*ScrollBar1->Position ;
- g = (g/ScrollBar1->Position)*ScrollBar1->Position ;
- b = (b/ScrollBar1->Position)*ScrollBar1->Position ;
- Image1->Picture->Bitmap->Canvas->Pixels[i][j] = RGB(r,g,b);
- }
- }




