파이어몽키의 TComboBox는 TextSetting과 같은 속성을 제공하지 않아 폰트 설정이 제한됩니다.
코드를 통해 콤보박스(TComboBox)의 폰트를 설정하는 방법을 안내합니다.
다음 코드는 콤보박스의 글자크기를 20으로 변경한 예제입니다.
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;결과는 아래와 같으며, 폰트의 글꼴 및 색상 변경은 위 코드를 참고해 기능 추가하시기 바랍니다.
참고
