Creating the GUI for text suggestion during typing

Add to Window1 one TextField Control and two Static Text Controls. Change the StaticText1 Text Property to value “Suggestion:”. Now we will put some code to make everything work

Coding a text suggestion function during typing

Go to REALbasic code editor and in TextField1 Sub TextChange enter the code below. If you like you can also add to StaticText2 Function MouseDown code TextField1.Text = me.Text that will after clicking on StaticText2 change the TextField1.Text to StaticText2.Text.

Creating the GUI

Insert to Window Class one TextArea Control and 3 x PushButton Control. Here is my example of GUI look for this application. You can make it the same or insert the controls where you like.

Save text to file

To save all text available in TextArea to text file insert to PushButton1 Sub Open() this code. Please have in mind that you can save the file without interacting with user for example: f = GetFolderItem(“textfile.txt”)

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Dim t As TextOutputStream
Dim f As FolderItem
Dim dlg As SaveAsDialog
 
dlg = New SaveAsDialog 
 
f = dlg.ShowModal() // open save as dialog for entering the file name and selecting location to save
 
if f < > nil then // f different from nil
    t = f.CreateTextFile // create file in selected location
    t.Write (TextArea1.Text) // write date from TextArea to file
    t.Close // close file
else
    // user cancelled
end if

Open text from file

To open a text file and load it content to TextArea Control use this code in PushButton2 Sub Open().

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15

Dim t As TextInputStream
Dim f As FolderItem
Dim dlg As OpenDialog
 
dlg = New OpenDialog 
 
f = dlg.ShowModal() // open open dialog for selecting a file to load
 
if f < > nil then // f different from nil
    t = f.OpenAsTextFile // open selected text file
    TextArea1.Text = t.ReadAll // read data from text file into TextArea control
    t.Close // close the file
else
    // user cancelled
end if

Convert text encoding

When you need to write text to a file that will be opened by other application that expects a particular encoding, you should convert the encoding before you call the Write method. You can do this by using ConvertEncoding function. Look on this example that converts the text from a TextArea1 to the UTF8 encoding. Code from PushButton3 Sub Open().

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17

Dim t As TextOutputStream
Dim f As FolderItem
Dim dlg As SaveAsDialog
Dim s As String
 
dlg = New SaveAsDialog 
 
f = dlg.ShowModal() // open save as dialog for entering the file name and selecting location to save
 
if f < > nil then // f different from nil
    t = f.CreateTextFile // create file in selected location
    s = ConvertEncoding(TextArea1.Text, Encodings.UTF8) // convert encoding to UTF8
    t.Write (s) // write date from string to file
    t.Close // close file
else
    // user cancelled
end if

BinaryStream Class

BinaryStream objects are used to read and write data to and from a binary file. The benefit of using BinaryStreams rather than text streams is that you can read from and write to any position in the file. Text files must be read sequentially from the start to the end. On Windows and Macintosh only, BinaryStream objects can work with files larger than 2 gigabytes. This example reads each pair of bytes from a file and writes them in reverse order to a new file. The user chooses the source file using the Open-file dialog box and saves the new file using the Save as dialog box

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20

Dim WriteToFile as BinaryStream
Dim ReadFromFile as BinaryStream
Dim f as FolderItem
 
f = GetOpenFolderItem("text")
 
if f < > nil then // if f different nil then
ReadFromFile = BinaryStream.Open (f,False)
ReadFromFile.littleEndian = True
f = GetSaveFolderItem ("","")
 
if f < > nil then // if f different nil then
WriteToFile = BinaryStream.Create (f,False)
while not ReadFromFile.EOF
WriteToFile.WriteShort ReadFromFile.ReadShort
wend
WriteToFile.Close
end if
ReadFromFile.Close
end if

Creating the GUI

We will use today a StaticText, TextArea and Canvas control to create our GUI. Simply drag and drop this controls to Window1 so they will be placed to something similar to the picture below.

Drag and drop controls

The firs thing we will do in this tutorial is dragging a StaticText control to TextArea control and displaying in it StaticText1.Text. To do this go to StaticText1 Function MouseDown () and use this code.

1
2
3
4
5

Dim d As DragItem
 
d = NewDragItem(me.left,me.top,me.width,me.height)
d.text = me.text
d.drag

Now you can drag and drop StaticText to TextArea control. Isn’t this easy or what?

Drag and drop text file from desktop into TextArea

In this part of tutorial we will learn how can we drag and drop text file from desktop to our REALbasic application. In this case we will use TextArea control as a object into we will drag and drop text file and display all content in it available. Firs go to Project tab and add new File type set and as Display Name type special/any.

Next go to code editor and in TextArea1 Sub Open () enter code… Of course you can be more detailed by allowing only a specify format for drag and drop in this control.

1

me.AcceptFileDrop("special/any")

We will create a Drag and drop event in TextArea1 Sub DropObject ()

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18

Dim text As TextInputStream
Dim f As FolderItem
 
do
   if obj.FolderItemAvailable then
 
    f = obj.FolderItem
 
      if f < >  Nil then // f various Nil
        text =  f.OpenAsTextFile
        TextArea1.Text = text.ReadAll
        text.close
    else
        //User Cancelled
    end if
 
  end if
loop until not obj.NextItem

As you can imagine if you will now drag and drop a text file to this control it will read and display the text inside the text file.

Drag and drop image file from desktop into Canvas

Getting a picture or graphic from desktop (or should say from hard drive) into Canvas using drag and drop method is similar to previous paragraph. Go to code editor and in Canvas1 Sub Open () enter code:

1

me.AcceptFileDrop("special/any")

Create a Drag and drop event in Canvas1 Sub DropObject ()

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

Dim f As FolderItem
Dim p As Picture
 
do
  if obj.FolderItemAvailable then
    f = obj.FolderItem
 
    if f < >  Nil then // f various Nil
        p = f.OpenAsPicture  // load picture to memory
        Canvas1.Backdrop = p // load image from memory to canvas
    else
        //User Cancelled
    end if
 
  end if
loop until not obj.NextItem

If you like you can add to this project some image manipulation techniques like fit to canvas, crop etc. from tutorial Creating ImageViewer in REALbasic. See you next time!

Adding text to a TextArea

Add to the Window PushButton Control and double click on it. Then enter there the code below. It’s simply like in TextField.

1

TextArea.Text = "REALbasic City sample text"

Reading text from a TextArea

Reading the content from TextArea is extreme easy like this s = TextArea.Text. Here you got a example that shows Message Box:

1
2
3
4
5
6
7

Dim s As String
Dim d as New MessageDialog //declare the MessageDialog object
Dim b as MessageDialogButton //handling the result
 
s = TextArea.Text
d.Message = s
b = d.ShowModal

Changing selected text in TextArea

Every text editor has a option to change the style of the text. Here you can look how you can simple change the selected text in TextArea control to new color and new font with bold style. Add the code to PushButton Sub Action()

1
2
3
4
5
6
7

Dim Black As Color
 
Black = RGB(0,0,0)
 
TextArea.SelTextFont = "Arial"
TextArea.SelBold = true
TextArea.SelTextColor = Black

Changing string with TextArea

We can also change the text in string ex. by finding the word or by putting the cursor on indicated line. We will change the word “my” form text string by putting the cursor on 8 position and changing the next 2 letters to bold and red color.

1
2
3
4
5
6
7
8

Dim text As String
 
text = "This is my string"
 
TextArea.StyledText.Text = text
 
TextArea.StyledText.Bold( 8, 2 ) = true
TextArea.StyledText.TextColor( 8, 2 ) = &cFF0020

Using Mask

Simply select TextArea in GUI builder Tab and then in Property and Value find Behavior -> Mask and place there ex. ###-##-####. You can also add a code in TextArea Sub Open(). Go to Window1 code editor Controls -> TextArea -> Open.

1
2

TextArea.Mask = "###-##-####" //US Social Security number
TextArea.Mask = "(###) ###-####" //US Phone number, with area code

Mask Character in TextArea

# – The single digit placeholder. Entry optional. If this position is left blank in the mask, it will be rendered as a space. Plus and minus signs are allowed. The user can type only a digit character in this position.
. – Decimal placeholder. The decimal placeholder that is actually used is specified in the user’s International settings. The character is treated as a literal (formatting) character for masking purposes.
, – Thousands separator. The thousands separator that is actually used is specified in the user’s International settings. The character is treated as a literal (formatting) character for masking purposes.
: – Time separator. The time separator that is actually used is specified in the user’s International settings. The character is treated as a literal (formatting) character for masking purposes.
/ – Date separator. The date separator that is actually used is specified in the user’s International settings. The character is treated as a literal (formatting) character for masking purposes.
\ – Mask escape character. Treat the next character in the mask as a literal. The escape character enables you to use the ‘#’, ‘&’, ‘A’, ‘?’ (and so on) characters in the mask. The escapted character is treated as a literal (formatting) character.
& Character or space placeholder. Valid values are the ASCII characters 32-126 and the non-ASCII characters 128-255.
C – Character or space placeholder, where entry is optional. It operates like the ‘&’ placeholder.
> – Convert all the characters that follow to uppercase. Uppercasing works beyond the ASCII range where appropriate, e.g., ü becomes Ü.
< – Convert all the characters that follow to lowercase. Lowercasing works beyond the ASCII range where appropriate, e.g., Ü becomes ü.
A – Alphanumeric character placeholder, where entry is mandatory.
For example, the spec “AAA” specifies three alphanumeric characters.
a -Alphanumeric character placeholder, where entry is optional.
0 – Any single digit between 0 and 9. Entry is required.
9 – Digit or space where entry is optional.
? – Alphabetic placeholder. Entry is optional.
L – Alphabetic placeholder. Entry is required. Any literal. All other symbols are displayed as literals for formatting purposes.
~ – Reserved for future use. If you use “~” it will trigger an exception error. Use \~ instead.

Using TextArea Property and Value

When you select TextArea in GUI builder you can change some Property and Value for this control. We have got there position properties (width, height), appearance (text color, border), font (text size, text font), initial state (default text), behaviors (mask, read only) or database binding. Please play with them for a wile to understand what is happening when you change the values.