StringGrid Frage

[Schuby]

Hallo,
sorry aber ich suche mir ein Wolf bei google
nun muss ich doch mal fragen.


Ich klicke in eine celle im StringGrid und wenn ich wieder raus gehe ist diese celle blau,
wie bekomme ich es hin das diese celle weiß bleibt.


Danke für Antworten.

mfg Schuby

[rokli]

Hi Schuby,

wenn ich das im StringGrid mache, wird es nur blau, wenn ich eine Markierung über mehre Felder setze (Makireung.png), wenn ich nur ein Feld anklicke bleibt es weiß (nurklik.png).

Siehe Abbildungen.

[Schuby]

Genau darum geht es mir, ich möchte das die Zelle weiß bleibt wenn ich diese Zelle verlasse.
Wäre schön wenn du mir ein Tipp geben könntest.


mfg Schuby

[rokli]

Aber wenn Du eine Markierung setzt - wie in Excel - dann ist das die Kennzeichnung für den Anwender, welcher Bereich gemeint ist ... das ist doch so üblich.

Aber diese Kennzeichnung möchtest Du wegmachen? Ist das gemeint?

[Schuby]

Geanu das ist es.


mfg Schuby

[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...:P

Zitat:

genau das ist es

.. eben nicht. :wink:

Delphi-Quellcode:

with TStringGrid(Sender), Canvas do

...bitte laß das WITH, und das auch noch verschachtelt, weg. :warn: In altem Code sieht man das häufig, ist aber nicht mehr zeitgemäß. :zwinker:

[p80286]

Zitat:

Zitat von haentschman (Beitrag 1422550)

Moin...:P

Zitat:

genau das ist es

.. eben nicht. :wink:

Delphi-Quellcode:

with TStringGrid(Sender), Canvas do

...bitte laß das WITH, und das auch noch verschachtelt, weg. :warn: In altem Code sieht man das häufig, ist aber nicht mehr zeitgemäß. :zwinker:

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

[Klaus01]

.. wenn man über die Zelle drübermalt muss man dann nicht auch den Text neu zeichnen?

Grüße
Klaus

[Schuby]

Ich habs, endlich bleiben die Zellen nicht mehr blau,
auch nicht beim verlassen einer Zelle

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
const
  SelectedColor = clBtnFace;
var
  Grid: TStringGrid;
  s: string;
begin
  Grid := Sender as TStringGrid;
  s := Grid.Cells[ACol, ARow];
  if (gdSelected in State) and not (gdFocused in State) then
  begin
    Grid.Canvas.Brush.Color := Grid.Color;
    Grid.Canvas.FillRect(Rect);
    InflateRect(Rect, -2, -2);
    Grid.Canvas.Font.Color := Grid.Font.Color;
    DrawText(Grid.Canvas.Handle, PChar(s), Length(s), Rect, DT_LEFT);
  end;
end;

Danke für eure Hilfe

mfg Schuby