안녕하세요. 최용일입니다.

스트링그리드의 OnDrawCell이벤트에서 보통이든 선택되었든 똑같은 색으로 그리도록 해보세요...

^^ 항상 즐코하세요...

빠른 답변 감사드립니다.

일단 색상이 선택되는건 해결하였습니다.

스트링 그리드의 속성중 DefaultDrawing 을 false로 설정하고 OnDrawCell 에서 모든 출력 처리를 담당하도록 하였습니다.

그런데 다시 문제에 부딪쳤습니다. ^^*

셀을 그릴때 배경색이 설정이 되지 않는 문제 입니다.

여러개의 스트링 그리드를 함께 처리하기 위해 이벤트 처리를 한 프로시져로 처리하기위해 코딩을 하였습니다.

  if Acol = 0 then
    (Sender as TStringGrid).Brush.Color := (Sender as TStringGrid).FixedColor
  else
    (Sender as TStringGrid).Brush.Color := (Sender as TStringGrid).Color;

  (Sender as TStringGrid).Canvas.FillRect(Rect);

  if Acol = 0 then begin
    DrawText((Sender as TStringGrid).Canvas.Handle,
             PChar((Sender as TStringGrid).Cells[ACol, ARow]),
             -1,
             Rect,
             DT_SINGLELINE or DT_CENTER or DT_VCENTER);

  end

API 를 이용한 문자 출력은 정상적으로 적용이 되는데..

배경은 적용이 되지 않습니다.

도와주세요...

안녕하세요. 최용일입니다.

배경색 설정하는 부분에서 Canvas가 빠져있네요...

  if Acol = 0 then
    (Sender as TStringGrid).Canvas.Brush.Color := (Sender as TStringGrid).FixedColor
  else
    (Sender as TStringGrid).Canvas.Brush.Color := clred;

^^ 항상 즐코하세요...

앗 그런 실수를...ㅡㅡ;

감사합니다.. ^^*