Текущий архив: 2002.05.13;
Скачать: CL | DM;

Вниз

Перерисовать Image   Найти похожие ветки 

← →
Aric   (2002-03-12 15:24) [0]

Приветствую! Есть проблема надо максимально быстро (чтобы на Р300 было незаметно глазу) по TrackBar-у перерисовать Image. Ща делаю так

case TrackBar1.Position of
0 : scale := 10;
1 : scale := 5;
2 : scale := 2;
3 : scale := 1;
end;
tmp_bmp := TBitmap.Create;
tmp_bmp.Width := im_w;
tmp_bmp.Height := round(im_h * scale);
tmp_bmp.Canvas.StretchDraw(Rect(0, 0, tmp_bmp.Width, tmp_bmp.Height),Image1.Picture.Graphic);
Image1.Picture.Graphic := tmp_bmp;
tmp_bmp.Free;
Но это топорно. Может можно как-нить изящнее? Заранее спасибо.

---

← →
Nikolay ©   (2002-03-12 16:02) [1]

Мне кажется что глазу все равно заметно будет :(
хотя это еще и от оперативки зависти...

---

Страницы: 1 вся ветка

Текущий архив: 2002.05.13;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.012 c