StringGrid Zelle wird erst nach verlassen der Zelle eingefär

[Chemiker]

Hallo,

Delphi-Quellcode:

procedure TfrmStringGridDemo.StringGrid1DrawCell(Sender: TObject; ACol,
  ARow: Integer; Rect: TRect; State: TGridDrawState);
begin
  with Sender as TStringGrid do
  begin
    if ((aCol >= FixedCols) and
        (aRow>=FixedRows) and (Objects[aCol, aRow]<> NIL)) then
    begin
      Canvas.Brush.Color:= TColor(Objects[aCol, aRow]);
      Canvas.FillRect(Rect);
      DrawText(Canvas.Handle, PChar(Cells[aCol, aRow]),
               Length(Cells[aCol, aRow]), Rect, DT_CENTER);
    end;
  end;
end;

mit dieser Procedure wird jede Zelle individuelle eingefärbt. Wenn ich die StringGrid-Options goEditing= False habe wird die Zelle sofort eingefärbt. Ist die Options goEditing = True wird die Zelle erst nach dem Verlassen eingefärbt.

Wie kann man es erreichen das die Zelle sofort eingefärbt wird, auch wenn goEditing auf True steht?

Bis bald Chemiker

[hanspeter]

Da ist noch der Inplace-Editor aktiv.
Im Standard-Stringgrid ist dieses Teil etwas störrisch.
Versuche doch, ob man für diesen Color setzen kann.

Peter

[Chemiker]

Hallo hanspeter,

Zitat:

Versuche doch, ob man für diesen Color setzen kann.

Wie meinst Du das jetzt, kannst Du mir das näher Erläutern?

Bis bald Chemiker

[mkinzler]

Für die Eingabe wird ein Editor-Element erzeugt, welches an der Stelle eingeblendet wird, beim Verlassen wird dein Code aufgerufen.

[Chemiker]

Hallo mkinzler,

das bedeutet, dass man das Editor-Element verändern muss, um das Verhalten zu ändern?

Bis bald Chemiker

[mkinzler]

Möglicherweise. Vielleicht hilft es auch die Farbe zu ändern

[Chemiker]

Hallo,

habe nach Inplace-Editor gesucht und bin auf einen Beitrag von Sakura gestoßen, der für StringGrid eine neue Komponente schreibt.

Verhalten vom Inplace Editor verändern

@ mkinzler:
Meinst Du das mit Farbe ändern, oder gibt es noch eine andere Methode um das Verhalten zu verändern?

Bis bald Chemiker

[mkinzler]

Lass mal DefaultDrawing auf True und setzte nur die Farbe

[Chemiker]

Hallo mkinzler,

DefaultDrawing habe ich nicht verstellt, sie steht auf TRUE. Was meinst Du mit nur die Farbe setzen?

Mit Doppel-Click auf die Zelle, wird ein ColorDialog geöffnet und man kann die Farbe aussuchen.

Delphi-Quellcode:

procedure TfrmStringGridDemo.StringGrid1DblClick(Sender: TObject);
begin
  with Sender as TStringGrid do
  begin
    if ColorDialog1.Execute then
    begin
      Objects[Col,Row]:= pointer (ColorDialog1.Color);
      Invalidate;
    end;
  end;
end;

Bis bald Chemiker

[marabu]

Moin Chemiker,

wenn du mit der Standardkomponente TStringGrid arbeitest, dann genügt es, wenn du im richtigen Augenblick die Farbe deines Editors an die in Objects[] hinterlegte Farbe anpasst:

Delphi-Quellcode:

uses
  Mask;

type
  TGridCracker = class(TStringGrid);

procedure TDemoForm.StringGridGetEditText(Sender: TObject; ACol,
  ARow: Integer; var Value: String);
begin
  with TGridCracker(Sender) do
    if Assigned(InplaceEditor) then
      if Assigned(Objects[Col, Row])
        then TMaskEdit(InplaceEditor).Color := TColor(Objects[ACol, ARow])
        else TMaskEdit(InplaceEditor).Color := Color;
end;

Grüße vom marabu

[Chemiker]

Hallo marabu,

das ist ja genial.

Ist meine Vermutung richtig, dass die Deklaration von TGridCracker dazu dient den InplaceEditor zu ändern.

Was ich noch nicht verstehe, warum ist diese Zeile eingefügt.

Delphi-Quellcode:

if Assigned(InplaceEditor) then

Bis bald Chemiker

[marabu]

Zitat:

Zitat von Chemiker

... Ist meine Vermutung richtig, dass die Deklaration von TGridCracker dazu dient den InplaceEditor zu ändern. ...

ich verwende diese Klasse um Zugriff auf die protected property InplaceEditor zu erlangen.

Delphi Sprachreferenz :: private-, protected- und public-Elemente

... Ein protected-Element ist innerhalb des Moduls mit der Klassendeklaration und in allen abgeleiteten Klassen (unabhängig davon, in welchem Modul sie deklariert sind) sichtbar. ...

Die Prüfung auf Assigned() habe ich nur aufgenommen, weil ich zu faul bin den Nachweis zu führen, dass der InplaceEditor zu diesem Zeitpunkt zuverlässig instanziert ist.