StringGrid roter Rahmen

[strom]

hallo,
möchte gerne einen roten rahmen im StringGrid haben, also die markierte Zeile soll einen rahmen haben.

Delphi-Quellcode:

  if gdSelected in State then
   StringGrid1.Canvas.Brush.Color := clMenu;
   StringGrid1.Canvas.FillRect( Rect );
   StringGrid1.Canvas.TextRect( Rect, Rect.Left, Rect.Top, StringGrid1.Cells[ACol, ARow] );

   Stringgrid1.Canvas.Pen.Color:=clRed;
   Stringgrid1.Canvas.Rectangle(Rect.Left, Rect.Top, Rect.Right StringGrid1.cells[aCol, aRow]); // was ist hier falsch?

[EWeiss]

Fehlt da nicht ein begin\end?

gruss

[strom]

hey,

ist nur ein Ausschnitt!

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
   StringGrid1.Canvas.Font.Color := clblack;

  if StringGrid1.Cells[0, ARow] = '1' then
   begin
    StringGrid1.Canvas.Brush.Color := $004080FF;
   end else
  if StringGrid1.Cells[0, ARow] = '2' then
   begin
    StringGrid1.Canvas.Brush.Color := $004080FF;
   end else
  if StringGrid1.Cells[0, ARow] = '3' then
   begin
    StringGrid1.Canvas.Brush.Color := $004080FF;
   end else
  if StringGrid1.Cells[0, ARow] = '11' then
   begin
    StringGrid1.Canvas.Brush.Color := $004080FF;
   end else
  if StringGrid1.Cells[0, ARow] = '4' then
   begin
    StringGrid1.Canvas.Brush.Color := clYellow;
   end else
  if StringGrid1.Cells[0, ARow] = '5' then
   begin
    StringGrid1.Canvas.Brush.Color := clyellow;
   end else
  if StringGrid1.Cells[0, ARow] = '6' then
   begin
    StringGrid1.Canvas.Brush.Color := clYellow;
   end else
  if StringGrid1.Cells[0, ARow] = '7' then
   begin
    StringGrid1.Canvas.Brush.Color := clYellow;
   end else
  if StringGrid1.Cells[0, ARow] = '8' then
   begin
    StringGrid1.Canvas.Brush.Color := clYellow;
   end else
  if StringGrid1.Cells[0, ARow] = '9' then
   begin
    StringGrid1.Canvas.Brush.Color := clYellow;
   end else
  if StringGrid1.Cells[0, ARow] = '10' then
   begin
    StringGrid1.Canvas.Brush.Color := clYellow;
   end;
  if gdSelected in State then
   StringGrid1.Canvas.Brush.Color := clMenu;
   StringGrid1.Canvas.FillRect( Rect );
   StringGrid1.Canvas.TextRect( Rect, Rect.Left, Rect.Top, StringGrid1.Cells[ACol, ARow] );

   Stringgrid1.Canvas.Pen.Color:=clRed;
   //Stringgrid1.Canvas.Rectangle(Rect.Left, Rect.Top, Rect.Right StringGrid1.cells[aCol, aRow]); // was ist hier falsch?
end;

[markus5766h]

... ich glaube, der Markierungsrahmen wird in der Komplimentärfarbe zum Canvas.Brush gezeichnet :
versuch' mal Folgendes nach dem TextOut :

Delphi-Quellcode:

StringGrid1.Canvas.Brush.Color := clTeal;
if gdFocused in State then StringGrid1.Canvas.DrawFocusRect(Rect);

[strom]

Super ! Danke

[Blup]

Zitat von strom:

hey,

ist nur ein Ausschnitt!

Dann ist an dieser Stelle der Quelltext aber falsch eingerückt.
Ich würde auch viel mehr Unterfunktionen verwenden.
Damit bleibt der Quelltext z.B. für spätere Fehlersuche oder Änderungen lesbar.

Delphi-Quellcode:

function TForm1.GetColorForValue(AValue: Integer): TColor;
begin
  case AValue of
    1..3, 11: Result := $004080FF;
    4..10:    Result := clYellow;
  else        Result := clBlack;
  end;
end;

function TForm1.GetColorForCell(AState: TGridDrawState; AValue: Integer): TColor;
begin
  if gdSelected in AState then
    Result := clMenu
  else
    Result := GetColorForValue(AValue, 0);
end;

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with StringGrid1 do
  begin
    {Hintergrund und Text, TextRect füllt auch den Hintergrund}
    Canvas.Brush.Color := GetColorForCell(State, IntToStrDef(Cells[0, ARow], 0));
    Canvas.TextRect(Rect, Rect.Left, Rect.Top, Cells[ACol, ARow]);

    {Markierung}
    if gdFocused in State then
    begin
      Canvas.Brush.Color := clTeal;
      Canvas.DrawFocusRect(Rect); 
    end;
  end;
end;