Un tutorial de uso del stringgrid?

[Neftali [Germán.Estévez]]

Algunos otros usamos Delphi2010 para los nuevos y Delphi6 para los antiguos...

[yapt]

Cada uno disfruta como mejor le parece.....

[[FGarcia]]

Pues si, Neftali entendiste perfectamente lo que quiero hacer con la StringGrid. Por vistosidad queria colorear las columnas de los horarios pero con el codigo que puse en mi ultimo mensaje si se coloreaban, pero solo la primera columna mostraba el texto de los horarios mientras que las columnas 3 y 6 solo mostraban el color no se pintaba el texto. Esos eran mis problemas.

El codigo que muestras me indica que no se nada de nada!!!

Yapt, mil disculpas, en ningun momento fue intencion menospreciar a alguien por lo del d2010

[Neftali [Germán.Estévez]]

Empezado por FGarcia

...en ningun momento fue intencion menospreciar a alguien por lo del d2010

No te preocupes, yo al menos no lo entendí así.

Si añades código al que te he puesto, no te será muy dicícil añadir coloración a las columnas.

[yapt]

Empezado por FGarcia

El codigo que muestras me indica que no se nada de nada!!!

Bienvenido al club.....

Empezado por Neftali

No te preocupes, yo al menos no lo entendí así.

Yo tampoco.....

[[FGarcia]]

mmmmm....

Ya parezco disco rayado ( para lo que conocieron los discos LP )

Pues aqui esta el codigo que llevo, sin embargo no logro hacer que al colorear la columna de horarios se pinte el texto correctamente. Todo esto lo estoy haciendo en el evento OnDrawCell.

Errores:
El texto se dibuja pero no en el orden adecuado, todo se repite en cada columna.
Las celdas de las columnas del horario aparecen con un marco el cual desaparece si se hace click en ellas

El codigo con el que lleno las columnas de horarios funciona ok. Todo el relajo se hace al querer pintar las columnas de los horarios

Agradezco sus comentarios y sugerencias para arreglar el codigo.

[[Caral]]

Hola
Mi pobre delphi 6 se pega con el codigo, no lo puede ni abrir.
Saludos

[Neftali [Germán.Estévez]]

Empezado por FGarcia

Errores:
El texto se dibuja pero no en el orden adecuado, todo se repite en cada columna.
Las celdas de las columnas del horario aparecen con un marco el cual desaparece si se hace click en ellas

(1) El primer problema de que se repita el texto de los horarios, es simplemente que no pasas como parámetro la fila, y es algo imprescindible. Creo que la rutina la has complicado más de lo necesario. Si haces la llamada por ejemplos así:

Código Delphi [-]
  if (ACol = 0) then begin
     _PaintHourCol0(ACol, ARow);
  end;

Y el procedimiento lo simplificas así:

Código Delphi [-]
  //Aqui Pintamos las columnas de los horarios del primer turno
  procedure _PaintHourCol0(ACol, ARow:integer);
  var
    a,j,p:integer;
    Str:String;
  begin
    if (ACol=0) then begin
      a := ARow+6;
      Str := Format('%.2d:00',[a]) + ' - ' + Format('%.2d:00',[a+1]);
    end; //if

    if (ARow > 1) then
      begin
        StringGrid1.Canvas.Brush.Style := bsSolid;
        StringGrid1.Canvas.Brush.Color := $00E6E6E6;
        StringGrid1.Canvas.Rectangle(Rect); //FillRect(Rect);
        Application.ProcessMessages;
        StringGrid1.Canvas.TextOut(Rect.Left + 5,Rect.Top + 3, Str);
        Application.ProcessMessages;
      end;
  end;

Funciona perfectamente (sólo basta replicarlo en los otros dos).
Y si me apuras mucho, eso tres puedes juntarlo en uno sólo (eso para más adelante ).



(2) El tema del marco que desaparece, no es ningun misterio , simplemente es que te has dejado de añadir a línea:

Código Delphi [-]
  StringGrid1.Canvas.Pen.Color := clBlack;

En los procedimientos _PaintHourCol0, _PaintHourCol3, _PaintHourCol6 en la segunda parte cuando pintas sobre el canvas.
Si añades la línea:

Código Delphi [-]
  InflateRect(Rect, -2, -2);

Controlas si el recuadro está más ajustado al borde o menos:

Código Delphi [-]
...
    if (ARow > 1) then
      begin
        // Hago el recuadro 2 pixels más pequeño por cada lado
        InflateRect(Rect, -2, -2);
        // Pen color (borde) a NEGRO
        StringGrid1.Canvas.Pen.Color := clBlack;
        // Resto...
        StringGrid1.Canvas.Brush.Style := bsSolid;
        StringGrid1.Canvas.Brush.Color := $00E6E6E6;
        StringGrid1.Canvas.Rectangle(Rect); //FillRect(Rect);
        Application.ProcessMessages;
        StringGrid1.Canvas.TextOut(Rect.Left + 5,Rect.Top + 3, Str);
        Application.ProcessMessages;
      end;

Una cosa más.
Pare evitar este efecto en las celdas:


En la propiedad Options, pon goFixedVertLine a FALSE. En diseño.

[amrp]

hola a todos

[Casimiro Noteví]

Empezado por amrp

hola a todos

Bienvenido a clubdelphi, por favor, lee nuestra guía de estilo. Gracias

[amrp]

Hola a todos