Hard Coded OCX in listings in GFA Basic 32

This example demonstrates the hard coding of OCX objects in GFA

Basic 32.

In general this is where an Object is created within the listing of the

program itself using the OCX command.

This type of programming should only be used for fast prototyping

or scripting. Programming of Objects using the OCX command as

of GB32 version 1169 (though this may change in the future),

respond to fewer Event Subs than those created with the prepass

of the IDE Form Editor and are better controlled by using the API.

For the Win 32 API the programmer should refer to the Win32 SDK

Online Help file from Microsoft.

The following example shows a number of objects created in the listing

without the IDE Form Editor prepass.

Click here to download hardcoding_objects.g32

'generic hardcoded OCX objects gb32

Global b%

'generic form FormName

Local FormName_px1% = 10

Local FormName_py1% = 50

Local FormName_pwd% = 435

Local FormName_pht% = 400

Form FormName = "FormName", FormName_px1%, FormName_py1%, FormName_pwd%, FormName_pht%

FormName.Width = FormName_pwd% * FormName.TwipsPerPixelX

FormName.Height = FormName_pht% * FormName.TwipsPerPixelY

FormName.Appearance = 0

FormName.BackColor = RGB(240, 240, 240)

FormName.BorderStyle = 2 '0=none 1=single 2=double

FormName.Caption = "Form Hardcoded OCX Example"

FormName.ControlBox = True

FormName.MaxButton = False

FormName.MinButton = False

FormName.OnTop = True

FormName.AutoRedraw = True

FormName.ToolTipText = "Form"

'generic ToolBar ToolBarName

'Note Top,Left and Width, Height

'Not Direct Reference Assignable with Ocx

Ocx ToolBar ToolBarName = "ToolBarName"

ToolBarName.Appearance = 1

ToolBarName.BorderStyle = 3

ToolBarName.ToolTipText = "ToolBar"

'generic label LabelName

Local LabelName_px1% = 10

Local LabelName_py1% = 50

Local LabelName_pwd% = 100

Local LabelName_pht% = 25

Ocx Label LabelName = "LabelName", LabelName_px1%, LabelName_py1%, LabelName_pwd%, LabelName_pht%

LabelName.BorderStyle = 1 '0=none 1=single 2=double

LabelName.Alignment = 2 '0=left 1=right 2=centered

LabelName.Appearance = 9

LabelName.BackColor = RGB(192, 192, 192)

LabelName.ForeColor = RGB(0, 0, 0)

LabelName.FontName = "Arial"

LabelName.FontSize = 8

LabelName.FontBold = False

LabelName.Caption = "Label"

LabelName.Enabled = True

LabelName.MultiLine = True

LabelName.ToolTipText = "Label"

'generic Button ButtonName

Local ButtonName_px1% = 10

Local ButtonName_py1% = 80

Local ButtonName_pwd% = 100

Local ButtonName_pht% = 25

Ocx Command ButtonName = "ButtonName" , ButtonName_px1%, ButtonName_py1%, ButtonName_pwd%, ButtonName_pht%

ButtonName.Caption = "Button"

ButtonName.TabStop = True

ButtonName.FontSize = 8

ButtonName.FontName = "Arial"

ButtonName.FontBold = False

ButtonName.ToolTipText = "Button or Command"

'generic Frame FrameName

Local FrameName_px1% = 10

Local FrameName_py1% = 110

Local FrameName_pwd% = 100

Local FrameName_pht% = 25

Ocx Frame FrameName = "FrameName" , FrameName_px1%, FrameName_py1%, FrameName_pwd%, FrameName_pht%

FrameName.BackColor = RGB(240, 240, 240)

FrameName.ForeColor = RGB(0, 0, 0)

FrameName.FontSize = 8

FrameName.FontName = "Arial"

FrameName.FontBold = False

FrameName.BorderStyle = 1

FrameName.Caption = "Frame"

FrameName.ToolTipText = "Frame"

'generic CheckBox CheckBoxName

Local CheckBoxName_px1% = 10

Local CheckBoxName_py1% = 140

Local CheckBoxName_pwd% = 100

Local CheckBoxName_pht% = 25

Ocx CheckBox CheckBoxName = "CheckBoxName" , CheckBoxName_px1%, CheckBoxName_py1%, CheckBoxName_pwd%, CheckBoxName_pht%

CheckBoxName.Caption = "CheckBox"

CheckBoxName.Value = 1 '0=not checked 1=checked

CheckBoxName.ThreeState = False

CheckBoxName.BackColor = RGB(192, 192, 192)

CheckBoxName.ForeColor = RGB(0, 0, 0)

CheckBoxName.ToolTipText = "CheckBox"

'generic Option OptionName

Local OptionName_px1% = 10

Local OptionName_py1% = 170

Local OptionName_pwd% = 100

Local OptionName_pht% = 20

Ocx Option OptionName = "OptionName" , OptionName_px1%, OptionName_py1%, OptionName_pwd%, OptionName_pht%

OptionName.Caption = "Option"

OptionName.Appearance = 1 '0=flat 1=3d

OptionName.Value = 1

OptionName.ToolTipText = "Option"

'generic UpDown UpDownName

Local UpDownName_Left% = 10

Local UpDownName_Top% = 170 'oddly relative to toolbar not form

Local UpDownName_pwd% = 100

Local UpDownName_pht% = 20

Ocx UpDown UpDownName = " UpDownName", UpDownName_Left%, UpDownName_Top%, UpDownName_pwd%, UpDownName_pht%

UpDownName.Left = UpDownName_Left%

UpDownName.Top = UpDownName_Top%

UpDownName.Width = 100

UpDownName.Height = 20

UpDownName.Min = 1

UpDownName.Max = 10

UpDownName.Value = UpDownName.Min

UpDownName.Horizontal = False

UpDownName.Enabled = True

UpDownName.ToolTipText = "UpDown"

Ocx ListView ListViewName = "ListView", 10, 240, 210, 80

ListViewName.BackColor = RGB(240, 240, 240)

ListViewName.TextBackColor = RGB(0, 100, 0)

ListViewName.View = 3

ListViewName.FullRowSelect = 1

ListViewName.GridLines = 1

ListViewName.ColumnHeaders.Add , , "A"

ListViewName.ColumnHeaders.Add , , "B"

ListViewName.ColumnHeaders.Add , , "C"

'generic TextBox TextBoxName

Local TextBoxName_px1% = 120

Local TextBoxName_py1% = 50

Local TextBoxName_pwd% = 100

Local TextBoxName_pht% = 16

Ocx TextBox TextBoxName = " TextBoxName", TextBoxName_px1%, TextBoxName_py1%, TextBoxName_pwd%, TextBoxName_pht%

TextBoxName.Text = "TextBox"

TextBoxName.BorderStyle = 1

TextBoxName.BackColor = RGB(255, 255, 255)

TextBoxName.ForeColor = RGB(0, 0, 0)

TextBoxName.ToolTipText = "TextBox"

'generic ListBox ListBoxName

Local ListBoxName_px1% = 120

Local ListBoxName_py1% = 80

Local ListBoxName_pwd% = 100

Local ListBoxName_pht% = 16

Ocx ListBox ListBoxName = "ListBoxName", ListBoxName_px1%, ListBoxName_py1%, ListBoxName_pwd%, ListBoxName_pht%

ListBoxName.BorderStyle = 1

ListBoxName.BackColor = RGB(255, 255, 255)

ListBoxName.ForeColor = RGB(0, 0, 0)

ListBoxName.ToolTipText = "ListBox"

ListBoxName.AddItem "ListBox"

'generic ComboBox ComboBoxName

Local ComboBoxName_px1% = 120

Local ComboBoxName_py1% = 110

Local ComboBoxName_pwd% = 100

Local ComboBoxName_pht% = 16

Ocx ComboBox ComboBoxName = "ComboBox", ComboBoxName_px1%, ComboBoxName_py1%, ComboBoxName_pwd%, ComboBoxName_pht%

ComboBoxName.BorderStyle = 1

ComboBoxName.BackColor = RGB(255, 255, 255)

ComboBoxName.ForeColor = RGB(0, 0, 0)

ComboBoxName.ToolTipText = "ComboBox"

ComboBoxName.AddItem "ComboBox"

'generic ProgressBar ProgressBarName

Local ProgressBarName_px1% = 120

Local ProgressBarName_py1% = 140

Local ProgressBarName_pwd% = 100

Local ProgressBarName_pht% = 20

Ocx ProgressBar ProgressBarName = " ProgressBarName", ProgressBarName_px1%, ProgressBarName_py1%, ProgressBarName_pwd%, ProgressBarName_pht%

ProgressBarName.BorderStyle = 1

ProgressBarName.ToolTipText = "ProgressBar"

'generic Slider SliderName

Local SliderName_px1% = 120

Local SliderName_py1% = 170

Local SliderName_pwd% = 100

Local SliderName_pht% = 20

Ocx Slider SliderName = " SliderName", SliderName_px1%, SliderName_py1%, SliderName_pwd%, SliderName_pht%

SliderName.BorderStyle = 1

SliderName.ToolTipText = "Slider"

'generic Scroll ScrollName

Local ScrollName_Left% = 120

Local ScrollName_Top% = 170 'oddly relative to toolbar not form

Local ScrollName_pwd% = 100

Local ScrollName_pht% = 20

Ocx Scroll ScrollName = " ScrollName", ScrollName_Left%, ScrollName_Top%, ScrollName_pwd%, ScrollName_pht%

ScrollName.Left = ScrollName_Left%

ScrollName.Top = ScrollName_Top%

ScrollName.Width = 100

ScrollName.Height = 20

ScrollName.Min = 1

ScrollName.Max = 10

ScrollName.Value = ScrollName.Min

ScrollName.Enabled = True

ScrollName.ToolTipText = "ScrollBar"

'generic MonthView MonthViewName

Local MonthViewName_px1% = 230

Local MonthViewName_py1% = 50

Local MonthViewName_pwd% = 100

Local MonthViewName_pht% = 60

Ocx MonthView MonthViewName = "MonthViewName", MonthViewName_px1%, MonthViewName_py1%, MonthViewName_pwd%, MonthViewName_pht%

MonthViewName.BorderStyle = 1

MonthViewName.BackColor = RGB(255, 255, 255)

MonthViewName.ForeColor = RGB(0, 0, 0)

MonthViewName.ToolTipText = "MonthView"

Local ImageName_px1% = 230

Local ImageName_py1% = 180

Local ImageName_pwd% = 185

Local ImageName_pht% = 42

Ocx Image ImageName = "ImageName", ImageName_px1%, ImageName_py1%, ImageName_pwd%, ImageName_pht%

ImageName.BorderStyle = 1

ImageName.BackColor = RGB(255, 255, 255)

ImageName.ToolTipText = "Image"

ImageName.Left = ImageName_px1%

ImageName.Top = ImageName_py1%

ImageName.Width = ImageName_pwd%

ImageName.Height = ImageName_pht%

Ocx RichEdit RichEditName = "RichEditName", 230, 265,185,60

RichEditName.BorderStyle = 1

RichEditName.BackColor = RGB(255, 255, 255)

RichEditName.ToolTipText = "RichEdit"

Ocx StatusBar StatusBarName = "StausBarName"

StatusBarName.BorderStyle = 0

StatusBarName.ToolTipText = "StatusBar"

Do : Sleep : Until Me Is Nothing