Delphi визуалды программалау ортасы



бет75/97
Дата06.01.2022
өлшемі2,03 Mb.
#12435
1   ...   71   72   73   74   75   76   77   78   ...   97
Байланысты:
Delphi vizualdy programmalau ortasy

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. Жобаны сақтаңыз, сосын оны іске қосып, орындалуын тексеріп көріңіз.




Достарыңызбен бөлісу:
1   ...   71   72   73   74   75   76   77   78   ...   97




©emirsaba.org 2024
әкімшілігінің қараңыз

    Басты бет