«Delphi программалау тілі»
жүктеу/скачать 1,77 Mb.
|
Delphi программалау тілі
UMK Ci tilinde programmalau (1), Бөлім 2 Объектілік
- Бұл бет үшін навигация:
- 43- сурет. TreeView
- New SubItem
| сурет.
сурет. Шешуі: procedure TForm1.N2Click(Sender: TObject); begin RichEdit1.CutToClipboard; end; procedure TForm1.N3Click(Sender: TObject); begin RichEdit1.CopyToClipboard; end; procedure TForm1.N4Click(Sender: TObject); begin RichEdit1.PasteFromClipboard; end; procedure TForm1.BitBtn4Click(Sender: TObject); begin RichEdit1.SelAttributes.Style:=[fsBold] end; procedure TForm1.BitBtn5Click(Sender: TObject); begin RichEdit1.SelAttributes.Style:=[fsItalic] end; procedure TForm1.BitBtn6Click(Sender: TObject); begin RichEdit1.SelAttributes.Style:=[fsUnderLine] end; procedure TForm1.BitBtn1Click(Sender: TObject); begin RichEdit1.Paragraph.Alignment:=taLeftJustify; end; procedure TForm1.BitBtn2Click(Sender: TObject); begin RichEdit1.Paragraph.Alignment:=taCenter; end; procedure TForm1.BitBtn3Click(Sender: TObject); begin RichEdit1.Paragraph.Alignment:=taRightJustify; end; TreeView- ағаш түріндегі иерархиялық мəліметтерді шығару компоненті болып табылады. Одан қолданушы өзіне қажет мəліметтерді таңдай алады. Бұл компоненттің негізгі қасиеті- Items. Ол индекстелген түйіндер тізімінен тұрады. Əрбір түйін TTreeNodes типті объект болып табылады. Түйіндер TreeView компонентінде 2 рет шерту немесе Items қасиетінің оң жағындағы үш нүктелі батырманы шерту арқылы жасалады. Нəтижеде төмендегі суреттегідей түйін жасау терезесі экранға шығады. 43- сурет. TreeView компонентінің түйін жасау терезесі. Бұл терезе келесі батырмалардан тұрады: New Item (Жаңа түйін)- жаңа түйін жасауға мүмкіндік береді. New SubItem (Жаңа ішкі түйін)- ішкі түйін жасау үшін. Delete (Жою)- таңдалған түйінді жою. Text- түйін тақырыбының мəтіні. Мысал1: Төмендегі суретте 2 негізгі түйіннен тұратын TreeView компоненті көрсетілген. Əр түйін 3 ішкі түйіннен тұрады. Түйінге сəйкес мəтінді программалық жолмен Label1 компонентіне шығару Text қасиеті арқылы жүзеге асырылады. Мысал2: Label1. caption:= TreeView1.Items.Item[1].text; Нəтижеде Label1 компонентіне “MS Word” сөзі шығады. Кез- келген таңдалған мəн Label1-ге шығу үшін команда былайша жазылады: Label1. caption:= TreeView1. Selected.text; Таңдалған түйінге сəйкес индексті АbsoluteIndex қасиеті береді. Түйіндер 0- ден бастап бүтін санмен нөмірленеді. Мысал3: Жоғарыдағы 1- мысалда жасалған қосымшадан түйіндерді шерткенде оларға сəйкес жазылған түсіндірме мəтіндер мəтіндік редакторге шығатын түйіндер кодын жазыңдар. Ол үшін əр түйінге сəйкес мəтіндік файл алдын-ала MS Word мəтіндік редакторында жасалып, rtf форматта сақталуы керек. Себебі, RichEdit компоненті rtf форматтағы файлды ғана оқи алады. 45- сурет. procedure TForm1.TreeView1Change(Sender: TObject; Node: TTreeNode); begin case treeView1.Selected.AbsoluteIndex of 1: RichEdit1.lines.LoadFromFile('c:\Word.rtf'); 2: RichEdit1.lines.LoadFromFile('c:\Excel.rtf'); 3: RichEdit1.lines.LoadFromFile('c:\Access.rtf'); end; end; жүктеу/скачать 1,77 Mb. Достарыңызбен бөлісу:
|