자유롭게 질의 및 응답을 할 수 있는 게시판입니다. 개발자 여러분의 답변이 큰 도움이 됩니다.
- 제품설치/등록 오류 문의: 설치/등록 Q&A 이용 (제품 구매 고객 한정)
Delphi [공유] 파이어몽키 콤보박스의 글자 크기를 변경하고 싶습니다.
2019.02.20 16:39
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
댓글 0
Delphi [공유] 파이어몽키 콤보박스의 글자 크기를 변경하고 싶습니다.
2019.02.20 16:39
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
