| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
HELP(Timage Tbitmap)
zxcv © (2006-04-01 16:36:00)Народ подскажите в чем дело:
мышкой выделяю часть играющего видеоролика
когда жму расширить область выделения (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
zxcv (2006-04-05 00:02:00) [1]спасибо, теперь все нормально.
только почему так происходит так и не понал
MBo (2006-04-04 16:57:00) [2]подробнее в хелпе или в MSDN
zxcv (2006-04-04 16:43:00) [3]Что это значит
можно по подробнее пожалуйста
MBo (2006-04-02 14:00:00) [4]установи SetStretchBltMode HALFTONE
| |
