StringGrid Zellenfärben mit 3D-Effekt

[Lannes]

Hallo,

versuch das mal:

Delphi-Quellcode:

if (ACol in [2,3]) and (ARow = 2) then
    begin
    aRect := Rect;
    if ACol = 2 then
      aRect.Right := aRect.Right + StringGrid1.ColWidths[3]
      else
        aRect.Left := aRect.Left - StringGrid1.ColWidths[2];
    //DrawFrameControl(StringGrid1.Canvas.Handle,aRect,DFC_BUTTON,DFCS_BUTTONPUSH);
    StringGrid1.Canvas.Brush.Color := StringGrid1.FixedColor;
    StringGrid1.Canvas.FillRect(aRect);
    DrawEdge(StringGrid1.Canvas.Handle,aRect,BDR_RAISEDINNER,BF_RECT);
    StringGrid1.Canvas.Brush.Color := clBlack;
    aRect.Right := aRect.Right+1;
    aRect.Bottom := aRect.Bottom+1;
    aRect.Top := aRect.Top-1;
    aRect.Left := aRect.Left-1;
    StringGrid1.Canvas.FrameRect(aRect);
    end;