Pixelrahmen beim Markieren (StringGrid/Listbox) entfernen

[Keldorn]

Hallo

das geht nicht. da das Focusrect immer wieder gemalt wird, wirst du so nicht froh, spätestens beim scrollen hakt es. Stell defaultdraw auf false und zeichne das Grid komplett selber. Das 3D-Aussehen der fixedcells ist auch nicht schwer, dafür gibt es Frame3D.

Codeschnippsel:

Delphi-Quellcode:

procedure TForm1.StringGrid1DrawCell(Sender: TObject; ACol, ARow: Integer;
  Rect: TRect; State: TGridDrawState);
begin
  with Sender as TStringGrid do
    begin
      if (gdfixed in State) then
        begin
          canvas.Brush.Color:=FixedColor;
          canvas.FillRect(rect);
          if Ctl3D then
         //wenn Fixed color nicht geändert wurde und den Standard-win-einstellungen =clbtnface entspricht,
           Frame3D(canvas,
                  rect,
                  clBtnHighlight,
                  clBtnShadow,
                  1);
          //sonst
          //uses graputil
{          Frame3D(canvas,
                  rect,
                  GetHighLightColor(FixedColor),
                  GetShadowColor(FixedColor),
                  1);}
        end
       else
       //wenn selektiert
        if (gdselected in State) then
          ...
          //Brush auf clhighlight setzen und hier halt keinen focusrahmen zeichnen
        else
          //normal zeichnen
          ...
          //brush auf Clwindow, bzw Color des Grid setzen

      //und irgendwann den Text, oder gleich drawtext verwenden
      canvas.textout(rect.left+2,rect.Top+2,cells[acol,arow]);
    end;
end;

Mfg Frank