11-сурет
2. Суретті тышқанмен шерткенде сұхбат терезесі пайда болады.
3. Осы ашылған сұхбат терезеде кезкелген суретті таңдаңыз.
12- сурет
4. Бағдарламадан шығу үшін тышқанмен тақырып жолындағы жабу батырмасын шерту қажет.
Бағдарламаны іске асыру жоспарының сипаттамасы
1. Жаңа жоба ашу.
2. Пішінге мына компоненттерді: Panel жақтауын, Image суретін, OpenDialog сұхбат терезесін орналастыру.
3. Мына кестеде көрсетілген әрекеттерді орындау:
5 - кесте
Белгі-ленген нысан
|
Object Inspector терезесінің астары
|
Қасиеттің аты/ Оқиғаның аты
|
Атқарылатын әрекет
|
Forml
|
Properties
|
Caption
|
Пішінге «Альбом» атын орнату
|
Panell
(Standard астары)
|
Properties
|
Caption
|
Caption қасиетінің мәнін тазарту
|
BevelOuter
|
Ашылған тізімнен bvLowered мәнін таңдау
|
BevelInner
|
Ашылған тізімнен bvNone мәнін таңдау
|
BewelWidth
|
2 мәнін меншіктеу
|
Width
|
241 мәнін меншіктеу
|
Height
|
185 мәнін меншіктеу
|
Imagel
(Additional астары)
|
Properties
|
Left
|
2 мәнін меншіктеу
|
Top
|
2 мәнін меншіктеу
|
Width
|
237 мәнін меншіктеу
|
Height
|
181 мәнін меншіктеу
|
Stretch
|
True қасиетін қосу
|
Picture
|
Құрушы батырма көмегімен Picture Editor (Кескін редакторы) сұхбат терезесін ашу. Load (Жүктеу) батырмасын шерткенде - Load Picture (Суретті жүктеу) сұхбат терезесі ашылады. C:\Windows бумасын ашып және одан ... файлды таңдап,
Ашу/Открыть батырмасын шерту. Сурет редакторы терезесіне оралып, ОК батырмасын шерту.
|
Image1.Picture.LoadFromFile (OpenDialog1.FileName);
|
Events
|
OnClick
|
OpenDialog1.Execute;
|
OpenDialog1
(Dialogs астары)
|
Properties
|
Title
|
"Кескінді таңдау" мәтінін енгізу
|
FileName
|
Файлға апаратын жолды толық енгізу: C:\Windows\Pec.bmp
|
Filter
|
Мәтін енгізу: Растрлық кескін
|
DefaultExt
|
Қасиетіне: .bmp мәнін меншіктеу
|
Options
|
ofFileMustExit ішкі қасиетіне (Файл бар болуы қажет) True мәнін меншіктеу
|
4. Жобаны сақтаңыз, оны іске қосып, орындалуын тексеріп көріңіз.
Ішкі бағдарламаның листингі:
procedure TForm1.Image1Click (Sender: TObject); begin
OpenDialog1.Execute;
Image1.Picture.LoadFromFile (OpenDialog1.FileName); end;
№7. Мәзірмен /Менюмен/ жұмыс
Жұмыстың мақсаты – мына әрекеттерді орындайтын бағдарлама құру:
1. Бағдарлама іске қосылғанда терезеде мәзір жолы (Файл, Шығу) бейнеленеді.
13-сурет
2. Файл мәзірі пунктін таңдаған кезде мәзірдің (Суреттер, Шығу)
пункттері пайда болады. 14-сурет
3. Суреттер мәзірі пунктін таңдаған кезде екі пункттен (Ата-ана, АӘД сабағы) тұратын ішкі мәзір көрінеді.
4. Тышқанның оң жақ батырмасын шерткенде контекстік мәзір шығады.
5. Пункттер бойынша басқа сурет таңдау.
6. Бағдарламадан шығу үшін тышқанмен тақырып жолындағы жабу батырмасын шерту қажет.
7. Егер Шығу пунктінің қайсысын таңдасаңыз да, бағдарлама жұмысы аяқталады.
Бағдарламаны іске асыру жоспарының сипаттамасы
1. Жаңа жоба ашу.
2. Пішінге мына компоненттерді: Panel жақтауын, Image суретін, OpenDialog сұхбат терезесін орналастыру.
3. Мына кестеде көрсетілген әрекеттерді орындау:
6 - кесте
Белгі-ленген нысан
|
Object Inspector терезесінің астары
|
Қасиеттің аты/ Оқиғаның аты
|
Атқарылатын әрекет
|
Forml
|
Properties
|
Caption
|
Пішінге «Менің мәзірім» атын орнату
|
Events
|
OnMouseDown
|
Var p:TPoint; begin
p.X :=X;
p.Y :=Y;
p := ClientToScreen (p); PopupMenu1.Popup (p.X, p.Y); end;
|
Мәзір редакторын іске қосу (пішіндегі мәзір белгісін екі рет шерту)
|
Forml.MainMenul
|
Properties (Object Inspector терезесінде ешбір нысан таңдалмаған)
|
Caption
|
Мәзір пунктіне - Файл мәтінін енгізіп, сосын Enter-ді басу. Жүйе оған N1 атын меншіктейді.
|
Мәзірдің бұрыннан бар және енді жасалған пункттерінің бірінен-біріне тышқанды шерту арқылы немесе курсорлық пернелердің көмегімен ауысуға болады.
|
Forml.MainMenul
|
Properties
|
Caption
|
Мәзір пунктіне - Шығу мәтінін енгізіп, сосын Enter-ді басу. Жүйе оған N2 атын меншіктейді.
|
Events (Мәзір жолындағы Шығу пункт-інде шерту)
|
N2Click
|
Close;
|
Файл пунктінде шертіңіз. Мәзір редакторы осы пункт ішінен тағы бір дайындама әзірлеп қойды. Бұл дайындама жұмыс істеп тұрған бағдарламаның Файл пунктін таңдаған кезде ашылатын мәзірге арналған. Дайындамаларды пайдаланып, осы мәзірден мынадай екі пункт құрыңыз: Суреттер (система оған N3 атын меншіктейді) және Шығу (N4). Мәзір редакторында Суреттер пунктін таңдап, сосын Ctrl + Оңға пернелерін бірге басыңыз.
|
N4: TMenuItem
|
Events
|
OnClick
|
Ашылатын тізімнен бұрыннан бар N2Click өңдеуіш-процедураны таңдаймыз
|
Forml.MainMenul
|
Properties
|
Caption
|
Мәзір пунктіне – Ата-ана мәтінін енгізіп, сосын Enter-ді басу. Жүйе оған N5 атын меншіктейді.
|
N5: TMenuItem
|
Events (Пішіндегі Ата-ана пунктіндегі мәзір жолынан таңдау)
|
OnClick
|
Image1.Picture.LoadFromFile('C:\Documents and Settings\М±ратбек\Мои документы\Мои рисунки\Atanam.bmp');
|
Forml.MainMenul
|
Properties
|
Caption
|
Мәзір пунктіне – АӘД сабағы мәтінін енгізіп, сосын Enter-ді басу. Жүйе оған N6 атын меншіктейді.
|
N6: TMenuItem
|
Events (АӘД сабағы пунктіндегі мәзір жолынан таңдау)
|
OnClick
|
Image1.Picture.LoadFromFile ('C:\Documents and Settings\М±ратбек\Мои документы\Мои рисунки\NvpSp1.bmp');
|
Мәзір редакторының терезесін жауып, енді мәзір жолы бағдарлама-ның бас Пішінінде пайда болатындығына көз жеткізіңіз.
|
PopupMenu
(Standard астары)
|
Properties
|
Caption
|
Мәзір пунктіне – Ата-ана мәтінін енгізіп, сосын Enter-ді басу. Жүйе оған N7 атын меншіктейді.
|
Caption
|
Мәзір пунктіне – АӘД сабағы мәтінін енгізіп, сосын Enter-ді басу. Жүйе оған N8 атын меншіктейді.
|
N7
|
Events
|
OnClick
|
Ашылатын тізімнен бұрыннан бар N5Click өңдеуіш-процедураны таңдаймыз
|
N8
|
Events
|
OnClick
|
Ашылатын тізімнен бұрыннан бар N6Click өңдеуіш-процедураны таңдаймыз
|
Image
(Additional астары)
|
Properties
|
Stretch
|
True мәнін меншіктеу
|
4. Жобаны сақтаңыз, сосын оны іске қосып, орындалуын тексеріп көріңіз.
Достарыңызбен бөлісу: | 
