Как в Bitmap редактировать пиксели

[Yungo161]

пишу графический редактор.
в этом редакторе нужен только карандаш (да, такой вот он странный)
я понимаю что мы рисуем в битмэпе и отображаем потом на канву. но вот такие вопросы:
как определенному пикселю в этом самом битмэпе присвоить определенный цвет.
как проанализировать все пиксели битмэпа на RGB и положение в битмэпе
и как потом вывести их на канву но с небольшим условием: каждый пиксель битмэпа отображается как квадратик со стороной допустим в 5 пикселей. как квадратик рисовать, знаю. не знаю как ему присвоить цвет скажем 51 56 76 который получаем из битмэпа
как потом сохранить полученое нечто в *.bmp

[NetSpace]

загружаете рисунок в компонент PaintBox.
карандаш должен бегать за нажатой мышкой.
координаты мыши:
в обработчике paintBox.OnMouseDown пишете:

xc:=Mouse.CursorPos.x;
yc:=Mouse.CursorPos.y;
PainBox.Canvas.Pixels[xc,yc]:=clRed;//и все эти пиксели делаем красными или ещё какими...

а если надо сам цвет узнать, то вот так

col:=PainBox.Canvas.Pixels[xc,yc];

[Yungo161]

так как цвету присвоить значение RGB? чтобы я сам мог выбрать какой я хочу серобуропошкарябаный или зеленомалиновый..

[Delphi_ProGer]

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

так как цвету присвоить значение RGB? чтобы я сам мог выбрать какой я хочу серобуропошкарябаный или зеленомалиновый..

Например так:

PaintBox.Canvas.Pixels[xc,yc]:=RGB(255,255,0);

[Yungo161]

пишет что эдентификатор RGB не найден

[Delphi_ProGer]

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

пишет что эдентификатор RGB не найден

что-то не так делаете...функция RGB находиться в юните windows...

[Yungo161]

а есть другие варианты?
скажем объявлять col:tcolor; и както с ним работать по другому?

[Delphi_ProGer]

емм..лучше по возможности закиньте архив cюда, посмотрю чего оно не хочет работать, а должно работать(теоретически :D)

[Yungo161]

дело в том что я работаю не в делфи а в ее бесплатном аналоге лазарусе в котором все тоже самое по стандартным функциям

[Delphi_ProGer]

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

дело в том что я работаю не в делфи а в ее бесплатном аналоге лазарусе в котором все тоже самое по стандартным функциям

ага, так бы сразу сказали
там нужно RGBToColor, вместо RGB.