[zibert]

Мне задали задачу: создать bmp картину если дано координаты и цвету пикселя данной координаты... и это все сохранить в файл(*.bmp) ..
кто может помогите...

[poli-smen]

Сообщение от zibert

Мне задали задачу: создать bmp картину если дано координаты и цвету пикселя данной координаты... и это все сохранить в файл(*.bmp) ..
кто может помогите...

Используй класс TBitmap. А для рисования на нём Canvas.

[zibert]

Сообщение от poli-smen

Используй класс TBitmap. А для рисования на нём Canvas.

а можешь привести пример... а то у меня немного плаховато с графикой...

[poli-smen]

Сообщение от zibert

а можешь привести пример... а то у меня немного плаховато с графикой...

Пример:

Код:

var
  bmp: TBitmap;
begin
  bmp := TBitmap.Create;
  try
    bmp.Width := 100;
    bmp.Height := 100;
    bmp.Canvas.Brush.Color := clWhite;
    bmp.Canvas.FillRect(Rect(0, 0, bmp.Width, bmp.Height));

    bmp.Canvas.Pen.Color := clGreen;
    bmp.Canvas.Brush.Color := clYellow;
    bmp.Canvas.Ellipse(0, 0, 100, 80);

    bmp.SaveToFile('E:\-\1.bmp');
  finally
    bmp.Free;
  end;
end;

[zibert]

а если по заданным цветам...

[poli-smen]

Сообщение от zibert

а если по заданным цветам...

Я не понимаю что значит "по заданным цветам".

[zibert]

Сообщение от poli-smen

Я не понимаю что значит "по заданным цветам".

Ну например.. в текстовом файле мне задано координаты и их цвет (в 16ричной системе), надо считать данные и по этим данным создать бмп файл

[poli-smen]

Сообщение от zibert

Ну например.. в текстовом файле мне задано координаты и их цвет (в 16ричной системе), надо считать данные и по этим данным создать бмп файл

В цикле считываешь из этого текстового файла очередные X, Y и Color, и делаешь так:

Код:

bmp.Canvas.Pixels[X, Y] := Color;

Преобразовать шестнадцатеричное представление числа в число можно так:

Код:

Color := StrToInt('$'+HexNum);