FiveTech Software tech support forums

L'esempio è mio ma non è corretto. Eccoti la versione attuale.

STATIC FUNCTION GETMAIL( cServer, cUser, cPassword )    LOCAL lOk := .F.    LOCAL oCli    LOCAL aMail, aPar, cMsg, oAtt    LOCAL i, j    TRY        oCli ...

Eccoti un esempio funzionante:

#include "Fivewin.ch"


#define EM_LIMITTEXT 197


FUNCTION MAIN()

LOCAL oDlg

LOCAL oGet, cVar := SPACE( 80 )

DEFINE DIALOG oDlg

@ 1, 1 GET oGet VAR cVar MEMO;
SIZE 100, 30

oGet:nStyle -= ES_WANTRETURN

@ 3, 1 BUTTON "&Close ...

Eccoti un esempio funzionante:

FUNCTION MAIN()

LOCAL oWord, oDoc, oSel

oWord = CREATEOBJECT( "Word.Application" )

oDoc = oWord:Documents:Add()

oDoc:Paragraphs:TabStops:Add( 300 )

oDoc:Select()

oSel = oWord:Selection ...

Eccoti un esempio funzionante. Spero di aver capito bene cosa ti serviva:

#include "Fivewin.ch"


FUNCTION MAIN()

LOCAL oWnd

LOCAL aBtn := {}

LOCAL n := 1

LOCAL i, j

DEFINE WINDOW oWnd

FOR i = 1 TO 3
FOR j = 1 TO 3
AADD( aBtn, MAKEBUTTON( i * 3, j ...

Eccoti un esempio funzionante:



EMG

Eccoti un esempio funzionante:

#include "Fivewin.ch"


FUNCTION MAIN()

LOCAL oDlg, oFnt, oRad, nRad

LOCAL i

DEFINE FONT oFnt NAME "Arial" SIZE 0, -20

DEFINE DIALOG oDlg

@ 1, 1 RADIO oRad VAR nRad;
PROMPT "One ", "Two "

FOR i = 1 TO LEN( oRad:aItems )
oRad&#58 ...

Ma credo di aver capito il tuo problema. Probabilmente dimenticavi di aggiungere lo spostamento dell'immagine rispetto alla dialog. Eccoti un altro esempio modificato rispetto al precedente:

#include "Fivewin.ch"


#define BRUSH_NULL 5


FUNCTION MAIN()

LOCAL oDlg, oImg

DEFINE DIALOG ...

... con il mouse o freccie sulla relativa cella ma se clicco con tasto destro su un'altra cella: come faccio per sapere su che riga/colonna sono ?

Eccoti il solito esempio, ancora modificato. E speriamo che stavolta tu lo prenda in considerazione:

#include "Fivewin.ch"
#include "Tcbrowse.ch ...

Eccoti un esempio funzionante:

#define wdPrintView 3


FUNCTION MAIN()

LOCAL oWord

oWord = CreateObject( "Word.Application" )

oWord:Documents:Add()

oWord:ActiveDocument:ActiveWindow:View:Type = wdPrintView

oWord:Visible = .T&#46 ...

... obbligo. Se si trova difficoltà ad organizzarsi lo strumento da soli allora c'è la possibilità di avere tutto già pronto per l'uso.

Ad ogni modo, eccoti un batch di compilazione per un singolo PRG (controlla i percorsi):

@ ECHO OFF
SET HARBOURCMD=/a /es2 /gc0 /m /n /q /w2
SET INCLUDE=c&#58 ...

Eccoti un esempio funzionante. Spero di aver capito bene ciò che ti serve. Ti ho messo due possibilità, una con un pulsante e una digitando direttamente:

#include "Fivewin.ch"


FUNCTION MAIN()

LOCAL oDlg

LOCAL oGet, cVar := ""

DEFINE DIALOG oDlg;
SIZE 400, 200

@ 1, 1 GET ...