Программалау іі» пәні бойынша 050111 «Информатика»
жүктеу/скачать 2.7 Mb.
|
- Бұл бет үшін навигация:
- “шеңбер”, “тік тµртбұрыш”, “кесінді”, жєне “нүкте”
- 1. TBitmap,TMetafile TIcon кластары.Timage компоненті.
- ( Tbitmap )
- . bmp ); Метафайлдар
- 2. TopenPictureDialog комппоненті. TopenPictureDialog
- Diologs
- (Save PictureDialog);
- TfontDialog
- 3. TShape, TBevel компоненттері
3.1 – сурет. Облысты толтыру стильдері Мысал. Форма бетіне іші ақ түсті, жиектері қызыл түсті дµңгелек жєне іші боялмаған қызыл түсті тіктµртбұрыш, түзу кесіндісі жєне нүкте шығару керек. Олардың астынғы қатарына “шеңбер”, “тік тµртбұрыш”, “кесінді”, жєне “нүкте” сµздері жазылсын (3.2-сурет). Жаңа проект ашып, форманың қасиеттер терезесіндегі Events бетінің onPaint оқиғасын µңдеуіш құру: with form1.canvas do begin Pixels[420, 50]:=clBlack; // нүкте салу MoveTo(280, 70); LineTo(400, 150); // кесінді салу Pen.Width:=2; // сызықтың қалыңдығы 2 пиксель Pen.Color:=clBlack; // сызықтың түсін қызыл ету Brush.Color:=clWhite; // фигураның ішін ақ, түсті ету Ellipse(50, 50, 130, 130); // шеңбер салу Brush.color:=clMenu; // бояу жаққыш түсін форма түсімен бірдей ету Rectangle (180, 30, 250, 150); // тік тµртбұрыш
Font.Name:='TimesКаz'; // мәтін шрифтінің атауы Font.Size:=12; // мәтін шрифтінің µлшемі Font.Style:=[fsbold,fsitalic]; // мәтіннің жазылу стилі Textout (380, 60, 'Нүкте'); Textout(380, 160, 'Кесінді'); Textout(60, 140, 'Дµңелек'); Textout (160, 160, 'Тіктµртбұрыш'); end; end; П  рограмма іске қосылған соң суреттегі нєтиже кµрінеді
Формаға салынған түрлі фигуралар. Лекция 26 Дайын кескіндерді орнату. Геометриялық фигураларды салу. Жоспар:
1. TBitmap,TMetafile TIcon кластары.Timage компоненті. 2. TopenPictureDialog комппоненті. 3. TShape, TBevel компоненттері
Delphi-де графикалық кескіндер салумен қатар, Windows-тың графикалық файлдарын (дайын кескіндерді) орнатуға, форманы безендіруге болады. Мұндай файлдар негізінен үш типті: растрлық (Tbitmap), метафайлдар (TMetafile), жєне белгішелер (пиктограммалар, TIcon). Растрлық кескін пиксельдерден тұратын нүктелерден құрастырылған (файл атауының кеңейтілуі-.bmp); Метафайлдар нүктелерден емес, арнайы командалардан тұратын кодты сақтайды (файл кеңейтілуі-wmf не .emi ); Белгішелер (Icon) –Windows белгішесі форматында сақталатын кескіндер (файлдардың кеңейтілуі -.ico). Кескіндер Tpicture класының мұрагерлері Tbitmap, Tmetafile, Ticon кластарына тиісті Additional бетінде орналасқан Timage (кескін) компонентін орналастырып алу керек. Кескін оның Picture қасиеті арқылы таңдалады. Picture обьектісінің LoadFromFile әдісін пайдаланып, суретті өріске толық кірістіруге де болады.
Жалпы компоненттер панелінің Diologsбетіне windows-тың стандартты сұқпаттық терезелері енгізілген: Файлда ашу терезесі (OpenDialog); Файлды сақтау терезесі (Save Dialog); Суретті сақтау терезесі (Save PictureDialog); Шрифт терезесі (Font Dialog); Түсті таңдау терезесі (ColorDialog); Басып шығару (PrintDialog); Оларды пайдалану үшін формада орнатып, сәйкес қасиеттерін таңдау не қажетті программа құру қажет. Мысал.
Begin Try
If OpenPictureDialog1.Exercute then Begin
Image1.Picture.LoadFromFile(OpenPictureDialog1.File Name); Image1.Stretch:=True; End; Except
ShowMessage (‘Программа жүрмеді’); End;
Procedure Tform1.Button1Click(Sender:Tobject); Begin
If FontDialog.Exercute then Label1.font.Assign(FontDialog1.Font) End; Программаны іске қосқан соң ашылған форманың Button1 түймесі шертілсе, Шрифт терезесі көрінеді. Терезеде қажетті шрифт (мысалы, Times Kaz) орнатылған кезде Label 1 өрісіндегі жазу шрифтке сәйкес түрде өзгереді. 3. TShape, TBevel компоненттері Компоненттер панелінің Additional бетіндегі TShape (Фигура) компонеті арқылы формада түрлі геометриялық фигуралар салуға болады. Компонентті формада орнатын, оның Shape қасиетінен қажетті мәнді таңдаса болғаны. Shape қасиеті.
жүктеу/скачать 2.7 Mb. Достарыңызбен бөлісу:
|