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

본 게시판 사용시 당부 사항
* 이 게시판은 자유롭게 질문을 올리고 자발적으로 답변을 공유하는 게시판입니다.
* 어느 누구도 답변을 달아야만 하는 책임은 없습니다.
* 따라서 질문을 올리실 때에는 최대한 자세하고 정중하게 질문을 올려 주세요.
* 최대한 질문을 자세히 올려야 답변도 자세히 올라 옵니다.
* 본 질문에 답변을 주시는 여러 개발자님들께 미리 감사드립니다.
-----------------------------------------------------------------------------------------------

pagecontrol 탭에 색상 및 글자색 변경을 하는 부분입니다.

Delphi7으로 개발..win7 환경에서는 아래 구현이 정상적으로 반영되어

색상 및 글자색이 변경 됩니다.

그런데.. 실행파일을 win8 환경에서 구동하면

그냥 하얗게만 나옵니다..

어디가 문제일까요?? 

windows 환경에 영향을 받나요??. 답답하네요.

pagecontrol1.OwnerDraw := True;

procedure TForm1.PageControl1DrawTab(Control: TCustomTabControl;
  TabIndex: Integer; const Rect: TRect; Active: Boolean);
begin

  with Control.Canvas do
    begin
      if Active then // 현재 선택된 탭이면
      begin
        Brush.Color := $0099C1FD;
        Rectangle(Rect); // 탭 영역을 $0099C1FD으로 채색
        Font.Color := $00000000; //clBlack; // caption은 clBlack 색으로
        TextOut(Rect.Left+8, Rect.Top+3, TPageControl(Control).Pages[TabIndex].Caption); // 탭 caption  을 출력
      end
      else
      begin // 선택되지 않은 탭이면
        Brush.Color := $00FFFFFF;//clWhite;
        FillRect(Rect); // 탭 영역을 clWhite 로 채색
        Font.Color := $00000000; //clBlack; // caption은 clBlack 색으로
        TextOut(Rect.Left+4, Rect.Top+3, TPageControl(Control).Pages[TabIndex].Caption); // 탭 caption을 출력
      end;
    end;
end;
번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 39645
공지 유용한 관련 사이트 관리자2 2014.03.20 79150
549 Windows 10 테블릿 모드에서 터치 키보드 관련문의 [2] jaheon 2017.06.14 1063
548 [질문] 엑셀파일 저장시 pdf화일로 저장 가능할까요? [1] delphi 2020.07.16 1067
547 [마이그레이션] Error creating form [1] file 다소미 2015.07.28 1067
546 ADOconnection 에서 MDB 파일 연결 질문입니다... [2] 초보델팡이 2019.05.15 1068
545 안드로이드 스튜디오 라이브러리파일 (AAR) 사용 방법 문의 [3] 조대현 2017.06.22 1076
544 안드로이드 핸드폰 해상도 조회방법 문의드립니다. [1] silkroad99 2015.08.11 1080
543 델파이10 시애틀 사용중입니다. [1] file 김현수 2016.04.26 1083
542 [세미나] "한 번에 개발하는 안드로이드 & iOS" 온라인 세미나(2014년 10월 28일) 질문&답변 Humphery 2014.10.31 1085
541 FireDAC 사용시 [3] 아이러브 2014.11.26 1085
540 java2op를 이용하안 KT Open API 연동 문제 [3] file 새벽노을 2016.06.27 1086
539 기상청에서 날씨정보 받아오기 ! [1] nickname 2016.08.12 1087
538 xe6,xe7에서 폼이 자유자재로 안됩니다 [1] 나빌레나 2014.12.16 1087
537 TFDQuery 질문 [3] nickname 2017.05.24 1089
536 MainMenu의 글자크기를 크게할 수 있나요? file 험프리 2017.03.23 1090
535 bpl모듈 load는 되는데,, class를 못찾는거 같아요.. [1] 푸른하늘 2015.04.08 1092
534 [앱 호출/iOS]XCODE로 만든앱에서 Delphi XE7으로 만든 앱을 호출하여 실행하는 방법을 알고 싶습니다. [1] Aprilshot 2015.04.06 1095
533 [XE7] 컴포넌트 제작하여 설치했더니 문제점 발견되어 질문드립니다. [4] 사도성 2014.11.22 1097
532 tcxGrid 에서 Column 컬러 변경 [2] 가나다 2019.03.28 1100
531 [XE7] 파이어몽키 프로젝트 생성 시 "No platform available current project" 메시지 발생 Humphery 2015.01.15 1100
530 카메라 컴포넌트 관련 문의드립니다. [6] 최봉원 2018.09.10 1111