Тілдер және бағдарламалау технологиясы

№ 18 зертханалық жұмыс

Графикалық бейнелерді құру

Орындау уақыты: 2 сағ

Рейтинг : 1 балл

Жұмыстың мақсаты:

Қосымшадағы дайын файлды, оларды редакторлау және графикалық бейнелерді құру арқылы қолдану.

Орындалу тәртібі:

1-кезең. Delphi жүктеу

1. Delphi жүктеңіз (Пуск – Программы – Borland Delphi 7 – Delphi 7).

2-кезең. Image компонентімен жұмыс

1. Image компонентін формаға қойыңыз.

2. Инспект объек терезесіндегі Свойства (Properties) бөлімінен Picture қасиетінен көп нүктені шертіңіз немесе Image1 компонентіне екі рет шертіңіз. Пайда болған Picture Editor терезесі Picture қасиетіне қандай да бір графикалық файл (Load батырмасы) жүктеуге мүмкіндік береді және де жаңа каталогте немесе жаңа ат беру арқылы ашылған файлды сақтау.

3. Графикалық файлды жүктеу үшін Load батырмасына шертіңіз. Пайда болған Load Picture терезесіне курсорды қойылуы В появившемся окне Load Picture өлшеммен тізімде курсор ауыспалылықтары графикалық файлдармен құқықпен терезеде сурет ұстаушы оларға суреттеледі, ал олардың - цифрдың , суреттер мөлшер сипаттайтын. Сіздер Images каталогінен графикалық файлдарды таба (…\Program files \ Common Files \ Borland \ Borland Shared).

4. Файлды жүктеп болған кейін ОК батырмасына шертіңіз.

5. Қосымшаны орындауға жіберіңіз.

3-кезең. Image компонентінің қасиеттерін өзгерту

1. Image1 компоненті үшін AutoSize қасиетінен true орнатыңыз, Image1 компонентінің өлшемі бейнеге автоматты түрде орналасады.

2. Сурет мөлшерінің астына айдау үшін компонент емес, ал сурет мөлшердің астына компонентті , Stretch қасиеті қолданылады. AutoSize қасиетінен false орнатыңыз, Image1 компонентін созыңыз және қысыңыз және Stretch қасиетінен true орнатыңыз. Суретіңіз бұрмаланды ма?

3. Формаға тағы бір Image компонентін орналастырыңыз және соған басқа суреттермен толтырыңыз, мысалы, стрелка (…\Program files \ Common Files \ Borland \ Borland Shared \ Images \ Buttons \ arrow1r.bmp).

4. Image1 және Image2 компонентерін ығыстырыңыз, яғни бірін-бірі жасырып тұратындай етіп қойыңыз.

5. Жоғарғы компонентке Transparent (прозрачность) қасиетіне true орнатыңыз.

6. Қосымшаны орындауға жіберіңіз. Жоғарғы сурет астынғы суретті кедергі келтірмеу үшін назар аударыңыз. Бір олардың қасиет мүмкін қолдануларының жазулардың суретіне Transparent - салу , орындалған түрінде - матрицаның , Image Editor (матрица тек қана Transparent қасиеті іс істейді).

7. OpenPictureDialog компоненті түрге апарыңыздар, орналасқан Dialogs қосымшасында және ашу шамданған диалогтық терезесі және бейнелеу алдын ала қарауының , сонымен қатар бүркеншектегі шегені , қарау іске қосатын , немесе меню жалғыз бөліммен файл. Бүркеншектегі шегеде немесе оператор келесі меню бөлімінде шерту өңдеушісінде жазыңыздар :

if OpenPictureDialog1.Execute then Image1.Picture.LoadFromFile (OpenPictureDialog1.FileName);

8. Қосымшаны орындаңыздар және жұмыста оны тексеріңіздер. Назарды ықылас білдіріңіздер, не әртүрлі мөлшерлердің бейнелеулері және олардың жайы түрде немесе олар терезеде орналаса бастамайды .

9. Қосымшаны жабыңыздар және келесі өзгерту оған салыңыздар : 1 қасиет бірдей true AutoSize Image компонентінде орнатыңыздар, ал келтірілген дәл осылай ертерек оператор өзгертіңіздер :

if OpenPictureDialog1.Execute then

begin

Image1.Picture.LoadFromFile (OpenPictureDialog1.FileName);

Form1.ClientHeight := Image1.Height + 10;

Image1.Top := Form1.ClientRect.Top + (Form1.ClientHeight – Image1.Height) div 2;

Form1.ClientWidth := Image1.Width + 10;

Image1.Left := Form1.ClientRect.Left + (Form1.ClientWidth – Image1.Width) div 2;

end;

10. Қосымшаны жіберіңіздер және көзі жетесіздер не өте жақсы бейнелеулердің әртүрлі мөлшерлері жанында қосымша көрінеді .

4-кезең. Батырма үшін пиктограмманы құру

1. Бейнелеулердің - Image Editor қоса салынған редакторын ашыңыздар, Tools - Image Editor командасымен шақырылады

2. Биталы файл матрицаны құрыңыз (File – New – BitMap File (.bmp) және ашылған терезеге өлшем 64х16 беріңіз.

3. 4 квадратқа бейнелеуді сындырыңыздар, ақ рамкалармен бөлінгендердің бір пикселге және жүйелілікте олардың бояңыздар сол жағында оңға гүлдермен қызыл, сұр, сары және жасылмен. Үшін мынаның Zoom аспабын таңдаңыздар және ақ тікбұрыш сол жоғарғы бұрышына курсорды орнатыңыздар, тышқан сол бүркеншектегі шегесін басыңыздар және оң төменгі бұрышқа созыңыздар. Жұмыс істеу мыналар жанында мүмкіншілік көрінеді пикселаді бөлектермен.

4. Filled rectangle аспабын таңдаңыздар және , мөлшерлер алдын ала есептеп , 4 суретін салыңыздар симметриялы және біркелкі таратылғандардың тікбұрыштың , қалдыра айнала әрбірдің бір пиксел ақ рамканы оларды.

Назарды ықылас білдіріңіздер анау, не пикселмен сол төменгі түс сұрау қояды «мөлдірліктің» т.с.с. түс бүркеншектегі шеге беттері түспен ауыстырылады, және сондықтан егер сіздер рамканы бермесеңіздер, онда квадрат бүркеншектегі шегеде белгілі болмайды .

5. Құрылған файлды сақтаңыз.

6. Пиктограмманы қарау үшін қосымша құрыңыз.

7. Формаға үш батырма енгізіңіз: SpeedButton, BitBtn және Button.

8. Келесі әрекеттерді орындаңыз:

Белгіленген объект	Object Inspector	Қасиеттің және оқиғаның аты	Орындалатын амалдар
SpeedButton1 BitBtn1	Properties	Gliph	загрузите ваш файл пиктограмм
		NumGliph	4 (убедиться)
		Margin	0
		Spacing	15
		Margin	7
		Spacing	5
SpeedButton1	Properties	GroupIndex	1
		AllowAllUp	True
BitBtn1	Properties	Caption	BitBtn
Button1	Events	OnClick	SpeedButton1.Enabled := not SpeedButton1.Enabled; BitBtn1.Enabled := not BitBtn1.Enabled;

9. Қосымшаны жіберіңіздер және көзі жетесіздер, не қызыл пиктограмма сығылған күй-жағдайында болады, кезеңге басулар - сарылармен, жасыл SpeedButton басылған бүркеншектегі шегелері пиктограмма түсі болады, ал қол жетпеулерді бүркеншектегі шегелерде - сұр.

10. Жұмыс нәтижелерін оқытушыға көрсетіңіздер.

Өздік жұмыс

1. Пиктограмма файлына өзгертулерді салыңыздар, тікбұрыштарға қосымша элементтер қосып. Нәтижені оқытушыға көрсетіңіздер.

2. Бейнелеулердің редакторында суретін салыңыздар (Resource – New – Cursor) жаңа стандарттысыз курсор және қорлардың файлына оның қосыңыздар (. res ) сіздердің жобаңыздың (с помощью функции LoadCursor в свойстве Cursors компонента Screen).