Algo asi?:
//--------------------------------------------//
// BROWSE EN EDICION AL INICIAR EL DIALOG
//--------------------------------------------//
FUNCTION BrwEditIni()
local oCodi,cCodi:=" ", oCodi2,cCodi2:=" ", oDlg, oBrw, aData := {" "," "," "," "}
DEFINE DIALOG oDlg SIZE 540,200 PIXEL TITLE "BRW EN EDICION AL INICIO"
@ 4,10 GET oCodi Var cCodi SIZE 50,10 PIXEL OF oDlg PICTURE "@!"
@ 4,70 GET oCodi2 Var cCodi2 SIZE 50,10 PIXEL OF oDlg PICTURE "@!"
@ 20, 10 XBROWSE oBrw SIZE -10,-10 PIXEL OF oDlg DATASOURCE aData ;
COLUMNS 1,2,3,4 HEADERS "Col1", "Col2", "Col3", "Col4" FASTEDIT
WITH OBJECT oBrw
:nMarqueeStyle := MARQSTYLE_HIGHLCELL
:nEditTypes := { 1, 1, 1, 1 }
:CreateFromCode()
END
ACTIVATE DIALOG oDlg CENTERED ;
ON INIT ( oBrw:SetFocus(), oBrw:nColSel := 1 )
Return nil
Francisco J. AlegrÃa P.
Chinandega, Nicaragua.
Fwxh-MySql-TMySql