TVirtuailStringTree 文字和图片对齐

Question

我正在 tvirtuailstringtree 中绘制文本和图像，如下 onbeforecellpaint 事件

begin
Textrectplace := NewRect;
Textrectplace.Left := Textrectplace.Left + 2;
Textrectplace.Width := 24;
Textrectplace.Height := Data.image.height;
Textrectplace.Top := Textrectplace.Top;
Textrectplace.Bottom := Textrectplace.Bottom;
xOfftext := Textrectplace.Left + Textrectplace.Width + 4;

yOfftext := Textrectplace.Top - 3 + ((Data.image.height - TargetCanvas.TextHeight('H')) div 2);
TargetCanvas.font.color := clgray;
TargetCanvas.font.Size := 10;
TargetCanvas.TextOut(xOfftext, yOfftext, Data.text);
end;

end;


begin
imgrect:= Textrectplace;
imgrect.Left := imgrect.Left + 150;
imgrect.Width := 24;
imgrect.Height := 36;
imgrect.Top := imgrect.Top - 6 + ((Data.image.height - TargetCanvas.TextHeight('H')) div 2);
imgrect.Bottom := imgrect.Bottom;

TargetCanvas.Draw(imgrect.Left, imgrect.Top, Data.image);
end;

我在文本和图像对齐方面遇到了一个问题，我希望文本向左对齐并处理该部分。图像有对齐问题我想让它与没有textoverflow的文本右对齐当前如果节点有短文本它一切都很好并且图像与文本正确显示。但如果文本太长，它 overflow 图像 .

这是示例图片

在图像示例中它显示了长文本节点的外观以及如果文本太长并且列表宽度对于图像与它应该显示的文本的对齐来说应该如何显示我很长点头... 直到列表变大然后显示全文 我很长节点文本 我怎样才能实现

更新代码

procedure TForm1.virtuailtreeBeforeCellPaint(Sender: TBaseVirtualTree;
      TargetCanvas: TCanvas; Node: PVirtualNode; Column: TColumnIndex;
      CellPaintMode: TVTCellPaintMode; CellRect: TRect; var ContentRect: TRect);
var
Data: ^PnodeData;
NewRect: TRect;
Textrectplace: TRect;
imgrect : TRect;

begin



if not Assigned(Node) then
begin
exit;
end;

Data := virtuailtree.GetNodeData(Node);

NewRect := CellRect;




//text
begin
Textrectplace := NewRect;
Textrectplace.Left := Textrectplace.Left + 2;
Textrectplace.Width := 70;
Textrectplace.Height := 30;
Textrectplace.Top := Textrectplace.Top;
Textrectplace.Bottom := Textrectplace.Bottom;
TargetCanvas.font.color := clgray;
TargetCanvas.font.Size := 10;
DrawText(TargetCanvas.Handle, pChar(Data.text), Length(Data.text)
, Textrectplace, DT_End_Ellipsis );
end;

end;

//right image that should be stay at the right position 


begin
imgrect := Textrectplace;
imgrect.left := imgrect.left + 150;
imgrect.Width := 24;
imgrect.Height := 36;
imgrect.Top := imgrect.Top - 6 + ((30 - TargetCanvas.TextHeight('H')) div 2);
imgrect.Bottom := imgrect.Bottom;


TargetCanvas.Draw(imgrect.left, imgrect.Top, Data.image);
end;




end;

Answer 1

要缩短文本以适应 TRect 您可以使用 WinApi DrawText() 函数，使用 DT_END_ELLIPSIS 格式说明符。

要在调整 TVirtualStringTree 大小时（例如使用 TSplitter）调整文本的 space，只需使用：

TextRectPlace.Right := CellRect - imgRect.width;
imgRect.Left := TextRectPlace.Right;

Answer 2

此示例演示如何使列单元格和标题文本左对齐，单元格图像右对齐：

VirtualStringTree1.Alignment := taLeftJustify;
VirtualStringTree1.BiDiMode  := bdLeftToRight;
VirtualStringTree1.Header.Columns[ 0 ].Alignment := taRightJustify;
VirtualStringTree1.Header.Columns[ 0 ].BiDiMode := bdRightToLeftNoAlign;
VirtualStringTree1.Header.Columns[ 0 ].CaptionAlignment := taRightJustify;

image

TVirtuailStringTree 文字和图片对齐

TVirtuailStringTree text and image Alignment

delphi

virtualtreeview

tvirtualstringtree

delphi-xe8