岁数大了，QQ也不闪了，微信也不响了，电话也不来了，但是图老师依旧坚持为大家推荐最精彩的内容，下面为大家精心准备的实现VirtualTree的Editor的功能定制之setBounds，希望大家看完后能赶快学习起来。
【 tulaoshi.com - 编程语言 】
//做的改动
1.//function TStringEditLink.PrepareEdit(Tree: TBaseVirtualTree; Node: PVirtualNode; Column: TColumnIndex): Boolean;
//you can set the value diaplaying int the editor here
Text :=FTree.GetText(Node,Column);
FirstMatch :=Pos ('(',Text );
if FirstMatch 0 then
LastMatch :=Pos (')',Text )
else
begin
FirstMatch :=Pos ('"',Text );
if FirstMatch 0 then
LastMatch :=Pos (';',Text )-1;
end;
if LastMatch 0 then
Text :=Copy (Text,FirstMatch ,LastMatch -firstmatch+1);
2.//procedure TStringEditLink.SetBounds(R: TRect);
//to change the left of bound
text:= FTree.GetText(FNode,0);
Offset :=Pos ('(',Text );
if Offset =0 then
Offset :=Pos ('"',Text );
R.Left :=R.Left +Offset*5;
R.Right :=R.Right -5;
3.//function TStringEditLink.BeginEdit: Boolean;
//to show hint while editing
FTree.Hint :=FTree.GetText(FNode,0);
FTree.ShowHint :=True ;
4.
procedure TScriptsForm.DataTreeCreateEditor(Sender: TBaseVirtualTree;
Node: PVirtualNode; Column: TColumnIndex; out EditLink: IVTEditLink);
begin
EditLink:= TStringEditLink.Create ;
end;
来源:https://www.tulaoshi.com/n/20160219/1624440.html
看过《实现VirtualTree的Editor的功能定制之setBounds》的人还看了以下文章 更多>>
