Формат цвета

[Virtson]

точка на чем ?
координаты - экрана .. ?

[mutabor]

color:=Canvas.Pixels[x,y];

[aln123]

И все? Спасибо! А переменная color какого типа.
Я ведь уже через задницу извернулся,
поприкалывайтесь...

procedure TForm1.ColorRGB(Sender:Tobject);  
var line:pbytearray;       
x,y,z,i,j:integer;     
color:array of array of cardinal;   
begin       
i:=Image1.Picture.Bitmap.Height;   
j:=Image1.Picture.Bitmap.Width;    
setlength(color,j,i);     
for y:=0 to i-1 do     
  begin       
       line:=Image1.Picture.Bitmap.ScanLine[y];  
       x:=0;      
       if x<j then     
        begin      
          color[x,y]:=0;    
          for z:=0 to 2 do    
            begin     
              color[x,y]:=color[x,y]*256+line[x+z]; 
            end;     
          x:=x+3;     
        end;      
  end;       
end;

[mutabor]

А переменная color какого типа

какого тебе больше нравится TColor, integer, cardinal, главное вложиться в 16 с лишним миллионов (256*256*256)

[aln123]

Спасибо большое.