For this tutorial we need a button(standard tab), an image(additional tab) and a savepicturedialog(Dialogs).
we select image1 from object insepctor and we click picture property
Then we open a picture of our choice.
we click button1 and we write the following
procedure TForm1.Button1Click(Sender: TObject);
begin
if SavepictureDialog1.Execute then
image1.Picture.SaveToFile( SavepictureDialog1.Filename );
end;
We are ready to execute and test our program. By default we save our image in .jpg format we can change this and other options in object inspector window(savepicturedialog1).
Thats all for now..
we select image1 from object insepctor and we click picture property
Then we open a picture of our choice.
we click button1 and we write the following
procedure TForm1.Button1Click(Sender: TObject);
begin
if SavepictureDialog1.Execute then
image1.Picture.SaveToFile( SavepictureDialog1.Filename );
end;
We are ready to execute and test our program. By default we save our image in .jpg format we can change this and other options in object inspector window(savepicturedialog1).
Thats all for now..
No comments:
Post a Comment