Главная страница
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
7-39869
NW
2002-02-14 19:07
2002.05.13
Виртуальный логический диск


14-39843
Леха
2002-04-04 10:31
2002.05.13
Есть такое предложение


6-39822
AlexRush
2002-02-28 18:14
2002.05.13
WinSock2 API - чтение данных из сокета


1-39746
Zuker
2002-04-27 21:25
2002.05.13
Определитель


14-39833
Schummi
2002-04-02 07:58
2002.05.13
Serial Number