VPF::Предпросмотр картинки - Форум программистов

DenageS

Дата 31.12.2006, 06:39 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 81
Регистрация: 29.9.2006

Репутация: нет
Всего: нет

Читать все картинку, а потом ее уменьшать нерационально. Может быть как то узнать какая часть изображения будет видна при уменьшении, а затем загружать только эти сегменты?

boevik

Дата 31.12.2006, 08:49 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1452
Регистрация: 31.5.2004
Где: Израиль

Репутация: 12
Всего: 35

Цитата(DenageS @ 31.12.2006, 06:39

)

Может быть как то узнать какая часть изображения будет видна при уменьшении, а затем загружать только эти сегменты?

Так при уменьшении видна вся картинка только в уменьшеном виде.
Проще, загрузить картинку в Image со свойствм Stretch=True, и она сама уменьшится по размеру image.

--------------------

Никогда не говори никогда

BorisVorontsov

Дата 31.12.2006, 10:39 (ссылка)

(нет голосов)

Загрузка ...

Thinker

Профиль
Группа: Комодератор
Сообщений: 714
Регистрация: 3.11.2005
Где: Молдавия, г. Киши нёв

Репутация: 5
Всего: 10

Цитата(DenageS @ 31.12.2006, 06:39

)

Код


Public Sub Resample_Simple(bDibD() As Byte, ByVal dstWidth&, ByVal dstHeight&, bDibS() As Byte, ByVal srcWidth&, ByVal srcHeight&, ByVal ByProgressBar As Boolean)
  Dim X&, Y&, kX#, kY#
  kX = (srcWidth - 1) / (dstWidth - 1)
  kY = (srcHeight - 1) / (dstHeight - 1)
  For Y = dstHeight - 1 To 0 Step -1
    For X = 0 To dstWidth - 1
      bDibD(0, X, Y) = bDibS(0, X * kX, Y * kY)
      bDibD(1, X, Y) = bDibS(1, X * kX, Y * kY)
      bDibD(2, X, Y) = bDibS(2, X * kX, Y * kY)
    Next X
  Next Y
End Sub

--------------------

[code=cpp]
const char *out = "|*0>78-,+<|"; size_t cc = char_traits<char>::length(out);
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
[/code]

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB6 \| Следующая тема »