Barra de tiempo con franjas de colores

[[xEsk]]

Puedes intentar pintarlo directamente en el TCanvas de un TPaintBox.

Por lo que veo en la imagen de muestra, no tiene mucha complicación, son todo rectángulos:

Código Delphi [-]
procedure TCanvas.Rectangle(X1, Y1, X2, Y2: Integer);

Y pintar la barra de las horas, pues puedes usar:

Código Delphi [-]
procedure TCanvas.MoveTo(X, Y: Integer);
procedure TCanvas.LineTo(X, Y: Integer);

Y para poner las horas:

Código Delphi [-]
procedure TCanvas.TextOut(X, Y: Integer; const Text: String);

Para cambiar la fuente usada en el TCanvas, tienes la propiedad "Font", y para los colores el TBrush y el TPen.

Saludos