Изменить цвет точки
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
Сообщений: 3
• Страница 1 из 1
- Amed
- Алфизик
- Сообщения: 5346
- Зарегистрирован: 09.03.2003 (Вс) 9:26
Amed » 25.04.2004 (Вс) 6:03
Сначала определи цвет точки через RGB:
Dim r as long, g as long, b as long, x as long
x = RGB(50, 60, 70)
r = x And 255
g = (x And 65280) \ 256
b = (x And 16711680) \ 65535
r = r + 10 'осветление
g = g + 10 'осветление
b = b + 10 'осветление
r = r - 5 'затемнение
g = g - 5 'затемнение
b = b - 5 'затемнение
И рисуй точку с цветом RGB(r,g,b)
Dim r as long, g as long, b as long, x as long
x = RGB(50, 60, 70)
r = x And 255
g = (x And 65280) \ 256
b = (x And 16711680) \ 65535
r = r + 10 'осветление
g = g + 10 'осветление
b = b + 10 'осветление
r = r - 5 'затемнение
g = g - 5 'затемнение
b = b - 5 'затемнение
И рисуй точку с цветом RGB(r,g,b)
Сообщений: 3
• Страница 1 из 1
Кто сейчас на конференции
Сейчас этот форум просматривают: нет зарегистрированных пользователей и гости: 24