자료/소스

델파이 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에서 포커싱 되었을 경우 하이라이트 색상 바꿔주는 코드입니다.
top
Tag , ,


Posted at 2007/11/13 11:14 | 자료/소스 | Trackback(0) | Comment(0)
http://www.joon.pe.kr/blog/trackback/240

<< Prev   1   ... 103   104   105   106   107   108   109   110   111   ... 334   Next >>