Шупрута В.В. - Delphi 2005 - Учимся программировать (1080891), страница 38
Текст из файла (страница 38)
t x t будетотображать только текстовые файлы с соответствующим расширениемFilterFilterlndexЕсли фильтр имеет несколько элементов (например, Текстовые файлы I * . t x tI Файлы изображений I * . j p g ) , то значение свойства определяет тот фильтр,который используется в момент появления окна на экранеDefaultExtРасширение файла, задаваемое по умолчанию (если оно не введено присохранении). Данное расширение добавляется к имени файла в случае, еслисвойство AddExtension установлено в TrueAddExtensionПризнак необходимости добавлять расширение (в случав, если пользователь •не ввел его при сохранении)CheckPathExistaПризнак необходимости проверки существования каталога, в котором будетсохранен файл. Если искомый каталог не будет найден, то будет выведеноинформационное сообщение 'CheckFileExistsПризнак необходимости проверки существования файла с указанным именем.Если свойство установлено в True и указанный файл существует, то будетвыведено сообщение, в котором предлагается подтвердить необходимостьзамены существующего файла.Отображение диалогового окна сохранения файла обеспечивает ужезнакомый нам метод ShowDialog, значением которого является код кнопки,нажатием которой пользователь завершил диалог (закрыл окно).
Приведеннаяниже программа демонстрирует основные возможности этого компонента.При успешном завершении диалога (нажатии кнопки ОК) формируетсятекстовый файл, в который записывается содержимое компонента TextBox(рис. 5.25).Текст программы (процедура обработки события C l i c k на кнопкеСохранить в файл) приведен в листинге 5.16.Листинг 5.16 тТекст программы, демонстрирующей использование компонентаSaveFileDialogunit WinForml;interfaceusesSystem.Drawing, System.Collections, System.ComponentModel,Компонент SaveFileOiaiogПример использования компонентаSaver ileDialog Для сохранения указанногоФрагмента текста в Файл нажмите кнопку"Сохранить Файл".Сохранить а файл [ ' ;Рис. 5.25 • Форма окна программы, демонстрирующей использование S a v e F i l e D i a l o gSyst.em.Windows.Forms, System.Data, System.10, System.Text;typeTWinForml = class(System.Windows.Forms.Form){$REGION 'Designer Managed Code'}strict privateComponents: System.ComponentModel.Container;SaveFileDialogl: System.Windows.Forms.SaveFileDialog;TextBoxl: System.Windows.Forms.TextBox;Buttonl: System.Windows.Forms.Button;procedure InitializeComponent;procedure Buttonl_Click(sender: System.Object;e: System.EventArgs);{$ENDREGION}strict protectedprocedure Dispose(Disposing: Boolean); override;privatestream_write:System.IO.StreamWriter; // Поток для осуществления// записи.encoder:System.Text.Encoding;publicconstructor Create;end;[assembly: RuntimeRequiredAttribute(TypeOf(TWinForml))]implementation{$AUTOBOX ON}{$REGION 'Windows Form Designer generated code 1 }procedure TWinForml.Dispose(Disposing: Boolean);ГЛАВА 5 • Основные компоненты при программировании для .NETbeginif Disposing thenbeginif Components <> nil thenComponents.Dispose();end;inherited Dispose(Disposing);end;constructor TWinForml.Create;begininherited Create;InitializeComponent;encoder:=System.Text.Encoding.GetEncoding(12 51);end;// Нажатие на кнопку 'Сохранить в файл'.procedure TWinForml,Buttonl_Click(sender: System.Object;e: System.EventArgs);begin// Если пользователь закрыл диалог нажатием кнопки ОК,if SaveFileDialogl.ShowDialog=Systern.Windows.Forms.DialogResult.OKthen// то записать текст в файл.trystream_write:=System.10.StreamWriter.Create(SaveFileDialogl.FileName,False,encoder);stream_write.Write(TextBoxl.Text); // Запись текста в поток.stream_write.Close;// Закрыть поток.excepton e:exception doMessageBox.Show(e.Message);end;end ;end.Изучаем основыработыс графикой в .МЕТЗта глава посвящена описанию графических возможностей Delphi.
Мыуже касались вопросов отображения картинок в наших программах, ноэто было лишь первое знакомство. Далее вы узнаете, как сформироватькартинку самостоятельно или же использовать графические файлы для того,чтобы приукрасить вашу программу.Создавая программу, вы можете использовать специальный компонент, отображающий картинки, - PictureBox, а также рисовать непосредственно наповерхности формы. Поверхности формы соответствует объект G r a p h i c s ,методы которого и обеспечивают вывод графики. В любом случае, отображаете ли вы графический файл или рисуете самостоятельно, вам необходимо будет использовать объект Graphics (то есть применить соответствующие методы).
Рисовать в Delphi очень просто - достаточно написать процедуруобработки события P a i n t (Рисование). В качестве примера приведу программу, которая обрабатывает это событие и выводит на поверхность формы картинку, а также простейшие графические примитивы (рис. 6.1).Текст процедуры обработки события P a i n t приведен ниже в листинге 6.1.Листинг 6.1 т Процедура обработки события Paintprocedure TWinForml.TWinForml_Paint(sender: System.Object;e: System.Windows.Forms.PaintEventArgs);varmy_image:Image;// Картинка.my_font:System.Drawing.Font;my_pen:Pen;// Шрифт.// Карандаш.rny_brush:Brush;// Кисть.•ГЛАВА б • Изучаем основы работы с графикой в .NETIMicrosoft.Сl._Графические возможностиDelphifor.NETРис.
6.1т Пример использования графических возможностейbegin// Отображение логотипа .NET.// Загрузка изображения из файла в my_image.my_image:=Image.FromFile('dotNET.bmp');// Отображение картинки на графической поверхности.е.Graphics.Drawlmage(my_image,point.Create(10,10));// Отображение надписи с помощью графики.// Создаем кисть.my„brush:=SolidBrush.Create(Color.get_Blue);my_font:=System.Drawing.Font.Create('Arial',14);e.Graphics.Drawstring('Графические возможности',my_font,my_brush,140,10) ;e.Graphics.Drawstring('Delphi for .NET',. .my_font,my_brush,140,40);// Отображаем графические примитивы.// Настраиваем карандаш.my_pen:=Pen.Create)Color.get_Brown);// Рисуем линию.e.Graphics.DrawLine(my_pen,10,80,380,80);// Рисуем прямоугольные области.e.Graphics.DrawRectangle(my_pen,10,100,100,40) ;e.Graphics.DrawRectangle(my_pen,15,110,100,40);e.Graphics.DrawRectangle(my_pen,20,120,100,40);// Рисуем закрашенные прямоугольные области.е.Graphics.FillRectangle(my_brush,180,100,100,40);e.Graphics.Fil.lRectangle(Brushes.Red,185,110,100,40);e.Graphics.FilIRectangle(Brushes.Green,190,120,100,40);end ;Несколько слов о событии Paint.
Оно возникает всякий раз, когда появляетсянеобходимость в перерисовке окна приложения (например, когда ваше окно былозакрыто другим окном, а потом было сделано активным).Карандаш и кисть - основные инструменты для рисованияТеперь немного об особенностях методов, использующих окно формы длярисования. Эти методы используют так называемую графическую поверхностьокна, которая состоит из точек (пикселей). Положение каждой точкихарактеризуется двумя координатами: горизонтальной (X) и вертикальной (Y).При этом также необходимо учесть, что координаты отсчитываются нескольконеобычно - от левого верхнего угла (рис. 6.2).
Максимальный размер, которыйможет быть использован для рисования, хранит свойство C l i e n t s S i z e формы.Далее познакомимся с основными инструментами, позволяющими рисоватьна поверхности формы.(0,0)1(ClitntSize.Width, \,Рис. 6.2 т Система координат точек графической поверхности формыКарандаш и кисть основные инструменты для рисованияРисование осуществляется специальными инструментами - карандашами иликистями. Методы, позволяющие рисовать, используют именно эти инструменты.Карандаш позволяет задать вид линии (толщину, цвет и стиль), а кисть - способзакраски определенной области.КарандашОбъект «карандаш» (Реп) определяет вид линии - толщину, цвет и стиль.
В нашем распоряжении находится два вида карандашей - стандартные и системные.ГЛАВА 6 • Изучаем основы работы с графикой в .NETСтандартный набор карандашей - четырнадцать цветных карандашей, рисующих непрерывную линию толщиной в один пиксель. Некоторые карандаши из стандартного набора приведены в табл. 6.1. Если у вас есть желание увидеть полный набор стандартных карандашей, то можете воспользоватьсясправочной системой. Для этого в поле Look for вкладки Index введите Pens,затем в списке выберите All members.Таблица 6.1 т Основные карандаши из системного набораТип карандашаЦветPens.BlackЧерныйPens.White,БелыйPens.LightGrayСерыйPens.YellowЖелтыйPens.OrangeОранжевыйPens.RedКрасныйPens.GreenЗеленыйPens.PurplePens.LightBlueФиолетовыйPens.Blue 'СинийPens.
TransparentПрозрачныйГолубойНиже приведен пример использования карандашей из системного набора процедура обработки события P a i n t , которая рисует несколько фигур с использованием карандашей.procedure TWinForm.TWinForm_Paint(sender:System.Object;e: System.Windows.Forms.PaintEventArgs);begine.Graphics.DrawEllipse(Pens.Blue,20,20,20,20);e.Graphics.DrawRectangle(Pens.Yellow,100,100,20,20);e . Graphics . DrawEl 1 ipse (Pens . Green ,220,20,30,30) ;.e.Graphics.DrawRectangle(Pens.Red,90,40,100,50);end;Теперь перейдем к рассмотрению системного набора карандашей.Системный набор отличается от стандартного тем, что цвет карандашей«привязан» к цветовой схеме операционной системы.
Например, установивцвет карандашей в SystemPens .WindowText, мы увидим цвет, который совпадает с цветом текста в окнах сообщений.Все вышеперечисленные наборы карандашей рисуют непрерывную линиютолщиной в один пиксель. Если же необходимо нарисовать пунктирную линиюили линию, толщина которой больше одного пикселя, то следует создать ииспользовать так называемый карандаш программиста.Карандаш и кисть - основные инструменты для рисования•Карандаш программиста - объект типа Реп, имеющий свойства, определяющие вид линии, которую чертит карандаш.
Ниже в табл. 6.2 приведенысвойства объекта Реп.Таблица 6.2 • Свойства объекта РепСвойство карандашаКомментарийColorwidthDashstyleОпределяет цвет выводимой линииТолщина линии, задаваемая в пикселяхСвойство задает тип выводимой линии. Линия может быть сплошной( D a s h S t y l e .
![](https://s.studizba.com/z.php?f=/templates/si/i/noavatar.png&w=100&h=100&t=1"){kind=avatar}
