[zibert]

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

[poli-smen]

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

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

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

[zibert]

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

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

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

[poli-smen]

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

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

Пример:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19

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, и делаешь так:

Код:

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

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

Код:

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