Convert DOS application(s) to Harbour <== LIB compatibility

[Enrico Maria Giordano]

Sorry, I can't help you farther. It works fine here.

EMG

[elrosa]

May I ask how did you test the DBF which I had sent you?

[Enrico Maria Giordano]

Code: Select all  Expand view

FUNCTION MAIN()

    USE X_CT

    ? FIELD -> prv_email

    INKEY( 0 )

    RETURN NIL

EMG

[elrosa]

Found it!

It was the rddsys.prg I linked.

This gave me the problem:

Code: Select all  Expand view

/***
*
*  RddSys.prg
*
*  This program is run each time your application is started to setup
*  the proper default driver.  You should modify a copy of this file
*  if you wish to use a default RDD other than DBFNTX.
*
*  Copyright (c) 1993, Computer Associates International, Inc.
*  All rights reserved.
*
*/

ANNOUNCE RDDSYS                        // This line must not change

INIT PROCEDURE RddInit
   REQUEST DBFCDX                      // Causes DBFNTX RDD to be linked in
                               
   rddSetDefault( "DBFCDX" )           // Set up DBFNTX as default driver

   RETURN

// eof: rddsys.prg

[Enrico Maria Giordano]

Great!

EMG

[elrosa]

Thanks for (all) your help.

How do i tell the compiler only to compile the PRG I changed and not all PRGs?

[Antonio Linares]

You have to use a make file

Here you have an example:
viewtopic.php?f=6&t=28919

[elrosa]

Thank you, I will take a look at it.

MemoEdit problem:

Code: Select all  Expand view

MemoEdit(tnmemo,11,3,24,76,.T.,'MemoControl()',73,3)

This seems not to work anymore? Getting error Undefined function: MemoControl()

Is there an example of how to use memoedit with user defined controls?

Maarten

[Enrico Maria Giordano]

Thank you, I will take a look at it.

MemoEdit problem:

Code: Select all  Expand view

MemoEdit(tnmemo,11,3,24,76,.T.,'MemoControl()',73,3)

This seems not to work anymore? Getting error Undefined function: MemoControl()

Is there an example of how to use memoedit with user defined controls?

Maarten

Try this:

Code: Select all  Expand view

MemoEdit(tnmemo,11,3,24,76,.T.,'MemoControl',73,3)

MemoControl without ().

EMG

[Enrico Maria Giordano]

Also check that MemoControl() function is not STATIC. Ie:

Code: Select all  Expand view

FUNCTION MemoControl()

not

Code: Select all  Expand view

STATIC FUNCTION MemoControl()

EMG

[elrosa]

<shame icon>
Eh, thank you... need a holiday.. 3 hours to go.
</shame icon>

[elrosa]

Last question before my holiday: Is there a substitute for the EGA43() and VGA28() functions? So that you can swith to 43 lines and 28 Lines?

[Enrico Maria Giordano]

Try this:

Code: Select all  Expand view

SetMode( <nRowCount>, <nColCount> ) --> lSuccess

EMG