No me muestra el SAY

[caducca]

Hola grupo, esto me esta volviendo loco, seguramente es una estupidez pero no logro solucionarlo.
No me muestra el SAY, paso el código a continuación:

Code: Select all

   oQryConsu :=oServer:Query( "SELECT encaliq.codigoL, encaliq.codcole, encaliq.dia, encaliq.mes, encaliq.ano, "+;
                              " encaliq.detalle, escuela.codigo, escuela.nombre FROM encaliq, escuela "+;
                              " WHERE encaliq.codcole = escuela.codigo "+;
                              " ORDER BY encaliq.ano, encaliq.mes ASC" )

   oQryConsu:GoTop()
   oQryConsu:GetRow()

   DEFINE FONT oFont NAME "Times New Roman" SIZE 0, -12
   DEFINE FONT oFont24  NAME "ARIAL" SIZE 0, -20 BOLD
   DEFINE FONT oFont14  NAME "ARIAL" SIZE 0, -14 BOLD

   DEFINE DIALOG oDlgLQ SIZE 900,600 PIXEL TRUEPIXEL TITLE "LIQUIDACIONES"
   DEFINE BUTTONBAR oBarC OF oDlgLQ SIZE 56,56 2013
   MsgAlert(oQryConsu:Nombre)

   @ 70,20 SAY oNomEmpre PROMPT oQryConsu:Nombre OF oDlgLQ FONT oFOnt14 // SIZE 200, 20 // COLOR CLR_NROJO

   @ 150,20 XBROWSE oBrwLQ SIZE -20,-20 PIXEL OF oDlgLQ ;
      DATASOURCE oQryConsu ;
      COLUMNS ;
      "dia","mes","ano", ;
      "Nombre", ;//      "nomnivel", ;
      "Detalle" ;
      COLSIZES 30,30,40,300,400 ;
      HEADERS "Día","Mes","Año", "Empresa", "Detalle" ;
      CELL LINES NOBORDER AUTOCOLS

   WITH OBJECT oBrwLQ
      :lSeekBar    := .T.
      :bClrEdits   := { || { CLR_HRED, CLR_YELLOW } }
      :lAutoSort   := .T.
      :l2013       := .T.
      :CreateFromCode()
   END

   oBarC:bPainted := { || oBarC:SayText( "LIQUIDACIONES", ;
      { nil, nil, nil, -50 }, "R", oFont24, CLR_HRED ) }

   BrwBarLiqui( oBarC, oBrwLQ )

   ACTIVATE DIALOG oDlgLQ CENTERED[code]
 

 @ 70,20 SAY oNomEmpre PROMPT oQryConsu:Nombre OF oDlgLQ FONT oFOnt14 // SIZE 200, 20 // COLOR CLR_NROJO
No me muestra nada, puse el MsgAlert() para ver si me traía info la consulta y si es así.
No se porque no me muestra, generalmente trabajo con recursos y no tengo problemas, primera ves que uso @ SAY
Trabajo con xHarbour y FWH17
Desde ya muchas gracias.

[caducca]

Solucionado, me faltaba poner PIXEL

@ 70,20 SAY oNomEmpre PROMPT oQryConsu:Nombre PIXEL OF oDlgLQ FONT oFOnt24 COLOR CLR_NROJO

Así si funciona, ya me imaginaba que era una tontera mía.
Gracias, y disculpen