|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
#1
|
|||
|
|||
Распознать цвет пиксела
Распознать цвет пиксела картинки в Image
Пишу: Код:
c:=Image1.Picture.Bitmap.Canvas.Pixels[10,10]; |
#2
|
||||
|
||||
Цитата:
Попробовал. работает без проблем. Последний раз редактировалось movnet, 05.02.2011 в 00:24. |
#3
|
||||
|
||||
amdelphi, а в Image1 не jpeg случаем? а то если там не Bitmap, то при Image1.Picture.Bitmap.Canvas.Pixels[10,10] картинка исчезнет.
Пишу программы за еду. __________________ |
#4
|
|||
|
|||
Цитата:
Спасибо!!! |
#5
|
||||
|
||||
А так не сойдет? Должно работать:
Код:
Image1.Canvas.Pixels[10, 10] |
#6
|
||||
|
||||
Цитата:
TImage = class(TGraphicControl) public property Canvas: TCanvas read GetCanvas; function TImage.GetCanvas: TCanvas; var Bitmap: TBitmap; begin if Picture.Graphic = nil then begin Bitmap := TBitmap.Create; try Bitmap.Width := Width; Bitmap.Height := Height; Picture.Graphic := Bitmap; finally Bitmap.Free; end; end; if Picture.Graphic is TBitmap then Result := TBitmap(Picture.Graphic).Canvas else raise EInvalidOperation.Create(SImageCanvasNeedsBitmap); end; вот поэтому "Can only modify an image if it contains a bitmap" и получим для jpeg Пишу программы за еду. __________________ |