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
|
|
| Spacing
|
|
| Margin
|
|
| Spacing
|
|
| SpeedButton1
| Properties
| GroupIndex
|
|
| 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).
Бақылау сұрақтары
1. Image және DBImage компоненттерін қалай ажыратуға болады?
2. Image компоненті қандай қасиеті бойынша суретті бейнелейді?
3. Суреттер редактор терезесін қалай ашуға болады?
4. Графикалық файлда Picture қасиетінен процедураның жүктелуін сипаттаңыз.
5. Image компонентінің басты қасиеттерін санап шығыңыздар.
6. Delphi қандай графикалық файлдарды форматы қабылдайды?
7. Графикалық объектілерді сақтау үшін кластарды санап беріңіз.
8. Суреттер редакторынан құралдарды белгідеуін сипаттаңыз.
9. Батырма үшін пиктограмма құру процедурасын сипаттап беріңіз.
Державний комітет зв’язку та інформатизації України
—————————————————
ОДЕСЬКА НАЦІОНАЛЬНА АКАДЕМІЯ ЗВ’ЯЗКУ ім. О. С. Попова
Кафедра обчислювальної техніки та мікропроцесорів
