StringGrid -> Selektierte Zeile nur umranden nicht ausfüllen

[HolgerCW]

Hallo zusammen,

wie kann ich bei einem StringGrid die selektierte Zeile nur umranden und nicht ausfüllen ?

Gruss

Holger

[marabu]

Hallo Holger,

wenn du die Selektion nicht farbig hervorgehoben sehen willst, dann hast du wahrscheinlich RangeSelect abgeschaltet:

Delphi-Quellcode:

procedure TDemoForm.StringGridSelectCell(Sender: TObject; ACol, ARow: Integer;
  var CanSelect: Boolean);
begin
  with Sender as TStringGrid do
    Selection := TGridRect(Rect(-1, -1, -1, -1));
end;

Grüße vom marabu

[HolgerCW]

Danke, aber egal obe ich RangeSelect abgeschaltet habe oder nicht, inkl. deinem Code bleibt die selektierte Zeile ausgefüllt.

Gruss

Holger

[marabu]

Hallo,

was verstehst du unter Umranden und was unter Ausfüllen?

Ich habe dein Umranden mit FocusRect gleichgesetzt und Ausfüllen mit der hervorgehobenen Selektion.
Wenn du RangeSelect eingeschaltet (default) hast, dann benötigst du eine visuelle Hervorhebung. Hast du diese Option abgeschaltet, dann brauchst du meinen Code garnicht, solange das Grid den Fokus hat, da eine einzelne Zelle nie farblich hervor gehoben wird.

Kannst du etwas mehr erklären?

Freundliche Grüße

[HolgerCW]

... habe RangeSelect auf True,

... und RowSelect auf True,

damit füllt und umrandet er alle Spalten in der selektierten Zeile.

... jetzt will ich aber die Füllung nicht haben.

Gruss

Holger

P.S.: Sorry, wenn ich mich nicht deutlich ausgedrückt habe ;)

[marabu]

Hallo Holger,

wenn es sehr schön aussehen soll, dann wirst du alles selbst zeichnen müssen. Einfach nur das HighLighting des Auswahlbereiches kannst du so eliminieren:

Delphi-Quellcode:

procedure TDemoForm.StringGridDrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with Sender as TStringGrid do
    if (gdSelected in State) then
    begin
      Canvas.Brush.Color := Color;
      Canvas.FillRect(Rect);
    end;
end;

Freundliche Grüße

[HolgerCW]

Alles klar,

mit der "einfachen Elliminierung" reicht mir schon.

Danke und Gruss

Holger