GUI Scripting Language the can see everything on the display screen?

Are there any GUI scripting languages that can see everything that is on the
display screen?

SBL generated code by the Form Designer
The Form DEsigner generates quite alot of code because a number of
properties are set for each object. You can load PROJFORM.SBP into the
Program Editor to view it or to print it.

See Form and Form Control Objects, page 127 Superbase Programming Guide.

It is as follows:

===== PROJFORM.SBP ==========

SUB main()
CALL PROJFORM()
END SUB

SUB PROJFORM():REM // original date11/17/94
DIM myform AS Form
DIM mypage AS Page
DIM mycontrol AS FormControl

IF Forms.Exists("ProjForm") THEN
Forms("ProjForm").Delete() // Evaluates initiation status
END IF


OPEN FILE SHARE "PROJECT"

SET myform = Forms.Add("ProjForm","Form") // this is a combined statement
DIM + SET
myform.ScaleMode = 3 // DIM myform as Form
myform.ShowExternals = 0 // SET myform = Forms.Add("formname","Form")
myform.AutoRedraw = 0
myform.Name = "ProjForm"
myform.FileName = "PROJFORM"
myform.AutoLocking = 0
myform.UserFocusChange = - 1

myform.DefVisible = - 1 // these are denotable as default values
myform.DefEnabled = - 1 // because of the Def
myform.DefForeColor = 8
myform.DefBackColor = 1
myform.DefBorderColor = 0
myform.DefBorderWidth = 0
myform.DefForePattern = 0
myform.DefStepWidth = 0
myform.DefBackVisible = - 1
myform.DefForeVisible = - 1
myform.DefBorderVisible = 0
myform.DefShadow = 0
myform.DefStretch = 0
myform.DefPrintable = - 1
myform.DefWindowsDefaults = 0
myform.DefViewStyle = 0
myform.DefAlignment = 0
myform.DefFontBold = 0
myform.DefFontItalic = 0
myform.DefFontUnderline = 0
myform.DefSectionH = 0
myform.DefSectionV = 0
myform.DefFontString = "System,10,1,1,0"

SET mypage = myform.Pages(1) // this is a second form page(1), no it is
not
mypage.BackVisible = - 1
mypage.BackColor = 0
mypage.Width = 8261
mypage.Height = 5021
mypage.Name = "Page1"
mypage.RefreshStyle = 1

SET mycontrol = myform.Add("BackgroundRectangle","Rectangle")
mycontrol.Move(0,0,8261,5021)

myform.DefForeColor = 1
myform.DefBackColor = 0
myform.DefBorderColor = 1
myform.DefBorderWidth = 1
myform.DefStepWidth = 3
myform.DefBackVisible = 0
myform.DefForeVisible = 0
myform.DefBorderVisible = - 1
SET mycontrol = myform.Add("CatRectangle","Rectangle")
mycontrol.Move(4500,948,2261,1000)

SET mycontrol = myform.Add("ContractRectangle","Rectangle")
mycontrol.Move(4500,2240,2511,1500)

SET mycontrol = myform.Add("ApprRectangle","Rectangle")
mycontrol.Move(53,3011,3895,1833)

myform.DefForeColor = 12
myform.DefBackColor = 1
myform.DefBorderColor = 0
myform.DefBorderWidth = 0
myform.DefStepWidth = 0
myform.DefBackVisible = - 1
myform.DefForeVisible = - 1
myform.DefBorderVisible = 0
SET mycontrol = myform.Add("TitleRectangle","Rectangle")
mycontrol.Move(0,0,8260,500)

myform.DefForeColor = 1
myform.DefBackColor = 8
myform.DefBorderWidth = 2
SET mycontrol = myform.Add("Line1","Line")
mycontrol.Move(0,500,8260,500)

myform.DefForeColor = 0
myform.DefBackColor = 4
myform.DefStepWidth = 2
myform.DefBackVisible = 0
myform.DefAlignment = 2
myform.DefFontString = "ARIAL,24,0,34,0"
SET mycontrol = myform.Add("FormTitleLabel","Label")
mycontrol.Move(1831,60,4599,412)
mycontrol.Caption = "Commissioned Projects"

myform.DefForeColor = 1
myform.DefBackColor = 8
myform.DefBackVisible = - 1
myform.DefAlignment = 0
myform.DefFontString = "ARIAL,10,0,34,0"
SET mycontrol = myform.Add("ProjNoLabel","Label")
mycontrol.Move(84,563,1187,198)
mycontrol.Caption = "Project Number"

myform.DefBorderColor = 8
myform.DefViewStyle = 2
SET mycontrol = myform.Add("ProjNoTextBox","TextBox")
mycontrol.Move(1167,563,511,198)
mycontrol.TabIndex = 1
mycontrol.OnKeyPress.Procedure = "CheckChar"
mycontrol.OnKeyPress.Mode = 2
mycontrol.ControlSource = "ProjectNo.PROJECT"

myform.DefViewStyle = 0
SET mycontrol = myform.Add("TitleLabel","Label")
mycontrol.Move(1823,563,417,187)
mycontrol.Caption = "Title"

myform.DefViewStyle = 2
SET mycontrol = myform.Add("TitleTextBox","TextBox")
mycontrol.Move(2115,563,3365,187)
mycontrol.TabIndex = 2
mycontrol.ControlSource = "Title.PROJECT"

SET mycontrol = myform.Add("SynopsisTextBox","TextBox")
mycontrol.Move(1480,1355,2687,1062)
mycontrol.TabIndex = 10
mycontrol.ControlSource = "Synopsis.PROJECT"

myform.DefViewStyle = 0
SET mycontrol = myform.Add("ProdCoLabel","Label")
mycontrol.Move(94,980,1271,166)
mycontrol.Caption = "Production Company"

SET mycontrol = myform.Add("CommEdLabel","Label")
mycontrol.Move(94,2584,1334,166)
mycontrol.Caption = "Commissioning Editor"

SET mycontrol = myform.Add("DateSubLabel","Label")
mycontrol.Move(5605,563,1187,198)
mycontrol.Caption = "Date Submitted"

myform.DefViewStyle = 2
SET mycontrol = myform.Add("DateSubTextBox","TextBox")
mycontrol.Move(6636,563,677,198)
mycontrol.TabIndex = 3
mycontrol.ControlSource = "DateSubmitted.PROJECT"

myform.DefViewStyle = 0
SET mycontrol = myform.Add("EdApprLabel","Label")
mycontrol.Move(2303,3490,687,198)
mycontrol.Caption = "Approved"

myform.DefViewStyle = 2
SET mycontrol = myform.Add("EdApprTextBox","TextBox")
mycontrol.Move(3011,3500,677,198)
mycontrol.TabIndex = 14
mycontrol.ReadOnly = - 1
mycontrol.ControlSource = "CommEdApprDate.PROJECT"

myform.DefViewStyle = 0
SET mycontrol = myform.Add("ContrApprLabel","Label")
mycontrol.Move(2303,3959,687,198)
mycontrol.Caption = "Approved"

myform.DefViewStyle = 2
SET mycontrol = myform.Add("ContrApprTextBox","TextBox")
mycontrol.Move(3011,3969,677,198)
mycontrol.TabIndex = 15
mycontrol.ReadOnly = - 1
mycontrol.ControlSource = "ControlApprDate.PROJECT"

myform.DefViewStyle = 0
SET mycontrol = myform.Add("FinApprLabel","Label")
mycontrol.Move(2303,4438,687,187)
mycontrol.Caption = "Approved"

myform.DefViewStyle = 2
SET mycontrol = myform.Add("FinApprTextBox","TextBox")
mycontrol.Move(3011,4438,677,187)
mycontrol.TabIndex = 16
mycontrol.ReadOnly = - 1
mycontrol.ControlSource = "FinanceApprDate.PROJECT"

myform.DefBackColor = 0
myform.DefBorderColor = 2
myform.DefFontString = "Arial,10,1,34,0"
SET mycontrol = myform.Add("CatComedy","OptionButton")
mycontrol.Move(4667,1219,1031,198)
mycontrol.TabIndex = 4
mycontrol.Caption = "Comedy"
mycontrol.ValueOn = "Comedy"
mycontrol.ControlSource = "Category.PROJECT"

SET mycontrol = myform.Add("CatCurAff","OptionButton")
mycontrol.Move(4667,1438,1219,198)
mycontrol.TabIndex = 5
mycontrol.Caption = "Current Affairs"
mycontrol.ValueOn = "Current Affairs"
mycontrol.ControlSource = "Category.PROJECT"

SET mycontrol = myform.Add("CatDocu","OptionButton")
mycontrol.Move(4667,1657,1031,198)
mycontrol.TabIndex = 6
mycontrol.Caption = "Documentary"
mycontrol.ValueOn = "Documentary"
mycontrol.ControlSource = "Category.PROJECT"

SET mycontrol = myform.Add("CatDrama","OptionButton")
mycontrol.Move(5917,1219,1031,198)
mycontrol.TabIndex = 7
mycontrol.Caption = "Drama"
mycontrol.ValueOn = "Drama"
mycontrol.ControlSource = "Category.PROJECT"

SET mycontrol = myform.Add("CatMusic","OptionButton")
mycontrol.Move(5917,1438,1031,198)
mycontrol.TabIndex = 8
mycontrol.Caption = "Music"
mycontrol.ValueOn = "Music"
mycontrol.ControlSource = "Category.PROJECT"

SET mycontrol = myform.Add("CatSport","OptionButton")
mycontrol.Move(5917,1657,1031,198)
mycontrol.TabIndex = 9
mycontrol.Caption = "Sport"
mycontrol.ValueOn = "Sport"
mycontrol.ControlSource = "Category.PROJECT"

myform.DefStepWidth = 3
myform.DefBorderVisible = - 1
myform.DefWindowsDefaults = - 1
myform.DefAlignment = 2
SET mycontrol = myform.Add("SynopsisButton","CommandButton")
mycontrol.Move(105,1355,1052,312)
mycontrol.Value = 0
mycontrol.TabIndex = 19
mycontrol.ReadOnly = - 1
mycontrol.TabStop = 0
mycontrol.Caption = "Hide Synopsis"
mycontrol.WindowsDefaults = - 1

myform.DefStepWidth = 2
myform.DefBackVisible = 0
myform.DefBorderVisible = 0
myform.DefViewStyle = 0
myform.DefAlignment = 0
SET mycontrol = myform.Add("CatLabel","Label")
mycontrol.Move(4553,980,541,166)
mycontrol.Caption = "Category"

myform.DefBorderVisible = - 1
SET mycontrol = myform.Add("ApprLabel","Label")
mycontrol.Move(94,3073,1052,167)
mycontrol.Caption = "Project Approvals"

myform.DefBackColor = 8
myform.DefBorderColor = 8
myform.DefBackVisible = - 1
myform.DefBorderVisible = 0
myform.DefViewStyle = 2
myform.DefFontString = "ARIAL,10,0,34,0"
SET mycontrol = myform.Add("IssueDateTextBox","TextBox")
mycontrol.Move(5844,3167,677,198)
mycontrol.TabIndex = 18
mycontrol.ReadOnly = - 1
mycontrol.ControlSource = "ContractDate.PROJECT"

myform.DefBackColor = 0
myform.DefBackVisible = 0
myform.DefBorderVisible = - 1
myform.DefViewStyle = 0
myform.DefFontString = "Arial,10,1,34,0"
SET mycontrol = myform.Add("IssueDateLabel","Label")
mycontrol.Move(4688,3178,948,166)
mycontrol.Caption = "Contract Issued"

myform.DefBorderColor = 2
myform.DefStepWidth = 3
myform.DefBackVisible = - 1
myform.DefAlignment = 2
SET mycontrol = myform.Add("ContractButton","CommandButton")
mycontrol.Move(4657,2636,1250,312)
mycontrol.Value = 0
mycontrol.TabIndex = 17
mycontrol.ReadOnly = - 1
mycontrol.TabStop = 0
mycontrol.OnClick.Procedure = "SetApprDate"
mycontrol.OnClick.Mode = 2
mycontrol.Caption = "Issue Contract"
mycontrol.WindowsDefaults = - 1

myform.DefStepWidth = 2
myform.DefBackVisible = 0
myform.DefBorderVisible = 0
myform.DefAlignment = 0
SET mycontrol = myform.Add("ContractLabel","Label")
mycontrol.Move(4688,2292,875,167)
mycontrol.Caption = "Contract Issue"

myform.DefBackVisible = - 1
SET mycontrol = myform.Add("EdApprCheckBox","CheckBox")
mycontrol.Move(459,3480,1458,239)
mycontrol.TabIndex = 11
mycontrol.OnClick.Procedure = "SetApprDate"
mycontrol.OnClick.Mode = 2
mycontrol.Caption = "Editor Approval"
mycontrol.ValueOn = "1"
mycontrol.ValueOff = "0"
mycontrol.ControlSource = "CommEdAppr.PROJECT"

SET mycontrol = myform.Add("ContrApprCheckBox","CheckBox")
mycontrol.Move(459,3948,1458,240)
mycontrol.TabIndex = 12
mycontrol.OnClick.Procedure = "SetApprDate"
mycontrol.OnClick.Mode = 2
mycontrol.Caption = "Network Approval"
mycontrol.ValueOn = "2"
mycontrol.ValueOff = "0"
mycontrol.ControlSource = "ControlAppr.PROJECT"

SET mycontrol = myform.Add("FinApprCheckBox","CheckBox")
mycontrol.Move(469,4428,1459,239)
mycontrol.TabIndex = 13
mycontrol.OnClick.Procedure = "SetApprDate"
mycontrol.OnClick.Mode = 2
mycontrol.Caption = "Finance Approval"
mycontrol.ValueOn = "4"
mycontrol.ValueOff = "0"
mycontrol.ControlSource = "FinanceAppr.PROJECT"

myform.DefBorderVisible = - 1
SET mycontrol = myform.Add("ProdCoComboBox","ComboBox")
mycontrol.Move(1500,980,2553,302)
mycontrol.TabIndex = 20
mycontrol.WindowsDefaults = - 1
mycontrol.Sorted = - 1
mycontrol.ControlSource = "ProdCo.PROJECT"
mycontrol.Style = 0
mycontrol.ScrollEnable = 2
mycontrol.Columns = 1
mycontrol.List.Add("Value")
mycontrol.BoundColumn = 1
mycontrol.SetColumnWidths(1000)

SET mycontrol = myform.Add("CommEdComboBox","ComboBox")
mycontrol.Move(1500,2615,2553,302)
mycontrol.TabIndex = 21
mycontrol.WindowsDefaults = - 1
mycontrol.Sorted = - 1
mycontrol.ControlSource = "CommEditor.PROJECT"
mycontrol.Style = 0
mycontrol.ScrollEnable = 2
mycontrol.Columns = 1
mycontrol.List.Add("Value")
mycontrol.BoundColumn = 1
mycontrol.SetColumnWidths(1000)

myform.AutoRedraw = - 1
myform.SetActive()
END SUB

========================

"Peter Olcott" <olcott@att.net> wrote in message
news:wZmog.10658$f76.10628@dukeread06...
> Are there any GUI scripting languages that can see everything that is on
the
> display screen?
>
>

SBL generated code by the Form Designer
The Form DEsigner generates quite alot of code because a number of
properties are set for each object. You can load PROJFORM.SBP into the
Program Editor to view it or to print it.

See Form and Form Control Objects, page 127 Superbase Programming Guide.

It is as follows:

===== PROJFORM.SBP ==========

SUB main()
CALL PROJFORM()
END SUB

SUB PROJFORM():REM // original date11/17/94
DIM myform AS Form
DIM mypage AS Page
DIM mycontrol AS FormControl

IF Forms.Exists("ProjForm") THEN
Forms("ProjForm").Delete() // Evaluates initiation status
END IF


OPEN FILE SHARE "PROJECT"

SET myform = Forms.Add("ProjForm","Form") // this is a combined statement
DIM + SET
myform.ScaleMode = 3 // DIM myform as Form
myform.ShowExternals = 0 // SET myform = Forms.Add("formname","Form")
myform.AutoRedraw = 0
myform.Name = "ProjForm"
myform.FileName = "PROJFORM"
myform.AutoLocking = 0
myform.UserFocusChange = - 1

myform.DefVisible = - 1 // these are denotable as default values
myform.DefEnabled = - 1 // because of the Def
myform.DefForeColor = 8
myform.DefBackColor = 1
myform.DefBorderColor = 0
myform.DefBorderWidth = 0
myform.DefForePattern = 0
myform.DefStepWidth = 0
myform.DefBackVisible = - 1
myform.DefForeVisible = - 1
myform.DefBorderVisible = 0
myform.DefShadow = 0
myform.DefStretch = 0
myform.DefPrintable = - 1
myform.DefWindowsDefaults = 0
myform.DefViewStyle = 0
myform.DefAlignment = 0
myform.DefFontBold = 0
myform.DefFontItalic = 0
myform.DefFontUnderline = 0
myform.DefSectionH = 0
myform.DefSectionV = 0
myform.DefFontString = "System,10,1,1,0"

SET mypage = myform.Pages(1) // this is a second form page(1), no it is
not
mypage.BackVisible = - 1
mypage.BackColor = 0
mypage.Width = 8261
mypage.Height = 5021
mypage.Name = "Page1"
mypage.RefreshStyle = 1

SET mycontrol = myform.Add("BackgroundRectangle","Rectangle")
mycontrol.Move(0,0,8261,5021)

myform.DefForeColor = 1
myform.DefBackColor = 0
myform.DefBorderColor = 1
myform.DefBorderWidth = 1
myform.DefStepWidth = 3
myform.DefBackVisible = 0
myform.DefForeVisible = 0
myform.DefBorderVisible = - 1
SET mycontrol = myform.Add("CatRectangle","Rectangle")
mycontrol.Move(4500,948,2261,1000)

SET mycontrol = myform.Add("ContractRectangle","Rectangle")
mycontrol.Move(4500,2240,2511,1500)

SET mycontrol = myform.Add("ApprRectangle","Rectangle")
mycontrol.Move(53,3011,3895,1833)

myform.DefForeColor = 12
myform.DefBackColor = 1
myform.DefBorderColor = 0
myform.DefBorderWidth = 0
myform.DefStepWidth = 0
myform.DefBackVisible = - 1
myform.DefForeVisible = - 1
myform.DefBorderVisible = 0
SET mycontrol = myform.Add("TitleRectangle","Rectangle")
mycontrol.Move(0,0,8260,500)

myform.DefForeColor = 1
myform.DefBackColor = 8
myform.DefBorderWidth = 2
SET mycontrol = myform.Add("Line1","Line")
mycontrol.Move(0,500,8260,500)

myform.DefForeColor = 0
myform.DefBackColor = 4
myform.DefStepWidth = 2
myform.DefBackVisible = 0
myform.DefAlignment = 2
myform.DefFontString = "ARIAL,24,0,34,0"
SET mycontrol = myform.Add("FormTitleLabel","Label")
mycontrol.Move(1831,60,4599,412)
mycontrol.Caption = "Commissioned Projects"

myform.DefForeColor = 1
myform.DefBackColor = 8
myform.DefBackVisible = - 1
myform.DefAlignment = 0
myform.DefFontString = "ARIAL,10,0,34,0"
SET mycontrol = myform.Add("ProjNoLabel","Label")
mycontrol.Move(84,563,1187,198)
mycontrol.Caption = "Project Number"

myform.DefBorderColor = 8
myform.DefViewStyle = 2
SET mycontrol = myform.Add("ProjNoTextBox","TextBox")
mycontrol.Move(1167,563,511,198)
mycontrol.TabIndex = 1
mycontrol.OnKeyPress.Procedure = "CheckChar"
mycontrol.OnKeyPress.Mode = 2
mycontrol.ControlSource = "ProjectNo.PROJECT"

myform.DefViewStyle = 0
SET mycontrol = myform.Add("TitleLabel","Label")
mycontrol.Move(1823,563,417,187)
mycontrol.Caption = "Title"

myform.DefViewStyle = 2
SET mycontrol = myform.Add("TitleTextBox","TextBox")
mycontrol.Move(2115,563,3365,187)
mycontrol.TabIndex = 2
mycontrol.ControlSource = "Title.PROJECT"

SET mycontrol = myform.Add("SynopsisTextBox","TextBox")
mycontrol.Move(1480,1355,2687,1062)
mycontrol.TabIndex = 10
mycontrol.ControlSource = "Synopsis.PROJECT"

myform.DefViewStyle = 0
SET mycontrol = myform.Add("ProdCoLabel","Label")
mycontrol.Move(94,980,1271,166)
mycontrol.Caption = "Production Company"

SET mycontrol = myform.Add("CommEdLabel","Label")
mycontrol.Move(94,2584,1334,166)
mycontrol.Caption = "Commissioning Editor"

SET mycontrol = myform.Add("DateSubLabel","Label")
mycontrol.Move(5605,563,1187,198)
mycontrol.Caption = "Date Submitted"

myform.DefViewStyle = 2
SET mycontrol = myform.Add("DateSubTextBox","TextBox")
mycontrol.Move(6636,563,677,198)
mycontrol.TabIndex = 3
mycontrol.ControlSource = "DateSubmitted.PROJECT"

myform.DefViewStyle = 0
SET mycontrol = myform.Add("EdApprLabel","Label")
mycontrol.Move(2303,3490,687,198)
mycontrol.Caption = "Approved"

myform.DefViewStyle = 2
SET mycontrol = myform.Add("EdApprTextBox","TextBox")
mycontrol.Move(3011,3500,677,198)
mycontrol.TabIndex = 14
mycontrol.ReadOnly = - 1
mycontrol.ControlSource = "CommEdApprDate.PROJECT"

myform.DefViewStyle = 0
SET mycontrol = myform.Add("ContrApprLabel","Label")
mycontrol.Move(2303,3959,687,198)
mycontrol.Caption = "Approved"

myform.DefViewStyle = 2
SET mycontrol = myform.Add("ContrApprTextBox","TextBox")
mycontrol.Move(3011,3969,677,198)
mycontrol.TabIndex = 15
mycontrol.ReadOnly = - 1
mycontrol.ControlSource = "ControlApprDate.PROJECT"

myform.DefViewStyle = 0
SET mycontrol = myform.Add("FinApprLabel","Label")
mycontrol.Move(2303,4438,687,187)
mycontrol.Caption = "Approved"

myform.DefViewStyle = 2
SET mycontrol = myform.Add("FinApprTextBox","TextBox")
mycontrol.Move(3011,4438,677,187)
mycontrol.TabIndex = 16
mycontrol.ReadOnly = - 1
mycontrol.ControlSource = "FinanceApprDate.PROJECT"

myform.DefBackColor = 0
myform.DefBorderColor = 2
myform.DefFontString = "Arial,10,1,34,0"
SET mycontrol = myform.Add("CatComedy","OptionButton")
mycontrol.Move(4667,1219,1031,198)
mycontrol.TabIndex = 4
mycontrol.Caption = "Comedy"
mycontrol.ValueOn = "Comedy"
mycontrol.ControlSource = "Category.PROJECT"

SET mycontrol = myform.Add("CatCurAff","OptionButton")
mycontrol.Move(4667,1438,1219,198)
mycontrol.TabIndex = 5
mycontrol.Caption = "Current Affairs"
mycontrol.ValueOn = "Current Affairs"
mycontrol.ControlSource = "Category.PROJECT"

SET mycontrol = myform.Add("CatDocu","OptionButton")
mycontrol.Move(4667,1657,1031,198)
mycontrol.TabIndex = 6
mycontrol.Caption = "Documentary"
mycontrol.ValueOn = "Documentary"
mycontrol.ControlSource = "Category.PROJECT"

SET mycontrol = myform.Add("CatDrama","OptionButton")
mycontrol.Move(5917,1219,1031,198)
mycontrol.TabIndex = 7
mycontrol.Caption = "Drama"
mycontrol.ValueOn = "Drama"
mycontrol.ControlSource = "Category.PROJECT"

SET mycontrol = myform.Add("CatMusic","OptionButton")
mycontrol.Move(5917,1438,1031,198)
mycontrol.TabIndex = 8
mycontrol.Caption = "Music"
mycontrol.ValueOn = "Music"
mycontrol.ControlSource = "Category.PROJECT"

SET mycontrol = myform.Add("CatSport","OptionButton")
mycontrol.Move(5917,1657,1031,198)
mycontrol.TabIndex = 9
mycontrol.Caption = "Sport"
mycontrol.ValueOn = "Sport"
mycontrol.ControlSource = "Category.PROJECT"

myform.DefStepWidth = 3
myform.DefBorderVisible = - 1
myform.DefWindowsDefaults = - 1
myform.DefAlignment = 2
SET mycontrol = myform.Add("SynopsisButton","CommandButton")
mycontrol.Move(105,1355,1052,312)
mycontrol.Value = 0
mycontrol.TabIndex = 19
mycontrol.ReadOnly = - 1
mycontrol.TabStop = 0
mycontrol.Caption = "Hide Synopsis"
mycontrol.WindowsDefaults = - 1

myform.DefStepWidth = 2
myform.DefBackVisible = 0
myform.DefBorderVisible = 0
myform.DefViewStyle = 0
myform.DefAlignment = 0
SET mycontrol = myform.Add("CatLabel","Label")
mycontrol.Move(4553,980,541,166)
mycontrol.Caption = "Category"

myform.DefBorderVisible = - 1
SET mycontrol = myform.Add("ApprLabel","Label")
mycontrol.Move(94,3073,1052,167)
mycontrol.Caption = "Project Approvals"

myform.DefBackColor = 8
myform.DefBorderColor = 8
myform.DefBackVisible = - 1
myform.DefBorderVisible = 0
myform.DefViewStyle = 2
myform.DefFontString = "ARIAL,10,0,34,0"
SET mycontrol = myform.Add("IssueDateTextBox","TextBox")
mycontrol.Move(5844,3167,677,198)
mycontrol.TabIndex = 18
mycontrol.ReadOnly = - 1
mycontrol.ControlSource = "ContractDate.PROJECT"

myform.DefBackColor = 0
myform.DefBackVisible = 0
myform.DefBorderVisible = - 1
myform.DefViewStyle = 0
myform.DefFontString = "Arial,10,1,34,0"
SET mycontrol = myform.Add("IssueDateLabel","Label")
mycontrol.Move(4688,3178,948,166)
mycontrol.Caption = "Contract Issued"

myform.DefBorderColor = 2
myform.DefStepWidth = 3
myform.DefBackVisible = - 1
myform.DefAlignment = 2
SET mycontrol = myform.Add("ContractButton","CommandButton")
mycontrol.Move(4657,2636,1250,312)
mycontrol.Value = 0
mycontrol.TabIndex = 17
mycontrol.ReadOnly = - 1
mycontrol.TabStop = 0
mycontrol.OnClick.Procedure = "SetApprDate"
mycontrol.OnClick.Mode = 2
mycontrol.Caption = "Issue Contract"
mycontrol.WindowsDefaults = - 1

myform.DefStepWidth = 2
myform.DefBackVisible = 0
myform.DefBorderVisible = 0
myform.DefAlignment = 0
SET mycontrol = myform.Add("ContractLabel","Label")
mycontrol.Move(4688,2292,875,167)
mycontrol.Caption = "Contract Issue"

myform.DefBackVisible = - 1
SET mycontrol = myform.Add("EdApprCheckBox","CheckBox")
mycontrol.Move(459,3480,1458,239)
mycontrol.TabIndex = 11
mycontrol.OnClick.Procedure = "SetApprDate"
mycontrol.OnClick.Mode = 2
mycontrol.Caption = "Editor Approval"
mycontrol.ValueOn = "1"
mycontrol.ValueOff = "0"
mycontrol.ControlSource = "CommEdAppr.PROJECT"

SET mycontrol = myform.Add("ContrApprCheckBox","CheckBox")
mycontrol.Move(459,3948,1458,240)
mycontrol.TabIndex = 12
mycontrol.OnClick.Procedure = "SetApprDate"
mycontrol.OnClick.Mode = 2
mycontrol.Caption = "Network Approval"
mycontrol.ValueOn = "2"
mycontrol.ValueOff = "0"
mycontrol.ControlSource = "ControlAppr.PROJECT"

SET mycontrol = myform.Add("FinApprCheckBox","CheckBox")
mycontrol.Move(469,4428,1459,239)
mycontrol.TabIndex = 13
mycontrol.OnClick.Procedure = "SetApprDate"
mycontrol.OnClick.Mode = 2
mycontrol.Caption = "Finance Approval"
mycontrol.ValueOn = "4"
mycontrol.ValueOff = "0"
mycontrol.ControlSource = "FinanceAppr.PROJECT"

myform.DefBorderVisible = - 1
SET mycontrol = myform.Add("ProdCoComboBox","ComboBox")
mycontrol.Move(1500,980,2553,302)
mycontrol.TabIndex = 20
mycontrol.WindowsDefaults = - 1
mycontrol.Sorted = - 1
mycontrol.ControlSource = "ProdCo.PROJECT"
mycontrol.Style = 0
mycontrol.ScrollEnable = 2
mycontrol.Columns = 1
mycontrol.List.Add("Value")
mycontrol.BoundColumn = 1
mycontrol.SetColumnWidths(1000)

SET mycontrol = myform.Add("CommEdComboBox","ComboBox")
mycontrol.Move(1500,2615,2553,302)
mycontrol.TabIndex = 21
mycontrol.WindowsDefaults = - 1
mycontrol.Sorted = - 1
mycontrol.ControlSource = "CommEditor.PROJECT"
mycontrol.Style = 0
mycontrol.ScrollEnable = 2
mycontrol.Columns = 1
mycontrol.List.Add("Value")
mycontrol.BoundColumn = 1
mycontrol.SetColumnWidths(1000)

myform.AutoRedraw = - 1
myform.SetActive()
END SUB

========================

"Peter Olcott" <olcott@att.net> wrote in message
news:wZmog.10658$f76.10628@dukeread06...
> Are there any GUI scripting languages that can see everything that is on
the
> display screen?
>
>

So can this program control any other program using the mouse?

"carmen miranda" <@foster.com> wrote in message
news:naednQYvRsQmET7ZnZ2dnUVZ_s6dnZ2d@hbci.com...
> SBL generated code by the Form Designer
> The Form DEsigner generates quite alot of code because a number of
> properties are set for each object. You can load PROJFORM.SBP into the
> Program Editor to view it or to print it.
>
> See Form and Form Control Objects, page 127 Superbase Programming Guide.
>
> It is as follows:
>
> ===== PROJFORM.SBP ==========
>
> SUB main()
> CALL PROJFORM()
> END SUB
>
> SUB PROJFORM():REM // original date11/17/94
> DIM myform AS Form
> DIM mypage AS Page
> DIM mycontrol AS FormControl
>
> IF Forms.Exists("ProjForm") THEN
> Forms("ProjForm").Delete() // Evaluates initiation status
> END IF
>
>
> OPEN FILE SHARE "PROJECT"
>
> SET myform = Forms.Add("ProjForm","Form") // this is a combined statement
> DIM + SET
> myform.ScaleMode = 3 // DIM myform as Form
> myform.ShowExternals = 0 // SET myform = Forms.Add("formname","Form")
> myform.AutoRedraw = 0
> myform.Name = "ProjForm"
> myform.FileName = "PROJFORM"
> myform.AutoLocking = 0
> myform.UserFocusChange = - 1
>
> myform.DefVisible = - 1 // these are denotable as default values
> myform.DefEnabled = - 1 // because of the Def
> myform.DefForeColor = 8
> myform.DefBackColor = 1
> myform.DefBorderColor = 0
> myform.DefBorderWidth = 0
> myform.DefForePattern = 0
> myform.DefStepWidth = 0
> myform.DefBackVisible = - 1
> myform.DefForeVisible = - 1
> myform.DefBorderVisible = 0
> myform.DefShadow = 0
> myform.DefStretch = 0
> myform.DefPrintable = - 1
> myform.DefWindowsDefaults = 0
> myform.DefViewStyle = 0
> myform.DefAlignment = 0
> myform.DefFontBold = 0
> myform.DefFontItalic = 0
> myform.DefFontUnderline = 0
> myform.DefSectionH = 0
> myform.DefSectionV = 0
> myform.DefFontString = "System,10,1,1,0"
>
> SET mypage = myform.Pages(1) // this is a second form page(1), no it is
> not
> mypage.BackVisible = - 1
> mypage.BackColor = 0
> mypage.Width = 8261
> mypage.Height = 5021
> mypage.Name = "Page1"
> mypage.RefreshStyle = 1
>
> SET mycontrol = myform.Add("BackgroundRectangle","Rectangle")
> mycontrol.Move(0,0,8261,5021)
>
> myform.DefForeColor = 1
> myform.DefBackColor = 0
> myform.DefBorderColor = 1
> myform.DefBorderWidth = 1
> myform.DefStepWidth = 3
> myform.DefBackVisible = 0
> myform.DefForeVisible = 0
> myform.DefBorderVisible = - 1
> SET mycontrol = myform.Add("CatRectangle","Rectangle")
> mycontrol.Move(4500,948,2261,1000)
>
> SET mycontrol = myform.Add("ContractRectangle","Rectangle")
> mycontrol.Move(4500,2240,2511,1500)
>
> SET mycontrol = myform.Add("ApprRectangle","Rectangle")
> mycontrol.Move(53,3011,3895,1833)
>
> myform.DefForeColor = 12
> myform.DefBackColor = 1
> myform.DefBorderColor = 0
> myform.DefBorderWidth = 0
> myform.DefStepWidth = 0
> myform.DefBackVisible = - 1
> myform.DefForeVisible = - 1
> myform.DefBorderVisible = 0
> SET mycontrol = myform.Add("TitleRectangle","Rectangle")
> mycontrol.Move(0,0,8260,500)
>
> myform.DefForeColor = 1
> myform.DefBackColor = 8
> myform.DefBorderWidth = 2
> SET mycontrol = myform.Add("Line1","Line")
> mycontrol.Move(0,500,8260,500)
>
> myform.DefForeColor = 0
> myform.DefBackColor = 4
> myform.DefStepWidth = 2
> myform.DefBackVisible = 0
> myform.DefAlignment = 2
> myform.DefFontString = "ARIAL,24,0,34,0"
> SET mycontrol = myform.Add("FormTitleLabel","Label")
> mycontrol.Move(1831,60,4599,412)
> mycontrol.Caption = "Commissioned Projects"
>
> myform.DefForeColor = 1
> myform.DefBackColor = 8
> myform.DefBackVisible = - 1
> myform.DefAlignment = 0
> myform.DefFontString = "ARIAL,10,0,34,0"
> SET mycontrol = myform.Add("ProjNoLabel","Label")
> mycontrol.Move(84,563,1187,198)
> mycontrol.Caption = "Project Number"
>
> myform.DefBorderColor = 8
> myform.DefViewStyle = 2
> SET mycontrol = myform.Add("ProjNoTextBox","TextBox")
> mycontrol.Move(1167,563,511,198)
> mycontrol.TabIndex = 1
> mycontrol.OnKeyPress.Procedure = "CheckChar"
> mycontrol.OnKeyPress.Mode = 2
> mycontrol.ControlSource = "ProjectNo.PROJECT"
>
> myform.DefViewStyle = 0
> SET mycontrol = myform.Add("TitleLabel","Label")
> mycontrol.Move(1823,563,417,187)
> mycontrol.Caption = "Title"
>
> myform.DefViewStyle = 2
> SET mycontrol = myform.Add("TitleTextBox","TextBox")
> mycontrol.Move(2115,563,3365,187)
> mycontrol.TabIndex = 2
> mycontrol.ControlSource = "Title.PROJECT"
>
> SET mycontrol = myform.Add("SynopsisTextBox","TextBox")
> mycontrol.Move(1480,1355,2687,1062)
> mycontrol.TabIndex = 10
> mycontrol.ControlSource = "Synopsis.PROJECT"
>
> myform.DefViewStyle = 0
> SET mycontrol = myform.Add("ProdCoLabel","Label")
> mycontrol.Move(94,980,1271,166)
> mycontrol.Caption = "Production Company"
>
> SET mycontrol = myform.Add("CommEdLabel","Label")
> mycontrol.Move(94,2584,1334,166)
> mycontrol.Caption = "Commissioning Editor"
>
> SET mycontrol = myform.Add("DateSubLabel","Label")
> mycontrol.Move(5605,563,1187,198)
> mycontrol.Caption = "Date Submitted"
>
> myform.DefViewStyle = 2
> SET mycontrol = myform.Add("DateSubTextBox","TextBox")
> mycontrol.Move(6636,563,677,198)
> mycontrol.TabIndex = 3
> mycontrol.ControlSource = "DateSubmitted.PROJECT"
>
> myform.DefViewStyle = 0
> SET mycontrol = myform.Add("EdApprLabel","Label")
> mycontrol.Move(2303,3490,687,198)
> mycontrol.Caption = "Approved"
>
> myform.DefViewStyle = 2
> SET mycontrol = myform.Add("EdApprTextBox","TextBox")
> mycontrol.Move(3011,3500,677,198)
> mycontrol.TabIndex = 14
> mycontrol.ReadOnly = - 1
> mycontrol.ControlSource = "CommEdApprDate.PROJECT"
>
> myform.DefViewStyle = 0
> SET mycontrol = myform.Add("ContrApprLabel","Label")
> mycontrol.Move(2303,3959,687,198)
> mycontrol.Caption = "Approved"
>
> myform.DefViewStyle = 2
> SET mycontrol = myform.Add("ContrApprTextBox","TextBox")
> mycontrol.Move(3011,3969,677,198)
> mycontrol.TabIndex = 15
> mycontrol.ReadOnly = - 1
> mycontrol.ControlSource = "ControlApprDate.PROJECT"
>
> myform.DefViewStyle = 0
> SET mycontrol = myform.Add("FinApprLabel","Label")
> mycontrol.Move(2303,4438,687,187)
> mycontrol.Caption = "Approved"
>
> myform.DefViewStyle = 2
> SET mycontrol = myform.Add("FinApprTextBox","TextBox")
> mycontrol.Move(3011,4438,677,187)
> mycontrol.TabIndex = 16
> mycontrol.ReadOnly = - 1
> mycontrol.ControlSource = "FinanceApprDate.PROJECT"
>
> myform.DefBackColor = 0
> myform.DefBorderColor = 2
> myform.DefFontString = "Arial,10,1,34,0"
> SET mycontrol = myform.Add("CatComedy","OptionButton")
> mycontrol.Move(4667,1219,1031,198)
> mycontrol.TabIndex = 4
> mycontrol.Caption = "Comedy"
> mycontrol.ValueOn = "Comedy"
> mycontrol.ControlSource = "Category.PROJECT"
>
> SET mycontrol = myform.Add("CatCurAff","OptionButton")
> mycontrol.Move(4667,1438,1219,198)
> mycontrol.TabIndex = 5
> mycontrol.Caption = "Current Affairs"
> mycontrol.ValueOn = "Current Affairs"
> mycontrol.ControlSource = "Category.PROJECT"
>
> SET mycontrol = myform.Add("CatDocu","OptionButton")
> mycontrol.Move(4667,1657,1031,198)
> mycontrol.TabIndex = 6
> mycontrol.Caption = "Documentary"
> mycontrol.ValueOn = "Documentary"
> mycontrol.ControlSource = "Category.PROJECT"
>
> SET mycontrol = myform.Add("CatDrama","OptionButton")
> mycontrol.Move(5917,1219,1031,198)
> mycontrol.TabIndex = 7
> mycontrol.Caption = "Drama"
> mycontrol.ValueOn = "Drama"
> mycontrol.ControlSource = "Category.PROJECT"
>
> SET mycontrol = myform.Add("CatMusic","OptionButton")
> mycontrol.Move(5917,1438,1031,198)
> mycontrol.TabIndex = 8
> mycontrol.Caption = "Music"
> mycontrol.ValueOn = "Music"
> mycontrol.ControlSource = "Category.PROJECT"
>
> SET mycontrol = myform.Add("CatSport","OptionButton")
> mycontrol.Move(5917,1657,1031,198)
> mycontrol.TabIndex = 9
> mycontrol.Caption = "Sport"
> mycontrol.ValueOn = "Sport"
> mycontrol.ControlSource = "Category.PROJECT"
>
> myform.DefStepWidth = 3
> myform.DefBorderVisible = - 1
> myform.DefWindowsDefaults = - 1
> myform.DefAlignment = 2
> SET mycontrol = myform.Add("SynopsisButton","CommandButton")
> mycontrol.Move(105,1355,1052,312)
> mycontrol.Value = 0
> mycontrol.TabIndex = 19
> mycontrol.ReadOnly = - 1
> mycontrol.TabStop = 0
> mycontrol.Caption = "Hide Synopsis"
> mycontrol.WindowsDefaults = - 1
>
> myform.DefStepWidth = 2
> myform.DefBackVisible = 0
> myform.DefBorderVisible = 0
> myform.DefViewStyle = 0
> myform.DefAlignment = 0
> SET mycontrol = myform.Add("CatLabel","Label")
> mycontrol.Move(4553,980,541,166)
> mycontrol.Caption = "Category"
>
> myform.DefBorderVisible = - 1
> SET mycontrol = myform.Add("ApprLabel","Label")
> mycontrol.Move(94,3073,1052,167)
> mycontrol.Caption = "Project Approvals"
>
> myform.DefBackColor = 8
> myform.DefBorderColor = 8
> myform.DefBackVisible = - 1
> myform.DefBorderVisible = 0
> myform.DefViewStyle = 2
> myform.DefFontString = "ARIAL,10,0,34,0"
> SET mycontrol = myform.Add("IssueDateTextBox","TextBox")
> mycontrol.Move(5844,3167,677,198)
> mycontrol.TabIndex = 18
> mycontrol.ReadOnly = - 1
> mycontrol.ControlSource = "ContractDate.PROJECT"
>
> myform.DefBackColor = 0
> myform.DefBackVisible = 0
> myform.DefBorderVisible = - 1
> myform.DefViewStyle = 0
> myform.DefFontString = "Arial,10,1,34,0"
> SET mycontrol = myform.Add("IssueDateLabel","Label")
> mycontrol.Move(4688,3178,948,166)
> mycontrol.Caption = "Contract Issued"
>
> myform.DefBorderColor = 2
> myform.DefStepWidth = 3
> myform.DefBackVisible = - 1
> myform.DefAlignment = 2
> SET mycontrol = myform.Add("ContractButton","CommandButton")
> mycontrol.Move(4657,2636,1250,312)
> mycontrol.Value = 0
> mycontrol.TabIndex = 17
> mycontrol.ReadOnly = - 1
> mycontrol.TabStop = 0
> mycontrol.OnClick.Procedure = "SetApprDate"
> mycontrol.OnClick.Mode = 2
> mycontrol.Caption = "Issue Contract"
> mycontrol.WindowsDefaults = - 1
>
> myform.DefStepWidth = 2
> myform.DefBackVisible = 0
> myform.DefBorderVisible = 0
> myform.DefAlignment = 0
> SET mycontrol = myform.Add("ContractLabel","Label")
> mycontrol.Move(4688,2292,875,167)
> mycontrol.Caption = "Contract Issue"
>
> myform.DefBackVisible = - 1
> SET mycontrol = myform.Add("EdApprCheckBox","CheckBox")
> mycontrol.Move(459,3480,1458,239)
> mycontrol.TabIndex = 11
> mycontrol.OnClick.Procedure = "SetApprDate"
> mycontrol.OnClick.Mode = 2
> mycontrol.Caption = "Editor Approval"
> mycontrol.ValueOn = "1"
> mycontrol.ValueOff = "0"
> mycontrol.ControlSource = "CommEdAppr.PROJECT"
>
> SET mycontrol = myform.Add("ContrApprCheckBox","CheckBox")
> mycontrol.Move(459,3948,1458,240)
> mycontrol.TabIndex = 12
> mycontrol.OnClick.Procedure = "SetApprDate"
> mycontrol.OnClick.Mode = 2
> mycontrol.Caption = "Network Approval"
> mycontrol.ValueOn = "2"
> mycontrol.ValueOff = "0"
> mycontrol.ControlSource = "ControlAppr.PROJECT"
>
> SET mycontrol = myform.Add("FinApprCheckBox","CheckBox")
> mycontrol.Move(469,4428,1459,239)
> mycontrol.TabIndex = 13
> mycontrol.OnClick.Procedure = "SetApprDate"
> mycontrol.OnClick.Mode = 2
> mycontrol.Caption = "Finance Approval"
> mycontrol.ValueOn = "4"
> mycontrol.ValueOff = "0"
> mycontrol.ControlSource = "FinanceAppr.PROJECT"
>
> myform.DefBorderVisible = - 1
> SET mycontrol = myform.Add("ProdCoComboBox","ComboBox")
> mycontrol.Move(1500,980,2553,302)
> mycontrol.TabIndex = 20
> mycontrol.WindowsDefaults = - 1
> mycontrol.Sorted = - 1
> mycontrol.ControlSource = "ProdCo.PROJECT"
> mycontrol.Style = 0
> mycontrol.ScrollEnable = 2
> mycontrol.Columns = 1
> mycontrol.List.Add("Value")
> mycontrol.BoundColumn = 1
> mycontrol.SetColumnWidths(1000)
>
> SET mycontrol = myform.Add("CommEdComboBox","ComboBox")
> mycontrol.Move(1500,2615,2553,302)
> mycontrol.TabIndex = 21
> mycontrol.WindowsDefaults = - 1
> mycontrol.Sorted = - 1
> mycontrol.ControlSource = "CommEditor.PROJECT"
> mycontrol.Style = 0
> mycontrol.ScrollEnable = 2
> mycontrol.Columns = 1
> mycontrol.List.Add("Value")
> mycontrol.BoundColumn = 1
> mycontrol.SetColumnWidths(1000)
>
> myform.AutoRedraw = - 1
> myform.SetActive()
> END SUB
>
> ========================
>
> "Peter Olcott" <olcott@att.net> wrote in message
> news:wZmog.10658$f76.10628@dukeread06...
>> Are there any GUI scripting languages that can see everything that is on
> the
>> display screen?
>>
>>
>
>

So can this program control any other program using the mouse?

"carmen miranda" <@foster.com> wrote in message
news:naednQYvRsQmET7ZnZ2dnUVZ_s6dnZ2d@hbci.com...
> SBL generated code by the Form Designer
> The Form DEsigner generates quite alot of code because a number of
> properties are set for each object. You can load PROJFORM.SBP into the
> Program Editor to view it or to print it.
>
> See Form and Form Control Objects, page 127 Superbase Programming Guide.
>
> It is as follows:
>
> ===== PROJFORM.SBP ==========
>
> SUB main()
> CALL PROJFORM()
> END SUB
>
> SUB PROJFORM():REM // original date11/17/94
> DIM myform AS Form
> DIM mypage AS Page
> DIM mycontrol AS FormControl
>
> IF Forms.Exists("ProjForm") THEN
> Forms("ProjForm").Delete() // Evaluates initiation status
> END IF
>
>
> OPEN FILE SHARE "PROJECT"
>
> SET myform = Forms.Add("ProjForm","Form") // this is a combined statement
> DIM + SET
> myform.ScaleMode = 3 // DIM myform as Form
> myform.ShowExternals = 0 // SET myform = Forms.Add("formname","Form")
> myform.AutoRedraw = 0
> myform.Name = "ProjForm"
> myform.FileName = "PROJFORM"
> myform.AutoLocking = 0
> myform.UserFocusChange = - 1
>
> myform.DefVisible = - 1 // these are denotable as default values
> myform.DefEnabled = - 1 // because of the Def
> myform.DefForeColor = 8
> myform.DefBackColor = 1
> myform.DefBorderColor = 0
> myform.DefBorderWidth = 0
> myform.DefForePattern = 0
> myform.DefStepWidth = 0
> myform.DefBackVisible = - 1
> myform.DefForeVisible = - 1
> myform.DefBorderVisible = 0
> myform.DefShadow = 0
> myform.DefStretch = 0
> myform.DefPrintable = - 1
> myform.DefWindowsDefaults = 0
> myform.DefViewStyle = 0
> myform.DefAlignment = 0
> myform.DefFontBold = 0
> myform.DefFontItalic = 0
> myform.DefFontUnderline = 0
> myform.DefSectionH = 0
> myform.DefSectionV = 0
> myform.DefFontString = "System,10,1,1,0"
>
> SET mypage = myform.Pages(1) // this is a second form page(1), no it is
> not
> mypage.BackVisible = - 1
> mypage.BackColor = 0
> mypage.Width = 8261
> mypage.Height = 5021
> mypage.Name = "Page1"
> mypage.RefreshStyle = 1
>
> SET mycontrol = myform.Add("BackgroundRectangle","Rectangle")
> mycontrol.Move(0,0,8261,5021)
>
> myform.DefForeColor = 1
> myform.DefBackColor = 0
> myform.DefBorderColor = 1
> myform.DefBorderWidth = 1
> myform.DefStepWidth = 3
> myform.DefBackVisible = 0
> myform.DefForeVisible = 0
> myform.DefBorderVisible = - 1
> SET mycontrol = myform.Add("CatRectangle","Rectangle")
> mycontrol.Move(4500,948,2261,1000)
>
> SET mycontrol = myform.Add("ContractRectangle","Rectangle")
> mycontrol.Move(4500,2240,2511,1500)
>
> SET mycontrol = myform.Add("ApprRectangle","Rectangle")
> mycontrol.Move(53,3011,3895,1833)
>
> myform.DefForeColor = 12
> myform.DefBackColor = 1
> myform.DefBorderColor = 0
> myform.DefBorderWidth = 0
> myform.DefStepWidth = 0
> myform.DefBackVisible = - 1
> myform.DefForeVisible = - 1
> myform.DefBorderVisible = 0
> SET mycontrol = myform.Add("TitleRectangle","Rectangle")
> mycontrol.Move(0,0,8260,500)
>
> myform.DefForeColor = 1
> myform.DefBackColor = 8
> myform.DefBorderWidth = 2
> SET mycontrol = myform.Add("Line1","Line")
> mycontrol.Move(0,500,8260,500)
>
> myform.DefForeColor = 0
> myform.DefBackColor = 4
> myform.DefStepWidth = 2
> myform.DefBackVisible = 0
> myform.DefAlignment = 2
> myform.DefFontString = "ARIAL,24,0,34,0"
> SET mycontrol = myform.Add("FormTitleLabel","Label")
> mycontrol.Move(1831,60,4599,412)
> mycontrol.Caption = "Commissioned Projects"
>
> myform.DefForeColor = 1
> myform.DefBackColor = 8
> myform.DefBackVisible = - 1
> myform.DefAlignment = 0
> myform.DefFontString = "ARIAL,10,0,34,0"
> SET mycontrol = myform.Add("ProjNoLabel","Label")
> mycontrol.Move(84,563,1187,198)
> mycontrol.Caption = "Project Number"
>
> myform.DefBorderColor = 8
> myform.DefViewStyle = 2
> SET mycontrol = myform.Add("ProjNoTextBox","TextBox")
> mycontrol.Move(1167,563,511,198)
> mycontrol.TabIndex = 1
> mycontrol.OnKeyPress.Procedure = "CheckChar"
> mycontrol.OnKeyPress.Mode = 2
> mycontrol.ControlSource = "ProjectNo.PROJECT"
>
> myform.DefViewStyle = 0
> SET mycontrol = myform.Add("TitleLabel","Label")
> mycontrol.Move(1823,563,417,187)
> mycontrol.Caption = "Title"
>
> myform.DefViewStyle = 2
> SET mycontrol = myform.Add("TitleTextBox","TextBox")
> mycontrol.Move(2115,563,3365,187)
> mycontrol.TabIndex = 2
> mycontrol.ControlSource = "Title.PROJECT"
>
> SET mycontrol = myform.Add("SynopsisTextBox","TextBox")
> mycontrol.Move(1480,1355,2687,1062)
> mycontrol.TabIndex = 10
> mycontrol.ControlSource = "Synopsis.PROJECT"
>
> myform.DefViewStyle = 0
> SET mycontrol = myform.Add("ProdCoLabel","Label")
> mycontrol.Move(94,980,1271,166)
> mycontrol.Caption = "Production Company"
>
> SET mycontrol = myform.Add("CommEdLabel","Label")
> mycontrol.Move(94,2584,1334,166)
> mycontrol.Caption = "Commissioning Editor"
>
> SET mycontrol = myform.Add("DateSubLabel","Label")
> mycontrol.Move(5605,563,1187,198)
> mycontrol.Caption = "Date Submitted"
>
> myform.DefViewStyle = 2
> SET mycontrol = myform.Add("DateSubTextBox","TextBox")
> mycontrol.Move(6636,563,677,198)
> mycontrol.TabIndex = 3
> mycontrol.ControlSource = "DateSubmitted.PROJECT"
>
> myform.DefViewStyle = 0
> SET mycontrol = myform.Add("EdApprLabel","Label")
> mycontrol.Move(2303,3490,687,198)
> mycontrol.Caption = "Approved"
>
> myform.DefViewStyle = 2
> SET mycontrol = myform.Add("EdApprTextBox","TextBox")
> mycontrol.Move(3011,3500,677,198)
> mycontrol.TabIndex = 14
> mycontrol.ReadOnly = - 1
> mycontrol.ControlSource = "CommEdApprDate.PROJECT"
>
> myform.DefViewStyle = 0
> SET mycontrol = myform.Add("ContrApprLabel","Label")
> mycontrol.Move(2303,3959,687,198)
> mycontrol.Caption = "Approved"
>
> myform.DefViewStyle = 2
> SET mycontrol = myform.Add("ContrApprTextBox","TextBox")
> mycontrol.Move(3011,3969,677,198)
> mycontrol.TabIndex = 15
> mycontrol.ReadOnly = - 1
> mycontrol.ControlSource = "ControlApprDate.PROJECT"
>
> myform.DefViewStyle = 0
> SET mycontrol = myform.Add("FinApprLabel","Label")
> mycontrol.Move(2303,4438,687,187)
> mycontrol.Caption = "Approved"
>
> myform.DefViewStyle = 2
> SET mycontrol = myform.Add("FinApprTextBox","TextBox")
> mycontrol.Move(3011,4438,677,187)
> mycontrol.TabIndex = 16
> mycontrol.ReadOnly = - 1
> mycontrol.ControlSource = "FinanceApprDate.PROJECT"
>
> myform.DefBackColor = 0
> myform.DefBorderColor = 2
> myform.DefFontString = "Arial,10,1,34,0"
> SET mycontrol = myform.Add("CatComedy","OptionButton")
> mycontrol.Move(4667,1219,1031,198)
> mycontrol.TabIndex = 4
> mycontrol.Caption = "Comedy"
> mycontrol.ValueOn = "Comedy"
> mycontrol.ControlSource = "Category.PROJECT"
>
> SET mycontrol = myform.Add("CatCurAff","OptionButton")
> mycontrol.Move(4667,1438,1219,198)
> mycontrol.TabIndex = 5
> mycontrol.Caption = "Current Affairs"
> mycontrol.ValueOn = "Current Affairs"
> mycontrol.ControlSource = "Category.PROJECT"
>
> SET mycontrol = myform.Add("CatDocu","OptionButton")
> mycontrol.Move(4667,1657,1031,198)
> mycontrol.TabIndex = 6
> mycontrol.Caption = "Documentary"
> mycontrol.ValueOn = "Documentary"
> mycontrol.ControlSource = "Category.PROJECT"
>
> SET mycontrol = myform.Add("CatDrama","OptionButton")
> mycontrol.Move(5917,1219,1031,198)
> mycontrol.TabIndex = 7
> mycontrol.Caption = "Drama"
> mycontrol.ValueOn = "Drama"
> mycontrol.ControlSource = "Category.PROJECT"
>
> SET mycontrol = myform.Add("CatMusic","OptionButton")
> mycontrol.Move(5917,1438,1031,198)
> mycontrol.TabIndex = 8
> mycontrol.Caption = "Music"
> mycontrol.ValueOn = "Music"
> mycontrol.ControlSource = "Category.PROJECT"
>
> SET mycontrol = myform.Add("CatSport","OptionButton")
> mycontrol.Move(5917,1657,1031,198)
> mycontrol.TabIndex = 9
> mycontrol.Caption = "Sport"
> mycontrol.ValueOn = "Sport"
> mycontrol.ControlSource = "Category.PROJECT"
>
> myform.DefStepWidth = 3
> myform.DefBorderVisible = - 1
> myform.DefWindowsDefaults = - 1
> myform.DefAlignment = 2
> SET mycontrol = myform.Add("SynopsisButton","CommandButton")
> mycontrol.Move(105,1355,1052,312)
> mycontrol.Value = 0
> mycontrol.TabIndex = 19
> mycontrol.ReadOnly = - 1
> mycontrol.TabStop = 0
> mycontrol.Caption = "Hide Synopsis"
> mycontrol.WindowsDefaults = - 1
>
> myform.DefStepWidth = 2
> myform.DefBackVisible = 0
> myform.DefBorderVisible = 0
> myform.DefViewStyle = 0
> myform.DefAlignment = 0
> SET mycontrol = myform.Add("CatLabel","Label")
> mycontrol.Move(4553,980,541,166)
> mycontrol.Caption = "Category"
>
> myform.DefBorderVisible = - 1
> SET mycontrol = myform.Add("ApprLabel","Label")
> mycontrol.Move(94,3073,1052,167)
> mycontrol.Caption = "Project Approvals"
>
> myform.DefBackColor = 8
> myform.DefBorderColor = 8
> myform.DefBackVisible = - 1
> myform.DefBorderVisible = 0
> myform.DefViewStyle = 2
> myform.DefFontString = "ARIAL,10,0,34,0"
> SET mycontrol = myform.Add("IssueDateTextBox","TextBox")
> mycontrol.Move(5844,3167,677,198)
> mycontrol.TabIndex = 18
> mycontrol.ReadOnly = - 1
> mycontrol.ControlSource = "ContractDate.PROJECT"
>
> myform.DefBackColor = 0
> myform.DefBackVisible = 0
> myform.DefBorderVisible = - 1
> myform.DefViewStyle = 0
> myform.DefFontString = "Arial,10,1,34,0"
> SET mycontrol = myform.Add("IssueDateLabel","Label")
> mycontrol.Move(4688,3178,948,166)
> mycontrol.Caption = "Contract Issued"
>
> myform.DefBorderColor = 2
> myform.DefStepWidth = 3
> myform.DefBackVisible = - 1
> myform.DefAlignment = 2
> SET mycontrol = myform.Add("ContractButton","CommandButton")
> mycontrol.Move(4657,2636,1250,312)
> mycontrol.Value = 0
> mycontrol.TabIndex = 17
> mycontrol.ReadOnly = - 1
> mycontrol.TabStop = 0
> mycontrol.OnClick.Procedure = "SetApprDate"
> mycontrol.OnClick.Mode = 2
> mycontrol.Caption = "Issue Contract"
> mycontrol.WindowsDefaults = - 1
>
> myform.DefStepWidth = 2
> myform.DefBackVisible = 0
> myform.DefBorderVisible = 0
> myform.DefAlignment = 0
> SET mycontrol = myform.Add("ContractLabel","Label")
> mycontrol.Move(4688,2292,875,167)
> mycontrol.Caption = "Contract Issue"
>
> myform.DefBackVisible = - 1
> SET mycontrol = myform.Add("EdApprCheckBox","CheckBox")
> mycontrol.Move(459,3480,1458,239)
> mycontrol.TabIndex = 11
> mycontrol.OnClick.Procedure = "SetApprDate"
> mycontrol.OnClick.Mode = 2
> mycontrol.Caption = "Editor Approval"
> mycontrol.ValueOn = "1"
> mycontrol.ValueOff = "0"
> mycontrol.ControlSource = "CommEdAppr.PROJECT"
>
> SET mycontrol = myform.Add("ContrApprCheckBox","CheckBox")
> mycontrol.Move(459,3948,1458,240)
> mycontrol.TabIndex = 12
> mycontrol.OnClick.Procedure = "SetApprDate"
> mycontrol.OnClick.Mode = 2
> mycontrol.Caption = "Network Approval"
> mycontrol.ValueOn = "2"
> mycontrol.ValueOff = "0"
> mycontrol.ControlSource = "ControlAppr.PROJECT"
>
> SET mycontrol = myform.Add("FinApprCheckBox","CheckBox")
> mycontrol.Move(469,4428,1459,239)
> mycontrol.TabIndex = 13
> mycontrol.OnClick.Procedure = "SetApprDate"
> mycontrol.OnClick.Mode = 2
> mycontrol.Caption = "Finance Approval"
> mycontrol.ValueOn = "4"
> mycontrol.ValueOff = "0"
> mycontrol.ControlSource = "FinanceAppr.PROJECT"
>
> myform.DefBorderVisible = - 1
> SET mycontrol = myform.Add("ProdCoComboBox","ComboBox")
> mycontrol.Move(1500,980,2553,302)
> mycontrol.TabIndex = 20
> mycontrol.WindowsDefaults = - 1
> mycontrol.Sorted = - 1
> mycontrol.ControlSource = "ProdCo.PROJECT"
> mycontrol.Style = 0
> mycontrol.ScrollEnable = 2
> mycontrol.Columns = 1
> mycontrol.List.Add("Value")
> mycontrol.BoundColumn = 1
> mycontrol.SetColumnWidths(1000)
>
> SET mycontrol = myform.Add("CommEdComboBox","ComboBox")
> mycontrol.Move(1500,2615,2553,302)
> mycontrol.TabIndex = 21
> mycontrol.WindowsDefaults = - 1
> mycontrol.Sorted = - 1
> mycontrol.ControlSource = "CommEditor.PROJECT"
> mycontrol.Style = 0
> mycontrol.ScrollEnable = 2
> mycontrol.Columns = 1
> mycontrol.List.Add("Value")
> mycontrol.BoundColumn = 1
> mycontrol.SetColumnWidths(1000)
>
> myform.AutoRedraw = - 1
> myform.SetActive()
> END SUB
>
> ========================
>
> "Peter Olcott" <olcott@att.net> wrote in message
> news:wZmog.10658$f76.10628@dukeread06...
>> Are there any GUI scripting languages that can see everything that is on
> the
>> display screen?
>>
>>
>
>

Answer to your question is the Superbase program has its own multi-user
facilities for record locking. It has embedding facilities for DDE and OLE
linking and embedding. Often used as a multimedia database one field data
type is the external dta type. This is in fact a means to link to a large
object without storing it in a database file. A link to photos, or music
would start a picture viewer or a sound player program, Word for Windows.
It interacts with the Windows operating system calls. The GUIs it makes can
be of multiple pages. See the book Superbase Revealed! by Dalgleish.
superbase.com website etc. ts tools include Form (GUI) Designer, Report
Designer (writer), Program Editor, Text Editor, File Definition writer,
directory browser utilities, object properties window etc. Templates for
joined files etc are included. Lotus SmartSuite has a Lotuscript language
tool for recording scripts also. Windows Script is the foundation for VBA
the language of Microsoft's applications. Not too familiar with Lotus
script recording tool beyond that it is installed with the Lotus 1-2-3
Suite.

"Peter Olcott" <olcott@att.net> wrote in message
news:wZmog.10658$f76.10628@dukeread06...
> Are there any GUI scripting languages that can see everything that is on
the
> display screen?
>
>

Answer to your question is the Superbase program has its own multi-user
facilities for record locking. It has embedding facilities for DDE and OLE
linking and embedding. Often used as a multimedia database one field data
type is the external dta type. This is in fact a means to link to a large
object without storing it in a database file. A link to photos, or music
would start a picture viewer or a sound player program, Word for Windows.
It interacts with the Windows operating system calls. The GUIs it makes can
be of multiple pages. See the book Superbase Revealed! by Dalgleish.
superbase.com website etc. ts tools include Form (GUI) Designer, Report
Designer (writer), Program Editor, Text Editor, File Definition writer,
directory browser utilities, object properties window etc. Templates for
joined files etc are included. Lotus SmartSuite has a Lotuscript language
tool for recording scripts also. Windows Script is the foundation for VBA
the language of Microsoft's applications. Not too familiar with Lotus
script recording tool beyond that it is installed with the Lotus 1-2-3
Suite.

"Peter Olcott" <olcott@att.net> wrote in message
news:wZmog.10658$f76.10628@dukeread06...
> Are there any GUI scripting languages that can see everything that is on
the
> display screen?
>
>

So none of these programs can control any other program using the mouse?

"carmen miranda" <@foster.com> wrote in message
news:H-Odnc8eCKfYbT7ZnZ2dnUVZ_smdnZ2d@hbci.com...
> Answer to your question is the Superbase program has its own multi-user
> facilities for record locking. It has embedding facilities for DDE and OLE
> linking and embedding. Often used as a multimedia database one field data
> type is the external dta type. This is in fact a means to link to a large
> object without storing it in a database file. A link to photos, or music
> would start a picture viewer or a sound player program, Word for Windows.
> It interacts with the Windows operating system calls. The GUIs it makes can
> be of multiple pages. See the book Superbase Revealed! by Dalgleish.
> superbase.com website etc. ts tools include Form (GUI) Designer, Report
> Designer (writer), Program Editor, Text Editor, File Definition writer,
> directory browser utilities, object properties window etc. Templates for
> joined files etc are included. Lotus SmartSuite has a Lotuscript language
> tool for recording scripts also. Windows Script is the foundation for VBA
> the language of Microsoft's applications. Not too familiar with Lotus
> script recording tool beyond that it is installed with the Lotus 1-2-3
> Suite.
>
> "Peter Olcott" <olcott@att.net> wrote in message
> news:wZmog.10658$f76.10628@dukeread06...
>> Are there any GUI scripting languages that can see everything that is on
> the
>> display screen?
>>
>>
>
>

So none of these programs can control any other program using the mouse?

"carmen miranda" <@foster.com> wrote in message
news:H-Odnc8eCKfYbT7ZnZ2dnUVZ_smdnZ2d@hbci.com...
> Answer to your question is the Superbase program has its own multi-user
> facilities for record locking. It has embedding facilities for DDE and OLE
> linking and embedding. Often used as a multimedia database one field data
> type is the external dta type. This is in fact a means to link to a large
> object without storing it in a database file. A link to photos, or music
> would start a picture viewer or a sound player program, Word for Windows.
> It interacts with the Windows operating system calls. The GUIs it makes can
> be of multiple pages. See the book Superbase Revealed! by Dalgleish.
> superbase.com website etc. ts tools include Form (GUI) Designer, Report
> Designer (writer), Program Editor, Text Editor, File Definition writer,
> directory browser utilities, object properties window etc. Templates for
> joined files etc are included. Lotus SmartSuite has a Lotuscript language
> tool for recording scripts also. Windows Script is the foundation for VBA
> the language of Microsoft's applications. Not too familiar with Lotus
> script recording tool beyond that it is installed with the Lotus 1-2-3
> Suite.
>
> "Peter Olcott" <olcott@att.net> wrote in message
> news:wZmog.10658$f76.10628@dukeread06...
>> Are there any GUI scripting languages that can see everything that is on
> the
>> display screen?
>>
>>
>
>

just mentioned 4 types of programs from desktop word processing OLE
container i.e., Microsoft Word, to a picture viewer. You are able to launch
most programs from Microsoft Internet Explorer. Often clicking on a file
will will open the program. The file shortcuts could be as external data
types in a file. The GUI could list your files by applicatrion type. Then
any chosen applicatio type will list your files, click it opens the
application. Superbase only uses 4 500 kbytes of ram. It is not an object
processor program. You read the website right?

"carmen miranda" <@foster.com> wrote in message
news:H-Odnc8eCKfYbT7ZnZ2dnUVZ_smdnZ2d@hbci.com...

just mentioned 4 types of programs from desktop word processing OLE
container i.e., Microsoft Word, to a picture viewer. You are able to launch
most programs from Microsoft Internet Explorer. Often clicking on a file
will will open the program. The file shortcuts could be as external data
types in a file. The GUI could list your files by applicatrion type. Then
any chosen applicatio type will list your files, click it opens the
application. Superbase only uses 4 500 kbytes of ram. It is not an object
processor program. You read the website right?

"carmen miranda" <@foster.com> wrote in message
news:H-Odnc8eCKfYbT7ZnZ2dnUVZ_smdnZ2d@hbci.com...

"carmen miranda" <@foster.com> wrote in message
news:YMSdnap86b9quznZnZ2dnUVZ_qSdnZ2d@hbci.com...
> just mentioned 4 types of programs from desktop word processing OLE
> container i.e., Microsoft Word, to a picture viewer. You are able to launch
> most programs from Microsoft Internet Explorer. Often clicking on a file
> will will open the program. The file shortcuts could be as external data
> types in a file. The GUI could list your files by applicatrion type. Then
> any chosen applicatio type will list your files, click it opens the
> application. Superbase only uses 4 500 kbytes of ram. It is not an object
> processor program. You read the website right?
>
> "carmen miranda" <@foster.com> wrote in message
> news:H-Odnc8eCKfYbT7ZnZ2dnUVZ_smdnZ2d@hbci.com...
>
>

The superbase program can be told what to look for on the screen to know where
to automatically control multiple sequences of mouse movements and click the
mouse on the screen location that it was told to look for?

Before you say anything else, please say (yes or no) to the above question.
Thanks.

"carmen miranda" <@foster.com> wrote in message
news:YMSdnap86b9quznZnZ2dnUVZ_qSdnZ2d@hbci.com...
> just mentioned 4 types of programs from desktop word processing OLE
> container i.e., Microsoft Word, to a picture viewer. You are able to launch
> most programs from Microsoft Internet Explorer. Often clicking on a file
> will will open the program. The file shortcuts could be as external data
> types in a file. The GUI could list your files by applicatrion type. Then
> any chosen applicatio type will list your files, click it opens the
> application. Superbase only uses 4 500 kbytes of ram. It is not an object
> processor program. You read the website right?
>
> "carmen miranda" <@foster.com> wrote in message
> news:H-Odnc8eCKfYbT7ZnZ2dnUVZ_smdnZ2d@hbci.com...
>
>

The superbase program can be told what to look for on the screen to know where
to automatically control multiple sequences of mouse movements and click the
mouse on the screen location that it was told to look for?

Before you say anything else, please say (yes or no) to the above question.
Thanks.

i have done that using Windows Recorder. This Windows Recorder program was
included with Windows 3.1. Assuming that you had a GUI already, it would
tab button to button, and click wherever it was that you wanted. Yes the
mouse..If you wrote a script program then the button would have a name. The
script would sy Click On "button name". Would that be OK?


"carmen miranda" <@foster.com> wrote in message
news:YMSdnap86b9quznZnZ2dnUVZ_qSdnZ2d@hbci.com...
> just mentioned 4 types of programs from desktop word processing OLE
> container i.e., Microsoft Word, to a picture viewer. You are able to
launch
> most programs from Microsoft Internet Explorer. Often clicking on a file
> will will open the program. The file shortcuts could be as external data
> types in a file. The GUI could list your files by applicatrion type. Then
> any chosen applicatio type will list your files, click it opens the
> application. Superbase only uses 4 500 kbytes of ram. It is not an
object
> processor program. You read the website right?
>
> "carmen miranda" <@foster.com> wrote in message
> news:H-Odnc8eCKfYbT7ZnZ2dnUVZ_smdnZ2d@hbci.com...
>
>

i have done that using Windows Recorder. This Windows Recorder program was
included with Windows 3.1. Assuming that you had a GUI already, it would
tab button to button, and click wherever it was that you wanted. Yes the
mouse..If you wrote a script program then the button would have a name. The
script would sy Click On "button name". Would that be OK?


"carmen miranda" <@foster.com> wrote in message
news:YMSdnap86b9quznZnZ2dnUVZ_qSdnZ2d@hbci.com...
> just mentioned 4 types of programs from desktop word processing OLE
> container i.e., Microsoft Word, to a picture viewer. You are able to
launch
> most programs from Microsoft Internet Explorer. Often clicking on a file
> will will open the program. The file shortcuts could be as external data
> types in a file. The GUI could list your files by applicatrion type. Then
> any chosen applicatio type will list your files, click it opens the
> application. Superbase only uses 4 500 kbytes of ram. It is not an
object
> processor program. You read the website right?
>
> "carmen miranda" <@foster.com> wrote in message
> news:H-Odnc8eCKfYbT7ZnZ2dnUVZ_smdnZ2d@hbci.com...
>
>