Советы по Delphi

         

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


Мне необходимо было изменить поведение компонента по части его отрисовки, к примеру, мне нужно было позволить пользователю выделить несколько значений и покрасить их в другой цвет. Я с удивлением обнаружил, что использование функции 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;

- David E. Scheim [000783]



Содержание раздела