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;