Win 32 парағыныңастарлы бет жасаудыңPageControlжəнеTrackbar, RichEditкомпоненттері. ИерархиялықмəліметтердіағаштүріндешығарудыңTreeViewкомпоненті. WebBrowserкомпонетіменбайланыс



бет3/3
Дата29.12.2021
өлшемі155,02 Kb.
#106439
1   2   3
Байланысты:
15a2d939-3824-4627-93ed-5a678f50bf36 (2)
ндірістік т жірибе есебі Маманды ы 6В06103 – «Есептеу техника, ндірістік т жірибе есебі Маманды ы 6В06103 – «Есептеу техника, Кунделик Апилова, 2 лекц, бух есеп, 4 Дәріс кешені, УЧЕБНО-МЕТОДИЧЕСКОЕ ПОСОБИЕ КАДАСТРОВАЯ ОЦЕНКА И ЗОНИРОВАНИЕ ЗЕМЕЛЬ (1), лекция 1, Силабус, ИС 342 силабус, Спутниктік байланыс және навигация жүйелері, Практикум по гидравлике, Шаршеналиев диплом, Дип.-Арысқұм-мұнай-кенінің-бұрғылау-қондырғысының-жаңартылған-қосалқы-элементтерін-электр-энерги
сурет.

  • сурет.

    Шешуі: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компонентініңтүйінжасаутерезесі.Бұлтерезекелесібатырмалардантұрады:

    NewItem (Жаңатүйін)- жаңатүйінжасауғамүмкіндікбереді.

    NewSubItem (Жаңаішкітүйін)- ішкітүйінжасауүшін.

    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]-[7], қ[1]-[5]



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




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

        Басты бет