tim46
2007-06-17 17:18:27
If you read this tutorial, please reply! It only takes 5 seconds.
Welcome to my forms tutorial. What is a form? A form is basically a user-friendly interface where anyone can setup your script.
This tutorial will be divided in 4 different chapters.
Table of Contents
Chapter 1 - Creating the form
Chapter 2 - Using the form in your scripts
Chapter 3 - Making the forms do other things UNDER CONSTRUCTION
Chapter 4 - Making the forms look good UNDER CONSTRUCTION
Chapter 1 - Creating the form
Overview
In this chapter, we will be learning how to use the form editor, and also how to create a basic form. The form that we will be creating will save a username and a password. You will learn: Labels, Buttons, Edit boxes, and general form stuff.
Getting started
Now lets open the form editor shall we? In SCAR, go to Tools > Form Editor. 3 different menus/boxes should appear. Lets get started with the first and easiest step. Creating the labels.
Labels
Click on the A that is in the red circle:
Now click anywhere in the biggest box, that is named "frmDesign". Some text should show up, it should say "Label1". Now shift your interest to the box that we havn't examined yet, the long and skinny one. This next picture should explain everything.
*Note: In order for the options to change, after you edit one of the options, you must then click somewhere in the "Object Inspector".
Those are the most important things that you should know. If you want, you can fiddle around with other settings. If you want to move the label, just click on it and drag it anywhere you want. If you want to change the size of the form, click on a corner of "frmDesign" and make the size whatever you want.
Create another Label called "Password". Your form should look something like this:
Edit Boxes
Now that we have created some labels, we need edit boxes so that the user will be able to input something. Click on the box to the right of the Label one and make a click next to the Username and Password box.
You can change the Text to whatever you want, or you can remove it completely. Change the Name to "UserEdit" for the box next to the Username label, and "PassEdit" next to the Password label. Scroll down, and change the width of the boxes if you want. It will look better, but remember not to make them to small! I made mine 70pixels in width. You can also change the "Hints". Whatever you put into the "Hint" box, will show up if the user moves his crusor over the Edit box. My hints say "Username here" and "Password here".
Your form should look like this:
Buttons
Yay Buttons! Exciting. Lets make a start button shall we? Find the box with "ok" written in it, in the Form Designer box.
Once again, change the Caption to Start, and change the Name to StartButton. If you want, you can change the height and the width to, will look sexy. I changed the height to 20, and the width to 50. My form looks like this:
Form Stuff
Now click click anywhere on the form(except the buttons, edit boxes or labels) and change the caption to what you want. I changed mine to "Username and Password". You can fiddle around with the options, and change the color if you want, but I didn't. Finished product should look like this:
Save the form by clicking the Save icon.
Chapter 2 - Using the form in your script
Overview
In this chapter, we will be learning how to put the form that we have made into your script. You will learn: form procedures, form setup.
Getting started
Lets convert the form that we have just made to text. In SCAR, do to Tools > Load DFM Form. Open the form that you just saved. In the debug box, you should see alot of text. Put everything under "//Add these objects to variable declarations" into your vars section of the script.
Now we will add 3 more procedures. They are needed to make sure that the form works properly:
Add these lines to the main loop.
They will make the form show up.
Making the form do something
You should have this code:
and add
What that does, is calls out the procedure called "StartClick" when you click the start button. Lets make that procedure shall we? Above the procedure "InitForm", create the procedure named "StartClick"
Your script should now look something like this:
If you want to text this out, add
Woot. You have just created a form :) My final script looks like this:
Chapter 3 - Making the forms do other things
Overview
In this chapter, we will be learning more advanced stuff about your form. You will learn: combo boxes, check boxes, implementing them into your script, and saving form settings to a file.
Getting started
First of all, we need to open the form editor and then open the form we created in Chapter 1. Shift your attention to the "Form Designer again" Click on the red circle.
Combo box
Now, lets create a Combo box, shall we? Click on the combo box icon then click an empty place under the Password label. You may change the Text and width settings to your liking. My text now says "Tim FTW?", my name is "FTWCombo". My form now looks like this.
Now lets add options. Find where it says "Items" and in the column next to it "(Tstrings)".
Click there, and a new box should show up. I added two lines in that box, True and False.
When your done, click OK. Save your form.
Implementing the combo box into your script
As we did before, load the form by doing to Tools > Load DFM form. Once again post the variables that show up in the variables section of your script(don't forget to add Username and Password to var's as a string!), and the rest into a procedure called InitForm. Also, add the StartClick procedure that we made earlier, and add
Now lets edit the StartClick procedure some more so that the Combo box actually does something. Lets add a variable called "Ftw". Make it a Boolean variable. Now in the StartClick procedure, add this line:
Chapter 4 - Making the forms look good
Overview
In this chapter, we will be learning how to make your form look nice and sexy(:p). You will learn: adding colors and images.
Getting started
Well, lets start with images. Open up a form, or make one.
UNDER CONSTRUCTION
Background Colors
Click the actual form, and look at the Object Inspector.
The picture basically tells you everything.
Other Tutorials
Here are some tutorials that other members of the forum have made about forums. They are very useful.
Form during script runtime
Forms with a scroll bar
Click here to learn how to make forms with Menus.
If you want to learn how to make borderless and forms without a title bar click here.
This is currently all I have done. Feedback appreciated!
Welcome to my forms tutorial. What is a form? A form is basically a user-friendly interface where anyone can setup your script.
This tutorial will be divided in 4 different chapters.
Table of Contents
Chapter 1 - Creating the form
Chapter 2 - Using the form in your scripts
Chapter 3 - Making the forms do other things UNDER CONSTRUCTION
Chapter 4 - Making the forms look good UNDER CONSTRUCTION
Chapter 1 - Creating the form
Overview
In this chapter, we will be learning how to use the form editor, and also how to create a basic form. The form that we will be creating will save a username and a password. You will learn: Labels, Buttons, Edit boxes, and general form stuff.
Getting started
Now lets open the form editor shall we? In SCAR, go to Tools > Form Editor. 3 different menus/boxes should appear. Lets get started with the first and easiest step. Creating the labels.
Labels
Click on the A that is in the red circle:
Now click anywhere in the biggest box, that is named "frmDesign". Some text should show up, it should say "Label1". Now shift your interest to the box that we havn't examined yet, the long and skinny one. This next picture should explain everything.*Note: In order for the options to change, after you edit one of the options, you must then click somewhere in the "Object Inspector".Those are the most important things that you should know. If you want, you can fiddle around with other settings. If you want to move the label, just click on it and drag it anywhere you want. If you want to change the size of the form, click on a corner of "frmDesign" and make the size whatever you want.
Create another Label called "Password". Your form should look something like this:
Edit Boxes
Now that we have created some labels, we need edit boxes so that the user will be able to input something. Click on the box to the right of the Label one and make a click next to the Username and Password box.
You can change the Text to whatever you want, or you can remove it completely. Change the Name to "UserEdit" for the box next to the Username label, and "PassEdit" next to the Password label. Scroll down, and change the width of the boxes if you want. It will look better, but remember not to make them to small! I made mine 70pixels in width. You can also change the "Hints". Whatever you put into the "Hint" box, will show up if the user moves his crusor over the Edit box. My hints say "Username here" and "Password here".Your form should look like this:Buttons
Yay Buttons! Exciting. Lets make a start button shall we? Find the box with "ok" written in it, in the Form Designer box.
Once again, change the Caption to Start, and change the Name to StartButton. If you want, you can change the height and the width to, will look sexy. I changed the height to 20, and the width to 50. My form looks like this:Form Stuff
Now click click anywhere on the form(except the buttons, edit boxes or labels) and change the caption to what you want. I changed mine to "Username and Password". You can fiddle around with the options, and change the color if you want, but I didn't. Finished product should look like this:
Save the form by clicking the Save icon.
Chapter 2 - Using the form in your script
Overview
In this chapter, we will be learning how to put the form that we have made into your script. You will learn: form procedures, form setup.
Getting started
Lets convert the form that we have just made to text. In SCAR, do to Tools > Load DFM Form. Open the form that you just saved. In the debug box, you should see alot of text. Put everything under "//Add these objects to variable declarations" into your vars section of the script.
var
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
UserEdit : TEdit;
PassEdit : TEdit;
StartButton : TButton;program new;
var
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
UserEdit : TEdit;
PassEdit : TEdit;
StartButton : TButton;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 275;
frmDesign.Top := 122;
frmDesign.Width := 350;
frmDesign.Height := 243;
frmDesign.Caption := 'Username and Password';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := True;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 53;
Label1.Top := 71;
Label1.Width := 48;
Label1.Height := 13;
Label1.Caption := 'Username';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 53;
Label2.Top := 92;
Label2.Width := 46;
Label2.Height := 13;
Label2.Caption := 'Password';
UserEdit := TEdit.Create(frmDesign);
UserEdit.Parent := frmDesign;
UserEdit.Left := 113;
UserEdit.Top := 68;
UserEdit.Width := 70;
UserEdit.Height := 21;
UserEdit.Hint := 'Username here';
UserEdit.ParentShowHint := False;
UserEdit.ShowHint := True;
UserEdit.TabOrder := 8;
PassEdit := TEdit.Create(frmDesign);
PassEdit.Parent := frmDesign;
PassEdit.Left := 113;
PassEdit.Top := 93;
PassEdit.Width := 70;
PassEdit.Height := 21;
PassEdit.Hint := 'Password here';
PassEdit.ParentShowHint := False;
PassEdit.ShowHint := True;
PassEdit.TabOrder := 9;
StartButton := TButton.Create(frmDesign);
StartButton.Parent := frmDesign;
StartButton.Left := 112;
StartButton.Top := 155;
StartButton.Width := 50;
StartButton.Height := 20;
StartButton.Caption := 'Start';
StartButton.TabOrder := 10;
end;
begin
end.Now we will add 3 more procedures. They are needed to make sure that the form works properly:
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;Add these lines to the main loop.
SafeInitForm;
SafeShowFormModal;frmDesign.Visible := True;frmDesign.Visible := False;They will make the form show up.
Making the form do something
You should have this code:
program new;
var
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
UserEdit : TEdit;
PassEdit : TEdit;
StartButton : TButton;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 275;
frmDesign.Top := 122;
frmDesign.Width := 350;
frmDesign.Height := 243;
frmDesign.Caption := 'Username and Password';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 53;
Label1.Top := 71;
Label1.Width := 48;
Label1.Height := 13;
Label1.Caption := 'Username';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 53;
Label2.Top := 92;
Label2.Width := 46;
Label2.Height := 13;
Label2.Caption := 'Password';
UserEdit := TEdit.Create(frmDesign);
UserEdit.Parent := frmDesign;
UserEdit.Left := 113;
UserEdit.Top := 68;
UserEdit.Width := 70;
UserEdit.Height := 21;
UserEdit.Hint := 'Username here';
UserEdit.ParentShowHint := False;
UserEdit.ShowHint := True;
UserEdit.TabOrder := 8;
PassEdit := TEdit.Create(frmDesign);
PassEdit.Parent := frmDesign;
PassEdit.Left := 113;
PassEdit.Top := 93;
PassEdit.Width := 70;
PassEdit.Height := 21;
PassEdit.Hint := 'Password here';
PassEdit.ParentShowHint := False;
PassEdit.ShowHint := True;
PassEdit.TabOrder := 9;
StartButton := TButton.Create(frmDesign);
StartButton.Parent := frmDesign;
StartButton.Left := 112;
StartButton.Top := 155;
StartButton.Width := 50;
StartButton.Height := 20;
StartButton.Caption := 'Start';
StartButton.TabOrder := 10;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
begin
SafeInitForm;
SafeShowFormModal;
end.StartButton := TButton.Create(frmDesign);
StartButton.Parent := frmDesign;
StartButton.Left := 112;
StartButton.Top := 155;
StartButton.Width := 50;
StartButton.Height := 20;
StartButton.Caption := 'Start';
StartButton.TabOrder := 10;and add
StartButton.OnClick := @StartClick;What that does, is calls out the procedure called "StartClick" when you click the start button. Lets make that procedure shall we? Above the procedure "InitForm", create the procedure named "StartClick"
procedure StartClick(sender: TObject);
begin
Writeln('Hello world');
frmDesign.ModalResult:= mrOk; // Closes the form
end;Your script should now look something like this:
program new;
var
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
UserEdit : TEdit;
PassEdit : TEdit;
StartButton : TButton;
procedure StartClick(sender: TObject);
begin
Writeln('Hello world');
frmDesign.ModalResult:= mrOk; // Closes the form
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 275;
frmDesign.Top := 122;
frmDesign.Width := 350;
frmDesign.Height := 243;
frmDesign.Caption := 'Username and Password';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 53;
Label1.Top := 71;
Label1.Width := 48;
Label1.Height := 13;
Label1.Caption := 'Username';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 53;
Label2.Top := 92;
Label2.Width := 46;
Label2.Height := 13;
Label2.Caption := 'Password';
UserEdit := TEdit.Create(frmDesign);
UserEdit.Parent := frmDesign;
UserEdit.Left := 113;
UserEdit.Top := 68;
UserEdit.Width := 70;
UserEdit.Height := 21;
UserEdit.Hint := 'Username here';
UserEdit.ParentShowHint := False;
UserEdit.ShowHint := True;
UserEdit.TabOrder := 8;
PassEdit := TEdit.Create(frmDesign);
PassEdit.Parent := frmDesign;
PassEdit.Left := 113;
PassEdit.Top := 93;
PassEdit.Width := 70;
PassEdit.Height := 21;
PassEdit.Hint := 'Password here';
PassEdit.ParentShowHint := False;
PassEdit.ShowHint := True;
PassEdit.TabOrder := 9;
StartButton := TButton.Create(frmDesign);
StartButton.Parent := frmDesign;
StartButton.OnClick := @StartClick;
StartButton.Left := 112;
StartButton.Top := 155;
StartButton.Width := 50;
StartButton.Height := 20;
StartButton.Caption := 'Start';
StartButton.TabOrder := 10;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
begin
SafeInitForm;
SafeShowFormModal;
end.Username, Password : String; Username := UserEdit.Text;
Password := PassEdit.Text;If you want to text this out, add
WriteLn('Username = ' + Username);
Writeln('Password = ' + Password);Woot. You have just created a form :) My final script looks like this:
program new;
var
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
UserEdit : TEdit;
PassEdit : TEdit;
StartButton : TButton;
Username, Password : String;
procedure StartClick(sender: TObject);
begin
Writeln('Hello world');
Username := UserEdit.Text;
Password := PassEdit.Text;
WriteLn('Username = ' + Username);
Writeln('Password = ' + Password);
frmDesign.ModalResult:= mrOk; // Closes the form
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 275;
frmDesign.Top := 122;
frmDesign.Width := 350;
frmDesign.Height := 243;
frmDesign.Caption := 'Username and Password';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 53;
Label1.Top := 71;
Label1.Width := 48;
Label1.Height := 13;
Label1.Caption := 'Username';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 53;
Label2.Top := 92;
Label2.Width := 46;
Label2.Height := 13;
Label2.Caption := 'Password';
UserEdit := TEdit.Create(frmDesign);
UserEdit.Parent := frmDesign;
UserEdit.Left := 113;
UserEdit.Top := 68;
UserEdit.Width := 70;
UserEdit.Height := 21;
UserEdit.Hint := 'Username here';
UserEdit.ParentShowHint := False;
UserEdit.ShowHint := True;
UserEdit.TabOrder := 8;
PassEdit := TEdit.Create(frmDesign);
PassEdit.Parent := frmDesign;
PassEdit.Left := 113;
PassEdit.Top := 93;
PassEdit.Width := 70;
PassEdit.Height := 21;
PassEdit.Hint := 'Password here';
PassEdit.ParentShowHint := False;
PassEdit.ShowHint := True;
PassEdit.TabOrder := 9;
StartButton := TButton.Create(frmDesign);
StartButton.Parent := frmDesign;
StartButton.OnClick := @StartClick;
StartButton.Left := 112;
StartButton.Top := 155;
StartButton.Width := 50;
StartButton.Height := 20;
StartButton.Caption := 'Start';
StartButton.TabOrder := 10;
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
begin
SafeInitForm;
SafeShowFormModal;
end.Chapter 3 - Making the forms do other things
Overview
In this chapter, we will be learning more advanced stuff about your form. You will learn: combo boxes, check boxes, implementing them into your script, and saving form settings to a file.
Getting started
First of all, we need to open the form editor and then open the form we created in Chapter 1. Shift your attention to the "Form Designer again" Click on the red circle.
Combo box
Now, lets create a Combo box, shall we? Click on the combo box icon then click an empty place under the Password label. You may change the Text and width settings to your liking. My text now says "Tim FTW?", my name is "FTWCombo". My form now looks like this.
Now lets add options. Find where it says "Items" and in the column next to it "(Tstrings)".Click there, and a new box should show up. I added two lines in that box, True and False.When your done, click OK. Save your form.Implementing the combo box into your script
As we did before, load the form by doing to Tools > Load DFM form. Once again post the variables that show up in the variables section of your script(don't forget to add Username and Password to var's as a string!), and the rest into a procedure called InitForm. Also, add the StartClick procedure that we made earlier, and add
StartButton.OnClick := @StartClick; frmDesign.Visible := True; frmDesign.Visible := False;program new;
var
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
UserEdit : TEdit;
PassEdit : TEdit;
StartButton : TButton;
FTWCombo : TComboBox;
Username, Password : String;
procedure StartClick(sender: TObject);
begin
Writeln('Hello world');
Username := UserEdit.Text;
Password := PassEdit.Text;
WriteLn('Username = ' + Username);
Writeln('Password = ' + Password);
frmDesign.ModalResult:= mrOk; // Closes the form
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 275;
frmDesign.Top := 122;
frmDesign.Width := 350;
frmDesign.Height := 243;
frmDesign.Caption := 'Username and Password';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 53;
Label1.Top := 71;
Label1.Width := 48;
Label1.Height := 13;
Label1.Caption := 'Username';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 53;
Label2.Top := 92;
Label2.Width := 46;
Label2.Height := 13;
Label2.Caption := 'Password';
UserEdit := TEdit.Create(frmDesign);
UserEdit.Parent := frmDesign;
UserEdit.Left := 113;
UserEdit.Top := 68;
UserEdit.Width := 70;
UserEdit.Height := 21;
UserEdit.Hint := 'Username here';
UserEdit.ParentShowHint := False;
UserEdit.ShowHint := True;
UserEdit.TabOrder := 8;
PassEdit := TEdit.Create(frmDesign);
PassEdit.Parent := frmDesign;
PassEdit.Left := 113;
PassEdit.Top := 93;
PassEdit.Width := 70;
PassEdit.Height := 21;
PassEdit.Hint := 'Password here';
PassEdit.ParentShowHint := False;
PassEdit.ShowHint := True;
PassEdit.TabOrder := 9;
StartButton := TButton.Create(frmDesign);
StartButton.Parent := frmDesign;
StartButton.OnClick := @StartClick;
StartButton.Left := 112;
StartButton.Top := 155;
StartButton.Width := 50;
StartButton.Height := 20;
StartButton.Caption := 'Start';
StartButton.TabOrder := 10;
FTWCombo := TComboBox.Create(frmDesign);
FTWCombo.Parent := frmDesign;
FTWCombo.Left := 69;
FTWCombo.Top := 123;
FTWCombo.Width := 145;
FTWCombot.Height := 21;
FTWCombo.ItemHeight := 13;
FTWCombo.TabOrder := 11;
FTWCombo.Text := 'Tim FTW?';
FTWCombo.Items.Add('True');
FTWCombo.Items.Add('False');
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
begin
SafeInitForm;
SafeShowFormModal;
end.Now lets edit the StartClick procedure some more so that the Combo box actually does something. Lets add a variable called "Ftw". Make it a Boolean variable. Now in the StartClick procedure, add this line:
Ftw:=StrToBool(FtwCombo.text);
if(Ftw) then
WriteLn('Booya, combo boxes rule(so does Tim)')
else
WriteLn('False?! I RULE');
program new;
var
frmDesign : TForm;
Label1 : TLabel;
Label2 : TLabel;
UserEdit : TEdit;
PassEdit : TEdit;
StartButton : TButton;
FTWCombo : TComboBox;
Username, Password : String;
Ftw : Boolean;
procedure StartClick(sender: TObject);
begin
Writeln('Hello world');
Username := UserEdit.Text;
Password := PassEdit.Text;
Ftw:=StrToBool(FtwCombo.text);
WriteLn('Username = ' + Username);
Writeln('Password = ' + Password);
frmDesign.ModalResult:= mrOk; // Closes the form
end;
procedure InitForm;
begin
frmDesign := CreateForm;
frmDesign.Left := 275;
frmDesign.Top := 122;
frmDesign.Width := 350;
frmDesign.Height := 243;
frmDesign.Caption := 'Username and Password';
frmDesign.Color := clBtnFace;
frmDesign.Font.Color := clWindowText;
frmDesign.Font.Height := -11;
frmDesign.Font.Name := 'MS Sans Serif';
frmDesign.Font.Style := [];
frmDesign.Visible := False;
frmDesign.PixelsPerInch := 96;
Label1 := TLabel.Create(frmDesign);
Label1.Parent := frmDesign;
Label1.Left := 53;
Label1.Top := 71;
Label1.Width := 48;
Label1.Height := 13;
Label1.Caption := 'Username';
Label2 := TLabel.Create(frmDesign);
Label2.Parent := frmDesign;
Label2.Left := 53;
Label2.Top := 92;
Label2.Width := 46;
Label2.Height := 13;
Label2.Caption := 'Password';
UserEdit := TEdit.Create(frmDesign);
UserEdit.Parent := frmDesign;
UserEdit.Left := 113;
UserEdit.Top := 68;
UserEdit.Width := 70;
UserEdit.Height := 21;
UserEdit.Hint := 'Username here';
UserEdit.ParentShowHint := False;
UserEdit.ShowHint := True;
UserEdit.TabOrder := 8;
PassEdit := TEdit.Create(frmDesign);
PassEdit.Parent := frmDesign;
PassEdit.Left := 113;
PassEdit.Top := 93;
PassEdit.Width := 70;
PassEdit.Height := 21;
PassEdit.Hint := 'Password here';
PassEdit.ParentShowHint := False;
PassEdit.ShowHint := True;
PassEdit.TabOrder := 9;
StartButton := TButton.Create(frmDesign);
StartButton.Parent := frmDesign;
StartButton.OnClick := @StartClick;
StartButton.Left := 112;
StartButton.Top := 155;
StartButton.Width := 50;
StartButton.Height := 20;
StartButton.Caption := 'Start';
StartButton.TabOrder := 10;
FTWCombo := TComboBox.Create(frmDesign);
FTWCombo.Parent := frmDesign;
FTWCombo.Left := 69;
FTWCombo.Top := 123;
FTWCombo.Width := 145;
FTWCombo.Height := 21;
FTWCombo.ItemHeight := 13;
FTWCombo.TabOrder := 11;
FTWCombo.Text := 'Tim FTW?';
FTWCombo.Items.Add('True');
FTWCombo.Items.Add('False');
end;
procedure SafeInitForm;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('InitForm', v);
end;
procedure ShowFormModal;
begin
frmDesign.ShowModal;
end;
procedure SafeShowFormModal;
var
v: TVariantArray;
begin
setarraylength(V, 0);
ThreadSafeCall('ShowFormModal', v);
end;
begin
SafeInitForm;
SafeShowFormModal;
if(Ftw) then
WriteLn('Booya, combo boxes rule(so does Tim)')
else
WriteLn('False?! I RULE');
end.Chapter 4 - Making the forms look good
Overview
In this chapter, we will be learning how to make your form look nice and sexy(:p). You will learn: adding colors and images.
Getting started
Well, lets start with images. Open up a form, or make one.
UNDER CONSTRUCTION
Background Colors
Click the actual form, and look at the Object Inspector.
The picture basically tells you everything. Other Tutorials
Here are some tutorials that other members of the forum have made about forums. They are very useful.
Form during script runtime
Forms with a scroll bar
Click here to learn how to make forms with Menus.
If you want to learn how to make borderless and forms without a title bar click here.
This is currently all I have done. Feedback appreciated!