Графикалық объекттің бетіне мәтін шығару үшін TextOut әдісі қолданылады. Осы әдістің шақыру нұсқауы жалпы жағдайда мынадай түрде болады:
Объект.Canvas. TextOut(x, y, Текст);
Мұндағы х, у – шығатын мәтіннің координат нүктелері; Текст – айнымалы немесе символдық типті тұрақты (шығарылатын мәтін).
TextOut әдісімен шығарылатын мәтін облысының оң жақ шекара координаттарын, PenPos қасиетін пайдыланып алуға болады, мысалы:
TextOut(PenPos.x, PenPos.y, (‘руб.’);
Қарапайым графиктерді сызу әдістері
LineTo әдісі түзуді қарандаштың ағымдағы орнынан координатасы көрсетілген нүктеге дейін сызады.
Объект.Canvas.LineTo(х, у);
MoveTo әдісі қарандашты белгіленген нүктеге апарады:
Объект.Canvas.MoveTo(х, у);
Ellipse әдісі эллипс сызады (жеке жағдайда, шеңбер – параметр мәндеріне тәуелді болады):
Объект.Canvas.Ellipse(x1, y1, x2, y2);
Мұндағы х1, у1, х2, у2 – ішіне эллипс сызылатын тіктөртбұрыш координаттары.
Arc әдісі доға сызады:
Объект.Canvas.Arc(x1, y1, x2, y2, х3, у3, х4, у4);
Мұндағы х1, у1, х2, у2 – эллипс параметрлері, эллипс бөлігі яғни сызылатын доға болады.
Rectangle әдісі тіктөртбұрыш сызады:
Объект.Canvas.Rectangle (x1, y1, x2, y2);
Мұндағы х1, у1 және х2, у2 – сол жақ үстінгі және оң жақ астынғы тіктөртбұрыш бұрыштарының координаттары.
FillRect әдісі Brush.Color қасиеті арқылы берілген түсімен тіктөртбұрышты бояйды. Бұл әдістің бір ғана параметрі бар, бұл структуранының TRect типі. Мысалы:
var
R :Rect(20, 20, 150, 150);
with Canvas do
begin
Brush.Color:=clRed;
FillRect(R);
end;
end;
Canvas объектінің қасиеттері
Айтып кеткендей, программа орындайтын графиктерді бетке шығару үшін Canvas қасиеті келеді. Canvas объектісінің Pixels қасиетін пайдалана отырып, графикалық беттің кез келген нүктесін қажетті түске бояуға болады. Мысалы, нұсқауы
Form1.Canvas.Pixels[10, 10] :=clRed;
форм бетіндегі нүктені қызыл түске бояйды.
Мысал1. Форма бетіне олимпиядалық жалау суретін салайық. Объектіні Image компонентінің үстіне шығарамыз. Формаға Image, button1 компоненттерін орналастырамыз. Button1 компонентінің Caption қасиетіне «сурет салу» мәнін енгіземіз. Button1 компонентінің Onclick оқиғасын құрамыз. Коды:
procedure TForm1.Button1Click(Sender: TObject);
begin
with Image1.canvas do
begin
pen.Width:=1;Pen.Color:=clblack;
brush.Color:=clcream;Rectangle(30,30,150,115);
pen.Width:=2;brush.Style:=bsclear;
Pen.Color:=clblue;ellipse(40,40,80,80);
Pen.Color:=clblack;ellipse(70,40,110,80);
Pen.Color:=clred;ellipse(100,40,140,80);
Pen.Color:=clyellow;ellipse(55,65,95,105);
Pen.Color:=clgreen;ellipse(85,65,125,105);
end;
end;
Функциялардың графиктері мен диаграммаларын сызу
Sin (K* pi/10 ) функциясы берілген, K=0…20. Функцияның графигін салайық (4 - сурет).
Функцияның графигін сызу үшін
Chart1.SeriesList[0]. AddXY(k,
( sin(k*pi/10)),' ', clGreen) оперторын қолдануға болады.
unit Graf_sin_s;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
TeEngine, Series, ExtCtrls, TeeProcs, Chart;
type
TForm1 = class(TForm)
Chart1: TChart;
Series2: TLineSeries;
procedure FormActivate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormActivate(Sender: TObject);
var k: integer;
begin
for k:=0 to 20 do
C hart1.SeriesList[0]. AddXY(k,(sin(k*pi/10)),' ', clGreen);end; end.
Синус функциясының графигі
ІІ. Мультимедиалық мүмкіндіктер
TMediaPlayer - компоненті әртүлі мультимедиялық құрылғылардан: компакт дискілері, дыбыстық карталары және т.б. тұрады. TmediaPlayer компонентінің бірнеше батырмалары бар, олар өздеріне тиісті қызметтерін атқарады.
Windows жүйесінің бүкіл қосымшаларында өзінің дербес менюі болады. Меню қолданушылық интерфейсінің тараған түрінің бірі, ол функциональды қасиеттері бойынша біріктірілген пункттер тізімі болып келеді, олардың әрқайсысы команда немесе іштей менюді көрсетеді. Қосымшада бір басты меню және бірнеше контекстік меню болады. Негізгі меню бүкіл қосымшаны басқаруға, контекстік менюдің әрқайсысы жеке интерфейстік элементі басқаруға арналған.
2.1. Animate компоненті
Animate компоненті Win32 парағында орналасқан, ол кадрлары AVI-файлында орналасқандар үшін анимацияны шығаруға мүмкіндік береді.
Animate компонентінің белгісі
Animate компоненті формаға әдеттегідей қосылады. Компонентті формаға орналастырғаннан кейін оның қасиеттерін қою керек:
Animate компонентінің қасиеттері
|
Қасиет
|
Қызметі
|
|
|
Name
|
Компоненттің аты.
|
|
|
FileName
|
Компоненттің көмегі арқылы бейнеленетін анимация орналасқан AVI-файлының аты.
|
|
|
StartFrame
|
Анимацияның бейнеленуі басталатын кадрдың нөмірі
|
|
|
stopFrame
|
Анимацияның бейнеленуі аяқталатын кадрдың нөмірі
|
|
|
Activate
|
Анимация кадрларының бейнелену процессінің активтену белгісі
|
|
|
Color
|
Анимация іске қосылатын компоненттің фонының түсі
|
|
|
Repetitions
|
Анимацияның қайталану саны
|
|
|
|
|
|
Чтобы увидеть, что находиться в AVI-файлда не нәрсе бар екендігін көру үшін Windows-тан қажетті буманы ашып AVI-файлын көрсетіп жанама менюден Свойства командасын таңдап алу керек:
Достарыңызбен бөлісу: |