Mac OS X Search Field

Before we start this tutorial I like to show you a Class named Mac OS X Search Field. The Rounded Search field is a very standard user interface element in Mac OS X. This class brings the true HISearchField to REALbasic. Mac OS X Search Field Class supports the full range of search field features, such as live search, search menu, and cancel button, but there is one problem… it’s using Cocoa declarations and it’s only available for Mac users. If you like to try it you can visit The ZAZ Studios website.

Creating search control in REALbasic

Creating ProgressBar for REALbasic

We will start this tutorial with adding to Window1 Class a Canvas Control. Now in it Sub Paint () event enter the code below. This will draw a frame of our rectangle when the application will start.

1
2

g.ForeColor = RGB(135,136,162) //set the color
g.DrawRect (0,0,me.Width,me.Height) //draw the frame

Displaying the progress in our ProgressBar Control

This is the most important part of Creating custom progressbar in REALbasic tutorial. We will display visually the progress in our progress bar control. Copy and paste this code for example to the Canvas1 Sub Open ().

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

Dim i, v, progressvalue As Integer
Dim steep As Double
Dim g As Graphics
 
v = 2000 //the final value of progress
steep = Canvas1.Width / v //getting the size of one steep
 
for i = 0 to v //get the actual progress value
 
    App.DoEvents(2) //pause for 2 ms
 
    Canvas1.Graphics.ForeColor = RGB(237,237,237) // fixing a bug with wrong drawing string
    Canvas1.Graphics.FillRect (Canvas1.Width /2 - 10,1, 30, Canvas1.Height) //draw a fill rectangle for progress text
 
    Canvas1.Graphics.ForeColor = RGB(231,121,23) //set the color
    Canvas1.Graphics.FillRect (0,2, (steep * i), Canvas1.Height-4)  //draw the progress
 
    progressvalue = i * 100 / v //get the progress value for text display
    Canvas1.Graphics.ForeColor = RGB(50,50,50) //set the color
    Canvas1.Graphics.DrawString (Str(progressvalue) + " %", Canvas1.Width /2 - 10,16) // drawing the progress string in center of ProgressBra Control
 
    Canvas1.Graphics.ForeColor = RGB(135,136,162) //set the color
    Canvas1.Graphics.DrawRect (0,0,Canvas1.Width,Canvas1.Height) //draw the frame 
 
next

Download

Changing ProgressBar value

If we like change a ProgressBar Control value to 50% we simply use this code. The default ProgressBar.Maximum is 100 so a half from this is 50.

1

ProgressBar1.Value = 50

HTMLViewer page load progress

More practical example for using ProgressBar Control is displaying a page load progress from HTMLViewer control. To do this go to code editor and in HTMLViewer Sub DocumentProgressChanged (URL As String, percentageComplete As Integer) enter:

1

ProgressBar1.Value = percentageComplete

Barber pole

To display a barber pole set the maximum property to 0.

1

ProgressBar1.Maximum = 0

FTC Features

* Four display modes including page, normal, edit, and single
* RTF support including picture support
* A full range of paragraph and character styles
* Picture support
* Custom object support for adding application specific items
* Built in undo management
* Many customization options to adapt the FTC to your application
* Highly optimized code written in REALbasic for maximum flexibility

More informations

Formatted Text Control for REALbasic home page
Download Formatted Text Control Demo

The standard license is priced at $30 and the professional license at $150 (prices in US dollars).

List of AppleListbox control features

Hierarchical structure. Use the AppleListbox to manage tree structures with nodes that remember their state when collapsed.

New items. Do you like the way that Apple Mail tells you how many new items are in your inbox? If so, AppleListbox can provide this functionality.

Eject buttons. Add an eject button to a node in the listbox and the AppleListbox provides events to tell you when it is clicked and when the mouse hovers over it.

Additonal button support. As well as providing an eject button, the AppleListbox provides the iTunes ‘iMix’ button and the Apple Mail ’show in inbox’ button – all with full event support.

Drag reordering. Want to rearrange items in the listbox? No worries. AppleListbox handles the reordering of items for you and provides ways for you to restrain what can and cannot be reordered.

More informations

Figa Software: AppleListbox
A stand-alone demo version of the AppleListbox

ListBox Control Setup

Add to your Window ListBox Control and set the DefaultRowHeight property value to 32. Next prepare a 32×32 picture (called tutspolis) and drag it to your Project Tab.

Adding text to ListBox control

In code editor go to ListBox Sub Open () and insert this code:

1
2
3
4
5
6
7
8
9
10

Dim i As Integer
 
for i = 1 to 5
  ListBox1.AddFolder "REALbasic City"
  ListBox1.Cell(Me.LastIndex, 1) = "F"
  ListBox1.AddFolder "REALbasic City 2"
  ListBox1.Cell(Me.LastIndex, 1) = "F"
next
 
 Me.ColumnAlignmentOffset(0)= 35

Drawing a graphic in ListBox

In REALbasic code editor go to ListBox Function CellTextPaint () and use this code:

1
2
3
4
5
6
7

if column = 0 then
  if Me.cell(row,1) = "F" then
     g.DrawPicture(tutspolis,2,2)
  else
     g.DrawString "Fake Line", 29,9
   end if
end if

ListBox DoubleClick event

Using this code in the ListBox Sub DoubleClick () event you can get the string, number of the cell, row that was double-clicked.

1
2
3
4
5
6

Dim row, column As Integer
 
row=Me.RowFromXY(System.MouseX - Me.Left - Self.Left, System.MouseY - Me.Top - Self.Top)
column=Me.ColumnFromXY(System.MouseX - Me.Left - Self.Left, System.MouseY - Me.Top - Self.Top)
 
MsgBox "You double-clicked on "+ Me.list(row)

HTMLViewer with WebKit engine on Linux

HTMLViewer use default libgtkhtml library to render HTML on Linux… but there is a option to use WebKit. To do this simply install on your system libwebkit-1.0-1. If you like you can make a class that will install this library automatically.

Creating one line browser in REALbasic

To create a our web browser add to the Window HTMLViewer control. Set its LockLeft, LockTop, LockRight, and LockBottom properties so that it resizes as the user resizes the window. Now add a PushButton control and insert the code:

1

HTMLViewer1.LoadURL(http://tutspolis.com)

Opening link in new Window

If you like to have a option to open a link in new window add to HTMLViewer Function NewWindow() in code editor this code.

1
2
3
4
5

 Dim w as New Window1 //name of Window where is our HTMLViewer control
 
 Title = "new Window" //title property of new window
 w.Show //show the window
 Return w.HTMLViewer1 //render html

Page load progress in ProgresBar control

HTMLViewer can easy display the progress of page loading in ProgresBar control. You can make this using few lines of code in HTMLViewer Sub DocumentProgressChanged.

1
2
3
4
5
6

if percentageComplete = -1 then //if it cannot be determined
ProgressBar1.Maximum = 0 //display indeterminate progress
else
ProgressBar1.Maximum = 100
end if
ProgressBar1.Value = percentageComplete

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.

Adding text to a TextField

For example add to the Window PushButton Control and double click on it (at a glance PushButton Sub Action()). Then enter there the code below:

1

TextField.Text = "REALbasic City sample text"

Reading text from a TextField

Reading the content from TextField is extreme easy like this s = TextField1.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 = TextField1.Text
d.Message=s
b=d.ShowModal

Using Mask

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

1
2

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

Mask Character in TextField

# – 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 TextField Property and Value

When you select TextField 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.