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

[grayfox]

hallo kiar!

ich glaub, du hast die arbeitsweise von 'drawcell' nicht richtig verstanden :wink:
drawcell zeichnet immer nur jene zelle, mit deren koordinaten es aufgerufen wird

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

wenn du in einer schleife durch deine spalten iterierst, ist es sehr wahrscheinlich, dass du
colwidth der letzten spalte für alle vorherigen auch zum zentrieren heranziehst. aus diesem grund
dürfte es bei dir nicht so gut aussehen

probiers mal auf diese art:

Delphi-Quellcode:

{$UNTESTED}

  s:=StringGrid1.Cells[ACol,ARow] 
  StringGrid1.Canvas.FillRect(Rect); // Zellfarbe zeichnen 
  DrawText(StringGrid1.Canvas.Handle, PChar(s), Length(s), Rect, DT_Center);

quelle: huberlix im vorigen beitrag :P

damit sollte es klappen

mfg, stefan

[kiar]

hi grayfox , danke für deine antwort, bin auch schon auf drawtext gekommen, da geht es sogar mit dt_center und dtwordbreak, aber ich will die fixierten cellen zentrieren und umbrechen.

wäre klasse, wenn dir noch etwas einfallen würde.

raik

[Jens Schumann]

Hallo,
versuch es doch mal mit

Delphi-Quellcode:

DrawText(StringGrid1.Canvas.Handle, PChar(s), Length(s), Rect, DT_Center+dt_wordbreak);

[kiar]

hallo jens

siehe einen post über deinen . ich hatte die beschriftung für die Column ausgeschaltet, deshalb war nichts in den column zu sehen.

also das thema ist erledigt.

vielen dank raik