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

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

2014.11.18 00:59

어려워 조회 수:1650

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 17270
공지 유용한 관련 사이트 관리자2 2014.03.20 56163
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 99586
619 indy 10.6 질문 입니다. [1] 도사 2014.10.09 1579
618 한문을 한글로 변환하는 방법 좀 알려주세요. [3] 로로봉 2015.10.02 1581
617 (공유) 웹페이지에서 실행파일(*.exe) 다운로드 시 경고가 발생합니다. 험프리 2020.04.10 1583
616 Edit 내용입력 후 다음 버튼 클릭시 다음 Edit로 이용하는 방법 [4] 빨리빨리 2016.03.10 1583
615 BLE 기기와의 연결문제 [3] 라드 2016.02.05 1585
614 [XE6] 버그신고합니다. [1] 가을이다 2014.08.09 1591
613 Scanner 연결하기... 파빌신 2014.06.05 1597
612 IBConsole에서 연결을 실패합니다.(오류 : Unable to complete network request to host...) file 험프리 2017.05.11 1605
611 DataSnap 기능에 대한 질문 드립니다. [2] 파빌신 2014.05.01 1610
610 windows 2012 에서 웹서비스 클라이언트 코드 동작 불가 [1] bums0203 2014.10.08 1613
609 mysql 연결 방법을 알고 싶습니다. 짜장면 2015.01.16 1618
608 java2op를 사용하고 싶습니다. [1] delta 2014.11.17 1623
607 [XE6] Kinvey로 다중사용자에게 Push 보내기.. [3] 가을이다 2014.08.27 1625
606 오라클10g에서 BDE를 사용하려합니다. 별도 BDE 버전이 있는지요? [3] 푸르름 2016.11.22 1626
605 Sqlite 사용시 한글.. [2] file hazzang 2015.01.13 1637
604 ClientDataSet1.Data 문의드립니다 [2] 가나다 2021.01.06 1638
603 [XE6] 나의 도서관앱따라하기에서 블랙스크린이 생기며 실행되지 않네요. [3] 어려워 2014.11.01 1650
» [XE6] StringGrid의 정렬에 대한 자료를 찾았는데 컬럼의 색이 변합니다. 어려워 2014.11.18 1650
601 firemonkey mobile application에서 버튼 드래그 앤 드롭 작동 문제 [1] superman 2014.11.02 1652
600 BMP파일를 리딩하면 잘려서 보입니다. file barcode0 2014.08.06 1655
쓰기
태그