Re: ColorReplacer - продвинутая замена цветов

Написал Evgeniy-tg в 09/01/2007 9:52:41

Не! В 11 тоже баг!

Private Sub historyAdd(c1 As Color, c2 As Color)
Dim i&, j&, s$
For i = 1 To histCnt
If c1.IsSame(hist(i, 1)) Then If c2.IsSame(hist(i, 2)) Then j = i: Exit For
Next
If j = 0 Then histCnt = IIf(histCnt >= UBound(hist), UBound(hist), histCnt + 1): j = histCnt
For i = j To 2 Step -1: hist(i, 1).CopyAssign hist(i - 1, 1): hist(i, 2).CopyAssign hist(i - 1, 2): Next
hist(1, 1).CopyAssign c1: hist(1, 2).CopyAssign c2
historyDraw
For i = 1 To histCnt: s = s + hist(i, 1).ToString + "|" + hist(i, 2).ToString + "|": Next
SaveSetting szAppName, szSection, "History", Left$(s, Len(s) - 1)
End Sub

Мож я ченитак делаю???