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

жүктеу/скачать 1,51 Mb.

бет	74/98
Дата	07.02.2022
өлшемі	1,51 Mb.
	#85980

1 ... 70 71 72 73 74 75 76 77 ... 98

Байланысты:
Delphi

7. Мәзірмен /Менюмен/ жұмыс

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 бумасын ашып және одан ... файлды таңдап, Ашу/Открыть батырмасын шерту. Сурет редакторы терезесіне оралып, ОК батырмасын шерту.
		Picture	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. Бағдарлама іске қосылғанда терезеде мәзір жолы (Файл, Шығу) бейнеленеді.

жүктеу/скачать 1,51 Mb.

Достарыңызбен бөлісу:

1 ... 70 71 72 73 74 75 76 77 ... 98