¿Margen en celdas de TStringGrid?

[aguml]

Buenas amigos, sigo mejorando el juego de las tablas y ahora le he añadido un ranking y todo va correcto pero me gustaria crear un pequeño margen para que cuando alineo a la derecha los numeros no llegue justo al filo sino que quede un poquitin de espacio a la derecha.
Esto tengo hecho:
void __fastcall TFormRanking::StringGridRankingDrawCell(TObject *Sender,
int ACol, int ARow, TRect &Rect, TGridDrawState State)
{
char *cadena;
cadena = StringGridRanking->Cells[ACol][ARow].c_str();

if (State.Contains(gdFixed))
{
StringGridRanking->Canvas->Brush->Color = clBtnFace;
StringGridRanking->Canvas->Font->Color = clWindowText;
StringGridRanking->Canvas->FillRect(Rect);

HDC dc = StringGridRanking->Canvas->Handle;
DrawText(dc, cadena, strlen(cadena), &Rect, DT_CENTER | DT_VCENTER | DT_SINGLELINE );
}
else if(State.Contains(gdSelected)) //if is selected use the clAqua color
{
StringGridRanking->Canvas->Brush->Color = clWindow;
StringGridRanking->Canvas->Font->Color = clWindowText;
StringGridRanking->Canvas->FillRect(Rect);

HDC dc = StringGridRanking->Canvas->Handle;
if(ACol == 1)
DrawText(dc, cadena, strlen(cadena), &Rect, DT_CENTER | DT_VCENTER | DT_SINGLELINE );
else
DrawText(dc, cadena, strlen(cadena), &Rect, DT_RIGHT | DT_VCENTER | DT_SINGLELINE );
}
else if (ARow %2 == 0)
{
StringGridRanking->Canvas->Brush->Color = clSilver;
StringGridRanking->Canvas->Font->Color = clWindowText;
StringGridRanking->Canvas->FillRect(Rect);

HDC dc = StringGridRanking->Canvas->Handle;
if(ACol == 1)
DrawText(dc, cadena, strlen(cadena), &Rect, DT_CENTER | DT_VCENTER | DT_SINGLELINE );
else
DrawText(dc, cadena, strlen(cadena), &Rect, DT_RIGHT | DT_VCENTER | DT_SINGLELINE );
}
else
{
StringGridRanking->Canvas->Brush->Color = StringGridRanking->Color;
StringGridRanking->Canvas->Font->Color = StringGridRanking->Font->Color;
StringGridRanking->Canvas->FillRect(Rect);

HDC dc = StringGridRanking->Canvas->Handle;
if(ACol == 1)
DrawText(dc, cadena, strlen(cadena), &Rect, DT_CENTER | DT_VCENTER | DT_SINGLELINE );
else
DrawText(dc, cadena, strlen(cadena), &Rect, DT_RIGHT | DT_VCENTER | DT_SINGLELINE );
}
}

¿Como puedo hacer eso?

[aguml]

Al final lo he solucionado concatenando un espacio tras cada cadena que quiero alinear a la derecha. De todos modos si hay algun modo mejor pues me quedo a la espera de sus sugerencias.

[ecfisa]

Hola aguml.

A mi tampoco se me ocurre otro medio mas sencillo que agregar un espacio al final. Pero si me permites, yo restructuraría el código de este modo:

void __fastcall TFormRanking::StringGridRankingDrawCell(TObject *Sender, int ACol,
int ARow, TRect &Rect, TGridDrawState State)
{
TStringGrid *SG = static_cast<TStringGrid*>((TStringGrid*)(Sender));
String cad = SG->Cells[ACol][ARow];
HDC dc = StringGrid1->Canvas->Handle;
register int Flags = (ACol == 1 ? DT_CENTER | DT_VCENTER | DT_SINGLELINE :
DT_RIGHT | DT_VCENTER | DT_SINGLELINE);

cad += (ACol > 1 ? " " : "");
if (State.Contains(gdFixed)) {
SG->Canvas->Brush->Color = clBtnFace;
SG->Canvas->Font->Color = clWindowText;
SG->Canvas->FillRect(Rect);
DrawText(dc, cad.c_str(), cad.Length(), &Rect, DT_CENTER | DT_VCENTER | DT_SINGLELINE);
}
else if(State.Contains(gdSelected)) {
SG->Canvas->Brush->Color = clAqua;
SG->Canvas->Font->Color = clWindowText;
SG->Canvas->FillRect(Rect);
DrawText(dc, cad.c_str(), cad.Length(), &Rect, Flags);
}
else {
if (ARow % 2 == 0){
SG->Canvas->Brush->Color = clSilver;
SG->Canvas->Font->Color = clWindowText;
}
else {
SG->Canvas->Brush->Color = SG->Color;
SG->Canvas->Font->Color = SG->Font->Color;
}
SG->Canvas->FillRect(Rect);
DrawText(dc, cad.c_str(), cad.Length(), &Rect, Flags);
}
}


Saludos :)

[aguml]

¿podrias explicarme que haces aqui?
register int Flags = (ACol == 1 ? DT_CENTER | DT_VCENTER | DT_SINGLELINE :
DT_RIGHT | DT_VCENTER | DT_SINGLELINE);
cad += (ACol > 1 ? " " : "");
Creo recordar que eso es igual que un if...else pero me pierdo con eso ¿podrias explicarme para entenderlo? ¿y que es register? Es que como pones "register int" pues no me suena ese tipo.

[ecfisa]

Hola aguml.

El símbolo ? es el operador ternario (http://es.wikipedia.org/wiki/Operador_ternario) de C y C++, y funciona de este modo:
una_condición ? verdadero : falso

Ejemplos:

#include <iostream>

using namespace std;

#define MAX(a, b) ((a) > (b) ? (a) : (b))

char *MinMayEqu(const int a, const int b)
{
return (a < b) ? "menor" : ((a > b) ? "mayor" : "igual");
}

int main()
{
int a = 8, b = 7;
cout << MAX(a,b) << endl;
cout << a << " es " << MinMayEqu(a,b) << " a " << b;
cin.get();
return 0;
}

En tanto que la palabra reservada register, es un especificador del tipo de almacenamiento que debería usarse.
Le indica al compilador que, de ser posible, en lugar del stack utilice los registros del procesador para guardar los valores generando así un código mas rápido. (Solo se aplica a variables automáticas y parámetros)

Saludos :)

[aguml]

Lo he probado y he tenido que modificarlo un poco ya que mi codigo tambien fue modificado un poco para hacer lo que yo queria realmente. Asi ha quedado pero tiene un problemilla:

void __fastcall TFormRanking::StringGridRankingDrawCell(TObject *Sender, int ACol,
int ARow, TRect &Rect, TGridDrawState State)
{
TStringGrid *SG = static_cast<TStringGrid*>((TStringGrid*)(Sender));
String cad = SG->Cells[ACol][ARow];
HDC dc = StringGridRanking->Canvas->Handle;
register int Flags = (ACol == 1 || State.Contains(gdFixed) ? DT_CENTER | DT_VCENTER | DT_SINGLELINE :
DT_RIGHT | DT_VCENTER | DT_SINGLELINE);

cad += (ACol != 1 && ARow > 0 ? " " : "");
if (State.Contains(gdFixed)) {
SG->Canvas->Brush->Color = clBtnFace;
SG->Canvas->Font->Color = clWindowText;
SG->Canvas->FillRect(Rect);
DrawText(dc, cad.c_str(), cad.Length(), &Rect, Flags);
}
else if(State.Contains(gdSelected)) {
SG->Canvas->Brush->Color = clWindow;
SG->Canvas->Font->Color = clWindowText;
SG->Canvas->FillRect(Rect);
HDC dc = StringGridRanking->Canvas->Handle; //No se porque pero si no pongo esta linea no aparece el texto de la celda seleccionada
DrawText(dc, cad.c_str(), cad.Length(), &Rect, Flags );
}
else {
if (ARow % 2 == 0){
SG->Canvas->Brush->Color = clSilver;
SG->Canvas->Font->Color = clWindowText;
}
else {
SG->Canvas->Brush->Color = SG->Color;
SG->Canvas->Font->Color = SG->Font->Color;
}
SG->Canvas->FillRect(Rect);
DrawText(dc, cad.c_str(), cad.Length(), &Rect, Flags );
}
}

Ahi tienes el comentario de que tengo que hacer para que funcione y es algo raro ya que eso mismo se hace al principio pero no se porque tengo que volverlo a hacer.

[ecfisa]

Hola aguml.

Acabo de probar el codigo que publicaste y me funciona bién, lo que si veo es que me quedó un detalle de la prueba, cambiar la siguiente línea,
HDC dc = StringGrid1->Canvas->Handle;
pero eso hace más reusable la rutina, no es solución al comportamiento que mencionas. No sé que puede estar pasando aunque supongo que se debe a una cuestión de superposición de colores ...

Te pongo el código completo de mi prueba (que funciona correctamente) para que puedas controlar
con el tuyo.

/* darle algunos valores a la grilla */
void __fastcall TForm1::FormCreate(TObject *Sender)
{
StringGrid1->Options << TGridOption(goEditing);
for (register int c = 0; c < StringGrid1->ColCount; c++)
for (register int r = 0; r < StringGrid1->RowCount; r++)
StringGrid1->Cells[c][r] = IntToStr(c+r);
}

/* organizar la presentación */
void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
int ARow, TRect &Rect, TGridDrawState State)
{
TStringGrid *SG = static_cast<TStringGrid*>((TStringGrid*)(Sender));
String cad = SG->Cells[ACol][ARow];
HDC dc = SG->Canvas->Handle; // <<<< --- Cambio
register int Flags = (ACol == 1 ? DT_CENTER | DT_VCENTER | DT_SINGLELINE :
DT_RIGHT | DT_VCENTER | DT_SINGLELINE);

cad += (ACol > 1 ? " " : "");
if (State.Contains(gdFixed)) {
SG->Canvas->Brush->Color = clBtnFace;
SG->Canvas->Font->Color = clWindowText;
SG->Canvas->FillRect(Rect);
DrawText(dc, cad.c_str(), cad.Length(), &Rect, DT_CENTER | DT_VCENTER | DT_SINGLELINE);
}
else if(State.Contains(gdSelected)) {
SG->Canvas->Brush->Color = clAqua;
SG->Canvas->Font->Color = clWindowText;
SG->Canvas->FillRect(Rect);
DrawText(dc, cad.c_str(), cad.Length(), &Rect, Flags);
}
else {
if (ARow % 2 == 0){
SG->Canvas->Brush->Color = clSilver;
SG->Canvas->Font->Color = clWindowText;
}
else {
SG->Canvas->Brush->Color = SG->Color;
SG->Canvas->Font->Color = SG->Font->Color;
}
SG->Canvas->FillRect(Rect);
DrawText(dc, cad.c_str(), cad.Length(), &Rect, Flags);
}
}

Si tenes alguna dificultad, no dudes en avisame y te adjunto los fuentes.

Saludos :)

[aguml]

Amigo al final asi me ha quedado todo lo que gestiona el ranking:

Este botón está en el form principal y es el que se usa para terminar el juego. Si la puntuacion es mas alta que la de alguna otra del ranking nos mostrará otra ventana que nos pregunta nuestro nombre y guarda los datos en el ranking. Si la puntuacion es igual a alguna del ranking se usa el numero de aciertos para ordenarlo:
void __fastcall TFormPrincipal::ButtonPararClick(TObject *Sender)
{
//Desactivo el timer
Timer1->Enabled = false;

//Activo el boton Comenzar
ButtonComenzar->Enabled = true;

//Desactivo el Edit donde se introducen los resultados
EditResultado->Enabled = false;

//Desactivo el boton Comprobar
ButtonComprobar->Enabled = false;

//Desactivo el boton Parar
ButtonParar->Enabled = false;

//Inicializo la cuenta atras
LabelCuentaAtras->Caption = TrackBarRangoTimer->Position;
LabelCuentaAtras->Font->Color = clGreen;
LabelCuentaAtras->Update();

//Leer y actualizar ranking
int hFile = FileOpen("Ranking.bin",fmOpenReadWrite);

struct
{
int pos;
char nombre[10];
int aciertos;
int puntuacion;
}ranking[10], nuevoRanking[10];

//Limpio ambas estructuras
memset(ranking,0,sizeof(ranking));
memset(nuevoRanking,0,sizeof(nuevoRanking));

if(hFile == -1) //Si no existe el archivo de ranking
{
hFile=FileCreate("Ranking.bin"); //lo creo

//Inicializado del archivo de ranking
for(int i=0;i<10;i++)
{
ranking[i].pos = i+1;
strcpy(ranking[i].nombre, "Agustin");
ranking[i].aciertos = 100-(i*10);
ranking[i].puntuacion = 10000-(i*1000);

}
FileSeek(hFile,0,0);
FileWrite(hFile,ranking,sizeof(ranking));
//fin del inicializado del ranking
}

//Lectura del ranking
FileSeek(hFile,0,0);
FileRead(hFile,ranking,sizeof(ranking));

bool changed = false; //bandera que uso para saber si ya inserté el registro en el ranking

//En el siguiente bucle recorro todo el ranking y si tengo que insertar la partida finalizada lo hago
//Cuando inserte la nueva linea no incremento el indice del ranking para asi seguir leyendo por donde me quedé
for(int i=0,j=0;i<10;i++)
{
if(ranking[i].puntuacion > EditPuntos->Text.ToDouble() || changed == true)
{ //Si la puntuacion de la posicion actual es mayor que la obtenida o ya fue insertada la nueva puntuacion...
nuevoRanking[i] = ranking[j]; //Copio los datos de esa linea del ranking en el nuevo ranking
j++; //Incremento el indice del ranking

//Voy incrementando la posicion
if(i > 0)
{
nuevoRanking[i].pos = nuevoRanking[i-1].pos + 1;
}
}
else if(ranking[j].puntuacion == EditPuntos->Text.ToDouble())
{ //Si la puntuacion del ranking es igual a la obtenida...
if(ranking[j].aciertos < EditAciertos->Text.ToDouble())
{ //Si el numero de aciertos de la posicion actual del ranking es menor que los obtenidos

FormInsertName->ShowModal(); //Pregunto el nombre del jugador
nuevoRanking[i].pos = ranking[j].pos; //Inserto la posicion
strncpy(nuevoRanking[i].nombre, FormInsertName->EditName->Text.c_str(),10); //Inserto el nuevo nombre
nuevoRanking[i].aciertos = EditAciertos->Text.ToDouble(); //Inserto el nuevo numero de aciertos
nuevoRanking[i].puntuacion = EditPuntos->Text.ToDouble(); //Inserto la nueva puntuacion
changed = true; //Indico que ya se ha insertado la nueva linea
}
}
else
{
FormInsertName->ShowModal(); //Pregunto el nombre del jugador
nuevoRanking[i].pos = ranking[j].pos; //Inserto la posicion
strncpy(nuevoRanking[i].nombre, FormInsertName->EditName->Text.c_str(),10); //Inserto el nuevo nombre
nuevoRanking[i].aciertos = EditAciertos->Text.ToDouble(); //Inserto el nuevo numero de aciertos
nuevoRanking[i].puntuacion = EditPuntos->Text.ToDouble(); //Inserto la la nueva puntuacion
changed = true; //Indico que ya se ha insertado la nueva linea
}
}

//Si hubo cambio en el ranking actualizo el archivo
if(changed == true)
{
FileSeek(hFile,0,0);
FileWrite(hFile,nuevoRanking,sizeof(nuevoRanking));

//Cierro el archivo de ranking
FileClose(hFile);

//Muestro el nuevo ranking
FormRanking->ShowModal();
}
else
{
//Cierro el archivo de ranking
FileClose(hFile);
}
}
//---------------------------------------------------------------------------
Esto es para que se muestre el ranking correctamente:
void __fastcall TFormRanking::FormShow(TObject *Sender)
{
//Posiciono la ventana centrada
Left = (Screen->Width - Width)/2;
Top = (Screen->Height - Height)/2;

//Abro el archivo donde está el ranking
int hFile = FileOpen("Ranking.bin",fmOpenReadWrite);

//Estructura que contendrá el ranking
struct
{
int pos;
char nombre[10];
int aciertos;
int puntuacion;
}ranking[10];

//Limpio la estructura
memset(ranking,0,sizeof(ranking));

if(hFile == -1) //Si no existe el archivo de ranking
{
hFile=FileCreate("Ranking.bin"); //lo creo

//Inicializado del archivo de ranking
for(int i=0;i<10;i++)
{
ranking[i].pos = i+1;
strcpy(ranking[i].nombre, "Agustin");
ranking[i].aciertos = 100-(i*10);
ranking[i].puntuacion = 10000-(i*1000);

}
FileSeek(hFile,0,0); //Me posiciono al inicio del archivo
FileWrite(hFile,ranking,sizeof(ranking)); //Guardo el ranking en el archivo
//fin del inicializado del ranking
}

//Lectura del ranking
FileSeek(hFile,0,0); //Me posiciono al inicio del archivo
FileRead(hFile,ranking,sizeof(ranking)); //Leo el contenido del archivo y lo guardo en la estructura
FileClose(hFile); //Cierro el archivo

//Ajusto los anchos de las columnas
StringGridRanking->ColWidths[0]=110;
StringGridRanking->ColWidths[1]=175;
StringGridRanking->ColWidths[2]=125;
StringGridRanking->ColWidths[3]=150;

//Pongo los titulos a la tabla
StringGridRanking->Rows[0]->Strings[0] = "Posición";
StringGridRanking->Rows[0]->Strings[1] = "Nombre";
StringGridRanking->Rows[0]->Strings[2] = "Aciertos";
StringGridRanking->Rows[0]->Strings[3] = "Puntuación";

//Relleno el StringGrid que mostrará el ranking
for(int row = 1; row < 11; row++)
{
StringGridRanking->Rows[row]->Strings[0] = AnsiString(ranking[row-1].pos) + " ";
StringGridRanking->Rows[row]->Strings[1] = ranking[row-1].nombre;
StringGridRanking->Rows[row]->Strings[2] = AnsiString(ranking[row-1].aciertos) + " ";
StringGridRanking->Rows[row]->Strings[3] = AnsiString(ranking[row-1].puntuacion) + " ";
}
}
//---------------------------------------------------------------------------

void __fastcall TFormRanking::StringGridRankingDrawCell(TObject *Sender, int ACol,
int ARow, TRect &Rect, TGridDrawState State)
{
TStringGrid *SG = static_cast<TStringGrid*>((TStringGrid*)(Sender));
String cad = SG->Cells[ACol][ARow];
HDC dc = SG->Canvas->Handle;

//Asignamos a Flags los flags deseados segun la posicion de la celda
//Esto equivale a:
/*register int Flags;
if(ACol == 1 || State.Contains(gdFixed))
Flags = DT_CENTER | DT_VCENTER | DT_SINGLELINE;
else
Flags = DT_RIGHT | DT_VCENTER | DT_SINGLELINE;
*/

register int Flags = (ACol == 1 || State.Contains(gdFixed) ? DT_CENTER | DT_VCENTER | DT_SINGLELINE :
DT_RIGHT | DT_VCENTER | DT_SINGLELINE);

//Aqui se añade un espacio al final de la cadena siempre que no sea un titulo y no sea de la columna 1
//Esto equivale a:
/*if(ACol != 1 && ARow > 0)
cad += " ";
*/

cad += (ACol != 1 && ARow > 0 ? " " : "");

if (State.Contains(gdFixed)) {
SG->Canvas->Brush->Color = clBtnFace;
SG->Canvas->Font->Color = clWindowText;
SG->Canvas->FillRect(Rect);
DrawText(dc, cad.c_str(), cad.Length(), &Rect, Flags);
}
else if(State.Contains(gdSelected)) {
SG->Canvas->Brush->Color = clWindow;
SG->Canvas->Font->Color = clWindowText;
SG->Canvas->FillRect(Rect);
HDC dc = StringGridRanking->Canvas->Handle; //No se porque pero aqui tengo que repetir esta linea para que funcione en este caso
DrawText(dc, cad.c_str(), cad.Length(), &Rect, Flags);
}
else {
if (ARow % 2 == 0){
SG->Canvas->Brush->Color = clSilver;
SG->Canvas->Font->Color = clWindowText;
}
else {
SG->Canvas->Brush->Color = SG->Color;
SG->Canvas->Font->Color = SG->Font->Color;
}
SG->Canvas->FillRect(Rect);
DrawText(dc, cad.c_str(), cad.Length(), &Rect, Flags);
}
}
//---------------------------------------------------------------------------
Funciona correctamente pero me gustaria que le echases un vistazo para ver si ves algo de codigo redundante que se pueda mejorar. ¡Gracias por todo!

[ecfisa]

Hola aguml.

No probé el código pero no veo nada fuera de lugar (por otro lado comentas que funciona correctamente).
Lo que sí creo, es que aprovechar la VCL mediante TFileStream te podría reducir y simplificar un poco el código de tratamiento del archivo, pero queda a tu critero...

Te hice un ejemplo en el que intervienen la lectura y escritura ya que es lo que hace a lo que te sugiero mas arriba:

...
#define FILE_NAME "ranking.bin"
#define MAX_ELEM 10

struct {
int pos;
char nombre[30];
int aciertos;
int puntuacion;
} ranking[MAX_ELEM];

void __fastcall TForm1::FormCreate(TObject *Sender)
{
TStringGrid *SG = static_cast<TStringGrid*>(StringGrid1);
DWORD openflag = FileExists(FILE_NAME) ? fmOpenReadWrite : fmCreate;
TFileStream *FS = new TFileStream(FILE_NAME, openflag);

// ajustar columnas, poner títulos
SG->ColWidths[0] = 110;
SG->ColWidths[1] = 175;
SG->ColWidths[2] = 125;
SG->ColWidths[3] = 150;
SG->Rows[0]->DelimitedText = ",Posicion,Nombre,Aciertos,Puntuacion";

// limpiar struct
ZeroMemory(&ranking, 0);

if (openflag == fmCreate) { // el archivo no existia
for(register int i=0; i < MAX_ELEM; i++) {
ranking[i].pos = i+1;
strcpy(ranking[i].nombre, "Agustin");
ranking[i].aciertos = 100-(i*10);
ranking[i].puntuacion = 10000-(i*1000);
}
FS->Write(&ranking, sizeof(ranking)); // guardar arreglo
}
else // el archivo existia
FS->Read(&ranking, sizeof(ranking)); // leer

// struct a StringGrid
for(register int i=0; i< MAX_ELEM; i++) {
SG->Rows[i+1]->Strings[0]= i+1;
SG->Rows[i+1]->Strings[1]= String(ranking[i].pos) + " ";
SG->Rows[i+1]->Strings[2]= ranking[i].nombre;
SG->Rows[i+1]->Strings[3]= String(ranking[i].aciertos) + " ";
SG->Rows[i+1]->Strings[4]= String(ranking[i].puntuacion) + " ";
}
delete FS;
}
//---------------------------------------------------------------------------
void __fastcall TForm1::FormClose(TObject *Sender, TCloseAction &Action)
{
TStringGrid *SG = static_cast<TStringGrid*>(StringGrid1);
TFileStream *FS = new TFileStream(FILE_NAME, fmOpenWrite);

// StringGrid a struct
for(register int i= 0; i < MAX_ELEM; i++) {
ranking[i].pos = StrToIntDef(Trim(SG->Rows[i+1]->Strings[1]), 0);
strcpy(ranking[i].nombre,SG->Rows[i+1]->Strings[2].c_str());
ranking[i].aciertos = StrToIntDef(Trim(SG->Rows[i+1]->Strings[3]), 0);
ranking[i].puntuacion = StrToIntDef(Trim(SG->Rows[i+1]->Strings[4]), 0);
}
// guardar arreglo
FS->Write(&ranking, sizeof(ranking));
delete FS;
}

El código verifica que el archivo exista al crearse el form, de ser así lee los datos, en caso contrario, inicializa el arreglo de estructuras con los valores por omisión y lo guarda, por último muestra los valores en StringGrid.

Y para finalizar la muestra del uso de TFileStream, al salir se almacenan los valores de las celdas del StringGrid (modificados o nó) en el archivo.

Saludos :)