Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Звук, графика и видео > Вывести точку нужного цвета на Image delphi xe5

Автор: MMM 25.9.2013, 02:05

Доброго времени суток !!!
вдруг кто знает....
имеем новоиспеченную
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

Не знаю чё там в за ХЕ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://ru.vingrad.com//Вывести-точку-нужного-цвета-на-Image-delphi-xe5-id52421adaae2015b56b000000#findElement_E7045_5248b934ae2015576b000d51_0

Автор: 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;

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