Көрсеткіші алғашқы формасына өткізу үшін праграмма соңына

Көрсеткіші алғашқы формасына өткізу үшін праграмма соңына

аперапторын енгізу керек.

Көрсеткішті стандартты емес түрде колдан суретін салып дайындауға болады. Жаңа ашып, Тools-ImageEditor (Сервис-сурет редакторы) командасын, көрінген терезеде File-New- Resource File [.res] (Файл-жаңа- ресурстық файл) командасын беру. Res кеңейтілуімен жазылатын ресурстық файлдарды құру терезесі ашылады;

Терезені оң түймемен шертіп, көрінген контексті мәзірден New-Cursor командасын беру. Терезенің Contentes бөлімінде Cursor белгішесі құрылып, оған Cursor1файылы жазылып қойылады.

Контексті мәзізді пайдаланып не Resource – Rename командасын беріп, Cursor1 атауын бас әріптермен жазылған басқа атауға өзгерту (мысалы, MYCURSOR);

Көрсеткіш мөлшерін белгілеу. Ол үшін терезенің оң белдеушесін шертіп, контексті мәзірден SetHotsPot не Cursor SetHotsPot командасын беру курсор атауын екі рет шертіп, MYCURSOR терезесін ашу және Cursor – SetHotsPot командасын беру. Ашылған сухбаттық терезенің Horisontal[x], Vertical[x] өрісіне сәйкес мәндер енгізіп (мысалы 8 және 6), ОК түймесін шерту. Одан әрі терезе қолдан көрсеткіш суретін салып шығуға болады.

Қолдан көрсеткіш салынатын терезе

Жаңа проект формасының Oncreate оқиғасын өңдеуші құру (алдымен мұнда {$R *7DFM} қатарының соңына {$R Volk.res}қатары жазылуы тиіс. Ол Volk.res файлын программаның ресурстық файлына қосып қояды):

{$R Volk7res}

Porcedure Tform1.FormCreate (Sender : Tobject);

Begin

Screen.Cursors[1];= LoadCursor(Hinstance,”MYCURSOR”);

Cursor: =1;

End;
Программаны іске қосқан соң формада стандартты емес көрсеткіш көрінеді(Screen.Cursor индексі кез келген Integer типті мән болуы мүмкін).

Жоспар:

2. Типтік файл операторлары

3. Типсіз файлдар жөнінде
1. Файл. Файл типтері

Сыртқы жадтың ( дискінің не дискеттің) атау берілген облысын файл не дискілік файл деп,дискіге жазылатын информацияны берілгендер файлы (БФ) деп атайды. БФ- ке мысал ретінде мынадай тізім алуға болады:

2. Оралханұлы Ержан 1977 қазақ

3. Нұрғалиқызы Жәмила 1978 қазақ

(тізім кез келген n- жолдан тұруы мүмкін).

Тізімнің әр жолында бір адам жөніндегі мәлімет берілген.

Ол сандық және мәтіндік болатын түрлі типті торт мәннен тұр. Мұндай мәліметті берілгендер файлының элементі деп атайды. Элемент жол не жазу деп те аталады; жол құрайтын мәндер өріс элементтері делінеді. Яғни,тізімнен тұратын берілгендер файлы - жолдар жиынтығы, әр жол- файлдың бір элементі. Берілген тізімде әр жол төрт өріс элементінен, ал файл үш элементтен және оларға сәйкес төрт бағаннан тұр. Өріс элементтері:

Мұндай құрылымға жаңа өрістерді қосу да мүмкін, мысалы, “Үй адресі, телефон нөмірі”, т.б.

БФ дискіге әріптен басталатын 1-8 символдан тұруы мүмкін жеке атау арқылы тиелуі тиіс, атаудың проект атынан бөлек болуы міндетті.

Ескерту.Кейде дискілік файл мен БФ- ті де файл деп атай береді. Оларды сөйлем құрылымына қарап ажырату қиын емес.

БФ-пен жүргізілуі мүмкін жұмыстар:

• 
  файлды дискіге тиеп, сақтау (қажет болса, бір баған бойынша сорттап, тиеуге болады);
  
• 
  оны экранға шығару не принтер арқылы қағазға басу;
  
• 
  бір не бірнеше белгі бойынша нақты жолын не жолдарын заңды, экпанға шығарып көру.Оны редакциялап, дискіге қайта тиеу;
  
• 
  файлдың бір не бірнеше жолын алып тастау не файлға жаңа жол қосу, т.б.
  

Файл үш түрде сипатталуы мүмкін: типтік, мәтіндік және типсіз форматта. Сипаттау тәсілдері:

Мұндағы <атау> - тип атауы, <тип> - Object Pascal-дың кез келген сәйкес типі. Мысалы, жоғарыда жазылған тізім үшін берілгендер типін мынадай түрлерде сипаттауға болады:

1. 
   type st= record
   

fam:string[25];

tjli:integer;

ulti: string[6];

end;

var f1: file of st; v:st; //типтік

не 3) var f3:file; // типсіз

Дискіде файл жолдары 0-ден бастап автоматты түрде ретімен нөмірленеді. Жоғарғы тізімде 1-ден бастап нөмірленген баған өріс элементі ретінде қарастырылған.

Типсіз файлдар берілгендер байттар тізбегі түрінде тиеледі.

Оларды блок бойынша жүтеу, шығару үшін пайдаланылатын операторлар - BloсkRead және BloсkWrite (үндемеген кезде блок ұзындығы128 байтқа тең. Блоктар ретімен тиеліп оқылады. Файлдың кеңейтілуі - dat).

Типсіз файлды тиеу программасына мысал:

B: byte;

Begin

Rewrite(f,k); b:=$41;

For k:=1 to 120 do

BlokWrite(f,b,k);

CloseFile(f);
Программаның осы бөлігінің орындалу нәтижесінде С: нәтижесіне 120 ‘A’ символынан тұратын B5.dat файлы жазылып шығады (мұндағы $41 16-лық санау жүйесіндегі ‘A’ символының коды)
Лекция 30

Мәзір құру

Жоспар:

TsaveDialog,_TrichEdit_компоненттері__TopenDialog'>2. TopenDialog, TsaveDialog, TrichEdit компоненттері

Windws қосымшалары терезелерінің бєрінде де мєзір бар. Дайындалатын программа үшін Delphi-де қолдан форма терезесіне енгізілетін түрлі пунктті мєзір құруға болады.

TMenu бұл TMainMenu және TpopupMenu мәзір компоненттері үшін базалық класс болып табылады. Ол мәзір құруға, мәзір пункттерін анықтауға, мәзір пункттеріне сәйкестендірілген командаларды анықтауға, мәзірдің әрбір пункті үшін контексттік анықтама беруге арналған қасиеттер мен тәсілдерді ұсынады. TMenu классының қасиеттері:

Property Images: TCustomImageList; - мәзір пункті атауының сол жағынан көрсетілуі мүмкін бейнелер тізімі. Көрсетілетін бейнені анықтау үшін мәзір пунктінің ImageIndex қасиетіне Images тізіміндегі бейненің индекс мәнін орнату керек.

Property Items: TMenuItem; default; - мәзір пункттерінің тізімі сақталады. Әрбір мәзір пункті TMenuItem классының объекті болып табылады. Мәзір элементіне қол жеткізу үшін былай жазуға болады:

FirstItem:= Menu1.Items[0];

Негізгі мәзір құруға арналған компонент – бұл Standard бетінде орналасқан TmainMenu компоненті.

Оған сєйкес процедура файлды сақтау терезесін шығарады.

Алдымен программаға сұқпаттық терезе құрып, экранға шығару үшін Execute (Орындау) тєсілі енгізіледі, т.с.с (тµменде құрылған екі процедурадан тұратын программаны қараңыз).

TrichEdit ( мєтіндік редактор)- Tmemo Компонентті сияқты бірақ одан мүмкіндігі мол стандартты мєтіндік редактор. Оның бетіне файлды ашу, сақтау терезелерін шығаруға болады. Мєтін оның Lines қасиеті арқылы ашылған Stringlist Editor (жолдық тізім редакторы ) терезесіне енгізіледі. Оның Aligment, FirstIndent, т.б. касиеттерін орнатып, абзацтарын форматтап шығу мүмкін. Жазылған мєтінді RTF форматында процедураға енгізілген.
RichEdit1. Lines. SaveToFile(‘<атау>. rtf');
тәсілі арқылы сақтауға болады.

Құрылған мєзірді пайдалану үшін формада қосымша компоненттер (OpenDialog1, SaveDialog1, RichRdit1) орнатып, код терезесінде мєзірдің єр пунктін орындайтын сєйкес процедуралар жазып шығу керек. Мысалы, суретте бейнеленген мєзір пункттерін орындау тєсілі(Dialog1 компоненті орнатылады):
Құрылған толық модулъ: