当前位置:学Delphi网文档资料专题讲解VGScene

VGScene里设计QQ好友列表效果

减小字体 增大字体 作者:学Delphi网  来源:本站整理  发布时间:2010-09-29 11:10:09

本篇文章主要讲解的是VGScene里设计QQ好友列表效果,QQ的好友列表效果一直都是很多人的喜爱,但是Delphi里设计这样的一个控件却非常之复杂要写很多的代码,使用VGScene的话就方便非常多!下面来看下具体步骤:

1.新建一个工程,窗体设计为无边框窗体,添加一个TvgScene控件vgScene1,设计好相关属性,添加一个TvgHudWindow控件vgHudWindow1,在vgHudWindow1上添加一个TvgListBox,鼠标右键单击TvgListBox选择Add object,新建一个TvgListBoxItem,修改其NAME属性为ItemBase。

2.现在开始来设计一个好友的一行的效果了,QQ的好友列表的每一行的排版是这样的,图像,昵称,个性签名,现在在ItemBase上按照这种排版来,在ItemBase上添加TvgImage,TvgText控件,命名分别为:ImgHead,txtNickName,Txtsign,按照排版排列好,修改下列属性:

      ImgHead.Align := vaMostLeft; // 最左边
      ImgHead.BindingName := 'HeadImg'; // 设置层的名字

      txtNickName.Align := vaLeft; // 靠左对齐
      txtNickName.HorzTextAlign := vgTextAlignNear; // 文本靠左
      txtNickName.BindingName := 'NickName';
      txtNickName.Padding.Left := 5; // 设置其往右偏出5个像素

      Txtsign.Align := vaClient;
      Txtsign.HorzTextAlign := vgTextAlignNear; // 文本靠左
      Txtsign.BindingName := 'sign';
      Txtsign.Padding.Left := 5; // 设置其往右偏出5个像素

3.现在写一个载入好友列表的过程,这里只是写个例子:

    procedure TForm7.LoadList;
    var
      i: integer;
      Item: TvgListBoxItem;
    begin
      ListBox1.BeginUpdate;
      try
        for i := 0 to 19 do
        begin
          Item := TvgListBoxItem(ItemBase.Clone(Self));
          Item.Height := 24;
          Item.Text := ''; // 清空Item自身的Text值
          Item.Binding['HeadImg'] := ExtractFilePath(ParamStr(0)) + 'head.png';
          Item.Binding['NickName'] := '昵称' + inttostr(i);
          Item.Binding['sign'] := inttostr(i) + '个性签名';
          Item.Visible := True;
          ListBox1.AddObject(Item);
        end;
      finally
        ListBox1.EndUpdate;
      end;
      ListBox1.Realign;
    end;

4.在窗体OnCreate事件下加载上述过程!运行程序如下效果:

 

  本实例可能在有些VGScene版本下面有BUG,如果需要使用来做项目的朋友,要先找出BUG!

学Delphi网
http://www.xuedelphi.com
问答专区
http://ask.xuedelphi.com
QQ群:48336535
学Delphi网-VGScene讨论群:12985056

Tags:

作者:学Delphi网
  • 好的评价 如果您觉得此文章好,就请您
      100%(2)
  • 差的评价 如果您觉得此文章差,就请您
      0%(0)

文章评论评论内容只代表网友观点,与本站立场无关!

   评论摘要(共 0 条,得分 0 分,平均 0 分) 查看完整评论