StringGrid Frage

[rokli]

Dazu gibt es einen Tipp im Swiss Delphi Center

Delphi-Quellcode:

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

Damit kannst Du die Farben so einstellen, wie Du willst ... und wenn Vordergrundfarbe = Hintergrundfarbe ist, siehst Du es nicht mehr.

[Schuby]

Ich Danke dir, genau das ist es



mfg Schuby

[haentschman]

Moin...

Zitat:

genau das ist es

.. eben nicht.
with TStringGrid(Sender), Canvas do ...bitte laß das WITH, und das auch noch verschachtelt, weg. In altem Code sieht man das häufig, ist aber nicht mehr zeitgemäß.

[p80286]

Zitat von haentschman:

Moin...

Zitat:

genau das ist es

.. eben nicht.
with TStringGrid(Sender), Canvas do ...bitte laß das WITH, und das auch noch verschachtelt, weg. In altem Code sieht man das häufig, ist aber nicht mehr zeitgemäß.

Zeitgemäß.....Das ist fehleranfällig! Laß die finger davon!
(Zeitgemäß oder noch schlimmer "modern" sollte für uns kein Kriterium sein.)

Gruß
K-H

[Schuby]

Jetzt habe ich doch noch ein Problem,
wenn in dieser zelle eine Zahl drin steht.
Klicke ich die Zelle an, sieht man sie,
gehe ich raus aus der zelle ist die Zahl weg.


Uppp


mfg Schuby

[p80286]

Wenn Du genau den Source aus #6 verwendet hast, dann fehlt dir der unselectierte Teil.

Gruß
K-H

[Schuby]

Sorry verstehe ich nicht was du meinst ?




mfg Schuby