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

Q. 

[VCL] 델파이 XE8에서 체크박스, 라디오버튼의 글자의 색상을 변경하고 싶어요.


A.

VCL 스타일 적용이후 체크박스, 라디오버튼의 글자 색상(Font.Color)이 적용되지 않습니다.


다음 코드를 통해 글자 색상을 적용할 수 있습니다.


1, 새로운 유닛(Vcl.StdCtrls.Ext)을 추가하고, WMPaint, Paint 메소드 오버라이딩 한 클래스를 작성합니다.

unit Vcl.StdCtrls.Ext;


interface


uses

  System.Classes, Winapi.Windows, Winapi.Messages,

  Vcl.StdCtrls, Vcl.Controls, Vcl.DBCtrls, Vcl.Graphics;


type

  http://stackoverflow.com/questions/2356431/how-can-you-change-the-font-color-of-a-theme-enabled-control

  TCheckBox = class(Vcl.StdCtrls.TCheckBox)

  private

      procedure WMPaint(var msg: TWMPaint); message WM_PAINT;

  end;


  // http://www.delphigroups.info/2/95/170811.html

  TDBText = class(Vcl.DBCtrls.TDBText)

  protected

    procedure Paint; override;

  end;


implementation


{ TCheckBox }


procedure TCheckBox.WMPaint(var msg: TWMPaint);

var

  BtnWidth: Integer;

  canv: TControlCanvas;

begin

  BtnWidth := GetSystemMetrics(SM_CXMENUCHECK);

  inherited;

  canv := TControlCanvas.Create;

  try

    canv.Control := Self;

    canv.Font := Font;

    SetBkMode(canv.Handle, Ord(TRANSPARENT));

    canv.TextOut(BtnWidth + 1, 2, Caption);

  finally

    canv.Free;

  end;

end;


{ TDBText }


procedure TDBText.Paint;

var

  InitChar : char;

begin

  Canvas.Brush.Color := Color;

  Canvas.FillRect(Canvas.ClipRect);  // paint the background color ...

  inherited Paint;

end;


end.



2, 폼의 interface uses 절 마지막에 위 유닛을 추가합니다.
uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls,
  FireDAC.Stan.Intf, FireDAC.Stan.Option, FireDAC.Stan.Param,
  FireDAC.Stan.Error, FireDAC.DatS, FireDAC.Phys.Intf, FireDAC.DApt.Intf,
  FireDAC.Stan.StorageBin, Vcl.DBCtrls, Data.DB, FireDAC.Comp.DataSet,
  FireDAC.Comp.Client,
  Vcl.StdCtrls.Ext;

위의 작업을 간단하게 설명하면, 
TCheckBox는 Vcl.StdCtrls에 선언되어 있습니다.
Vcl.StdCtrls.Ext.pas에는 Vcl.StdCtrls의 TCheckBox를 상속받아 동일한 클래스를 작성했습니다.
폼 유닛에서는 uses절의 마지막에 Vcl.StdCtrls.Ext를 추가했습니다.
uses절은 마지막의 유닛부터 참조하기 때문에 TCheckBox 컴포넌트는 Vcl.StdCtrls.Ext.pas의 TCheckBox 클래스를 이용해 컴포넌트를 생성합니다.

위 내용을 참고하면 기본 컴포넌트의 기능을 수정하거나 확장할 수 있습니다.

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 15889
공지 유용한 관련 사이트 관리자2 2014.03.20 54689
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 98144
739 Android에서 Wifi Scan하기 위한 TJBroadcastReceiver를 어떻게 구현해야 하나요? [1] 개성산전 2019.03.18 484
738 Shape 컨트롤 의 Stroke문제 100jk 2019.03.18 105
737 10.3.1 리오 - 버튼 툴바등 컴포넌트 컬러 [2] 델파인 2019.03.19 319
736 TWebBrowser 페이지 연결오류 file miracles 2019.03.19 151
735 mysql 연동관련하여 질문합니다. [1] sj9418 2019.03.20 740
734 XE7 Webbrowser 컴포넌트의 Navigate를 이용시 ..... 구름1004 2019.03.22 180
733 Comport Lib XE2 찾아요 [1] 가나다 2019.03.22 118
732 10.3.1 영문/한글이 잘리는 문제 [2] file delphiman 2019.03.22 282
731 컴파일 할 때 더 깊이 들어가는 방법 [2] file 엽기토끼이요 2019.03.25 144
730 퀵레포트 질문입니다. [1] 희망나라 2019.03.26 150
729 Delphi 2007 Component 문의드립니다. 예자매파파 2019.03.27 240
728 Berlin 에서 Rio 로 변경 오류 (추가) 제트콜 2019.03.28 160
727 tcxGrid 에서 Column 컬러 변경 [2] 가나다 2019.03.28 833
726 멀티디바이스 프로그램에서 listboxitem에 사용자 정의 스타일 적용 문의 file agallee 2019.03.29 144
725 델파이에서 안드로이드 개발중 만난 네트워크 오류입니다. [2] 장은우 2019.03.29 399
724 블랙스크린 file 넓다란세상 2019.03.30 114
723 안드로이드 BLE 자동 접속 문제 조대현 2019.03.31 187
722 PALY스토어 앱 자동 업데이트 file 델파인 2019.03.31 701
721 addindex 에서 key viloation 에러 [2] 가나다 2019.04.02 258
720 DataSnap Server 에러 델파인 2019.04.02 153