VPF::Маштабирование - Форум программистов

Кирилл

Дата 21.12.2006, 22:00 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 80
Регистрация: 7.11.2006
Где: Воронеж

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

Вот уже больше недели мучаюсь я с одной маленькой детавлью-маштабированием.
Мне нужно маштабировать некую ломаную из обьектов Line, и для этого я использую примерно следуйщий код:

Код


Form1.VScroll.Max = Form1.VScroll.Max * Dlt_scale
Form1.VScroll.Value = Form1.VScroll.Max / 2 'Âîçíèêàåò Change (èñïðàâëåíî)
Form1.HScroll.Max = Form1.HScroll.Max * Dlt_scale
Form1.HScroll.Value = Form1.HScroll.Max / 2 'Âîçíèêàåò Change (èñïðàâëåíî)
        For i = 1 To Ind
            Form1.profil(i).X1 = Form1.ScaleWidth / 2 - (Form1.ScaleWidth / 2 - Form1.profil(i).X1) * Dlt_scale
            Form1.profil(i).X2 = Form1.ScaleWidth / 2 - (Form1.ScaleWidth / 2 - Form1.profil(i).X2) * Dlt_scale
            Form1.profil(i).Y1 = Form1.ScaleHeight / 2 - (Form1.ScaleHeight / 2 - Form1.profil(i).Y1) * Dlt_scale
            Form1.profil(i).Y2 = Form1.ScaleHeight / 2 - (Form1.ScaleHeight / 2 - Form1.profil(i).Y2) * Dlt_scale
        Next i
lst_scale_value = Dlt_scale

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

Это сообщение отредактировал(а) Кирилл - 21.12.2006, 22:00

Кирилл

Дата 23.12.2006, 16:43 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 80
Регистрация: 7.11.2006
Где: Воронеж

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

Всё, разобрался. Закон подлости - только задаю вопрос на форуме, как сам нахожу решение smile

Прям не знаю, что делать smile

cardinal

Дата 23.12.2006, 22:05 (ссылка)

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

Загрузка ...

Инженер

Профиль
Группа: Экс. модератор
Сообщений: 6003
Регистрация: 26.3.2002
Где: Германия

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

Даже не пытаться решать проблемы самому, а при их появлении сразу задавать вопрос на форуме! smile

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

Немецкая оппозиция потребовала упростить натурализацию иммигрантов
В моем блоге: Разные истории из жизни в Германии

"Познание бесконечности требует бесконечного времени, а потому работай не работай - все едино". А. и Б. Стругацкие

mihanik

Дата 25.12.2006, 10:59 (ссылка)

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

Загрузка ...

-=Белый Медведь=-

Профиль
Группа: Комодератор
Сообщений: 4054
Регистрация: 24.4.2006
Где: г. Тверь

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

Кирилл, а для последователей хорошо было бы выложить способ решения...

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

Программистами не рождаются, - это родовая травма...

Кирилл

Дата 25.12.2006, 13:03 (ссылка)

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

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 80
Регистрация: 7.11.2006
Где: Воронеж

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

Хорошо бы, если бы я его понял smile

Я установил для полос прокрутки мах=form1.scaleHeight(или ScaleWidth)/10
Хотя рочему без этого не работает я так и не понял smile

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