Delphi Помогите с рисованием компонента.

Question

Вот так рисую кнопку место TreeNode, но как отобразить на ней текст и на какое событие вешать? 
 
procedure TreeViewNodeDraw(Node: TTreeNode); 
var 
 NDc: HDc; 
 R: TRect; 
begin 
 NDc := GetDC(Node.Handle); 
 R := Node.DisplayRect(False); 
 DrawFrameControl(NDc, R, DFC_BUTTON, DFCS_BUTTONPUSH); 
 ReleaseDc(Node.Handle, NDc); 
end;

Ирина Беккер · Accepted Answer

листок, карандаш, а остальное в удовольствие.

Анастасия Халезова · Answer

Мир Вам, DarkAngel!

> на какое событие вешать?
Лучше - на то же самое.

> как отобразить на ней текст
DrawText()
Ещё есть TextOut(), он проще, но здесь лучше DrawText().

Цвет заливки текста можно настроить с помощью SetBkColor(), цвет шрифта - с помощью SetTextColor().

procedure TreeViewNodeDraw(Node: TTreeNode);
var
NDc: HDc;
R: TRect;
begin
NDc := GetDC(Node.Handle);
R := Node.DisplayRect(False);
DrawFrameControl(NDc, R, DFC_BUTTON, DFCS_BUTTONPUSH);
SetBkColor(NDC, RGB(240, 240, 240));
DrawText(NDC, 'Кнопка', Length('Кнопка'), R, 1);
ReleaseDc(Node.Handle, NDc);
end;

P.S. А на "Ответах" толком не ответят. Вот когда надо обкакать меня, или вообще верующих - это без проблем.

(((:)))(((:)))(((:)))(((:)))(((:)))(((:)))(((:)))(((:)))(((:)))(((:)))(((:)))(((:)))(((:)))(((:)))(((:)))(((:)))

С наилучшими пожеланиями,
Богомолов Игорь Дмитриевич (aka iNsectus).

P.S. А на "Ответах" толком не ответят. Вот когда надо обкакать меня, или вообще верующих - это без проблем. (((:)))(((:)))(((:)))(((:)))(((:)))(((:)))(((:)))(((:)))(((:)))(((:)))(((:)))(((:)))(((:)))(((:)))(((:)))(((:))) С наилучшими пожеланиями, Богомолов Игорь Дмитриевич (aka iNsectus).