Перерисовать Image [D5, Win95/98]
Aric © (2002-03-12 15:24:00)
Приветствую! Есть проблема надо максимально быстро (чтобы на
Р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:00) [1]
Мне кажется что глазу все равно заметно будет :(
хотя это еще и от оперативки зависти...
Наверх 
ЧАТ |
Орешник |
|
