1

我有一个组合框，我需要用系统中所有可用的字体来填充它——它们的实际名称、样式等......

从我可以在网上找到的所有信息中，我能够将 DrawItem 事件放在一起，但我一直遇到以下错误，“无法调用非委托类型'System.Drawing.Font'”事实上，我借用了每行来自其他网站的线路并进行了一些更改。所以，我认为它应该有效。

以下是我在 ComboBox 中填充项目列表的方式：

method MainForm.MainForm_Load(sender: System.Object; e: System.EventArgs);
var thefont:Font;
begin
    if (ComboBox4.Items.Count>0) then
        ComboBox4.Items.Clear;

    for each oneFontFamily in FontFamily.Families do
    begin
        if (oneFontFamily.IsStyleAvailable(FontStyle.Regular)) then
            thefont := new Font(oneFontFamily.Name, 15)
        else if (oneFontFamily.IsStyleAvailable(FontStyle.Bold)) then
            thefont := new Font(oneFontFamily.Name, 15,FontStyle.Bold)
        else if (oneFontFamily.IsStyleAvailable(FontStyle.Italic)) then
            thefont := new Font(oneFontFamily.Name, 15,FontStyle.Italic)
        else if (oneFontFamily.IsStyleAvailable(FontStyle.Strikeout)) then
            thefont := new Font(oneFontFamily.Name, 15, FontStyle.Strikeout)
        else if (oneFontFamily.isStyleAvailable(FontStyle.Underline)) then
            thefont := new Font(oneFontFamily.Name, 15, FontStyle.Underline);

    if (thefont <> nil) then
        ComboBox4.Items.Add(theFont);
        end;
end;

这是 combobox4 drawitem 事件：

method MainForm.comboBox4_DrawItem(sender: System.Object; e: System.Windows.Forms.DrawItemEventArgs);
begin
    if e.index = -1 then exit;

    // Draw the background of the item
    e.DrawBackground();

    // Should we draw the focus rectangle
    if ((e.State and DrawItemState.Focus) <> DrawItemState.Checked) then
        e.DrawFocusRectangle();

        // Create a new background brush.
        var b := new SolidBrush(e.ForeColor);

        // Draw the item.
        // This line raises the above mentioned error.
        e.Graphics.DrawString(FontFamily(comboBox4.Items[e.Index]).Name, font(comboBox4.Items[e.Index]), b, e.Bounds.x,e.Bounds.y);  <<===== Here is where the error is raised
end;

更新： 我修改了导致错误的行，它现在编译没有错误，但正如我在评论中所说，它没有以自己的样式和大小绘制字体。

e.Graphics.DrawString(FontFamily(comboBox4.Items[e.Index]).Name, new font((comboBox4.Items[e.Index] as Font), (comboBox4.Items[e.Index] as Font).Style), b, e.Bounds.x,e.Bounds.y);

更新：我忘记将 DrawMode 设置为 OwnerDrawFixed。现在它正在调用我的 DrawItem 事件，但仍未以自己的样式和大小绘制字体。

我希望组合框看起来像下图：

别人的组合框

不像我下面的：

带有组合框的 winform 的实际图像

4

2 回答 2

1

这很可能对您有所帮助：http ://www.vbaccelerator.com/home/net/code/controls/ListBox_and_ComboBox/Font_Picker/article.asp

不过，请务必实现本文所需的基础设施：http ://www.vbaccelerator.com/home/NET/Code/Controls/ListBox_and_ComboBox/Icon_ComboBox/article.asp

于 2011-11-18T17:53:33.610 回答
1

这是我对工作代码的回答。

  • 创建一个新项目并打开您的主winform。打开您的工具箱并在您的主窗体上放置一个组合框。
  • 打开刚刚放在 winform 上的组合框的属性窗口。
  • 为您的组合框设置以下属性，如下所示：DrawMode = OwnerDrawFixed、DropDownStyle = DropDownList、FormattingEnabled = true、GenerateMemeber = true、IntegralHeight = false 和 ItemHeight = 25。
    • 通过双击主 winform 创建 Mainform_Load 方法，并将以下代码复制到您的加载方法中。

,

Method MainForm.MainForm_Load(sender: System.Object; e:System.EvenArgs);
var 
   thefont:Font;
begin
if (ComboBox1.Items.Count>0) then
   ComboBox1.Items.Clear;

for each oneFontFamily in FontFamily.Families do
begin
    if (oneFontFamily.IsStyleAvailable(FontStyle.Regular)) then
        thefont := new Font(oneFontFamily.Name, 12)
    else if (oneFontFamily.IsStyleAvailable(FontStyle.Bold)) then
        thefont := new Font(oneFontFamily.Name, 12,FontStyle.Bold)
    else if (oneFontFamily.IsStyleAvailable(FontStyle.Italic)) then
        thefont := new Font(oneFontFamily.Name, 12,FontStyle.Italic)
    else if (oneFontFamily.IsStyleAvailable(FontStyle.Strikeout)) then
        thefont := new Font(oneFontFamily.Name, 12, FontStyle.Strikeout)
    else if (oneFontFamily.isStyleAvailable(FontStyle.Underline)) then
        thefont := new Font(oneFontFamily.Name, 12, FontStyle.Underline);

    if (thefont <> nil) then
        ComboBox1.Items.Add(theFont);
end;
end;
  • 为您的组合框创建 DrawItem 事件，并将以下代码相应地复制到您的 drawitem 事件中。

' 

    Method MainForm.ComboBox1_DrawItem(sender:System.Object; e: System.Windows.Forms.DrawItemEventArgs);
    var theobject:Font;
    begin
       if e.Index=-1 then exit;
       // Draw the background of the item
       e.DrawBackground();

       // Should we draw the focus rectangle
       if ((e.State and DrawItemState.Focus) <> DrawItemState.Checked) then
          e.DrawFocusRectangle();

       // Create a new background brush.
       var b := new SolidBrush(e.ForeColor);
       theobject := (ComboBox1.Items[e.Index] as font);

       // Draw the item.
       e.Graphics.DrawString(theobject.Name, theObject, b,e.Bounds);
    end;

当你完成所有操作并运行时，你应该有一个显示字体的组合框1，如下所示：

显示字体文本的组合框

于 2011-11-18T20:55:39.543 回答