http://sfsys.ru/index.php?action=history&feed=atom&title=Picture.Copy 2026-04-04T22:20:39Z Revision history for this page on the wiki MediaWiki 1.31.1 http://sfsys.ru/index.php?title=Picture.Copy&diff=1714&oldid=prev 2021-02-07T06:52:17Z

<p>1 revision imported</p> <table class="diff diff-contentalign-left" data-mw="interface"> <tr class="diff-title" lang="en"> <td colspan="1" style="background-color: #fff; color: #222; text-align: center;">← Older revision</td> <td colspan="1" style="background-color: #fff; color: #222; text-align: center;">Revision as of 06:52, 7 February 2021</td> </tr><tr><td colspan="2" class="diff-notice" lang="en"><div class="mw-diff-empty">(No difference)</div> </td></tr></table>

Admin http://sfsys.ru/index.php?title=Picture.Copy&diff=1713&oldid=prev 2020-03-05T11:30:42Z

<p>Created page with &quot;{{infobox function |name=Copy |object=<a href="/index.php/%D0%9A%D0%B0%D1%80%D1%82%D0%B8%D0%BD%D0%BA%D0%B0" title="Картинка">Картинка</a> |caption=Копия картинки |type=1 |status=2 |db=0 |exception=Пустая картинка |visual=0}} {{...&quot;</p> <p><b>New page</b></p><div>{{infobox function<br /> |name=Copy<br /> |object=[[Картинка]]<br /> |caption=Копия картинки<br /> |type=1<br /> |status=2<br /> |db=0<br /> |exception=Пустая картинка<br /> |visual=0}}<br /> {{HeadLinks|<br /> * [[Main_Page|Начальная страница]]<br /> * [[Общее_описание_языка|Общее описание]]<br /> * [[Объекты]]<br /> * [[Картинка]]}}<br /> Функция создает копию содержимого картинки аргумента. Если картинка хранится в формате, отличном от ''BMP'' 8 или 32-бит, такая операция может занять достаточно много времени. В случае форматов 8 или 32-бит ''BMP'', копия будет создана максимально быстро.<br /> <br /> == Синтаксис ==<br /> &lt;code&gt;<br /> {{Grey|Picture.}}'''Copy'''():''&lt;Новый объект - копия картинки (PICTURE)&gt;''<br /> &lt;/code&gt;<br /> <br /> ==== Возвращаемое значение ====<br /> Возвращает новый объект картинки, имеющей такой же формат и содержимое, как и исходная.<br /> <br /> == Примеры ==<br /> &lt;pre&gt;<br /> //Создадим картинку 1000 на 1000.<br /> aPic:=Picture.Create(1000,1000,toRgb(255,255,255),32);<br /> //Выведем 20000 случайных линий, случайной толщины, имеющими альфа 50%<br /> randomize;<br /> for i:=0 to 20000 do<br /> aPic.Line(random(1010)-5,random(1010)-5,random(1010)-5,random(1010)-5,toRgb(random(256),random(256),random(256)),Random(15)+1,1,500);<br /> enddo;<br /> //Создадим копию картинки<br /> aPic2:=aPic.Copy();<br /> //Добавим к рисунку радиально-исходящие красные линии<br /> for i:=0 to 35 do<br /> x:=sin(radians(i*10))*450+500;<br /> y:=-cos(radians(i*10))*450+500;<br /> x2:=sin(radians(i*10))*100+500;<br /> y2:=-cos(radians(i*10))*100+500;<br /> aPic2.Line(x2,y2,x,y,toRgb(i/35*255,0,0),10,1,1000);<br /> Enddo<br /> <br /> //Сохраним первую картинку в файле Result.bmp<br /> aPic.Save(&quot;c:\Result.bmp&quot;);<br /> //Сохраним вторую картинку в файле Result2.bmp<br /> aPic.Save(&quot;c:\Result2.bmp&quot;);<br /> &lt;/pre&gt;</div>

Admin