Run only = protect AppleScript

To protect our AppleScript against copy or edit we must save it with Run only option checked. So if your AppleScript is ready to rock Compile it and then go to File -> Save As… and like on the screenshot select the Run only option and save the file. Now when you will use it in your REALbasic application everything will work as you think, but if someone will want to preview your AppleScript he will get a message that this is impossible. Hope you like this tip and see you next time!

Full Screen Mode in REALbasic

To activate the full screen mode in REALbasic we must do few thing. First we should disable the Resizable Property of the Window Class. Go to GUI Builder and in Window1 Property and Value panel change Resizable to false. Now for example add a PushButton Control to Window1 and capy and paste this code into Sub Action ():

1
2

self.FullScreen = not self.FullScreen //enter full screen mode
self.MenuBarVisible = not self.FullScreen //show and hide menu bar

Comment and Uncomment code

To comment code in REALbasic you can use marks like // or ‘ but this can be tiring when we must comment 30 lines of code. To make this 100 x faster we can select the code and click on Comment button. This works exact the same when it goes about Uncommenting the code.

Speed up solution

The solution for increasing the speed of some actions made in REALbasic controls is practically easy. We will use our Listbox Control example. REALbasic redraws the Listbox each time we AddRow to our control. To make it 5-7 times faster we must hide it for the time of using loop for i = 1 to 1000000. And this works!

1
2
3
4
5
6
7
8

Dim i As Integer
 
Listbox1.Visible = false
 
for i = 1 to 1000000
    Listbox1.AddRow Str(i)
next
    Listbox1.Visible = true

me. example

For code below in TextArea Sub SelChange()

1
2
3
4
5
6
7

Dim White, Black as Color
 
White = RGB(255,255,255)
Black = RGB(0,0,0)
if TextArea1.SelTextColor = White then
TextArea1.SelTextColor = Black
end if

you can write

1
2
3
4
5
6
7

Dim White, Black as Color
 
White = RGB(255,255,255)
Black = RGB(0,0,0)
if me.SelTextColor = White then
me.SelTextColor = Black
end if