Fórum StringGrid. Pesquisei no forum e não achei nada parecido #234733

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
   if StringGrid1.Cells[0,ARow] = ´*´ then
      StringGrid1.Canvas.Brush.Color := clRed;

   if gdFixed in State then
      StringGrid1.Canvas.Brush.Color := clBtnFace;
   StringGrid1.Canvas.TextRect(Rect, Rect.Left + 3, Rect.Top + 2, StringGrid1.Cells[Acol,Arow]);
end;

procedure TForm1.Button1Click(Sender: TObject);
var X:integer;
   Hora:TTime;
begin
   StringGrid1.ColWidths[0]:=0;
   Query1.Open;
   StringGrid1.RowCount:=48;
   for X:=1 to StringGrid1.RowCount -1 do
      begin
      Hora:=StrToTime(´00:30:00´)*X;
      StringGrid1.Cells[1,X]:=FormatDateTime(´hh:mm´,hora);
      if TimeToStr(Query1Hora.Value) = TimeToStr(Hora) then
         begin
         StringGrid1.Cells[0,X]:=´*´;
         Query1.Next;
         end
      else
         begin
         StringGrid1.Cells[0,X]:=´ ´;
         end;
      end;
end;