V-Форум / Corel VBA / Тема: ColorReplacer - продвинутая замена цветов

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, возможностью использовать запечатку цвета, например выбрать черный цвет без запечатки и покрасить в черный с запечаткой?

« 1 (2)