Delphi 制作股票分时图

最新推荐文章于 2024-08-21 21:56:25 发布

xbcsu

最新推荐文章于 2024-08-21 21:56:25 发布

阅读量1.7k

点赞数

分类专栏：语言—Delphi 文章标签： Delphi 分时图闪烁

本文链接：https://blog.youkuaiyun.com/xbcsu/article/details/80806353

版权

语言—Delphi 专栏收录该内容

1 篇文章

订阅专栏

本文介绍使用Delphi7开发股票分时图的过程。通过创建一个面板并在其上利用canvas绘制分时图，解决了画布缺失及闪烁问题。采用内存位图bitmap提升绘制效率。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

背景：

利用Delphi开发股票分时图。

版本：

Delphi7

正文：

思路如下：

新建一个panel,在其上根据股票分时数据用canvas画出分时图；

遇到的问题：

1 Delphi的panel不自带canvas,需要用TControlCanvas提供画布作画；

2 画出的分时图闪烁，利用内存位图bitmap解决；

代码如下：

procedure TForm2.DrowMin(Sender: TObject; Panel: TFlatPanel);
var
  BMP:TBitMap;
  PanelCanvas:TControlCanvas;
begin
  BMP:=TBitMap.Create;
  PanelCanvas:=TControlCanvas.Create;
  
  PanelCanvas.Control:= panel;
  with BMP.Canvas do
  // 画图 
  begin
      Brush.Color:= clBlack;
      FillRect(ClientRect);

      pen.Color := clBlack;
      pen.Width := Panel.Height;
      MoveTo(Panel.Left, 0);
      LineTo(Panel.Left + Panel.Width, 0);
      pen.Width := 1;
      // ......此处省略画图代码
  end;
  //  把位图BMP复制给panel的画布PanelCanvas
  bitblt(PanelCanvas.Handle, 0, 0, Panel.Width, Panel.Height, BMP.Canvas.Handle, 0, 0, SRCCOPY);
  
  PanelCanvas.Free;
  BMP.Free;
end;

效果图如下：