Hola gattaca y feliz regreso
Cita:
Que me permitia poner 1 puntico negro en una imagén, y en Delphi XE2 no encuentro la manera de manejar dicha función!
|
Espero que este ejemplo sirva para orientarte un poco:
Código Delphi
[-]
...
uses jpeg;
procedure TForm1.Button1Click(Sender: TObject);
var
P: TPicture;
i: Integer;
begin
P:= TPicture.Create;
try
P.LoadFromFile('C:\Users\Usuario\Pictures\Blank.jpg');
Image1.Picture.Bitmap.Height:= P.Height;
Image1.Picture.Bitmap.Width:= P.Width;
Image1.Canvas.Draw(0,0,P.Graphic);
Image1.Canvas.Pixels[2,2]:= clBlack; for i:= 5 to 50 do
if i < 25 then
Image1.Canvas.Pixels[i, 10]:= clRed else
Image1.Canvas.Pixels[i, 10]:= clLime; finally
P.Free;
end;
end;
Esta echo en Delphi 7 pero supongo que debería funcionar en XE2...
Saludos.