我在tabsheet上放了一个image,以tabsheet为父类随机创建了多个shape,如下:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ComCtrls;type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Image1: TImage;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
shape: array[1..250] of TShape;
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
for i:=1 to 250 do
begin
shape[i] := TShape.Create(TabSheet1);
with shape[i] do
begin
parent:=TabSheet1;
top := random(380);
left:= random(580);
width:= 10;
height:=10;
visible:=true;
enabled:=true;
end;
end;
end;
end.
在这之后,我将要在image的canvas上画若干条连线(连接每对shape)。
现在我想要打印出这个拓扑图形(用直线连接的若干个shape),怎样实现这个要求呢?我认为shape的打印是个问题.请各路高手给于建议,谢谢
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, ComCtrls;type
TForm1 = class(TForm)
PageControl1: TPageControl;
TabSheet1: TTabSheet;
Image1: TImage;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
shape: array[1..250] of TShape;
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var
i:integer;
begin
for i:=1 to 250 do
begin
shape[i] := TShape.Create(TabSheet1);
with shape[i] do
begin
parent:=TabSheet1;
top := random(380);
left:= random(580);
width:= 10;
height:=10;
visible:=true;
enabled:=true;
end;
end;
end;
end.
在这之后,我将要在image的canvas上画若干条连线(连接每对shape)。
现在我想要打印出这个拓扑图形(用直线连接的若干个shape),怎样实现这个要求呢?我认为shape的打印是个问题.请各路高手给于建议,谢谢
解决方案 »
- 关于定义枚举的问题
- 各位大侠,进来看看 Delphi6.0 用Qreport组件打印报表过程中如何设置控件组 便于访问?
- 执行UPDATE 操作后怎么得到更新了几条记录信息,很简单的问题!解决后立刻结帐
- 为什么会出错,函数的使用问题
- 高分请教简单问题:try except 的用法。
- 怎么追啊?!!!!!!!
- 我想把A表的数据和B表的数据放进一个C表中,C表动态建立,C表的字段也是ID 和NAME,
- 谁能知道他这个文本的加密算法?
- 谁懂windows的shell快捷菜单?
- 一个程序广播一个消息,另一程序收到了两次啊!怎么办?(千山求教)
- 子窗口如何关闭?
- ehlib 中的选择checkbox问题!别的地方每人讲清楚,看看这有高手没?先100分,回答了加加加·!在线等待
1、就是屏幕考贝,把图片打印
2。就是通过计算打印的系统。把你画的过程的,canvse画布改成打印的画布就可以了。