Re: ColorReplacer - продвинутая замена цветов
09/01/2007 9:52:41
#Link
Не! В 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
Мож я ченитак делаю???
Re: ColorReplacer - продвинутая замена цветов
09/01/2007 15:52:52
#Link
Сколько цветов уже в истории замены? есть ли пантоны? или еще какие нибудь особенности?
Re: ColorReplacer - продвинутая замена цветов
15/01/2007 11:34:56
#Link
Для проверки нарисовал 2 квадрата с обычной СМУКовской заливкой. Ничего необычного.
Re: ColorReplacer - продвинутая замена цветов
15/01/2007 12:00:53
#Link
у меня всё работает...
Re: ColorReplacer - продвинутая замена цветов
06/03/2007 11:53:39
#Link
вау

супер!
спасибо огромное!
багов не заметил
Re: ColorReplacer - продвинутая замена цветов
16/01/2008 7:04:00
#Link
Цитата:
Не поправлены некоторые ошибки OberonColorReplacer. Например:
Пишу любой текст, назначаю цвет, например 0-0-0-100
Первую букву перекрашиваю - например, в 0-100-100-0
Применяю ColorReplacer - заменяю 0-100-100-0 на, к примеру, 0-0-100-0
Результат неудовлетворительный.
Re: ColorReplacer - продвинутая замена цветов
16/01/2008 15:36:41
#Link
Вопрос к wOxxOm: эти макросы бесплатны? Спрашиваю потому как у нас на фирме стоит только лицензионное ПО.
Re: ColorReplacer - продвинутая замена цветов
11/02/2008 20:40:22
#Link
бесплатны, как модификации так и исходный
magnus_z, в моей модификации для замены разноцветного текста надо включать опцию "inside text"
Re: ColorReplacer - продвинутая замена цветов
05/03/2008 13:32:24
#Link
wOxxOm, можно ли дополнить макрос ColorReplacer, возможностью использовать запечатку цвета, например выбрать черный цвет без запечатки и покрасить в черный с запечаткой?
Источник: https://powerclip.ru/modules/newbb/viewtopic.php?topic_id=4407&start=10