Massimo Belgrano wrote:
If you send me or post a sample
From dBase V forr Windows (as far as I remenber it worked the same in
the DOS version):
//////////////////////////////////////////////////////////////////////
CLASS BROWSE Example
The following example defines a form that contains a browse object of
the Contact
table. The Exit pushbutton gives the user an alternative way to close
the form:
LOCAL f
f=NEW EntryForm()
f.OPEN()
CLASS EntryForm OF FORM
this.Top=2
this.Left=2
this.Width=38
this.Height=20
this.View = "Contact.DBF"
this.Text= "Edit as Required"
DEFINE BROWSE Br1 OF THIS;
PROPERTY;
Alias "Contact",;
Fields "CompCode, Contact",;
Top 4,;
Left 3,;
Width 32,;
Height 12,;
Delete .T.,;
StatusMessage "Contact Table Browse",;
Toggle .F. && Disables switching views with F2
DEFINE TEXT Text1 OF THIS;
PROPERTY;
Text "Contact Table Points of Contact",;
Width 38,;
Top 1,;
Left 0,;
Alignment 1,;
Height 2.50,;
FontSize 12.00,;
FontBold .T.
DEFINE PUSHBUTTON Exit OF THIS;
PROPERTY Text "Exit", Height 2,;
Top 17, Left 14,;
OnClick {;Form.Close()}
ENDCLASS
///////////////////////////////////////////////////////////////
Regards,
Roberto.
_______________________________________________
Harbour mailing list
[email protected]
http://lists.harbour-project.org/mailman/listinfo/harbour
