Nice
-----Original Message----- From: [EMAIL PROTECTED] [mailto:[EMAIL PROTECTED] On Behalf Of Roberto Lopez Sent: Sunday, July 13, 2008 10:28 PM To: Harbour Project Main Developer List. Subject: Re: R: Re: R: Re: [Harbour] What will be harbour 2.0 for you? 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 _______________________________________________ Harbour mailing list [email protected] http://lists.harbour-project.org/mailman/listinfo/harbour
