Перерисовать 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]

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

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