«Delphi программалау тілі»



бет27/66
Дата11.09.2020
өлшемі1,77 Mb.
#77807
түріПрограмма
1   ...   23   24   25   26   27   28   29   30   ...   66
Байланысты:
Delphi программалау тілі

сурет.

  • сурет.

    Шешуі: 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   ...   23   24   25   26   27   28   29   30   ...   66




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

        Басты бет