TSavePictureDialog

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..

TOpenPictureDialog tutorial

For this tutorial we need a button(standard tab), an image(additional tab) and a openpicturedialog(Dialogs).

 

double click button1 and write the following

procedure TForm1.Button1Click(Sender: TObject);
begin
  if openpicturedialog1.Execute then
     image1.Picture.LoadFromFile(openpicturedialog1.FileName);

end;

 

if the openpicturedialog executed the picture we just select opens in image1.

We execute our program we click the button and we open a picture.

Thats all for now..

TFontDialog tutorial

For this tutorial we need a memo from standard tab, a button from standard tab and a tfontdialog from Dialogs tab

double click the button and write the following code

procedure TForm1.Button1Click(Sender: TObject);
begin
  if fontdialog1.Execute then
   memo1.Font:=fontdialog1.Font;
end;

now execute the program and click font options button. The following dialog appears

change the options and press ok.

thats all.

TColorDialog example

For this tutorial add a button from standard tab and a TColorDialog from Dialogs tab  in the form.
Change the caption of button1 to "form1 color"

double click the button and write the following code

Procedure TForm1.Button1Click( Sender: TObject );
 begin
   if colordialog1.Execute then
    form1.Color:=(colordialog1.Color);
 end;

This code executes the colordialog1 if we run the program and press the button.

 If we select for example blue color form1 became blue.

Thats all..

Save dialog

1.For this tutorial add a memo, a button and a tsavedialog in the form

2.Change the caption of  button1 to "save". if you want you can change the line property of  tmemo1. for example "The most important thing is to decide the most important thing".

 

3.Double click on save button and write onclick event: 

 procedure TForm1.Button1Click( Sender: TObject );
 begin
   if SaveDialog1.Execute then
    Memo1.Lines.SaveToFile( SaveDialog1.Filename );
 end;
 


 
 

4.The Execute method displays the file save dialog. 

 It returns true when user has selected a file, false when user has aborted.

The Filename property returns the full filename.

 

5.if we want we can make some changes for example let's add 

a different dialog title. At formcreate event add the following code:





procedure TForm1.FormCreate(Sender: TObject);
begin
   saveDialog1.Title := 'Save your love letter as: ';
end;    









6. we can also set the default extension for our file and

 add a filter which  allow only .txt types to be saved.



so we add the follow lines in form create event 



  saveDialog1.DefaultExt := 'txt'; //default extension
  saveDialog1.Filter := 'Text file|*.txt'; 



 


 

 don't forget to check the object inspector for further options

Thats all for now!