-> В процессе разработки программного обеспечения эстетика интерфейса является важным фактором коммерциализации программного обеспечения. В этой статье представлен метод реализации фоновых рисунков форм. С этой целью можно удобно и гибко спроектировать красивый трехмерный фон. 1. Создайте новую форму Form1 со следующими свойствами:
Caption="Реализация фоновых узоров"
Borderstyle=3 (нет кнопок максимума и минимума)
2. Создайте элемент управления сеткой Grid1. Его положение и размер будут установлены в программе (тот же размер, что и Form1), а его свойства:
Enabled=False (фокус не будет падать на элемент управления Grid1)
Fillstyle=1 (изменить свойства текста всех ячеек)
Фиксированные столбцы=0 (нет фиксированных строк)
Фиксированные строки=0 (нет фиксированных столбцов)
Gridlines=False (линии сетки не видны),
Видимый = Истина
3. Создайте элемент управления изображением Picture1 и поместите в него базовый узор фонового рисунка во время работы программы. Свойства:
Visible=False (невидимый)
Autosize=True (автоматическая настройка размера)
4. Добавьте в элемент управления Sheridan3DControls, выберите трехмерную командную кнопку SSCommand и создайте две кнопки:
SSCommand1.Caption="Выход"
SSCommand2.Caption="Изменить фон" (демонстрирует различные фоновые рисунки)
Их свойство Picture может вызывать тот же или другой узор, что и фон. Если вы используете обычную кнопку управления Command, ее также можно использовать, но у командной кнопки нет фонового рисунка.
5. Создайте подпрограмму формирования фонового рисунка:
Имя файла растрового изображения DimpictfileAsString
Путь к файлу DimFILEPATHasString
SubBackpict(файл изображений)
картинка1.ScaleMode=3
Форма1.ScaleMode=3
Picture1.Picture=LoadPicture(файл изображения)
'Элемент управления сеткой покрывает весь фон формы
сетка1.Верх=-1
сетка1.Влево=-1
Grid1.Width=Ширина
Grid1.Height=Высота
Grid1.Cols=Int(Form1.ScaleWidth/picture1.ScaleWidth) 1
Grid1.Rows=Int(Form1.ScaleHeight/picture1.ScaleHeight) 1
'Все размеры единиц измерения равны размеру базового шаблона
ForI=0Togrid1.Cols-1
Forj=0Togrid1.Rows-1
Grid1.ColWidth(I)=picture1.ScaleWidth*15
Grid1.RowHeight(j)=picture1.ScaleHeight*15
Следующийj
СледующийI
'Выбрать все юниты
сетка1.SelStartCol=0
сетка1.SelStartRow=0
Grid1.SelEndCol=grid1.Cols-1
Grid1.SelEndRow=grid1.Rows-1
Grid1.Picture=Картинка1.Картинка
EndSub
6. Формируем основную программу:
PRivateSubForm_Load()
'Получаем путь к запущенной программе с обратной косой чертой после имени пути
ЕслиПраво(App.Path,1)<>"/"Тогда
filePath=App.Path&"/"
Еще
filePath=App.Path
КонецЕсли
'Форма изначально отображает фон, состоящий из основных шаблонов Tiles.bmp.
pictfile="c:/windows/Tiles.bmp"
backpict(файл изображений)
EndSub
7. Кнопка выхода из программы:
PrivateSubSSCommand1_Click()
Конец
EndSub
8. Продемонстрируйте различные образцы штриховки: в этой статье выбрано изображение Windows Tiles.bmp. Читатели также могут выбрать другую графику, которая им нравится. Код выглядит следующим образом:
PrivateSubSSCommand2_Click()'Поочередная демонстрация двух фоновых шаблонов
Еслиpictfile=filePath&"Pict1.bmp" Тогда
pictfile="c:/windows/Tiles.bmp"
Еще
pictfile=filePath&"Pict1.bmp"
КонецЕсли
Backpict (файл изображения)
EndSub->
