FiveTech Software tech support forums

... OF oDlg1 ; BITMAPS aBitmaps; ON PAINT TAB PaintTab( Self, nOption ); ON CHANGE ( nSavePage := oFld1:nOption, ; IF( nOption == 5, If( MsgYesNo( "Do you want exit??" ), ; oDlg1:End(), ( ::SetOption( nOldOption ), ::Refresh() ) ), ) ) ; ON PAINT TEXT( If( nOption == ::nOption ...

Podrias usar el código de MemoEdit() de FWH:

FWH\source\function\memoedit.prg

y hacer que el GET sea READONLY y añadir los botones que necesites

Antonio:

Varias líneas. De hecho serían varios párrafos.

Gracias por contestar.

LORENZO.

Lorenzo,

El texto tiene que mostrarse en una línea ó en múltiples líneas ?

Es muy sencillo redimensionar un diálogo:

oDlg:SetSize( nAncho, nAlto )

... "SI" "NO" y "más...", y este dialog debe redimensionarse según la cantidad de texto a mostrar. Algo parecido a MSGYESNO pero con otro botón más. ¿Puedo modificar la clase? ¿Hay algo parecido ya construido? ¿Es complicado redimensionar el Dialog según la longitud ...

... @ 3, 16 BUTTON "&Cancel" SIZE 40, 12 ACTION oDlg:End() ACTIVATE DIALOG oDlg CENTERED on init(ConfiguraDialogPrincipal(odlg)) ; VALID MsgYesNo( "Do you want to end ?" ) return nil static procedure ConfiguraDialogPrincipal( oDialog ) oDialog:maximize() oDialog:center() return

... fixed excess release of font when font clause is used. * Enhancement: Unicode support for common messageboxesm MsgInfo(), MsgAlert(), MsgStop(), MsgYesNo(), MsgNoYes(), MsgRetryCancel(), MsgAbout(), MsgRun, MsgWait(). MsgText and Title can be any combination of UTF8/ANSI. Buttons are shown in ...

... WITH cId,; FIELD->USR_NAME WITH cName,; FIELD->USR_DATE WITH CTOD(dDate),; FIELD->USR_ACTIVE WITH lActive COMMIT // USE IF !MsgYesNo("Desea Agregar Otro Usuario") oDlg:End() ENDIF FOR I=1 TO LEN(aVars) if Empty(&(aVars[I])) cMsg:=cMsg+IF(Empty(cMsg),"",CRLF)+aSay[I] ...

... fixed excess release of font when font clause is used. * Enhancement: Unicode support for common messageboxesm MsgInfo(), MsgAlert(), MsgStop(), MsgYesNo(), MsgNoYes(), MsgRetryCancel(), MsgAbout(), MsgRun, MsgWait(). MsgText and Title can be any combination of UTF8/ANSI. Buttons are shown in ...

... msgbox.c:(.text+0x2f6): riferimento non definito a "gtk_widget_destroy" ./../lib/libfivec.a(msgbox.o): nella funzione "MsgYesNo": msgbox.c:(.text+0x312): riferimento non definito a "gtk_window_list_toplevels" msgbox.c:(.text+0x31b): riferimento non definito ...

Before calling:

msgyesno()

Try this:

oDlg:Disable()

and after the msgyesno():

oDlg:Enable()

I found the problem.

after while ... ENDDO have a msgyesno (), taking this msg () does not happen the problem, the logfiile shows only once passing within the function.

what to do?

... WITH cId,; FIELD->USR_NAME WITH cName,; FIELD->USR_DATE WITH CTOD(dDate),; FIELD->USR_ACTIVE WITH lActive COMMIT // USE IF !MsgYesNo("Desea Agregar Otro Usuario") oDlg:End() ENDIF FOR I=1 TO LEN(aVars) if Empty(&(aVars[I])) cMsg:=cMsg+IF(Empty(cMsg),"",CRLF)+aSay[I] ...

... WITH cId,; FIELD->USR_NAME WITH cName,; FIELD->USR_DATE WITH CTOD(dDate),; FIELD->USR_ACTIVE WITH lActive COMMIT // USE IF !MsgYesNo("Desea Agregar Otro Usuario") oDlg:End() ENDIF FOR I=1 TO LEN(aVars) if Empty(&(aVars[I])) cMsg:=cMsg+IF(Empty(cMsg),"",CRLF)+aSay[I] ...

... WITH cId,; FIELD->USR_NAME WITH cName,; FIELD->USR_DATE WITH CTOD(dDate),; FIELD->USR_ACTIVE WITH lActive COMMIT // USE IF !MsgYesNo("Desea Agregar Otro Usuario") oDlg:End() ENDIF FOR I=1 TO LEN(aVars) if Empty(&(aVars[I])) cMsg:=cMsg+IF(Empty(cMsg),"",CRLF)+aSay[I] ...