5,379
社区成员
发帖
与我相关
我的任务
分享
procedure TForm1.tv1AdvancedCustomDrawItem(Sender: TCustomTreeView;
Node: TTreeNode; State: TCustomDrawState; Stage: TCustomDrawStage;
var PaintImages, DefaultDraw: Boolean);
var
NRect: TRect;
procedure DrawText(TextColor: TColor; TextFontStyles: TFontStyles; Text: string ;iTop : Integer);
begin
with Sender.Canvas do
begin
Font.Color := TextColor;
Font.Name:='宋体';
Font.Size:=9;
TextOut(NRect.Left+3, iTop, Text);
end;
end;
begin
if (Stage = cdPostPaint) and (not Node.HasChildren) then
begin
NRect := Node.DisplayRect(True);
Node.Text:=' ';
DrawText(clBlue, [fsBold], '蓝色', NRect.Top+3);
DrawText(clRed, [fsUnderline], '红色', NRect.Top+Sender.Canvas.TextHeight('高')+5);
end;
end;