Labels mit Stringgrid synchronisieren

[Hansa]

Hi,

Ich brauche unterhalb eines Stringgrids einige Summenwerte der Spalten. Wollte dafür Labels verwenden. Diese Labels passen aber nie genau unter die Spalten. Hat jemand einen Tip ? Die Alternative , diese Summen direkt in die Zellen zu schreiben ist etwas kompliziert wegen dem Scrollen. Die Summen sollen auch sichtbar sein, wenn ich mir nur eine Zeile ansehe.

Im Prinzip bräuchte ich nur die Breite der einzelnen Spalten.

[Sharky]

Zitat von Hansa:

... Im Prinzip bräuchte ich nur die Breite der einzelnen Spalten.

Ich habe das mal mit einem Panel, einen StringGrid und einer Statusbar gemacht. Statusbar auf das Panel (Align := alBotton), StringGrid auf das Panel (Align := alClient).

Im FormCreate dann:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
  ndx : integer;
  statPanel : TStatusPanel;
begin
  for ndx := 0 to Pred(StringGrid1.ColCount) do
  begin
    statPanel := StatusBar1.Panels.Add;
    statPanel.Width := StringGrid1.ColWidths[ndx];
  end;
end;

[Hansa]

Thx Sharky ! Colwidth ist das was ich brauche. Die Codevervollständigung hat bei mir eine Macke und hat nichts angezeigt. Vermutlich ist das immer noch die V7.0. 8)

Delphi-Quellcode:

LinkerAnfang := 0;
for i := 0 to 5 do begin
  LinkerAnfang := LinkerAnfang + sgArtNr.ColWidths[i];
end;

So scheints ungefähr zu gehen. Allerdings was ist mit der Position des Grids auf der Form, mit den Rändern usw. ? Wenn einer da Zeit und Lust hat da kurz die Identifier zu sagen, auf die es ankommt wäre nett. Mir rennt die Zeit nämlich weg und habe morgen kaum Delphi oder Internet zur Verfügung.

Edit : was hier als Linker Anfang deklariert ist, ist das jetzt der linke Rand der Zelle mit oder ohne Rand ? Rechts- oder linksbündig ?

[Nikolas]

Meinst du sowas?

Label(0-4) werden jeweils unter der Zeile geparkt:

Delphi-Quellcode:

ablinks:=0;
for i := 0 to 4 do
 begin
  Tlabel(FindComponent('Label' + IntToStr(i))).Left := ablinks+sg.Left{+5};
  ablinks := ablinks + sg.ColWidths[i];
 end;

Kleines Update:

Delphi-Quellcode:

  

ablinks:=0;
for i := 0 to 4 do
 begin
  width:= form1.Canvas.TextWidth('Label'+inttostr(i));

  // linksbündig
  if rg.ItemIndex = 0 then
  delta := 0;
  
  // rechtsbündig:
  if rg.ItemIndex = 1 then
  begin
  if width<sg.ColWidths[i] then
   delta := sg.ColWidths[i]-width
  else
   delta := -1*(width-sg.ColWidths[i]);
  end;


  // zentriert:
  if rg.ItemIndex = 2 then
  begin
  if width<sg.ColWidths[i] then
   delta := round(    (sg.ColWidths[i]-width) /2)
  else
   delta := round(-1* (width-sg.ColWidths[i]) /2);
   end;



  Tlabel(FindComponent('Label' + IntToStr(i))).Left := ablinks+sg.Left+5+delta;
  ablinks := ablinks + sg.ColWidths[i];
 end;