in einem stringgrid den text in den column zentrieren

[kiar]

fogender massen bin ich rangegangen:

Delphi-Quellcode:

procedure TForm1.SG1DrawCell(Sender: TObject; ACol, ARow: Integer;
                             Rect: TRect; State: TGridDrawState);

var
   r:TRect;
   i,a,x:integer;
   s:string;
begin
     
     
           with (sender as Tstringgrid) do
               begin
                   for i:=0 to 6 do
                      begin
                          r:=cellrect(i,0);
                          canvas.brush.color:=clblue;
                          if i = 0 then

                            s:='name'
                            
                            else
                            s:='Donnerstag';
                            a:=length(s)*font.size;
                          canvas.TextRect(r,r.left+((colwidths[i]div 2)-(a div 2)),r.top,s);// das ist die zeile die zentrieren soll !!!
                    
                    canvas.Brush.color:=clwhite;
                    canvas.FrameRect(r);
                    end;
               end;

er zentriert aber nicht richtig. wird eigentlich bei der breite der zellen der rahmen mitgemessen, oder muss man diesen noch dazuaddieren???

raik