我已经成功地在Form上做了些图,请问怎么把它保存为一个图形文件??
解决方案 »
- 求delphi的CRC16算法代码
- 人气不多,刺激一下,100分简单问题。
- delphi如何能识别并显示多种语种的文件啊?比如说俄文。
- socket问题
- Fidelio 按钮是怎样实现的????????? 100分
- Chart问题(线型Series的Bug)
- 请问delphi5中有没有delphi6中的object treeview功能
- ====vb到底好呀,有很多好的打印控件而且是完全开放源码的.=====
- 我install component时出现这个错误是怎么回事?
- 急,怎么删除数据库的日志文件!!!
- 向大哥请教:在主窗口中怎样调用Frame窗口?
- 如何将Delphi中的包转换为ocx.
Bitmap : TBitMap;
begin
Bitmap := TBitmap.Create; BitMap.canvas.CopyRectBitMap.Canvas.ClipRect,Form1.Canvas,Form1.BoundsRect);
BitMap.SaveToFile('E:\aa.bmp');
end;
?????
begin
canvas.Rectangle(0, 2, 100, 100);
// bitblt(bmp.Handle, 0, 0, bmp.Width, bmp.Height, canvas.Handle, 0, 0, SRCCOPY);
end;procedure TForm1.FormMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
//canvas.CopyRect(rect(0, 0, bmp.Width, bmp.Height), bmp.Canvas, rect(0, 0, width, height));
bmp.Canvas.CopyRect(canvas.ClipRect, canvas, rect(0, 0, width, height));
bmp.SaveToFile('d:\test.bmp');
end;procedure TForm1.FormCreate(Sender: TObject);
begin
bmp := TBitmap.Create;
bmp.Width := form1.ClientWidth-2;
bmp.Height := form1.ClientHeight-20;
end;
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;type
TForm1 = class(TForm)
Bevel1: TBevel;
procedure FormCreate(Sender: TObject);
procedure FormPaint(Sender: TObject);
procedure FormDblClick(Sender: TObject);
private
{ Private declarations }
Rect: Array[0..10] of TPoint;
public
{ Public declarations }
end;var
Form1: TForm1;implementation
{$R *.dfm}procedure TForm1.FormCreate(Sender: TObject);
var
i : Integer;
begin
Self.Canvas.Pen.Color := clBlue;
for i := 0 to 10 do
begin
Self.Rect[i].X := Random(Self.Width);
Self.Rect[i].Y := Random(Self.Height);
end;
Self.Bevel1.Align := alClient;
Self.Bevel1.Visible := False;
end;procedure TForm1.FormPaint(Sender: TObject);
var
i: Integer;
begin
Self.Canvas.MoveTo(Self.Rect[0].X, Self.Rect[0].Y);
for i := 1 to 10 do
begin
Self.Canvas.LineTo(Self.Rect[i].X, Self.Rect[i].Y);
end;
end;procedure TForm1.FormDblClick(Sender: TObject);
var
Bit: TBitMap;
begin
Bit := TBitMap.Create;
Bit.Width := Self.Bevel1.Width;
Bit.Height := Self.Bevel1.Height;
BitBlt(Bit.Canvas.Handle, 0, 0, Self.Bevel1.Width,
Self.Bevel1.Height, Self.Canvas.Handle, 0, 0, SRCCOPY);
Bit.SaveToFile('d:\aa.bmp');
Bit.Free;
end;end.