자료/소스

델파이 dbgrid 하이라이팅 기능


언어 : delphi
  1. procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;
  2.   DataCol: Integer; Column: TColumn; State: TGridDrawState);
  3. begin
  4.   if (State = [gdSelected, gdFocused]) or (State = [gdSelected]) then
  5.   begin
  6.     (Sender as TDBGrid).Canvas.Brush.Color := clHighlight;
  7.     (Sender as TDBGrid).Canvas.Font.Color := clHighlightText;
  8.     (Sender as TDBGrid).Canvas.FillRect(Rect);
  9.     (Sender as TDBGrid).DefaultDrawColumnCell(Rect, DataCol, Column, State);
  10.   end;
  11. end;

델파이 dbgrid에서 포커싱 되었을 경우 하이라이트 색상 바꿔주는 코드입니다.
이올린에 북마크하기(0) 이올린에 추천하기(0)
top


http://www.joon.pe.kr/blog/trackback/240


<< Prev   1   ... 105   106   107   108   109   110   111   112   113   ... 336   Next >>