400求助一个简单列表框的源码!

[qq_17281823]

要求用Timage和它的Canvas属性做个简单的列表框(只要显示功能)，写出多行字，当内容超过Timage的高度时可以用滚动条浏览全部的内容，功能部分(就是写字部分，就写数字吧简单点)以类的方式写在另一个单元，(我不知道是不是该叫继承Canvas，主要方便自己以后功能扩展)，最好滚动条的控制代码也写在里面，调用 这个类的可以把Timage当做参数传进入(因为有可能要在其它有Canvas属性的控件使用这个类)但是滚动条的源码只要支持Timage就行了，要求代码尽量严谨，因为我是初学，希望有个正确的开始.谢谢大家

[qq_17281823]

本人是小白，请劲量注释一下代码，我想以这个实例开始学习delphi

[Frank.WU]

用 Timage 建议不要再用 原来的滚动条，在需要滚动条的区域留一块用来画滚动条就行

[日立奔腾浪潮微软松下联想]

引用 3 楼 qq_17281823 的回复:

可能我没讲明白，我想学的是实现这样一个功能类的方法，Timage怎样用代码实现和滚动条联动，TCancas继承然后加自己的方法(加一个写多行字的方法，方便测试滚动条)

设计方向错误，TCanvas本身不可视，要滚动干嘛？滚动可视组件，只需要把它放在滚动控制（比如TScrollBox）里，你的设计耦合度高，复用率低。

[日立奔腾浪潮微软松下联想]

列表框透明，放在TImage前面就可以了

[qq_17281823]

可能我没讲明白，我想学的是实现这样一个功能类的方法，Timage怎样用代码实现和滚动条联动，TCancas继承然后加自己的方法(加一个写多行字的方法，方便测试滚动条)

[ron_xin]

参考代码

procedure TFrmMain.CanvasScroll_Adv(LedNo: Integer);
//暂停时显示Scroll文字
var
  TxtWidth :Integer;
  bmp:tbitmap;
  Msg_Scroll :string;
  tempini:TIniFile;
begin
  tempIni := TIniFile.Create(extractfilepath(ParamStr(0))+'TicketLed.ini');
  Msg_Scroll :=tempIni.ReadString('Window'+inttostr(LedNo+1), 'Msg_Scroll','欢迎光临蛇口邮轮中心！');
  tempIni.Free;

  bmp:=Tbitmap.Create;
  bmp.Width :=LedInfo[LedNo].Width-1;
  bmp.Height :=21;
  bmp.Canvas.Brush.Color:=clBlue;//clWebPurple; //设置颜色
  bmp.Canvas.FillRect(bmp.Canvas.ClipRect); //往矩形中填充颜色
  bmp.Canvas.Font.Name:='隶书';
  bmp.Canvas.Font.Height:=20;
  bmp.Canvas.font.color:=clWhite;
  TxtWidth :=bmp.Canvas.TextWidth(Msg_Scroll);
  bmp.Canvas.TextOut(LedInfo[LedNo].Scroll_Xtmp,0,Msg_Scroll);

  imgStripLED.Canvas.Draw(LedInfo[LedNo].Scroll_X,LedInfo[LedNo].Scroll_Y+10,BMP);

  if LedInfo[LedNo].Scroll_Xtmp<=-TxtWidth then
  begin
    LedInfo[LedNo].Scroll_Xtmp :=LedInfo[LedNo].Width;
  end;

  LedInfo[LedNo].Scroll_Xtmp :=LedInfo[LedNo].Scroll_Xtmp-1;

  bmp.Free;
end;

放定时器去执行

procedure TFrmMain.tmrCanvasScrollTimer(Sender: TObject);
var
  i :Integer;
begin
  for i := 0 to 19 do
  begin
    CanvasScroll_Adv(i);
//    case LedInfo[i].ServerType of
//      0,2:CanvasScroll_Adv(i);
//    end;
  end;