求画图代码

Question

谁能生成这样的图片   前提是不用控件  分就给你了！

Answer 1

这个http://hi.csdn.net/space-3765496-do-album-picid-631471.html

Answer 2

太简单，在form上画，我就是这麽做的

Answer 3

这个图片  只要用到  lineto(画线)  和 Textout（写字）  就行 了
把Brush 填充个背景
用线画表格   按坐标输出文字  期间要设置Pen 的 color 和 size 属性
代码比较多  自己写吧   关键是坐标

Answer 4

这段代码画了部分线和标题，其他的自己填充去吧procedure TForm1.DrawForm;
var
  i,rowheigth,topmargine:Integer;
  r:TRect;
  s :string;
begin
  topmargine := 40;
  Self.Canvas.Pen.Color := clGreen;
  Self.Canvas.Font.Color := clYellow;
  Self.Canvas.Font.Size := 16;
  s := '高架库LED监控系统';
  i := Self.Canvas.TextWidth(s);
  Self.Canvas.TextOut((Self.Width-i) div 2,(topmargine-Self.Canvas.TextHeight(s)) div 2,s);
  r := Rect(2,topmargine,Self.Width-2,Self.Height-2);
  Self.Canvas.Rectangle(r);
  rowheigth := (r.Bottom-r.Top) div 6;
  for i := 0 to 6 do
  begin
    Self.Canvas.MoveTo(r.Left,i*rowheigth+r.Top);
    Self.Canvas.LineTo(r.Right,i*rowheigth+r.Top);
  end;
  Self.Canvas.MoveTo(r.Left+50,r.Top+rowheigth);
  Self.Canvas.LineTo(r.Left+50,3*rowheigth+r.Top);
  Self.Canvas.MoveTo((r.Right-r.Left) div 2+50,r.Top+rowheigth);
  Self.Canvas.LineTo((r.Right-r.Left) div 2+50,3*rowheigth+r.Top);
end;

Answer 5

这个一般led 的 同步屏幕的 做法
有dll或者其他方式限制卡的 取屏幕范围。

Answer 6

纯代码不用控件可以实现，就是九楼所说的方法。这个图片 只要用到 lineto(画线) 和 Textout（写字） 就行 了代码其实很容易，就是找坐标，画线，填文字就可以了。但容易不代表简单，这个代码写起来虽然没难度但比较繁琐，你这点分不足以帮你直接定代码。只能给告诉你方法，除非你加分。