30.01.2008, 16:39
|
#4
|
Рыцарь
Регистрация: 28.09.2007
Сообщений: 1,558
Сказал Спасибо: 71
Имеет 351 спасибок в 244 сообщенях
|
procedure init;
begin
............
image1:=TImage.Create;
image1.paremt:=frm;
image1.width:=...
image1.picture.loadfromfile('sdf.bmp');
......................
end;
begin
...........
image1.Canvas.Pixels[X,Y]:=clRed;
............
end.
|
|
|