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