при изменении разрешения картинки , BitBlt обрезает её..

[Человек_Борща]

собственно суть такова:
Программа снимает скриншоты , у пользователя к примеру разрешение экрана 1280x1024 , он может выставить разрешение картинкам 800x600 .. с таким разрешением должны сниматься скриншоты.

Но проблема вот в чём,
Снимать то снимает, и с заданным разрешением изображения.
Но обрезает картинку.. если выставить 640x480 от скрина вообще ничего не остаётся..
это не радует.

Вот что использую:

procedure TMainForm.GetScreenBtnClick(Sender: TObject);
  var
    jp:TJPEGImage;
    bm:TBitmap;
    i:string;
begin
i:='1';
if SettingsForm.JPEGFormatFileChk.Checked then //выбран ли JPEG?
begin
bm:=TBitmap.Create;
bm.Width:=Screen.Width;
bm.Height:=Screen.Height;
if SettingsForm.ImgHeightWightChk.Checked then //Ограничен ли БитМап размерами?
begin
case SettingsForm.ImageSizeBox.ItemIndex of //проверяем какой выбран размер и выставляем соответствующий размер
0:
begin
bm.Width:=640;
bm.Height:=480;
end;
1:
begin
bm.Width:=800;
bm.Height:=600;
end;
2:
begin
bm.Width:=1024;
bm.Height:=768;
end;
3:
begin
bm.Width:=1280;
bm.Height:=1024;
end;
end;
end else //иначе размер экрана
begin
bm.Width:=Screen.Width;
bm.Height:=Screen.Height;
end;
BitBlt(bm.Canvas.Handle,0,0,bm.Width,bm.Height,GetDC(0),0,0, SRCCOPY); //делаем скрин
jp:=TJPEGImage.Create;
jp.Assign(bm);
jp.CompressionQuality:=SettingsForm.CompressionBar.Position; //степень сжатия
jp.Compress;
case SettingsForm.PixelFormatBox.ItemIndex of //Битность рисунка для JPEG
0: jp.PixelFormat:=jf24Bit;
1: jp.PixelFormat:=jf8Bit;
end;
jp.SaveToFile(SettingsForm.ScreenDirEdit.Text+IntToStr(StrToInt(SettingsForm.FileNameEdit.Text)+StrToInt(LabCount.Caption))+'.jpg'); 
jp.Free; //освобождаем память для след. рисунка.
bm.Free;
end;
...

Есть решение?

[Пепел Феникса]

StretchBlt(bm.Canvas.Handle,0,0,bm.Widht,bm.Height,GetDC(0),0,0,Screen.Width,Screen.Height,SRCCOPY);

вместо BitBlt попробуй.

[Человек_Борща]

О работает! Спасибо! Ставлю +