контур, опис якого слідує за процедурою установки кольору кисті. Ellipse (x1, y1, x2, y2) - малює еліпс, заданий своїм описаним прямокутником з координатами протилежних вершин (x1, y1) і (x2, y2). Circle (x, y, r) - малює коло з центром в точці (x, y) і радіусом r. Arc (x, y, r, a1, a2) - Малює дугу кола з центром в точці (x, y) і радіусом r, укладеної між двома променями, що утворюють кути a1 і a2 з віссю OX (a1 і a2 - речові, задаються в градусах і відраховуються проти годинникової стрілки).
Кольори в PascalABC: чорний clPurple фіолетовий clWhite білий clMaroon темно-червоний clRed червоний clNavy темно-синій clGreen зелений clBrown коричневий clBlue синій clSkyBlue блакитний clYellow жовтий clCream кремовий clAqua бірюзовий clOlive оливковий clFuchsia бузковий clTeal синьо-зелений clGray темно-сірий clLime яскраво-зелений clMoneyGreen колір зелених грошей clLtGray світло-сірий clDkGray темно-сірий clMedGray сірий clSilver срібний Функції для роботи з кольором:
Тип кольору Color є синонімом System.Drawing.Color.
function RGB (r, g, b: byte): Color; Повертає колір, який містить червону (r), зелену (g) і синю (b) складові (r, g і b - в діапазоні від 0 до 255)
function ARGB (a, r, g, b: byte): Color; Повертає колір, який містить червону (r), зелену (g) і синю (b) складові і прозорість (a) (a, r, g, b - в діапазоні від 0 до 255)
function RedColor (r: byte): Color; Повертає червоний колір з інтенсивністю r (r - в діапазоні від 0 до 255)
function GreenColor (g: byte): Color; Повертає зелений колір з інтенсивністю g (g - в діапазоні від 0 до 255)
function BlueColor (b: byte): Color; Повертає синій колір з інтенсивністю b (b - в діапазоні від 0 до 255) clRandom: Color; Повертає випадковий колір
function GetRed (c: Color): integer; Повертає червону складову цветаGetGreen (c: Color): integer; Повертає зелену складову кольору
function GetBlue (c: Color): integer; Повертає синю складову кольору.
Властивості:
property Width: integer; Ширина рісунка.Height: integer; Висота рісунка.Transparent: boolean; Прозорість малюнка. Якщо Transparent=True, то при виведенні малюнка його фон не відображається. Фоновим вважається колір лівого нижнього піксела рісунка.NeedDestroy: boolean; Визначає, чи повинен малюнок руйнуватися при виклику деструктора і методу Load. NeedDestroy зазвичай встановлюється в False, якщо кілька об'єктів классаPicture поділяють один малюнок.
Методи:
procedure Load (fname: string);
Завантажує малюнок з файлу з ім'ям fname. Якщо NeedDestroy встановлено в True, то малюнок, що знаходився раніше в об'єкті Picture, руйнується. Малюнок з ім'ям fname шукається спочатку в поточному каталозі, а потім в підкаталозі Media Images каталогу програми PascalABC.exe.Save (fname: string);
Зберігає малюнок у файлі з ім'ям fname. Формат малюнка встановлюється розширенням імені файлу. Допустимі розширення: .bmp, .gif, .jpg, .png.Handle: integer;
Повертає описувач малюнка.
procedure Draw (x, y: integer);
Виводить малюнок у позицію (x, y) графічного вікна.
procedure Draw (x, y, w, h: integer);
Виводить малюнок у позицію (x, y) графічного вікна, масштабуючи його до розміру (w, h). Якщо w lt; 0 або h lt; 0, то виводиться дзеркальне відображення малюнка щодо вертікалоной або горизонтальної осі відповідно.
procedure Draw (x, y: integer; r: Rect);
Виводить частина малюнка, укладену в прямокутнику r, в позицію (x, y) графічного окна.Draw (x, y, w, h: integer; src: Rect);
Виводить частина малюнка, укладену в прямокутнику r, в позицію (x, y) графічного вікна, масштабуючи її до розміру (w, h).
procedure CopyRect (dest: Rect; p: Picture; src: Rect);
Копіює в прямокутник dest поточного малюнка частина малюнка p, укладену в прямокутнику src.FlipHorizontal;
Дзеркально відображає картинку відносно горизонтальної осі сімметріі.FlipVertical; Дзеркально відображає картинку щодо вертикальної осі симетрії.
Малювання графічних об'єктів
Малювання графічних об'єктів здійснюється пером і пензлем. Лінії, що обмежують об'єкти, малюються пером.
Дії з перомтекущая координата X ператекущая координата Y пераустановка кольору ператекущій колір пераперемещеніе перарісованіе відрізка від поточного положення пераустановка ширини ператекущая ширина пераустановка стилю ператекущій стиль пераус...
