zoukankan      html  css  js  c++  java
  • combox添加图标代码节选

    首先: 这有现成的控件: TComboBoxEx, 没必要使用 TComboBox; 非要在 TComboBox 基础上添加, 也可以.

    var
      Bits: array[0..3] of TBitmap;

    procedure TForm1.FormCreate(Sender: TObject);
    var
      i: Integer;
    begin
      for i := 0 to Length(Bits)-1 do
      begin
        Bits[i] := TBitmap.Create;
        il1 .GetBitmap(i, Bits[i]);
        cbb1 .Items.Add(Format('Item %d', [i]));
      end;

      cbb1.Style := csOwnerDrawVariable;
      cbb1.ItemHeight := Bits[0].Height + 4;
      cbb1.ItemIndex :=2;
    end;


    procedure TForm1.FormDestroy(Sender: TObject);
    var
      i: Integer;
    begin
      for i := 0 to Length(Bits)-1 do
        Bits[i].Free;
    end;

    procedure TForm1.cbb1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    begin
      cbb1 .Canvas.FillRect(Rect);
      cbb1 .Canvas.BrushCopy(Bounds(Rect.Left+2, Rect.Top+2, Bits[Index].Width, Bits[Index].Height),
                                 Bits[Index],
                                 Bounds(0, 0, Bits[Index].Width, Bits[Index].Height),
                                 clBlack);
      cbb1.Canvas.TextOut(Rect.Left + 24, Rect.Top + 3, cbb1 .Items[Index]);

    end;

    end.

  • 相关阅读:
    MyEclipse 快捷键
    Oracle使用split和splitstr函数批量分隔字符串
    linux解压 tar命令
    Crontab的用法
    .net 连接ORACLE中文显示乱码解决方案
    python 列表
    关于ios 11 的问题
    初步了解会计学
    iOS关于直播的链接
    知识链接中.....
  • 原文地址:https://www.cnblogs.com/feng801/p/1286760.html
Copyright © 2011-2022 走看看