procedure TVideoForm.ext1Click(Sender: TObject);
begin
with VMRBitmap, Canvas do
begin
LoadEmptyBitmap(300,200,pf24bit, clSilver);
Source := VMRBitmap.Canvas.ClipRect;
Options := VMRBitmap.Options + [vmrbSrcColorKey];
ColorKey := clSilver;
Brush.Color := clSilver;
Font.Color := clWhite;
Font.Style := [fsBold];
Font.Size := 30;
Font.Name := 'Arial ';
Rectangle(10,10,100,100);
Rectangle(540,10,630,100);
Rectangle(10,380,100,470);
Rectangle(630,380,540,470);
Rectangle(275,195,365,285);
TextOut(0,0, 'Hello Word :) '); // 显示文字
DrawTo(0,0,1,1,0.5); //请问DrowTo中的参数 0 0 1 1 0.5 各个分别代表什么意思?
end;
end; procedure TVideoForm.Bitmap1Click(Sender: TObject);
var Bitmap: TBitmap;
begin
if OpenDialog.Execute then
Begin
Bitmap:= TBitmap.Create;
try
Bitmap.LoadFromFile(OpenDialog.FileName);
VMRBitmap.LoadBitmap(Bitmap);
VMRBitmap.Source := VMRBitmap.Canvas.ClipRect;
VMRBitmap.DrawTo(0,0,0.5,0.5, 0.5); // 请问DrowTo中的参数 0 0 0.5 0.5 0.5 各个分别代表什么意思?
finally
Bitmap.Free;
end;
end;
begin
with VMRBitmap, Canvas do
begin
LoadEmptyBitmap(300,200,pf24bit, clSilver);
Source := VMRBitmap.Canvas.ClipRect;
Options := VMRBitmap.Options + [vmrbSrcColorKey];
ColorKey := clSilver;
Brush.Color := clSilver;
Font.Color := clWhite;
Font.Style := [fsBold];
Font.Size := 30;
Font.Name := 'Arial ';
Rectangle(10,10,100,100);
Rectangle(540,10,630,100);
Rectangle(10,380,100,470);
Rectangle(630,380,540,470);
Rectangle(275,195,365,285);
TextOut(0,0, 'Hello Word :) '); // 显示文字
DrawTo(0,0,1,1,0.5); //请问DrowTo中的参数 0 0 1 1 0.5 各个分别代表什么意思?
end;
end; procedure TVideoForm.Bitmap1Click(Sender: TObject);
var Bitmap: TBitmap;
begin
if OpenDialog.Execute then
Begin
Bitmap:= TBitmap.Create;
try
Bitmap.LoadFromFile(OpenDialog.FileName);
VMRBitmap.LoadBitmap(Bitmap);
VMRBitmap.Source := VMRBitmap.Canvas.ClipRect;
VMRBitmap.DrawTo(0,0,0.5,0.5, 0.5); // 请问DrowTo中的参数 0 0 0.5 0.5 0.5 各个分别代表什么意思?
finally
Bitmap.Free;
end;
end;
解决方案 »
- 那位高人帮我分析 从串口坚监听到的数据......
- 字符串转为datetime时发生错误
- 很久前问的一个问题,一直没人回答。。。
- 我自己照例程编了两个简单的dll,在应用程序中调用这两个dll,但是应用程序中的button控件不起作用。
- 郁闷!一个MM猛批我的程序,如何提高系统稳定性啊!(心情不好散分。。。。)
- 蔡鸟问题
- 请问,如何做出象窗口标题栏那样,按住鼠标,可以拖动窗体?谢谢!
- 数据导出问题..导出成XML文件.!
- 拖动Dephi Form窗口时,能否不显示虚线框???如何做?
- 请问如何用delphi实现游戏修改(内存锁定)?请大家都来帮帮忙!
- 大家帮帮我怎么把powerbuilder代码转换成delphi代码;
- excel报表问题
可以参考参考