[Sepotok]

Я вроде проверил все исходники, не нашел там нужного мне. Хотелось бы максимально упрощенный интерфейс, чтобы разобраться именно в технике. С грехом пополам написал это:

Код:

procedure TForm1.Button1Click(Sender: TObject);

var c, ColorPixel:TColor;
R,G,B,T:Byte;
Bi:TBitMap;
X,Y:Word;

begin
IF OpenPictureDialog1.Execute then
begin
bi:=TBitmap.Create;
bi.LoadFromFile(OpenPictureDialog1.FileName);
// получаем размер и Х и Y
X:=bi.Width;
Y:=bi.Height;
// рисуем на форме
Form1.Canvas.Draw(10,10,Bi);
// получаем цвет пикселя:
ColorPixel:=bi.Canvas.Pixels[1,1];
// получаем цвета RGB
c:=ColorPixel;
R:=c mod 256;
c:=c div 256;
G:=c mod 256;
B:=c div 256;
// яркость
T:=(r+g+b) div 3;
bi.free;
end;
end;

Admin: Пользуемся тенгами!!!

Верно ли сие, и где ошибка (программа не перерисовывает картинку).