如何将一个图片中指定的颜色部分替换成另一个指定的颜色

陈?

如题

游戏之家

你上张图呀!!

happysnoopy

是不是像即时战略中的用颜色去区分不同阵营的部队，这部分颜色是用改变调色板中的指定颜色实现的

游戏之家

哈哈! 他不用API也不用DX, 用控件,
不过我没用过控件的RGB(A,B,C)改调色板.

陈?

happysnoopy: Re:如何将一个图片中指定的颜色部分替换成另一个指定的颜色

是不是像即时战略中的用颜色去区分不同阵营的部队，这部分颜色是用改变调色板中的指定颜色实现的

被你说对了,你说说调色板怎么做吧

gpra8764

调色板我是过，不行的，因为它只能对一个表面起作用，而且全屏起作用，不能将一小块变色好象。你只能自己对颜色进行矩形处理！
http://bbs.gameres.com/showthread.asp?threadid=34669
http://bbs.gameres.com/showthread.asp?threadid=36533

陈?

花了一个小时研究了下灰色化,大家看看代码如何简化
For i = 0 To 500
For i1 = 0 To 500
a = Hex(Picture1.Point(i, i1))
If Len(a) >= 5 Then m1 = CLng("&H" & Mid(a, 5, 2))
If Len(a) >= 3 Then m2 = CLng("&H" & Mid(a, 3, 2))
If Len(a) >= 1 Then m3 = CLng("&H" & Mid(a, 1, 2))
m = (m1 + m2 + m3) \ 3
m1 = m
m2 = m
m3 = m
Picture1.PSet (i, i1), RGB(m1, m2, m3)
Next i1, i

陈?

用API的,看了一下发现效果不是很理想,是不是算法不完善?
For i = 0 To 800
For i1 = 0 To 600
a = Hex(GetPixel(Picture1.hdc, i, i1))
If Len(a) >= 5 Then m1 = CLng("&H" & Mid(a, 5, 2))
If Len(a) >= 3 Then m2 = CLng("&H" & Mid(a, 3, 2))
If Len(a) >= 1 Then m3 = CLng("&H" & Mid(a, 1, 2))
m = (m1 + m2 + m3) / 3
m1 = m
m2 = m
m3 = m
SetPixel Picture1.hdc, i, i1, RGB(m1, m2, m3)
Next i1, i

wangh

晕,怎么用字符串函数都用上了,要转换成灰度图的话很简单啊

a = Hex(GetPixel(Picture1.hdc, i, i1))
r = a And &HFF
g = (a \ &H100) And &HFF
b = a \ &H10000
gray = r * 0.299 + g * 0.587 + b * 0.114
SetPixel Picture1.hdc, i, i1, RGB(gray, gray, gray)

陈?

gray = r * 0.299 + g * 0.587 + b * 0.114
这里的常数怎么算出来的?