Компонент CheckList

Вопрос:

Я ищу компонент ListBox, который может отображать квадратик с галочкой (check box) для выбранных элементов списка - компонент CheckList, если вам будет угодно (просто последний компонент содержит меньший набор характеристик, чем мне необходимо).

Загрузите 'Adding Graphics in your listboxes and comboboxes' (дополнительная графика для компонентов ListBox и Combobox) из Borland Technical Information - документ TI2793.
Добавьте в ваш ListBox изображение неотмеченного квадратика.
Используя событие двойного щелчока заменяйте изображение на отмеченный квадратик.

Рисование графики в коде для компонентов ListBox и ComboBox

Способность добавления своей графики в ListBox и ComboBox может значительно изменить внешний вид компонентов, делая графику более дружественной при общении с пользователем.

В: Как мне вставить свою графику в Listbox или ComboBox???

Приведу здесь пример, шаг за шагом иллюстрирующий данную технологию.....

Создайте форму.
Расположите на вашей форме компоненты ComboBox и Listbox.
Измените свойство Style компонента ComboBox на csOwnerDrawVariable и свойство Style компонента ListBox на lbOwnerDrawVariable. Обработчик события OnDrawItem компонентов TListBox или TComboBox позволяет осуществить вывод как объекта (графики), так и строки элемента. В данном примере осуществляется вывод как графического объекта, так и строки.
Создайте 5 переменных типа TBitmap в VAR секции вашей формы.
Создайте процедуру для события формы OnCreate.
Создайте процедуру для события ComboBox OnDraw.
Создайте процедуру для события ComboBox OnMeasureItem.
Освободите ресурсы в обработчике события формы OnClose.

{НАЧАЛО OWNERDRW.PAS}
unit Ownerdrw;

interface

uses

  SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  Forms, Dialogs, StdCtrls;

type

  TForm1 = class(TForm)
    ComboBox1: TComboBox;
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ComboBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure ComboBox1MeasureItem(Control: TWinControl; Index:
      Integer;

      var Height: Integer);
    procedure ListBox1DrawItem(Control: TWinControl; Index: Integer;
      Rect: TRect; State: TOwnerDrawState);
    procedure ListBox1MeasureItem(Control: TWinControl; Index:
      Integer;

      var Height: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var

  Form1: TForm1;
  TheBitmap1, TheBitmap2, TheBitmap3, TheBitmap4,
    TheBitmap5: TBitmap;
implementation

{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin

  TheBitmap1 := TBitmap.Create;
  TheBitmap1.LoadFromFile('C:\delphi\images\buttons\globe.bmp');
  TheBitmap2 := TBitmap.Create;
  TheBitmap2.LoadFromFile('C:\delphi\images\buttons\video.bmp');
  TheBitmap3 := TBitmap.Create;
  TheBitmap3.LoadFromFile('C:\delphi\images\buttons\gears.bmp');
  TheBitmap4 := TBitmap.Create;
  TheBitmap4.LoadFromFile('C:\delphi\images\buttons\key.bmp');
  TheBitmap5 := TBitmap.Create;
  TheBitmap5.LoadFromFile('C:\delphi\images\buttons\tools.bmp');
  ComboBox1.Items.AddObject('Изображение1: Глобус', TheBitmap1);
  ComboBox1.Items.AddObject('Изображение2: Видео', TheBitmap2);
  ComboBox1.Items.AddObject('Изображение3: Механизм', TheBitmap3);
  ComboBox1.Items.AddObject('Изображение4: Ключ', TheBitmap4);
  ComboBox1.Items.AddObject('Изображение5: Инструмент', TheBitmap5);
  ListBox1.Items.AddObject('Изображение1: Глобус', TheBitmap1);
  ListBox1.Items.AddObject('Изображение2: Видео', TheBitmap2);
  ListBox1.Items.AddObject('Изображение3: Механизм', TheBitmap3);
  ListBox1.Items.AddObject('Изображение4: Ключ', TheBitmap4);
  ListBox1.Items.AddObject('Изображение5: Инструмент', TheBitmap5);

end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin

  TheBitmap1.Free;
  TheBitmap2.Free;
  TheBitmap3.Free;
  TheBitmap4.Free;
  TheBitmap5.Free;
end;

procedure TForm1.ComboBox1DrawItem(Control: TWinControl; Index:
  Integer;

  Rect: TRect; State: TOwnerDrawState);
var

  Bitmap: TBitmap;
  Offset: Integer;
begin

  with (Control as TComboBox).Canvas do
  begin
    FillRect(Rect);
    Bitmap := TBitmap(ComboBox1.Items.Objects[Index]);
    if Bitmap <> nil then
    begin
      BrushCopy(Bounds(Rect.Left + 2, Rect.Top + 2, Bitmap.Width,
        Bitmap.Height), Bitmap, Bounds(0, 0, Bitmap.Width,
        Bitmap.Height), clRed);
      Offset := Bitmap.width + 8;
    end;
    { отображаем текст }
    TextOut(Rect.Left + Offset, Rect.Top, Combobox1.Items[Index])
  end;
end;

procedure TForm1.ComboBox1MeasureItem(Control: TWinControl; Index:

  Integer; var Height: Integer);
begin

  height := 20;
end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index:
  Integer;

  Rect: TRect; State: TOwnerDrawState);
var

  Bitmap: TBitmap;
  Offset: Integer;
begin

  with (Control as TListBox).Canvas do
  begin

    FillRect(Rect);
    Bitmap := TBitmap(ListBox1.Items.Objects[Index]);
    if Bitmap <> nil then
    begin
      BrushCopy(Bounds(Rect.Left + 2, Rect.Top + 2, Bitmap.Width,
        Bitmap.Height), Bitmap, Bounds(0, 0, Bitmap.Width,
        Bitmap.Height), clRed);
      Offset := Bitmap.width + 8;
    end;
    { отображаем текст }
    TextOut(Rect.Left + Offset, Rect.Top, Listbox1.Items[Index])
  end;
end;

procedure TForm1.ListBox1MeasureItem(Control: TWinControl; Index:
  Integer;

  var Height: Integer);
begin

  height := 20;
end;

end.
{КОНЕЦ OWNERDRW.PAS}

// *-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*

{НАЧАЛО OWNERDRW.DFM}
object Form1: TForm1

  Left = 211
    Top = 155
    Width = 435
    Height = 300
    Caption = 'Form1'
    Font.Color = clWindowText
    Font.Height = -13
    Font.Name = 'System'
    Font.Style = []
    PixelsPerInch = 96
    OnClose = FormClose
    OnCreate = FormCreate
    TextHeight = 16
    object ComboBox1: TComboBox
    Left = 26
      Top = 30
      Width = 165
      Height = 22
      Style = csOwnerDrawVariable
      ItemHeight = 16
      TabOrder = 0
      OnDrawItem = ComboBox1DrawItem
      OnMeasureItem = ComboBox1MeasureItem
  end
  object ListBox1: TListBox
    Left = 216
      Top = 28
      Width = 151
      Height = 167
      ItemHeight = 16

    Style = lbOwnerDrawVariable
      TabOrder = 1
      OnDrawItem = ListBox1DrawItem
      OnMeasureItem = ListBox1MeasureItem
  end
end
{КОНЕЦ OWNERDRW.DFM}

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 135 • TDictionary Custom Sort 3 317 • Fast Watermark Sources 3 065 • 3D Designer 4 825 • Sik Screen Capture 3 320 • Patch Maker 3 535 • Айболит (remote control) 3 637 • ListBox Drag & Drop 2 996 • Доска для игры Реверси 81 563 • Графические эффекты 3 927 • Рисование по маске 3 231 • Перетаскивание изображений 2 613 • Canvas Drawing 2 735 • Рисование Луны 2 561 • Поворот изображения 2 166 • Рисование стержней 2 161 • Paint on Shape 1 564 • Генератор кроссвордов 2 226 • Головоломка Paletto 1 764 • Теорема Монжа об окружностях 2 215 • Пазл Numbrix 1 682 • Заборы и коммивояжеры 2 052 • Игра HIP 1 279 • Игра Go (Го) 1 225 • Симулятор лифта 1 471 • Программа укладки плитки 1 214 • Генератор лабиринта 1 542 • Проверка числового ввода 1 352 • HEX View 1 490 • Физический маятник 1 355

Компонент CheckList

Похожие по теме исходники