Высокоуровневые методы информатики и программирования. Сивохин А.В - 64 стр.

UptoLike

41
CloseFile(OrlovTypeFile);
end;
3.7 Реализация модуля для работы с графикой
Для реализации модуля для работы с графикой нужно:
а) Убедиться, что свойство формы OrlovGraphicForm FormStyle = Normal
б) Установить свойства
Caption=Работа с графикой
Name= OrlovGraphicForm
ShowHint= True
в) Установить на форму компонент TPanel. Свойства:
Align= alTop
Caption= “ “
Установить на панеле кнопку TSpeedButton. Свойства:
Name= SpbtnLoad
Hint= Загрузка графического файла *.bmp
Установить на панеле кнопку TSpeedButton. Свойства
:
Name= SpbtnStretch
AllowAllUp= True
GroupIndex= 2
г) С помощью Total Commander найти файлы с расширением *.bmp и поместить
их в некотором количестве в папку Images.
д) На инструментальных кнопках разместить выразительные пиктограммы
следующим образом. Выдельть SpbtnLoad и найти свойство Celiph, щелкнуть,
появится окно для поиска файла. Выбрать подходящую пиктограмму и нажать OK.
Повторить действия для SpbtnStretch и SpbtnCenter.
ж) Установить на форму компонент TPanel. Свойства
:
Align= alClient
Caption= “ “
Поместить на панель TImage. Свойства:
      CloseFile(OrlovTypeFile);
     end;


                      3.7 Реализация модуля для работы с графикой


     Для реализации модуля для работы с графикой нужно:
     а) Убедиться, что свойство формы OrlovGraphicForm FormStyle = Normal
     б) Установить свойства
       Caption=Работа с графикой
       Name= OrlovGraphicForm
       ShowHint= True
     в) Установить на форму компонент TPanel. Свойства:
       Align= alTop
       Caption= “ “
       Установить на панеле кнопку TSpeedButton. Свойства:
       Name= SpbtnLoad
       Hint= Загрузка графического файла *.bmp
       Установить на панеле кнопку TSpeedButton. Свойства:
       Name= SpbtnStretch
       AllowAllUp= True
       GroupIndex= 2
     г) С помощью Total Commander найти файлы с расширением *.bmp и поместить
их в некотором количестве в папку Images.
     д) На инструментальных кнопках разместить выразительные пиктограммы
следующим образом. Выдельть SpbtnLoad и найти свойство Celiph, щелкнуть,
появится окно для поиска файла. Выбрать подходящую пиктограмму и нажать OK.
Повторить действия для SpbtnStretch и SpbtnCenter.
     ж) Установить на форму компонент TPanel. Свойства:
       Align= alClient
       Caption= “ “
       Поместить на панель TImage. Свойства:

41