Como siempre era una chorrada:
Solucionado asi, de esta forma dejo de usar los TABS debajo del xBrowse y queda mas bonito:
- Code: Select all Expand view
/* Para ordenar la columna insertardo un BMP en la cabecera de la columna */
oCol:AddResource( "#8081" )
oCol:AddResource( "#8082" )
oCol:nHeadBmpNo := 2
oCol:nHeadBmpAlign := AL_RIGHT
oCol:bLClickHeader := { | nMRow, nMCol, nFlags, Self | AEval( oGrid:aCols, { | o | o:nHeadBmpNo := 1 } ),;
If( ::nHeadBmpNo == 2, ::nHeadBmpNo := 1, ::nHeadBmpNo := 2 ),;
OrdenaTabla( 1 ),;
oGrid:Refresh() }
Tambien he añadido un nuevo metodo para mis programas, para evitar las tipicas preguntas, ¿ y como esta ordenada la tabla? ( y le tiras el rollo al cliente, mira, ves las solapas debajo de la tabla, pues.....), de este modo la columna que esta ordenada, tiene un color diferente, asi el usuario lo ve a simple vista, y me evito las tipicas explicaciones tontas.
Me gustaria que el color de la columna ordenada, se pintara toda hasta el final, y no solo por el total de registros, pero de momento no lo he logrado, si alguien sabe como solucionarlo, avisarme.
Y asi es como quedan ahora las tablas: