Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.01 c
1-39785
Пивоман
2002-04-28 21:16
2002.05.13
TTimer без TForm


1-39719
mclean
2002-04-27 11:32
2002.05.13
как сделать форму модальной


1-39726
Vano1
2002-04-27 12:11
2002.05.13
Как сохранить документ в формате XLS?


1-39757
Makss
2002-04-27 19:59
2002.05.13
Проблема с загрузкой проги


3-39652
Rail
2002-04-17 13:58
2002.05.13
Чем отличается Deny и Revoke в MS SQL Server