Лекция: 15 сағат лбс: 15 сағат С¤Ж: 45 саѓат обс¤Ж: 45 саѓат Барлыќ саѓат саны: 135 саѓ
жүктеу/скачать 2.2 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; П  рограмма іске ќосылѓан соњ суреттегі нєтиже кµрінеді
Формаѓа салынѓан т‰рлі фигуралар. Лекция 11. Дайын кескіндерді орнату. Геометриялық фигураларды салу 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.2 Mb. Достарыңызбен бөлісу:
|