Результаты поиска

Во время месячника Дзюбы мне приходило с таким абзацем:

Как же люди до Мацушиты жили, пока он не догадался, что, чтобы урвать свой кусок пирога, надо создать товар дешевле и качественней чем у конкурента? Не, может некоторые делали, но того же качества и дешевле, или в ту же цену, но качественней и прогорали с этим подходом. Самые умные приблизились...

ИМХО исходник двухцветный, репринт решено в 1 цвет делать?

AIclipboard - надстройка сохраняющая Clipboard в временный файл и импортирующая его. И, наоборот, экспортирующая в файл и засовывающая его в Clipboard (зависит от направления). Т.е. без импорта-экспорта не обходится. В свежих корелах можно вставлять скопированное из CorelDRAW в Illustrator, но...

Ну, это из древних закромов код (проапдейтил пост выше, не знаю, заметил ли ты изменения), через WinAPI работающий А так можно и свои инструменты делать. Например: Making a Zig Zag Tool for CorelDRAW and Corel DESIGNER - Docs & Tutorials - Developer Area - CorelDRAW Community, надеюсь там уже...

Угу. В зависимости от положения курсора. Там потом в Undo такая каша... Вот под руку попался чей-то моргающий пример без стирания: Public Type lpPoint x As Long y As Long End Type Public BC As Double, AC As Double, AB As Double Declare Function GetAsyncKeyState Lib "user32" (ByVal...

Некоторые рисуют-стирают, рисуют-стирают

А автор делал шрифт? Вектор тут лежит - Glamour Luxury Font Alphabet Set

Таки перешли?

Я давно принтеров новых не покупал. На чём сейчас новые лазерники, на pdf перешли?

Всем СПАСИБО!!!

var jointype = 2;//0 = Round, 1 = Bevel, >=2 = Miter

А на фотоувеличителе, никто аншарп маск не делал? Помню, в детстве развлекался.

https://forum.rudtp.ru/threads/kak-prostavit-razmery-u-vsex-obektov-srazu-dlina-shirina.75922/post-1206097

В свежих корелах Pointillizer есть

Можно при создании именовать объекты ActiveLayer.CreateArtisticText( 0, 0, "100").Name="Numb" И поиск проводить уже только среди именованных For Each t In ActivePage.Shapes.FindShapes("Numb")

Sub plus1() On Error Resume Next max = -100 For Each t In ActivePage.Shapes.FindShapes(, cdrTextShape) d = CInt(t.Text.Story) If d > max Then max = d Next t ActiveLayer.CreateArtisticText 0, 0, CStr(max + 1) End Sub

Про завершение уже написали, теперь чуть ускоримся. 1. Даблкликаем текст на рисунке - инструмент выделения автоматом переходит в текстовый режим. 1. Как вариант, вместо "Щелкаю по кнопке "Текст" на панели инструментов." - пользуемся клавиатурным сокращением F8, и в этом режиме кликаем текст...

Симметрия на головах скомпенсирована ассиметричным солнышком. А петли и хвосты уже как-то не очень. Но можно сказать, что тени - не тени, а рисунок на шкуре и почему бы ему не отзеркалится. Картинка вполне качественная, можно и не придираться. В общем сойдёт.

"Н.Б. Сонькин" из 9-го пункта не зацепится