Bienvenido al club..... :o

Yo tampoco..... :)

mmmmm....

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

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.

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

Me lo imagine, esta en d2010.

Podrias hacer esto descomprime el archivo. En delphi 6 creas un nuevo proyecto de delphi 6. Desde el menu vas a project y le dices que agrege la unit1.pas que descomprimiste, salva el proyecto pero no le salves la unidad que por defecto creo d6. El proyecto deberia compilar y crear el dpr y el dcu.

Comentas como te fue.

:confused::confused::confused:
¿En sero Carlos? Yo lo acabo de abrir con D6 sin problemas.
Sólo hay que crear el directorio de DCUs dentro del de proyecto (donde coloca por defecto los DCUs) y comentar la siguiente línea del DPR:

Código Delphi [-]
Application.MainFormOnTaskbar := True;

¿Qué error ta da?
Si no hay controles extraños, no deberia haber problemas.

(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 :D:D;)).



(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.

Bueno, pues ya corregi tal cual me comentaste y al parecer ya esta listo.

Código Delphi [-]
//Aqui Pintamos las columnas de los horarios del segundo turno
  procedure _PaintHourCol3(ACol,ARow:integer);
  var
    a,j,p:integer;
    Str:String;
  begin
    if (ACol=3) and (ARow <10) then   //Ignoro la fila de resumen
      begin
        a := ARow + 14 - 2; //14 es la hora de inicio
                                   //Restamos los dos renglones o filas fijos
        Str := Format('%.2d:00',[a]) + ' - ' + Format('%.2d:00',[a+1]);
      end; //if

    if (ARow > 1) then
      begin
        InflateRect(Rect, -1, -2);

        StringGrid1.Canvas.Pen.Color := clBlack;
        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;

//Para el tercer turno (Columna 6) hice una chapuza HORRIBLE pero por el momento me resuelve el problema
//Aqui Pintamos las columnas de los horarios del tercer turno
  procedure _PaintHourCol6(ACol,ARow:integer);
  var
    a,j,p:integer;
    Str:String;
  begin
  if (ACol=6) then
      begin
        case ARow of
          2 : a := 22;
          3 : a := 23;
          4 : a := 0;
          5 : a := 1;
          6 : a := 2;
          7 : a := 3;
          8 : a := 4;
          9 : a := 5;
        end;

        Str := Format('%.2d:00',[a]) + ' - ' + Format('%.2d:00',[a+1]);
      end;

    if (ARow > 1) and (ARow <10) then  //Ignoro la fila de resumen
      begin
        InflateRect(Rect, -1, -2);

        StringGrid1.Canvas.Pen.Color := clBlack;
        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;

Me alegro de que al final lo hayas conseguido.
Como vez, al final no ha sido tan difícil... ;)

hola a todos

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

hola a todos
 

Hola a todos

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