HELP(Timage Tbitmap)

← →
zxcv (2006-04-01 16:36) [0]

Народ подскажите в чем дело:

мышкой выделяю часть играющего видеоролика
когда жму расширить область выделения (radiobutton1)
на изображение в image добавляются шумы,
похожие на эффект ложных контуров
при уменьшении уровней квантования;

при уменьшении области выделения (radiobutton2)
все работает нормально

bm1:Tbitmap;
////////////////////
procedure TForm1.Timer1Timer(Sender: TObject);
begin
////////////////////

dc:=getDC(Panel1.Handle);
canva := TCanvas.Create;
canva.Handle:=dc;
player.Position:=Kadr;
////////////////////

bm1.Canvas.CopyRect (bm1.Canvas.ClipRect,Canva,Rect
(min(x1,x2),min(y1,y2),max(x1,x2), max(y1,y2)));
image5.Canvas.StretchDraw(rect(0,0,image5.Width-1,image5.Height-1),bm1);

if radiobutton1.Checked then
begin
x1 := x1-1;
y1 := Y1-1;
x2 := X2+1;
y2 := Y2+1;
end;

if radiobutton2.Checked then
begin
x1 := x1+1;
y1 := Y1+1;
x2 := X2-1;
y2 := Y2-1;
end;
//////////////////////
end

← →
MBo © (2006-04-02 14:00) [1]

установи SetStretchBltMode HALFTONE

← →
zxcv (2006-04-04 16:43) [2]

Что это значит
можно по подробнее пожалуйста

← →
MBo © (2006-04-04 16:57) [3]

подробнее в хелпе или в MSDN

← →
zxcv (2006-04-05 00:02) [4]

спасибо, теперь все нормально.

только почему так происходит так и не понал

HELP(Timage Tbitmap) Найти похожие ветки