能这样画吗?(100分)

  • 主题发起人 主题发起人 ebxca
  • 开始时间 开始时间
E

ebxca

Unregistered / Unconfirmed
GUEST, unregistred user!
在窗口上显示一个图片,用image或别的控件调入的,
然后,当用鼠标在该图的范围内点击时,得到点击的位置,
并根据这点在该图上画一点东西,写一点字符,然后存入
数据库(sql server200),并可随时用如下格式打印:

  字符 ┌─────┐ 字 符
┌─────┐ │ 图   │ ┌─────┐
 │ 表   │ │     │  │ 表   │
 │ 格   │ │ 片   │ │ 格   │
 └─────┘ └─────┘ └─────┘

也就是说要打的图在中间,两边还有文字和图表.

这用delphi 能做到吗?
具体用什么办法?
 
分别保存图片和字符

就可以打印了。(基本上creport,ereport 都支持打印图片)
 
第一个问题呢?
 
在Image1MouseUp中加入如下代码:
procedure TForm1.Image1MouseUp(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
with Image1.Canvas do
begin
Pen.Width:=5;
Pen.Color:=ClRed;
Ellipse(Image1.Width div 4,Image1.Height div 4,
Image1.Width div 4*3,Image1.Height div 4*3);
end;
end;

出错,提示为:
"Can only modify an image if it contains a bitmap"
要怎样才能修改Imagel所调入的图?


 
Image1为空,可以设置Image.Picture.Bitmap.Width .Height来建立一个Bitmap
 
点击的问题解决了. 是要创建一个tBitmap, 但如果图象是jpg格式时就会出错,
谁知怎样读jpg格式的图象?
还有,打印的问题,还不知道该怎样设.请指教.(用什么报表控件,大致怎样设?)
 
后退
顶部