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

Q. 

파이어몽키 콤보박스의 글자 크기를 변경하고 싶습니다.

 

A. 

파이어몽키의 TComboBox는 TextSetting과 같은 속성을 제공하지 않아 폰트 설정이 제한됩니다.

 

코드를 통해 콤보박스(TComboBox)의 폰트를 설정하는 방법을 안내합니다.

다음 코드는 콤보박스의 글자크기를 20으로 변경한 예제입니다.

 

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
procedure StyleComboBoxItems(ComboBox:TComboBox; Size:Single);
var
  Item : TListBoxItem;
  i : Integer;
begin
 
  for i := 0 to ComboBox.Count-1 do begin
    Item := ComboBox.ListItems[i];
//    Item.Font.Family := Family; //'Arial';
    Item.Font.Size := Size; //20;
    // Item.FontColor := TAlphaColorRec.Red;
    Item.StyledSettings := Item.StyledSettings - [TStyledSetting.Size];
    // Item.Text := '*'+Item.Text;
  end;
end;
 
procedure TForm3.FormCreate(Sender: TObject);
begin
  ComboBox1.Items.Add('추가 항목');
  ComboBox1.Items.Add('추가 항목');
  ComboBox1.Items.Add('추가 항목');
 
  StyleComboBoxItems(ComboBox1, 20);
end;

 

 

결과는 아래와 같으며, 폰트의 글꼴 및 색상 변경은 위 코드를 참고해 기능 추가하시기 바랍니다.

 

https://blog.hjf.pe.kr/490

번호 제목 글쓴이 날짜 조회 수
공지 [프로그래밍 강의] 2021.6~2021.12 관리자 2015.01.22 15634
공지 유용한 관련 사이트 관리자2 2014.03.20 54464
공지 본 게시판은 개발자 여러분들의 질문과 답변을 공유하는 공간입니다. 관리자 2012.01.10 97828
1953 델파이10.3.3 API29, 안드로이드 10 변경 문의드립니다. [3] 쟝히 2020.11.23 422
1952 델파이 10 stringgrid 관련 [5] 개미 2020.12.02 288
1951 10.4 앱 정상실행 후 다시 앱 실행하면 앱 꺼짐현상 문의드립니다. 쟝히 2020.12.01 246
1950 델파이 10 stringGrid 관련문의 [4] file 개미 2020.11.27 293
1949 퀵레포트에 대해서..? [2] 헨씀히포 2020.11.29 271
1948 델파이 10 엑셀변환 관련 [3] 개미 2020.11.27 338
1947 Multi Tenant 모드가 계속 유지가 됩니다. [3] 초보개발자 2020.11.27 177
1946 RAD Server에서 FileStream사용하여 응답보내기 [2] 초보입니다 2020.11.19 188
1945 델파이 응용프로그램이 백그라운도 실행됩니다. [1] 비앤케이 2020.11.25 253
1944 refind 이용하여 변경 시 컬러적용 안되는부분 [1] file 개미 2020.11.24 164
1943 [마이그레이션] FastReport [1] 개미 2020.11.24 192
1942 [마이그레이션] 마이그레이션시 배경등 색상이 기본 흰색으로 변경되는 현상 [1] 개미 2020.11.24 148
1941 refind 기능을 이용하여 pageControl 에 올라가 있는 버튼은 수정이 안되나요 ? [1] 개미 2020.11.26 132
1940 문서편집기 기능에 대해 문의드립니다. [3] 김진규 2020.11.19 191
1939 FireDAC - TFDLocalSQL 문의드립니다. [2] 딤몽 2020.11.19 141
1938 PC의 맥주소를 확인하는 방법 [1] 천마산 2020.11.21 533
1937 dephi 10.1 DBExpress MySQL 접속 문제 질문드립니다. [1] kevin 2020.11.19 741
1936 10.4 Sydney getit 문제 [1] file 김프로 2020.11.20 227
1935 [공유] 엣지 브라우저 컴포넌트 설치 후 실행 시 "Failed to initialise Edge browser control" 오류가 발생합니다. [2] file 험프리 2020.09.28 1210
1934 Android 카메라 앨범 저장 문제 [2] 초보입니다 2020.11.16 174