скрыть

скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Google  
 

Пример отрисовки 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;






Copyright © 2004-2016 "Delphi Sources". Delphi World FAQ




Группа ВКонтакте   Ссылка на Twitter   Группа на Facebook