Centrar texto StringGrid

[[escafandra]]

Precisamente en ese hilo respondía a la misma pregunta que tu haces. El evento OnDrawCell expuesto se encarga de centrar los textos, sólo tienes que colocar ese código y rellenar las celdas con tus datos sin preocuparte de nada mas.

No termino de entender bien cual es tu duda.

Saludos.

[mizzard]

pues que he probado con muchos codigos y no consigo nada. Con ese en concreto copiando y pegando tal cual me salta el siguiente error en la línea:

   char *Cadena = grid->Cells[ACol][ARow].c_str();

[BCC32 Error] MainForm.cpp(1013): E2034 Cannot convert 'wchar_t *' to 'char *'

Uso C++ Builder 2010 y en concreto el codigo compreto es:

  TStringGrid *grid = dynamic_cast<TStringGrid*>(Sender);
   HDC dc = grid->Canvas->Handle;
   char *Cadena = grid->Cells[ACol][ARow].c_str();


    StrGridTique->Canvas->Font = StrGridTique->Font;

    // Ponemos el título en negrita
    if (ACol>=0 && State.Contains(gdFixed)){
        StrGridTique->Canvas->Font->Style = TFontStyles()<< fsBold;
    }

    const AnsiString Conceptos[3]= {"Cantidad","Precio ud","Precio"};
    if(ARow==0 && ACol==0){
        StrGridTique->Canvas->TextOutA(Rect.Left, Rect.Top,"Producto");
        }
    else if(ARow==0){
        StrGridTique->Canvas->TextOutA(Rect.Left, Rect.Top, Conceptos[ACol-1] );
    }

   grid->Canvas->Brush->Style = bsClear;
   DrawText(dc, Cadena, strlen(Cadena), &Rect, DT_CENTER | DT_VCENTER | DT_SINGLELINE );

Un saludo!

[[escafandra]]

El problema es que la versión 2010 usa Unicode.

Debes usar la versión unicode de la API DrawText: DrawTextW (el copmpilador lo hace automáticamente) y cambiar la línea

char *Cadena = grid->Cells[ACol][ARow].c_str();

a

wchar_t *Cadena = grid->Cells[ACol][ARow].c_str();

Saludos.

[mizzard]

Hola, perdona x no contestar antes pero he estado muy liado, gracias por la respuesta.

Tras hacer ese cambio ahora me pasa lo siguiente:


Error 1:Cannot convert wchar_t *' to const char *
Error 2: Type mismatch in parameter '__s' (wanted 'const char *', got 'wchar_t *')

en la 2ª línea:

grid->Canvas->Brush->Style = bsClear;
   DrawText(dc, Cadena, strlen(Cadena), &Rect, DT_CENTER | DT_VCENTER | DT_SINGLELINE );

Un saludo!

[[escafandra]]

Te explico:

Las APIs de Windows Que usan cadenas, tienen dos versiones, la terminada en A y la terminada en W. Para DrawText tenemos internamente DrawTextA y DrawTextW. Lo normal es que el compilador escoja ya apropiada según si usa Unicode (W) o no (A).

Usa la versión DrawTextW;

DrawTextW(dc, Cadena, wcslen(Cadena), &Rect, DT_CENTER | DT_VCENTER | DT_SINGLELINE );

o bien:

DrawTextW(grid->Canvas->Handle, grid->Cells[ACol][ARow].c_str(), grid->Cells[ACol][ARow].Length(), &Rect, DT_CENTER | DT_VCENTER | DT_SINGLELINE);

Saludos.

[mizzard]

Muchisimas gracias por la respuesta, pero... sigo teneniendo un problema ...

Resulta q el texto se centra bien, pero me sale dos veces, a la izquierda y centrado

Lo que me gustaría es que se viera todo centrado tanto en la fila 0 que es fija (y en negrita) como en todos los campos.

Yo lo que hago es a partir de una serie de botones, recojo unos campos y hago que se muestren en el string grid usando:

StrGridTique->Cells[0][posFila]=DBText->Caption;

y controlando posFila voy añadiendo registros y diferentes nombres en el Caption del DBText.

Y luego en el evento hago:

void __fastcall TfrmMain::StrGridTiqueDrawCell(TObject *Sender, int ACol, int ARow,
          TRect &Rect, TGridDrawState State)
{
   TStringGrid *grid = dynamic_cast<TStringGrid*>(Sender);
   HDC dc = grid->Canvas->Handle;
   wchar_t *Cadena = grid->Cells[ACol][ARow].c_str();

   grid->Canvas->Brush->Style = bsClear;
   DrawTextW(grid->Canvas->Handle, grid->Cells[ACol][ARow].c_str(), grid->Cells[ACol][ARow].Length(), &Rect, DT_CENTER | DT_VCENTER | DT_SINGLELINE);

   StrGridTique->Canvas->Font = StrGridTique->Font;

    // Ponemos el título en negrita
    if (ACol>=0 && State.Contains(gdFixed)){
        StrGridTique->Canvas->Font->Style = TFontStyles()<< fsBold;
    }

    // Preparamos la rejilla con el tique
    const AnsiString Conceptos[3]= {"Precio unitario","Cantidad","Precio"};
    if(ARow==0 && ACol==0){
        StrGridTique->Canvas->TextOutA(Rect.Left, Rect.Top,"Producto");
    }
    else if(ARow==0){
        StrGridTique->Canvas->TextOutA(Rect.Left, Rect.Top, Conceptos[ACol-1] );
    }
    else if (ARow>0){
        tposFila=ARow;
        bEditarCantidad=true;
    }
}

Uff perdona por mi insistencia, pero es que voy dando tumbos constantemente, veo que la solución está cerca pero no consigo llegar, jeje

Muchísimas gracias por adelantado.

Un saludo!

[aams01]

Hola soy re-novato espero comprension si es que me equivoco.
Por que no desde que se active la forma pones los titulos de la rejilla
en cuanto se active la forma.

void __fastcall TTfrmMain::FormActivate(TObject *Sender)
{
	StrGridTique->Cells[0][0]="Precio unitario";
	StrGridTique->Cells[1][0]="Cantidad";
	StrGridTique->Cells[2][0]="Precio";

}

Para poner en negritas y centrar con lo siguiente recorte tu codigo asi que le hace falta el ultimo if por lo demas yo creo si lo hace

void __fastcall TTfrmMain::StrGridTiqueDrawCell(TObject *Sender, int ACol, int ARow, TRect &Rect,
		  TGridDrawState State)
{

  StrGridTique->Canvas->Brush->Color = clBtnFace; // Color por default, 
//  cambialo al que gustes, Esto es para que no te empalme la informacion
  StrGridTique->Canvas->Rectangle(Rect);
  InflateRect(&Rect, -2, -2);
  if (ARow==0) {
	   StrGridTique->Canvas->Font->Style = TFontStyles()<< fsBold;
  }

  DrawTextW(StrGridTique->Canvas->Handle, StrGridTique->Cells[ACol][ARow].c_str(), StrGridTique->Cells[ACol][ARow].Length(), &Rect, DT_CENTER | DT_VCENTER | DT_SINGLELINE);

  if (ARow>0){
        tposFila=ARow;
        bEditarCantidad=true;
    }
}

Todo este codigo fue tomado de escafandra en uno de los temas, ojala y no enoje por tomar su codigo


Buno yo tengo unas preguntas para que utilizas

StrGridTique->Canvas->Brush->Style = bsClear;