자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다. 
  • 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)

Firemonkey [XE6] StringGrid의 정렬에 대한 자료를 찾았는데 컬럼의 색이 변합니다.

2014.11.18 00:59

어려워 조회 수:1644

procedure TForm1.StringGrid1DrawColumnCell(Sender: TObject;
  const Canvas: TCanvas; const Column: TColumn; const Bounds: TRectF;
  const Row: Integer; const Value: TValue; const State: TGridDrawStates);
const
  HorzTextMargin = 2;
  VertTextMargin = 1;
var
  TextLayout : TTextLayout;
  TextRect: TRectF;
begin
  if Column = StringColumn1 then
  begin
    TextRect := Bounds;
    TextRect.Inflate(-HorzTextMargin, -VertTextMargin);
    Canvas.FillRect(Bounds, 0, 0, AllCorners, 1);
    TextLayout := TTextLayoutManager.DefaultTextLayout.Create;
    try
      TextLayout.BeginUpdate;
      try
        TextLayout.WordWrap := False;
        TextLayout.Opacity := Column.AbsoluteOpacity;
        TextLayout.HorizontalAlign := StringGrid1.TextSettings.HorzAlign.tacenter;
        TextLayout.VerticalAlign := StringGrid1.TextSettings.VertAlign;
        TextLayout.Trimming := TTextTrimming.Character;
        TextLayout.TopLeft := TextRect.TopLeft;
        TextLayout.Text    := Value.ToString;
        TextLayout.MaxSize := PointF(TextRect.Width, TextRect.Height);
//        TextLayout.Font.Family := 'Times New Roman';
//        TextLayout.Font.Style := [ TFontStyle.fsBold ];
//        TextLayout.Font.Size := 14;
        TextLayout.Color := TAlphaColors.Red;
      finally
        TextLayout.EndUpdate;
      end;
      TextLayout.RenderLayout(Canvas);
    finally
      TextLayout.Free;
    end;
  end;
end;


해당컬럼의 색을 변하지 않게 하는 방법이 없나요 ??


이 게시물을
목록
목록
번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 15767
공지 유용한 관련 사이트 관리자2 2014.03.20 54580
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97986
174 [XE6] 잘 되던 놈이 갑자기 이런메세지가 나네요.... 어려워 2014.11.22 1486
173 [XE6] InApp 결제 개발 가을이다 2014.10.23 1488
172 안드로이드 Clipboard 예제 [1] 껌돌 2014.12.09 1495
171 [XE6] 안드로이드 에디트클릭시, 무조건 [붙여넣기] 나오는현상 가을이다 2014.10.11 1557
170 [XE6] 앱을 숨겼다가 다시 보일때에 이벤트 [1] 가을이다 2014.10.30 1560
169 Edit 내용입력 후 다음 버튼 클릭시 다음 Edit로 이용하는 방법 [4] 빨리빨리 2016.03.10 1562
168 [XE6] 버그신고합니다. [1] 가을이다 2014.08.09 1584
167 [XE6] Kinvey로 다중사용자에게 Push 보내기.. [3] 가을이다 2014.08.27 1616
166 [XE6] 나의 도서관앱따라하기에서 블랙스크린이 생기며 실행되지 않네요. [3] 어려워 2014.11.01 1640
165 firemonkey mobile application에서 버튼 드래그 앤 드롭 작동 문제 [1] superman 2014.11.02 1641
» [XE6] StringGrid의 정렬에 대한 자료를 찾았는데 컬럼의 색이 변합니다. 어려워 2014.11.18 1644
163 애플 앱스토어에 앱등록시 Application Loader에러 [3] file 김태윤 2016.11.02 1649
162 [XE6] Baas 컴포넌트로 인해 앱기본용량이 40메가가 되는 현상 [2] 가을이다 2014.08.23 1657
161 [질문] 안드로이드 Target에 장치가 로딩되지 않습니다. [1] 이대희 2014.11.27 1664
160 프로젝트 메뉴 > Option > Application 에서 Orientaion 탭이 안나와요. [2] file 어려워 2014.08.14 1704
159 android기기에서 kinvey push event문의 [2] 뭉게구름 2014.08.09 1721
158 kinvey이용시 push문의드립니다. [3] 뭉게구름 2014.07.18 1723
157 롤리팝 5.0에서 구동이 되지않는 문제 가을이다 2014.12.25 1724
156 안드로이드 Runtime.getRuntime().exec 커멘드처럼 할려면 어떻게 해야하나요? [1] 소란코더 2017.12.04 1733
155 학생입니다! 스마트폰 키보드관련 질문입니다! 윤우민 2014.10.06 1740
쓰기
태그