TStringGrid에서 선택한 행의 배경색 설정

Question

선택한 행 (최대 1, 다중 선택 없음)이 항상 다른 배경 colo (u) r을 가져야하는 TStringGrid가 있습니다.

DefaultDrawing 속성을 false로 설정하고 아래에 표시된 OnDrawCell 이벤트에 대한 메서드를 제공합니다. 그러나 작동하지 않습니다. 어떻게 작동하지 않는지도 정확히 설명 할 수는 없습니다. 내가 할 수만 있다면 나는 이미 문제를 해결했을 것이라고 생각합니다. 모든 배경색이 같은 전체 행을 갖는 대신에 mish-mash라고 말하면 충분합니다. 다중 행에는 "선택됨"색상의 일부 셀이 있고 선택된 색상의 모든 셀에는 선택한 색상이 적용되지 않습니다.

셀의 행을 스트링 그리드의 행과 비교합니다. 선택한 행의 셀만 선택 되었기 때문에 선택한 셀 상태를 확인할 수 없습니다.

procedure TForm1.DatabaseNamesStringGridDrawCell(Sender: TObject; 
               ACol, ARow: Integer; 
               Rect: TRect; 
               State: TGridDrawState); 

    var cellText :String; 
begin 
    if gdFixed in State then 
     DatabaseNamesStringGrid.Canvas.Brush.Color := clBtnFace 
    else 
    if ARow = DatabaseNamesStringGrid.Row then 
     DatabaseNamesStringGrid.Canvas.Brush.Color := clAqua 
    else 
     DatabaseNamesStringGrid.Canvas.Brush.Color := clWhite; 

    DatabaseNamesStringGrid.Canvas.FillRect(Rect); 
    cellText := DatabaseNamesStringGrid.Cells[ACol, ARow]; 
    DatabaseNamesStringGrid.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, cellText); 
end; 

Answer 1

다른 색상으로 선택한 행이나 셀을 페인트하려면 state var의 gdSelected 값을 확인해야합니다.

procedure TForm1.DatabaseNamesStringGridDrawCell(Sender: TObject; 
               ACol, ARow: Integer; 
               Rect: TRect; 
               State: TGridDrawState); 
var 
    AGrid : TStringGrid; 
begin 
    AGrid:=TStringGrid(Sender); 

    if gdFixed in State then //if is fixed use the clBtnFace color 
     AGrid.Canvas.Brush.Color := clBtnFace 
    else 
    if gdSelected in State then //if is selected use the clAqua color 
     AGrid.Canvas.Brush.Color := clAqua 
    else 
     AGrid.Canvas.Brush.Color := clWindow; 

    AGrid.Canvas.FillRect(Rect); 
    AGrid.Canvas.TextOut(Rect.Left + 2, Rect.Top + 2, AGrid.Cells[ACol, ARow]); 
end; 

Answer 2

런타임 테마를 사용하도록 설정 했습니까? 런타임 테마는 Windows Vista 이상을 위해 적용하려는 모든 색 구성표보다 우선합니다.

Answer 3

문자열 그리드에서 새 셀을 선택한 경우 이전 셀과 선택한 새 셀만 무효화됩니다. 따라서 이전 행과 새 행의 나머지 셀은 다시 그려지지 않으므로 설명하는 효과가 나타납니다.

한 가지 해결 방법은 영향을받는 두 행 모두에 대해 InvalidateRow를 호출하는 것이지만이 방법은 보호 된 방법이므로 OnSelectCell 이벤트 처리기에서이 메서드에 도달하는 방법을 찾아야합니다. 델파이 버전에 따라 다양한 방법으로이를 수행 할 수 있습니다.

가장 깨끗한 방법은 TStringGrid에서 파생되는 것이지만 대부분의 경우 가능하지 않습니다. 새로운 Delphi 버전을 사용하면 클래스 도우미를 사용하여이를 수행 할 수 있습니다. 그렇지 않으면 보통 protected hack에 의지해야합니다.

Answer 4

이 날

procedure TFmain.yourStringGrid(Sender: TObject; ACol, ARow: Integer; Rect: TRect; 
    State: TGridDrawState); 
var 
    md: integer; 
begin 
    with yourStringGrid do 
    begin 
      if yourStringGrid,Row = ARow then 
       Canvas.Brush.Color:= clYellow //your highlighted color 
      else begin 
       md := Arow mod 2; 
       if md <> 0 then Canvas.Brush.Color:= $00BADCC1 else //your alternate color 
       Canvas.Brush.Color:= clwhite; 
      end; 
      Canvas.FillRect(Rect); 
      Canvas.TextOut(L, Rect.top + 4, cells[ACol, ARow]); 
     end; 
end; 

그리드를

procedure TFmain.yourStringGridClick(Sender: TObject); 
begin 
    yourStringGrid.Refresh; 
end; 

주 새로 고침 작동 : 약간의 대기 시간을 가지고 있지만, 그렇지 않으면 잘 작동합니다.
(Delphi XE2에서 사용)