[TStringGrid] Zelle löschen/ausblenden

[sCrAPt]

HiHo

Gibt es eine Möglichkeit dass man eine Zelle (ein Kästchen) mit Rahmen ausbledenden kann? Wenn ja, welche?

http://og4all.de/s, sCrAPt

[mischerr]

Unterbinde im OnDrawCell-Event das Zeichnen des Zellinhalt!

Grüsse!

[sCrAPt]

Versteh ich nicht ganz?
Meinst du so?

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  if (acol = 4) and (arow = 4) then exit;
end;

http://og4all.de/s, sCrAPt

[mischerr]

Eine Möglichkeit wäre es, die Zelle einfach zu überschreiben...

Code:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with StringGrid1.Canvas do begin
       if (ARow=1) and (ACol=1) then begin
          Brush.Color:= clWhite; // ggfls. der Hintergrundfarbe der Zelle anpassen
          Brush.Style:= bsSolid; // ist i.d.R. Default
          FillRect(Rect);
       end;
  end;
end;

Grüsse!

[sCrAPt]

Zwar übernimmt er die Hintergrundfarbe, aber der Rahmen ist noch sichtbar

http://og4all.de/s, sCrAPt

[Keldorn]

Hallo

was verstehst du unter dem Rahmen? den selectionsfocus? Dann überzeichne Ihn mit Drawfocusrect oder erlaube im Onselectcell erst gar nicht, daß die Zelle selektiert werden kann.

Mfg Frank

[sCrAPt]

FixedVertLine & FixedHorzline

http://og4all.de/s, sCrAPt

[Keldorn]

dann verstehe ich den Sinn nicht. ganze Spalten und Zeilen ausblenden ok, das mach ich auch, aber was willst du mit einer einzelnen zelle?

[sCrAPt]

ich möchte so ein Feld aufbauen wie es im Anhang zu sehen ist

http://og4all.de/s, sCrAPt

[Keldorn]

achso,

denn blende die Linien aus (govertline,gohorizline=false) und zeichne die Linien einfach selbst
als Anregung:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with Sender as Tstringgrid do
    begin
      if acol+arow<7 then
        begin
          ///Hintergrund noch zeichen
          ...
          canvas.pen.Color:=clLtGray;
          canvas.MoveTo(rect.Right,Rect.Top);
          canvas.LineTo(rect.Right,Rect.Bottom);
          canvas.LineTo(rect.Left,Rect.Bottom);
          ///Text noch zeichen
          ...
        end;
    end;
end;

procedure TForm1.StringGrid1SelectCell(Sender: TObject; ACol,
  ARow: Integer; var CanSelect: Boolean);
begin
  CanSelect:=(acol+arow)<7;
end;

Mfg Frank