Subject Re: blind programmer getting started with dbase
From Mervyn Bick <invalid@invalid.invalid>
Date Sun, 2 Aug 2015 10:14:33 +0200
Newsgroups dbase.getting-started

On 2015/08/02 02:35 AM, Rich K. wrote:
> hello,
 > I am a blind dbase programmer in pittsburgh, pa.
 > I have been using dbase for windows for about two months.
 > I am very familiar with the older dos version , but not the windows version.
 > I have some questions on setting up fomrs in the right metric mode.
 > I have read as a blind programmer and user it would be optimal to program on a 640x480 pixel form.
 > I would like to program on that size form but in the character metrics.
 > Can anyone help with converting that size form to characters, or give me any assistance on what mode of metrics to program in.
 > Also, I am doing all of my work from a coding standpoint.
 > I am not using any of the interfaces tools since they are not accessible with my screnreader.
A screen size of 640x480 pixels is roughly 29x68 characters.  For pixels
the metric property of the form is 6 and for characters it is 0.

Below is the code for a form (default_sizes.wfm) with some of the most
frequently used objects.  Except for the grid, these are placed every
second line and with their left edges at character 5. The grid is on
line 15 and it is placed at character 25.  The form size is 30x70
characters.

These objects were placed using the form designer which has streamed out
the default heights and widths for the objects.  It is only necessary to
specify these properties if you need different values for a specific
object.  The "stripped down" version of the form (default_sizes1.wfm) is
also included.  When run, the two forms look identical.

Mervyn.


* Start of example form default_sizes.wfm

** END HEADER -- do not remove this line
//
// Generated on 2015/08/02
//
parameter bModal
local f
f = new default_sizesForm()
if (bModal)
    f.mdi = false // ensure not MDI
    f.readModal()
else
    f.open()
endif

class default_sizesForm of FORM
    with (this)
       height = 30.0
       left = 60.0
       top = 1.0
       width = 70.0
       text = ""
    endwith

    this.PUSHBUTTON1 = new PUSHBUTTON(this)
    with (this.PUSHBUTTON1)
       height = 1.09
       left = 5.0
       top = 1.0
       width = 15.2857
       text = "Pushbutton1"
    endwith

    this.CHECKBOX1 = new CHECKBOX(this)
    with (this.CHECKBOX1)
       height = 1.0909
       left = 5.0
       top = 3.0
       width = 14.1429
       text = "Checkbox1"
    endwith

    this.RADIOBUTTON1 = new RADIOBUTTON(this)
    with (this.RADIOBUTTON1)
       height = 1.0909
       left = 5.0
       top = 5.0
       width = 15.7143
       text = "Radiobutton1"
       group = true
       value = true
    endwith

    this.ENTRYFIELD1 = new ENTRYFIELD(this)
    with (this.ENTRYFIELD1)
       height = 1.0
       left = 5.0
       top = 7.0
       width = 8.0
       value = "Entryfield1"
    endwith

    this.COMBOBOX1 = new COMBOBOX(this)
    with (this.COMBOBOX1)
       height = 1.0
       left = 5.0
       top = 9.0
       width = 12.0
       style = 1        // DropDown
    endwith

    this.TEXTLABEL1 = new TEXTLABEL(this)
    with (this.TEXTLABEL1)
       height = 1.0
       left = 5.0
       top = 11.0
       width = 12.0
       text = "Textlabel1"
    endwith

    this.TEXT1 = new TEXT(this)
    with (this.TEXT1)
       height = 1.0
       left = 5.0
       top = 13.0
       width = 12.0
       text = "Text1"
    endwith

    this.LISTBOX1 = new LISTBOX(this)
    with (this.LISTBOX1)
       height = 4.0
       left = 5.0
       top = 15.0
       width = 8.0
       id = 108
       colorHighLight = "HighLightText/HighLight"
    endwith

    this.GRID1 = new GRID(this)
    with (this.GRID1)
       height = 4.0
       left = 25.0
       top = 15.0
       width = 12.0
    endwith


endclass

* End of example form default_sizes.wfm


* Start of example form default_sizes1.wfm

parameter bModal
local f
f = new default_sizes1Form()
if (bModal)
    f.mdi = false // ensure not MDI
    f.readModal()
else
    f.open()
endif

class default_sizes1Form of FORM
    with (this)
       height = 30.0
       left = 60.0
       top = 1.0
       width = 70.0
       text = ""
    endwith

    this.PUSHBUTTON1 = new PUSHBUTTON(this)
    with (this.PUSHBUTTON1)
       left = 5.0
       top = 1.0
       text = "Pushbutton1"
    endwith

    this.CHECKBOX1 = new CHECKBOX(this)
    with (this.CHECKBOX1)
       left = 5.0
       top = 3.0
       text = "Checkbox1"
    endwith

    this.RADIOBUTTON1 = new RADIOBUTTON(this)
    with (this.RADIOBUTTON1)
       left = 5.0
       top = 5.0
       text = "Radiobutton1"
       group = true
       value = true
    endwith

    this.ENTRYFIELD1 = new ENTRYFIELD(this)
    with (this.ENTRYFIELD1)
       height = 1.0
       left = 5.0
       top = 7.0
       width = 8.0
       value = "Entryfield1"
    endwith

    this.COMBOBOX1 = new COMBOBOX(this)
    with (this.COMBOBOX1)
       left = 5.0
       top = 9.0
       style = 1        
    endwith

    this.TEXTLABEL1 = new TEXTLABEL(this)
    with (this.TEXTLABEL1)
       left = 5.0
       top = 11.0
       text = "Textlabel1"
    endwith

    this.TEXT1 = new TEXT(this)
    with (this.TEXT1)
       left = 5.0
       top = 13.0
       text = "Text1"
    endwith

    this.LISTBOX1 = new LISTBOX(this)
    with (this.LISTBOX1)
       left = 5.0
       top = 15.0
       id = 108
    endwith

    this.GRID1 = new GRID(this)
    with (this.GRID1)
       left = 25.0
       top = 15.0
    endwith


endclass

* End of example form default_sizes1.wfm