StringGrid: Zellen-Farbe bei Click ändern

[Hansa]

Ich würde jeder Zelle ein TObject mit den wichtigen Eigenschaften als Record verpassen und diese dann in OnDrawCell auswerten.

[Lannes]

Hallo,

falls Du StringGrid.Objects noch nicht anderweitig verwendest,
wäre das folgende denkbar:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
const SelColor = ClRed;
begin
  with TStringGrid(Sender), Canvas do
    begin
    if Integer(Objects[aCol,ARow]) = 1 then
      Brush.Color := FocusedColor
      else
        Brush.Color := Color;
    FillRect(Rect);
    TextRect(Rect, Rect.Left + 2, Rect.Top + 2, Cells[aCol, aRow]);
    end;
end;

procedure TForm1.StringGrid1MouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var ACol,ARow : Integer;
begin
  with TStringGrid(Sender), Canvas do
    begin
    MouseToCell(X,Y,ACol,ARow);
    Objects[ACol,ARow] := Pointer(Integer(Objects[ACol,ARow]) xor 1);
    end;
end;

[Helmi]

Hallo
und vielen Dank!

hab deinen Code etwas angepasst und so funktionierts bestens:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
const
  SelColor = ClRed;

begin
  with TStringGrid(Sender), Canvas do
    begin
      If gdFixed in state then
        exit;

      If Integer(Objects[aCol,ARow]) = 1 then
        Brush.Color := SelColor
      else
        Brush.Color := Color;

      FillRect(Rect);
    end;
end;

[Hansa]

Zitat von Lannes:

..falls Du StringGrid.Objects noch nicht anderweitig verwendest,
wäre das folgende denkbar...

Inwiefern "anderweitig" ? Er bräuchte doch nur den eventuell vorhandenen TObject Record um ein Feld, z.B. Farbe zu erweitern und diesen Wert im OnClick dann im Stringgrid.TObject [ACol,ARow] zu setzen. Und fertig.

[Helmi]

Zitat von Hansa:

Inwiefern "anderweitig" ? Er bräuchte doch nur den eventuell vorhandenen TObject Record um ein Feld, z.B. Farbe zu erweitern und diesen Wert im OnClick dann im Stringgrid.TObject [ACol,ARow] zu setzen. Und fertig.

Wie meinst du das Hansa?

ich muss gestehen - ich hab bisher nichts mit Objects zu tun gehabt

[mkinzler]

Man kann zu jeder Zelle eine Klasseninstanz abspeichern. Diese kann man mit .Objects adressieren

[Lannes]

hallo,

Zitat von Hansa:

Zitat von Lannes:

..falls Du StringGrid.Objects noch nicht anderweitig verwendest,
wäre das folgende denkbar...

Inwiefern "anderweitig" ?

könnte sein das er z.B. schon einen Record eingehängt hat.

Zitat von Hansa:

Er bräuchte doch nur den eventuell vorhandenen TObject Record um ein Feld, z.B. Farbe zu erweitern und diesen Wert im OnClick dann im Stringgrid.TObject [ACol,ARow] zu setzen. Und fertig.

genau

[Hansa]

Das hier hat sich überschnitten mit meinem Posting :

Zitat von Helmi:

hab deinen Code etwas angepasst und so funktionierts bestens:

Nur, wie hängt das hiermit zusammen :

Zitat von Helmi:

ich muss gestehen - ich hab bisher nichts mit Objects zu tun gehabt

Dürfte dann wohl nur kurz gehen.

Würde das ganze so aufbauen :

Delphi-Quellcode:

procedure Tfrm.AddAusgObject(ACol, ARow : integer);  // protected
var               
  AusgObject : TAusgObject;
begin
  AusgObject := TAusgObject.Create;
...
  AusgObject.Color := clWhite;   // Standardwert
...
  sgNr.Objects[ACol, ARow] := AusgObject;
  ObjektZaehler := ObjektZaehler + 1;  // Abgleich Anzahl createter TObjects
end;

Das ist je nach Anwendung lediglich die Spitze des Eisbergs.

Edit :

Delphi-Quellcode:

  TAusgObject = class(TObject)
    D   : boolean;  // später Auswertung, ob Anzeige als real erfolgt
                    // und ein Hinweis in der Zelle erscheint
    Color      : TColor;
    P : PTyp;
    constructor Create;
    destructor Destroy;
  end;

So ungefähr sieht der Typ (abgekürzt) aus. Automatisch geht da nicht viel. Es ist Programmierung gefragt.

[Helmi]

Hallo Hansa,

ich versteh was du machen willst damit, aber findest du nicht, dass das etwas overload ist, um nur eine Farbe zu ändern?
Ich mein, ich stell mit dem StringGrid nichts anderes an, als dass ich auf leere Zellen klicke und diese farbig markiere.
Kein Text, kein sonstiges

[Lannes]

Hallo,

TColor ist ein Integer.
Also kann man direkt mit Objects[ACol,ARow] := Pointer(clRed); eine Farbe in Objects speichern und mit Color := Integer(Objects[ACol,ARow]); wieder auslesen.

Alle Objects des StringGrids werden mit Pointer(0) bei der Erzeugung initialisiert.
Vorteilhaft ist es beim Start der Anwendung in FormCreate allen Objects Pointer(StringGrid.Color) zuweisen.