Если у вас возникли сложности с курсовой, контрольной, дипломной, рефератом, отчетом по практике, научно-исследовательской и любой другой работой - мы готовы помочь.
Предоплата всего
Подписываем
Лабораторная работа № 4
Создание заставки для приложения.
Порядок работы.
Заставки имеют многие программы, работающие в операционных системах семейства Windows. Заставка представляет собой графическое изображение, появляющееся на несколько секунд после запуска программы. В ней может содержаться название программного продукта и информация о разработчиках. Графическое изображение, т.е. файл с расширением .bmp, создадим с помощью графического редактора.
Окно графического редактора, входящего в среду Delphi
Нажмем ОК.
Диалоговое окно для
установки параметров рисунка
символов, следует подвести курсор мыши к окну с требуемым цветом в
палитре цветов и нажать левую клавишу. При нажатой правой клавише
мыши выбранный цвет будет использоваться в качестве цвета фона. В
простейшем случае можно поступить, например, так: набрать черными
буквами на белом фоне текст:
Разработчик – Иванов И.И.
Пример создания
ЗАСТАВКИ
Выберем черный цвет для символов, белый для фона в палитре цветов. Выполним команды EditSeSelect All и EditSCut для очистки рисунка. Далее вставим приведенный выше текст.
Для этого воспользуемся кнопкой Т(Text) инструментальной панели.
Прежде чем размещать текст, следует задать характеристики шрифта с
помощью команды Text/Font.
именем ris.bmp в той же папке, что и проект. Выйдем из графического
редактора по команде file/exit.
Размещение на форме компонентов Timer и Image
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Free;
Timer1.Free
end;
Это означает, что через 3000 миллисекунд после запуска приложения
компоненты Image1 и Timer1 будут удалены из памяти компьютера и
соответственно с экрана.
Текст модуля Unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;
type
TForm1 = class(TForm)
Timer1: TTimer;
Image1: TImage;
procedure Timer1Timer(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Timer1Timer(Sender: TObject);
begin
Image1.Free;
Timer1.Free
end;
end.
Затем, чтобы заставка «мигала», т.е. периодически появлялась и исчезала, необходимо создать следующий обработчик события OnTimer:
procedure TForm1.Timer1Timer(Sender: TObject);
begin
If Image1.Visible=true then Image1.Hide
Else Image1.Show;
end;