get no disable y tampoco editable

[goosfancito]

Gustavo,

Por favor copia aqui el código fuente de como construyes esa caja de diálogo

Y tambien el recurso correspondiente en caso de que la tengas creada en el fichero RC

Code: Select all  Expand view  RUN

   LOCAL oDlg, this := Self
   LOCAL oGets, vGets
   LOCAL oSays := Array( 2 )
   LOCAL oBtns := Array( 3 )
   LOCAL FONT

   DEFINE FONT oFont NAME "Ms Sans Serif" SIZE 0, - 12 bold

   DEFINE DIALOG oDlg resource "DLGFICHACONSULTA"

   REDEFINE SAY oSays[ 1 ] ID 500 OF oDlg FONT oFont
   REDEFINE SAY oSays[ 2 ] ID 501 OF oDlg FONT oFont

   REDEFINE GET oGets VAR vGets ID 199 OF oDlg READONLY

   REDEFINE BUTTON ::oBtns[ 1 ] ID 200 OF oDlg
   REDEFINE BUTTON ::oBtns[ 2 ] ID 201 OF oDlg
   REDEFINE BUTTON ::oBtns[ 3 ] ID 202 OF oDlg

   //----------( )----------

   ::oBtns[ 1 ]:bAction := { || ::verOrganigrama() }
   ::oBtns[ 2 ]:bAction := { || ::verDocumentos() }
   ::oBtns[ 3 ]:bAction := { || oDlg:END() }

   ACTIVATE DIALOG oDlg ON INIT ;
   ( this:iniConsultar( oQry, oGets, @vGets, oSays ) )

   RETURN ( NIL )
 

Code: Select all  Expand view  RUN

DLGFICHACONSULTA DIALOGEX DISCARDABLE 6, 18, 533, 264
STYLE DS_SHELLFONT|WS_POPUP|DS_MODALFRAME|DS_CONTEXTHELP|DS_3DLOOK|WS_CAPTION|WS_SYSMENU|WS_VISIBLE
CAPTION ".: Cosulta de ficha :."
FONT 8, "Tahoma", 0, 0, 1
{
  CONTROL "", 4001, "Button", BS_GROUPBOX, 15, 13, 420, 232
  CONTROL "Sección:", 4002, "Static", WS_GROUP, 29, 30, 40, 8
  CONTROL "Título:", 4005, "Static", WS_GROUP, 29, 64, 40, 8
  CONTROL "Breve descripción del procedimiento:", 4011, "Static", WS_GROUP, 28, 98, 156, 8
  CONTROL "Edit", 199, "Edit", ES_MULTILINE|ES_READONLY|WS_VSCROLL|WS_BORDER|WS_TABSTOP, 28, 111, 393, 120
  CONTROL "Organigrama", 200, "Button", WS_TABSTOP, 453, 16, 66, 14
  CONTROL "La Norma", 201, "Button", WS_TABSTOP, 453, 40, 66, 14
  CONTROL "&Cerrar", 202, "Button", WS_TABSTOP, 453, 228, 66, 14
  CONTROL "This is a label:", 500, "Static", WS_GROUP, 29, 44, 269, 8
  CONTROL "This is a label:", 501, "Static", WS_GROUP, 29, 76, 269, 8
}