Зертханалық жұмыс № 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 бағдарламасының көмегімен есеп түрінде ресімдеу:
● бағдарлама скриншоты;
● бағдарлама листингі
● бағдарламада зертханалық жұмыстың нөмірі мен атауы, студенттің аты-жөні, топ Атауы болуы тиіс.
Достарыңызбен бөлісу: |