Вывести полученый цвет

[bulldog5293]

Доброго времини суток и с маслинецей всех , вопрос такой загружаю картинку в имаге и по определёным координатам пытаюсь вывется цвет пикселя в имаге, из-за бесконечной возни кода забыл как правельно вывести, вобщем ошибка возникает в том что просит TBitmap ошибку выдаёт такую delphi can only modify an image if it contains a bitmap. код вот

Image1.Picture.LoadFromFile('C:\1.png');
   Color:=Image1.Canvas.Pixels[100, 100];
Label1.Caption := ColorToString(Color);

[Vaigard]

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

[Пепел Феникса]

ну раз просит TBitmap то дайте ему битмап, проблема чтоль?

[phomm]

ну вроде как нечто этакое

[bulldog5293]

да я про то что вместо ColorToString что то другое должно стоять, а что вспомнить не могу

[phomm]

пиши своё, делов-то...

что-то вроде

function color2str(col : tcolor):string;
begin
result := result+'R'+inttostr((col shr 0) and 255);
result := result+'G'+inttostr((col shr 8) and 255);
result := result+'B'+inttostr((col shr 16) and 255);
result := result+'A'+inttostr((col shr 24) and 255);
end;

[ArtGrek]

Image1.Picture.LoadFromFile('C:\1.png');
   Color:=Image1.Picture.BitMap.Canvas.Pixels[100, 100];
Label1.Caption := ColorToString(Color);