Centrar texto StringGrid

[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;

[[escafandra]]

aams01 te está dando parte de la solución.

Piensa que estás escribiendo textos en las rejillas dos veces, una centrado con DrawTextW y la otra a la izquierda con TextOutA. Lo propio es añadir los nuevos textos en otro procedimiento, de carga o en todo caso, con DrawTextW para poder centrarlos.

Pero aún te falta otra cosa. La VCL escribe por su cuenta las celdas a la izquierda. Si quieres redibujarlas debes borrarlas previamente y luego reescribirlas.

void __fastcall TForm1::StringGrid1DrawCell(TObject *Sender, int ACol,
      int ARow, TRect &Rect, TGridDrawState State)
{
   TStringGrid *grid = dynamic_cast<TStringGrid*>(Sender);
  
   InflateRect(&Rect, -1, -1);
  
   // Ajusto los colores de las celdas a las preestablecidos   
   if(State.Contains(gdFixed))
      grid->Canvas->Brush->Color = grid->FixedColor;
   else
      grid->Canvas->Brush->Color = grid->Color;

   // Borro las celdas
   grid->Canvas->FillRect(Rect);

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

   // Restauro el Rect que se pasó por referencia, no por valor...
   InflateRect(&Rect, 1, 1);
}

Saludos.

[mizzard]

Hola a ambos, muchisimas gracias por las respuestas.

aams01, esa parte del código es porque en la propiedad del StringGrid Drawing Style uso gdsGradient

Buno yo tengo unas preguntas para que utilizas
Código:
StrGridTique->Canvas->Brush->Style = bsClear;

Y al aplicar el código que has aportado con los cambios de escafranda veo que las celdas fijas se ponen del color que hay puesto en la propiedad fixedColor...

He probado cambiando el Style e incluso poniendo clNone, pero no consigo que salga con efecto degradado..., se podría aplicar al Canvas el estilo gdsGradient? o al menos que sea transparente?

Muchisimas gracias! , Un saludo!

[mizzard]

Hola de nuevo, ¿sabeis si existe alguna forma de detectar cuando se entra 2 veces en la misma celda?, me explico.

Resulta que cuando entro una celda la detecto con la propiedad OnSelectCell, recojo la fila en donde se ha hecho click y así actualizo los datos cuando se introduce un nuevo valor.

Si pulso un boton actualizo de nuevo el StringGrid y si me da por hacer click otra vez en la misma celda de antes, como no la detecta no modifico los datos que corresponden.

He probado con eventos OnMouseEnter/Leave, OnGetEditText, etc..., pero no consigo que me funcionen

¿Existe alguna manera de coger y mover en ejecución la celda seleccionada?

Se me ocurre que de esta forma si siempre tras pulsar el boton selecciono la Cells[0][0], siempre detectare cuando hago click en la misma celda.


Alguna idea??, muchas gracias

[[escafandra]]

Empezado por mizzard

...se podría aplicar al Canvas el estilo gdsGradient?...

Puedes escribir una función que pinte un rectángulo con un degradado para sustituir a grid->Canvas->FillRect(Rect);

Empezado por mizzard

...¿sabeis si existe alguna forma de detectar cuando se entra 2 veces en la misma celda?...

Yo usaría algo como esto:

void __fastcall TForm1::StringGrid1MouseDown(TObject *Sender,
      TMouseButton Button, TShiftState Shift, int X, int Y)
{
   int ACol, ARow;
   StringGrid1->MouseToCell(X, Y, ACol, ARow);
   //..............
   // Tu código....
}

Saludos.

[aams01]

Empezado por mizzard

Se me ocurre que de esta forma si siempre tras pulsar el boton selecciono la Cells[0][0], siempre detectare cuando hago click en la misma celda.

Para seleccionar un selda es con lo siguiente reucuerda que un StringGrid o DBGrid contiene renglones y columnas

StrGridTique->Col=0;
StrGridTique->Row=0;

Aunq me agrada mas el codigo de escafandra.
No obstante toy seguro de que este codigo te podra servir para otra cosa.

[mizzard]

Gracias a ambos por las respuestas ya que me han sido de gran ayuda.

Ahora estoy mirando bugs e intentar corregirlos para mejorar la estabilidad del programa y uno que me surge como consecuencia directa de ir incorporando estos cambios es que me he dado cuenta que cuando se queda marcada una de las celdas el texto aparece dos veces una a la izquierda y otra vez centrado y cuando hago clic en otra celda todo vuelve a la normalidad.

Tras diversas pruebas, me he dado cuenta que si no hay ninguna celda marcada parece q todo va bien.

Comento este problema pq mi código de repente se vuelve inestable cuando pasa esto, lo que pasa es que tendré que mirarlo con más detenimiento para sacar una conclusión clara.

Como siempre, pinto con el evento ondrawcell en funcion de unas banderas que activo desde otras secciones del codigo.

Alguna idea de pq puede pasar esto?

Un saludo!

[aams01]

Hola como mencionas si solo pasa eso cuando dejas seleccionada una celda por que no quitas el focus de ese componente y lo pasas ya sea a un botón o a un edit.
El problema creo es por q tienes el stringrid en modo edición.
Si el stringrid solo lo quieres para mostrar y jalar información yo diría que le quites la opción de editar, ya q te ahorraras tiempo en validar