StringGrid mit 2 variablen Titelzeilen

[Hansa]

Hi,

folgendes Problem: Grid mit 7 Spalten. Ich brauche aber 2 Titelzeilen. Eine für die normalen Spalten und eine, mit der ich machen kann was ich will, im Prinzip also nur eine Zeile.

Ich weiß, fixed Rows usw. Kriege es trotzdem nicht so hin, daß ich aus den 7 Spalten eine mache für eine Zeile, z.B. Row 0.

[Stanlay Hanks]

Ich glaub ich versteh das nicht ganz :oops: Willst du praktisch die sieben Spalten in einer Zeile zu einer großen Spalte verschmelzen?
*kapiertheutewiedergarnix*

[Hansa]

so ungefähr, also nochmal: 2 Titelzeilen also FixedRows. Eine soll die Überschriften der 7 Spalten zeigen, die zweite am besten nur eine Zeile.

Bzw. nur eine bis zwei Spalten und nicht sieben getrennte.

[Hansa]

Angeblich soll das hier "einzelne Zellen" zusammenfügen ":

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
var i, x, y: Integer;
begin
  if gdFixed in State then exit;
  if ARow <= 1 then exit;
  with sender as TStringGrid do begin
    if aCol < Pred(ColCount) then
      Rect.Right := Rect.Right + GridlineWidth;
    y:= Rect.Top + 2;
    x:= Rect.Left + 2;
    for i:= 1 to aCol-1 do
      x:= x - ColWidths[i] - GridlineWidth;
    Canvas.Brush.Color := clWhite;
    Canvas.Brush.Style := bsSolid;
    Canvas.FillRect(Rect);
    Canvas.TextRect(Rect, x, y, Cells[1,1] );

  end;

Leider verstehe ich es nicht richtig. Mit dem Canvas, dem Rect usw. hab ich nicht viel am Hut. Läßt es sich trotzdem für meinen Zweck gebrauchen ?

Quelle : www.delphi-source.de

[Keldorn]

Du mußt (wie im Beispiel) das zu zeichnende Rechteck (rect) aud die gesamte Zeile erweitern.

Das ist nicht das Problem, das Problem ist, wenn das Grid zu klein ist und gescrollt wird , dann gibt es beim Selbstzeichnen Probleme.
Außerdem mußt du wenn du in Zelle [0,1] über den rand was zeichnest, verhindern, das du in Zelle [1,1] wieder was reinschreibst.

ansatzweise kannst dus so machen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  stringgrid1.Cells[0,1] := 'Ich bin über alle Spalten in Zeile 2 zu sehen';
  stringgrid1.Cells[0,0] := 'test';
  stringgrid1.Cells[2,2] := 'test 2';
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with Sender as Tstringgrid do
    begin
      if (arow=1) then
        begin
          //das zu zeichnende Rechteck auf die gesamte Zeile erweitern
          rect:=classes.rect(0,rect.top,GridWidth,rect.Bottom);
          //Hintergrund
          canvas.Brush.Color := fixedcolor;
          canvas.FillRect(rect);
          frame3d(canvas,rect,clBtnHighlight,clBtnShadow,1);
          //text (immer aus Cells [0,1] holen
          canvas.textout(rect.Left+2,rect.top+2,cells[0,1]);
        end;
      //keine weiteren fixierten Zellen selbst zeichnen
      if gdfixed in state then exit;
      //normale zellen
      //Hintergrund
      canvas.FillRect(rect);
      //text
      canvas.textout(rect.Left+2,rect.top+2,cells[aCol,Arow]);
    end;
end;

Was du vorhast ist möglich, wenn dus perfekt machen willst, mußt Du aber nochwas tun ;)

Mfg Frank