VPF::Вывести точку нужного цвета на Image delphi xe5

MMM

Дата 25.9.2013, 02:05 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 25
Регистрация: 18.6.2002
Где: Рядом с Уссурийск ом

Репутация: нет
Всего: нет

Доброго времени суток !!!
вдруг кто знает....
имеем новоиспеченную
delphi xe5..... приложение под android
нашел ImageControl или Image , у него есть canvas
как вывести элементарную. точку нужного цвета ,аля Canvas.Pixels[56,100]:=clred ?
и есть ли тут аналог Scanline ?

ps
надыбал код

Код


procedure TForm1.WritePixelButtonClick(Sender: TObject);
 // example of setting a single pixel in a TImage bitmap.
 // the image must already be loaded in the TImage
var
  vBitMapData  : TBitmapData;
  vPixelColor  : TAlphaColor; // note: FireMonkey colors are different from VCL TColor
begin
                              // lock and get the bitmap pixels
  if  image1.Bitmap.Map(TMapAccess.maWrite, vBitMapData) then
      begin
      vPixelColor := TAlphaColorRec.Blue;       // determine colour to use
      vBitmapData.SetPixel(10,20, vPixelColor); // set the pixel colour at x:10, y:20
 
      image1.Bitmap.Unmap(vBitMapData);         // unlock the bitmap
      end;
end;

image1.Bitmap.Map(TMapAccess.maWrite, vBitMapData) false почемуто

ZaDoXliK

Дата 30.9.2013, 02:35 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 23
Регистрация: 1.12.2007
Где: Украина

Репутация: нет
Всего: нет

Не знаю чё там в за ХЕ5 но в Д7 для манипуляции с битмепом нужно его создать сначала.
Не помню уже как точно но что от типа такого:
1-на форму кидаем компонент image1, далее...

Код


var
    B:TBitmap;
begin
    B:=TBitmap.create;
    B.width:=image1.width;
    B.height:=image1.height;
    B.canvas.pixel[10,10]:=clRed;
    image1.Picture.Assign(B);
    B.Free;

Проканает такое?

Этот ответ добавлен с нового Винграда - http://vingrad.com

MMM

Дата 1.10.2013, 09:31 (ссылка)

(нет голосов)

Загрузка ...

Цитата(ZaDoXliK @ 29.9.2013, 23:35)

Код


var
    B:TBitmap;
begin
    B:=TBitmap.create;
    B.width:=image1.width;
    B.height:=image1.height;
    B.canvas.pixel[10,10]:=clRed;
    image1.Picture.Assign(B);
    B.Free;

Проканает такое?

Этот ответ добавлен с нового Винграда - http://vingrad.com

К сожалению даже у TBitmap нету на канве pixel smile

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Звук, графика и видео \| Следующая тема »