stringgrid

[Hartfrid Krause]

Wie kann ih die Umrandung einer Zelle in stringgrid, sobald sie den Eingabefocus bekommt, etwa mit einem roten Rand - statt der vorhandenen dünnen Punkteliste versehen, der wieder weggeht, wenn der Focus auf eine andere Zelle zeigt??

[DeddyH]

Auf die Schnelle würde ich sagen: im OnDrawCell selber zeichnen.

[Hartfrid Krause]

Gibt es keine direktere Möglichkeit??

[vagtler]

Noch direkter?

[Hartfrid Krause]

Die Umrandung klappt schon (hier im Beispiel Zelle 3,1), aber nicht, jeweils N U R in der Zelle, die den Eingabefocus hat.
Das muss noch irgendetwas hinzu, was ich nicht weiss
Wer kann da helfen?
Die procedure stringgriddrawcell hat folgende Form:


procedure tform1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
Rect: TRect; State: TGridDrawState);
begin
with StringGrid1.Canvas do
begin
if (arow=3) and (acol=1) then
begin
StringGrid1.Canvas.Pen.Color := clred;
StringGrid1.Canvas.Pen.Width := 2;
StringGrid1.Canvas.MoveTo(Rect.Left,Rect.Bottom);
StringGrid1.Canvas.LineTo(Rect.Right,Rect.Bottom);
StringGrid1.Canvas.LineTo(rect.right,rect.top);
StringGrid1.Canvas.LineTo(rect.Left,rect.top);
StringGrid1.Canvas.LineTo(rect.Left,rect.bottom);
end;
end;
end;

[himitsu]

[DELPHI]-Tags?

Zitat:

jeweils N U R in der Zelle, die den Eingabefocus hat.

wie was wann wo warum?

Tipp: Ist dir der Parameter "state" aufgefallen?


Tipp 2: Man könnte ja mal die genutzte Delphiu-Version erwähnen. (eventuell sogar im Forenprofil)
Denn ab Professional gäbe es noch einen ganz praktischen Tipp ... schau in die VCL-Quellcodes, was/wie dort standardmäßig gezeichnet wird. :angle2:

[DeddyH]

Schau Dir den Parameter State einmal genauer an: Grids.TGridDrawState

[Hartfrid Krause]

Version delphi 2007 professional

Ich komme trotz allem mit gdfocused nicht klar.
if ....gdfocused...true ...then ???
Wie wird dies aufgerufen???

[DeddyH]

Delphi-Quellcode:

if gdFocused in State then //aktuelle Zelle hat den Fokus

[Hartfrid Krause]

Ganke, ja so
klappt es