Добрый вечер! Пользуюсь вашим форумом я уже давно, только раньше находил ответы на все вопросы в поиске)
а щас столкнулся с пока что тяжелой для меня задачей и прошу подсказки!
Есть картинка.. и нужно так сказать сделать "сумерки" до полного ее исчезновения... и как вариант дали совет реализовать "эффект управления палитрой".. и затем обратный процесс, то есть рассвет, когда картинка вновь в полной мере отображается...
"Сумерки", эффект управления палитрой
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 11
• Страница 1 из 1
- old761
- Начинающий
- Сообщения: 14
- Зарегистрирован: 06.12.2007 (Чт) 18:48
- Откуда: Луганск
"Сумерки", эффект управления палитрой
old761 » 06.12.2007 (Чт) 18:59
- DKbelRoma
- Бывалый
-
- Сообщения: 282
- Зарегистрирован: 13.09.2007 (Чт) 23:32
- Откуда: Из Кривого Рога
DKbelRoma » 06.12.2007 (Чт) 19:15
Вот это тебе поможет! Там в исходнике разберёшься 
- Вложения
-
advanced_graph.zip- (176 Кб) Скачиваний: 67
«Не важно, откуда ты. Важно - где ты.»
- BV
- Thinker
-
- Сообщения: 3987
- Зарегистрирован: 12.09.2004 (Вс) 0:55
- Откуда: Молдавия, г. Кишинёв
BV » 06.12.2007 (Чт) 20:13
Касаемо фильтров, в проектах: http://bbs.vbstreets.ru/viewtopic.php?t=24078 -- FCOL SDK, в том числе и Brightness, и Tint и Gamma
Мой открытый проект: http://forum.sources.ru/index.php?showtopic=208226
А так же в поиск по "LivePaint"
Мой открытый проект: http://forum.sources.ru/index.php?showtopic=208226
А так же в поиск по "LivePaint"
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;
for (size_t i=0;i<cc;i++){cout<<static_cast<char>((out[i]^89));}cout<<endl;
- ex1k
- Начинающий
-
- Сообщения: 16
- Зарегистрирован: 09.12.2007 (Вс) 16:56
ex1k » 10.12.2007 (Пн) 11:37
Private Sub Form_Resize() 'Событие Resize нужно для того, чтоб при изменении размера формы, выполнялось какое - то действие
Dim X As Integer 'Объявляем переменную - счётчик
For X = 0 To Height 'Запускаем цикл, который повторяться столько раз какой высотой форма
Line (0, X)-(Width, X), X / (Height / 255) ''рисуем линию от верха и до самого низа формы цвет линии постоянно меняется
Next
End Sub
На форму помеси...
Dim X As Integer 'Объявляем переменную - счётчик
For X = 0 To Height 'Запускаем цикл, который повторяться столько раз какой высотой форма
Line (0, X)-(Width, X), X / (Height / 255) ''рисуем линию от верха и до самого низа формы цвет линии постоянно меняется
Next
End Sub
На форму помеси...
- ex1k
- Начинающий
-
- Сообщения: 16
- Зарегистрирован: 09.12.2007 (Вс) 16:56
ex1k » 10.12.2007 (Пн) 11:38
или вот это
Private Sub Form_load()
AutoRedraw = False
End Sub
Private Sub Form_Paint()
'Объявление переменных
Dim lY As Long
Dim lScaleHeight As Long
Dim lScaleWidth As Long
ScaleMode = vbPixels 'Единицу измерения устанавливаем равной пикселу
lScaleHeight = ScaleHeight 'Получаем кол-во пикселов по высоте
lScaleWidth = ScaleWidth 'Получаем кол-во пикселов по ширине
DrawStyle = vbInvisible 'Устанавливаем стиль заливки и рисования
FillStyle = vbFSSolid
For lY = 0 To lScaleHeight 'Запускаем цикл закраски
'Закрашиваем
FillColor = RGB(0, 0, 255 - (lY * 255) \ lScaleHeight)
Line (-1, lY - 1)-(lScaleWidth, lY + 1), , B
Next lY
End Sub
Private Sub Form_load()
AutoRedraw = False
End Sub
Private Sub Form_Paint()
'Объявление переменных
Dim lY As Long
Dim lScaleHeight As Long
Dim lScaleWidth As Long
ScaleMode = vbPixels 'Единицу измерения устанавливаем равной пикселу
lScaleHeight = ScaleHeight 'Получаем кол-во пикселов по высоте
lScaleWidth = ScaleWidth 'Получаем кол-во пикселов по ширине
DrawStyle = vbInvisible 'Устанавливаем стиль заливки и рисования
FillStyle = vbFSSolid
For lY = 0 To lScaleHeight 'Запускаем цикл закраски
'Закрашиваем
FillColor = RGB(0, 0, 255 - (lY * 255) \ lScaleHeight)
Line (-1, lY - 1)-(lScaleWidth, lY + 1), , B
Next lY
End Sub
Сообщений: 11
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: SemrushBot, Yandex-бот и гости: 3