Зертханалық жұмыс №17 Canvas құралымен сурет салу



жүктеу 83,77 Kb.
Дата13.02.2022
өлшемі83,77 Kb.
#35761
Зертханалық жұмыс 17


Зертханалық жұмыс № 17

Canvas құралымен сурет салу
Жұмыстың мақсаты: қарапайым графикалық фигураларды жасау. Delphi Animate компонентімен танысу, оның мақсаты және қосымшадағы қолдану мүмкіндігі.

Сұрақтар:

1. Paintbox Компоненті

2. Delphi Animate Компоненті


Теория

Delphi PaintBox компоненті System компоненттер палитрасы бетінде болады. Ол еркін суреттерді салуға болатын арнамен қарапайым терезені білдіреді.



Тапсырма. PaintBox компонентін пішінге орналастырамыз. Ені (Width) 353 пикселді орнатамыз,



ал биіктігі (Height) – 337.
Канва (кенеп) Canvas компонентінің қасиетінде бар. Суреттің өзі onPaint оқиғасын өңдеуде бағдарламаланады.

Onpaint өңдеуші:


Бірінші жол толтыру түсін анықтайды:

Brush.Түсі: = clRed;

Екіншісі эллипстің бөлігін салады:

Pie(12,100,140,280,12,100,140,280);

Келесі жолдар қалам параметрлерін (фигуралардың жиегі қандай болады), ені, түсі мен мәнерін көрсетеді:

Pen.Width := 4;

Pen.Түсі: = clGreen;

Pen.Style: = psDash;

Бірақ бұл жағдайда біз бір тұтас сызықты көреміз, өйткені бір пикселдің қалыңдығы pssolid болады (тұтас).

Квадратты салу үшін келесі жол жауап береді:

Rectangle (120,60,Width,Height);

Қызыл жұлдызшаны төмендегі команда салады:

Polyline([Point(40, 10), Point(20, 60), Point (70, 30),

Point( 10, 30), Point (60, 60), Point(40, 10)]);

Мәтінді шығару үшін соңғы жол жауап береді:

TextOut (75,20,'мұнда мәтін болуы мүмкін!');










Delphi Animate Компоненті
Delphi Animate компоненті Win32 компоненттер палитрасы бетінде орналасқан.

Ол AVI форматындағы бейнелер анимациясын (дыбыссыз) ойнатуға мүмкіндік береді, олардың көлемі 64 Кбайт-дан артық емес және онда бейне қысылмау керек. Өзі бейне клип сақталмайды қосымшасымен бірге, сондықтан бағдарламасын іске қосқанда Сіз білуі тиіс, бұл файл клип бар диск.

Клип файлы FileName сипаттамасымен жүктеледі, онда аты көрсетіледі .AVI файл.



2 тапсырма. Animate компоненті бар қосымшаны жасау

Мұндай қосымшаны жасаңыз.

Формада 4 Button түймелер және 2 animate компоненті орналастырамыз.

Animate бірінші компонентін таңдаңыз. Оның FileName қасиетін тауып, үш нүктелі белгішені басыңыз.



Cool файлын табыңыз.AVI келесі жолмен:

C:\Program Files\Borland\ Delphi7\Demos\ CoolStuf \cool.avi. Содан кейін « Ашу « түймешігін басыңыз.



Пішінде суретте көрсетілген сурет болуы керек:

Button 1 ең жоғарғы батырмасы Caption – Старт және өңдеуші:

Екінші батырма Button 2 Caption – тоқтату және өңдеу:

Animate екінші компоненті үшін CommonAVI қасиеті – aviFindFolder.




Ең жоғарғы түймені Caption – Старт және өңдеуші:
procedure Tform1.Button1Click(Sender: Tobject);

begin


Animate1.Active: = true;

end;
Екінші батырманы Caption – тоқтату және өңдеу:

procedure Tform1.Button2Click(Sender: Tobject);

begin


Animate1.Active: = False;

end;
Екінші түйменің төменгі жағында Caption-Старт және өңдеуші:


procedure Tform1.Button3Click(Sender: Tobject);

begin


Animate2.Play (1, Animate2.FrameCount, 0);

end;
Caption – Стоп және өңдеуші ең төменгі түйме үшін:


procedure Tform1.Button4Click(Sender: Tobject);

begin


Animate2.Stop;

end;


Нәтижесінде бағдарлама суретте көрсетілгендей көрінеді. Қолданбаны іске қосыңыз. Испытайте оның.

Бақылау сұрақтары:

1. Paintbox компоненті не үшін арналған?

2. Delphi Animate компоненті не үшін арналған ?


Есепті ресімдеу:

Жұмыс нәтижесін міндетті түрде келтірілетін Mword бағдарламасының көмегімен есеп түрінде ресімдеу:

● бағдарлама скриншоты;

● бағдарлама листингі



● бағдарламада зертханалық жұмыстың нөмірі мен атауы, студенттің аты-жөні, топ Атауы болуы тиіс.
жүктеу 83,77 Kb.

Достарыңызбен бөлісу:




©g.engime.org 2024
әкімшілігінің қараңыз

    Басты бет
рсетілетін қызмет
халықаралық қаржы
Астана халықаралық
қызмет регламенті
бекіту туралы
туралы ережені
орталығы туралы
субсидиялау мемлекеттік
кеңес туралы
ніндегі кеңес
орталығын басқару
қаржы орталығын
қаржы орталығы
құрамын бекіту
неркәсіптік кешен
міндетті құпия
болуына ерікті
тексерілу мемлекеттік
медициналық тексерілу
құпия медициналық
ерікті анонимді
Бастауыш тәлім
қатысуға жолдамалар
қызметшілері арасындағы
академиялық демалыс
алушыларға академиялық
білім алушыларға
ұйымдарында білім
туралы хабарландыру
конкурс туралы
мемлекеттік қызметшілері
мемлекеттік әкімшілік
органдардың мемлекеттік
мемлекеттік органдардың
барлық мемлекеттік
арналған барлық
орналасуға арналған
лауазымына орналасуға
әкімшілік лауазымына
инфекцияның болуына
жәрдемдесудің белсенді
шараларына қатысуға
саласындағы дайындаушы
ленген қосылған
шегінде бюджетке
салығы шегінде
есептелген қосылған
ұйымдарға есептелген
дайындаушы ұйымдарға
кешен саласындағы
сомасын субсидиялау