Пример отрисовки TOutline

Автор: David E. Scheim

Мне необходимо было изменить поведение компонента по части его отрисовки, к примеру, мне нужно было позволить пользователю выделить несколько значений и покрасить их в другой цвет. Я с удивлением обнаружил, что использование функции GetItem для определения отрисовываемой строки на редкость просто и понятно. Прежде же для этой цели я создавал цикл, вылавливал из всех индексов нужный и затем передавал его процедуре. Но в случае с множественным выбором это становилось медленным, неуклюжим и запутанным.

Ниже я разместил пример такой программы. Она позволяет рисовать символы плюсы/минусы плюс сам текст. Я также включил в нее код для создания, загрузки и освобождения иконок с символами плюса и минуса.

procedure TForm1.FormCreate(Sender: TObject);
begin
  BitmapPlus := TBitmap.Create;
  BitmapPlus.LoadFromFile('c:\delphi\images\default\outplus.bmp');
  BitmapMinus := TBitmap.Create;
  BitmapMinus.LoadFromFile('c:\delphi\images\default\outminus.bmp');
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  BitMapPlus.Destroy;
  BitMapMinus.Destroy;
end;

procedure TForm1.Outline1DrawItem(Control: TWinControl;
  Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
  iLeft, iht: integer;
  s: string;
  NodeInView: TOutlineNode;
  col: TColor;
  {Примечание: BitMapvariables BitMapPlus и ..
  Минус объявлены глобально и грузятся при создании формы}
begin
  with (Control as TOutline).Canvas do
  begin
    {рисуем на холсте элемента управления, не на форме}
    IndexInFull := outline1.getitem(rect.left + 1, rect.top + 1);
    NodeInView := Outline1.Items[IndexInFull];
    Font := Outline1.Font;
    iLeft := Rect.Left;
    iht := Outline1.ItemHeight;
    inc(iLeft, iht * (NodeInView.level - 1));
    s := NodeInView.Text;
    Col := clWindow;
    Font.Color := clWindowText;
    Brush.Color := col;
    FillRect(Rect); { очищаем прямоугольник }
    if NodeInView.HasItems and not NodeInView.Expanded then
      {Draw(iLeft,Rect.Top, BitmapPlus)}
      BrushCopy(Bounds(iLeft + 1, Rect.Top + 1, iht - 2, iht - 2), BitMapPlus,
        Bounds(0, 0, BitMapPlus.Width, BitMapPlus.Height),
        BitMapPlus.TransparentColor);
    if NodeInView.Expanded and NodeInView.HasItems then
      BrushCopy(Bounds(iLeft + 1, Rect.Top + 1, iht - 2, iht - 2), BitMapMinus,
        Bounds(0, 0, BitMapMinus.Width, BitMapMinus.Height),
        BitMapMinus.TransparentColor);
    if Copy(NodeInView.Text, Length(NodeinView.Text), 1) = 'y' then
      Col := clAqua;
    if Outline1.SelectedItem = IndexInFull then
    begin
      Col := clHighlight;
      Font.Color := clHighlightText
    end;
    Brush.Color := col;
    inc(ILeft, iht);
    TextOut(iLeft, Rect.Top, s);
  end;
end;

Недавно добавленные исходники
• DeLiKaTeS Tetris (Тетрис) 160 • TDictionary Custom Sort 3 337 • Fast Watermark Sources 3 088 • 3D Designer 4 847 • Sik Screen Capture 3 342 • Patch Maker 3 553 • Айболит (remote control) 3 658 • ListBox Drag & Drop 3 015 • Доска для игры Реверси 81 696 • Графические эффекты 3 945 • Рисование по маске 3 249 • Перетаскивание изображений 2 629 • Canvas Drawing 2 752 • Рисование Луны 2 580 • Поворот изображения 2 189 • Рисование стержней 2 168 • Paint on Shape 1 568 • Генератор кроссвордов 2 235 • Головоломка Paletto 1 767 • Теорема Монжа об окружностях 2 229 • Пазл Numbrix 1 685 • Заборы и коммивояжеры 2 057 • Игра HIP 1 282 • Игра Go (Го) 1 230 • Симулятор лифта 1 475 • Программа укладки плитки 1 216 • Генератор лабиринта 1 548 • Проверка числового ввода 1 366 • HEX View 1 497 • Физический маятник 1 358

Пример отрисовки TOutline

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