Сабақ Пән: «Алгоритмдеу және бағдарламалау негіздері» Тақырыбы: «Мәліметтерді енгізу-шығару. Мәтіндік ақпараттарды кескіндеу және түзету компоненттері. Бір жолдық және көп жолдық редакторлар»
жүктеу/скачать 467 Kb.
|
- Бұл бет үшін навигация:
- 31- сурет. procedure TForm1.BitBtn1Click(Sender: TObject); begin Image1.Picture.LoadFromFile(c:\4204.bmp); end;
;_begin_Image1.Picture.LoadFromFile(c:\4204.bmp);_end;){kind=link}
| 30- сурет.
Image компоненті форма бетіне графиктік бейне қою үшін қолданылады. Оның қасиеттері: AutoSize қасиетінің мәні ақиқат болса Image компонентінің өлшемі қойылған бейне өлшемімен сәйкестендіріледі. Stretch қасиетінің мәні ақиқат болса компонент өлшемі емес, керісінше бейне өлшемі компонент өлшеміне сәйкестендіріледі. Center-қасиетінің мәні ақиқат болса, онда бейне центрі Image компонентінің центріне сәйкестендіріледі. Аталған үш қасиеттің мәні бульдік болып табылады және олар true, false екі мәннің біреуін қабылдайды. Picture қасиеті компонентке графиктік бейне қоюды жүзеге асырады. Бұл қасиеттің LoadFromFile және SaveToFile әдістері компонентке сурет жүктеуді және суретті сақтауды жүзеге асырады. Жалпы түрдегі жазылу форматтары: procedure LoadFromFile(const FileName: string); procedure SaveToFile(const FileName: string); №4 тапсырма Мысалы: Image1.Picture.LoadFromFile (‘d:\4204\Adil.bmp’); 31- сурет. procedure TForm1.BitBtn1Click(Sender: TObject); begin Image1.Picture.LoadFromFile('c:\4204.bmp'); end; Тәжірибелік жұмыс №3 Баспаға шығару Жұмыс мақсаты – баспаға жіберу қызметін атқаратын бағдарлама құру. Форма ашып, оған Edit1, RadioGroup1, Label1, Button1 компоненттерін лақтырамыз. RadioGroup-тың Caption қасиетіне Баспаға шығару деп жазамыз. Items қасиетін екі рет шерткенде, келесі терезе пайда болады: Items қасиетіне келесі сөздерді Enter басу арқылы енгіземіз: барлығын ерекшеленгендерді ағымдағы ОК батырмасын шертеміз. Компоненттерді формада мына ретте орналастырамыз: Яғни, егер RadioGroup-та жазылған сөздердің бірін таңдасақ, Label-де сол сөздің реттік номері пайда болады. Ал, Edit-ке сан жазып, Басу (Button) батырмасын бассақ, белгі автоматты түрде сол санның қасындағы сөзге келеді.Бағдарламаны жүктегенде келесі терезе пайда болады: Бағдарлама листінгі procedure TForm1.RadioGroup1Click(Sender: TObject); begin Label1.Caption:=IntToStr(RadioGroup1.ItemIndex); end; procedure TForm1.Button1Click(Sender: TObject); begin Edit1.Text:=IntToStr(RadioGroup1.ItemIndex); end. №5 тапсырма «Олимпиада жалауы» Жұмыс мақсаты- олимпиада жалауын құратын бағдардама жасау. Листинг программы: procedure TForm1.FormPaint(Sender: TObject); begin with Canvas do begin // полотнище Canvas.Pen.Width := 1; Canvas.Pen.Color := clBlack; Canvas.Brush.Color := clCream; Rectangle(30,30,150,115); // кольца Pen.Width := 2; Brush.Style := bsClear; // область внутри круга // не закрашивать Pen.Color := clBlue; Ellipse(40,40,80,80); Pen.Color := clBlack; Ellipse(70,40,110,80); Pen.Color := clRed; Ellipse(100,40,140,80); Pen.Color := clYellow; Ellipse(55,65,95,105); Pen.Color := clGreen; Ellipse(85,65,125,105); end;end;end. жүктеу/скачать 467 Kb. Достарыңызбен бөлісу:
|