Procedure TForm1.FormCreate(Sender: TObject); begin BGbitmap:=TBitmap.Create;//Инициализация
// Выставляем размеры картинки как у экрана
BGbitmap.Width := Screen.Width;
BGbitmap.Height := Screen.Height;
DC := GetDC (0);
BackgroundCanvas := TCanvas.Create;
BackgroundCanvas.Handle := DC;
BGBitmap.Canvas.CopyRect(Rect (0, 0, Screen.Width, Screen.Height), BackgroundCanvas, Rect (0, 0, Screen.Width, Screen.Height));
BackgroundCanvas.Free; randomize; end;
Что здесь творится? В самом начале я инициализирую BGbitmap и устанавливаю ему размер как у экрана. Объект Screen – это объект, который создаётся автоматически при старте программы и содержит в себе информацию об экране. В свойствах Width и Height находятся ширина и высота экрана.
Потом в переменную DC заноситься указатель на контекст вывода экрана. На первый взгляд это происходит не явно, но всё очень просто. Функция GetDC возвращает указатель на контекст указанного в качестве параметра устройства или формы. Если указать 0, то GetDC вернёт указатель на контекст воспроизведения экрана. Если ты захочешь получить контекст воспроизведения твоей формы, то ты должен написать GetDC(Handle). В качестве параметра выступает Handle (указатель) окна. Но ты в таком виде не будешь никогда использовать GetDC, потому что у тебя уже есть контекст воспроизведения формы -это Canvas, а указатель на него -Canvas.Handle.
Дальше я создаю BackgroundCanvas -это TСanvas, который будет указывать на экран. Я делаю это только для удобства. Я мог бы использовать для рисования DC, но всё же TCanvas более понятен и мы с ним достаточно подробно разобрались в главе посвящённой графике.
С помощью следующей строки, я сохраняю копию экрана:
BGBitmap.Canvas.CopyRect(Rect (0, 0, Screen.Width, Screen.Height), BackgroundCanvas, Rect (0, 0, Screen.Width, Screen.Height));
Затем я уничтожаю указатель на контекст экрана BackgroundCanvas.Free, потому что больше он нам не понадобиться.
Самая последняя функция -randomize инициализирует таблицу случайных чисел. Если ты этого не сделаешь, то после запроса у системы случайного числа, тебе вернут значение из текущей таблицы, которая не всегда удачна. Тебе не надо будет видеть таблицу случайных чисел, она прекрасно будет работать без твоих глаз.
В обработчике события OnDestroy я уничтожаю картинку:
procedure TForm1.FormDestroy(Sender: TObject); begin BGBitmap.Free; end;
Последняя функция -это обработчик таймера, который я поставил на форму:
procedure TForm1.Timer1Timer(Sender: TObject);
const
DrawColors: array[0..7] of TColor =(clRed, clBlue, clYellow, clGreen,
clAqua, clFuchsia, clMaroon, clSilver);
begin
BGBitmap.Canvas.Pen.Color:=DrawColors[random(7)];
BGBitmap.Canvas.MoveTo(random(Screen.Width),random(Screen.Height));
BGBitmap.Canvas.LineTo(random(Screen.Width),random(Screen.Height));
Canvas.Draw(0,0,BGBitmap);
end;
В разделе констант я объявляю массив DrawColors, который хранит восемь цветов. Объявление происходит следующим образом:
Имя_Массива : array [Индекс_первого_значения .. Индекс_последнего_значения] of Тип_значения_Массива = (Перечисление_значений)
В "перечислении значений" должно быть описано "Индекс последнего значения" -"Индекс первого значения"+1 параметров. В моём случае это 7-0+1=8 значений цвета.
Дальше меняю цвет у контекста рисования формы BGBitmap.Canvas.Pen.Color случайным цветом из массива DrawColors. Функция random возвращает число из таблицы случайных чисел, при этом, это число будет больше нуля и меньше значения переданного в качестве параметра. Это значит, что random(7) вернёт случайное число от 0 до 7. С помощью BGBitmap.Canvas.MoveTo я перемещаюсь в случайную точку внутри BGBitmap и с помощью BGBitmap.Canvas.LineTo рисую из этой точки в новую точку линию. Canvas.Draw(0,0,BGBitmap) выводит моё произведение на экран.
Попробуй запустить пример, и ты увидишь, как экран засыпается линиями со случайными координатами. Но если ты протестируешь пример, то заметишь несколько недостатков:
1. 1. Если скопировать хранитель экрана в системную директорию (windows или winnt) и попытаться установить этот хранитель, то будут заметны блики.
2. 2. При нажатии на кнопку «Настроить» запускается хранитель, а не окно настройки.
Как же нашему хранителю экрана узнать, что надо отображать окно настройки, а не запускаться самому? Очень просто. При старте хранителя экрана нам в командной строке передаются параметры. Они могут быть следующими:
/s – надо запустить хранитель экрана. /p – хранитель экрана должен отображаться в окне свойств экрана на рисунке монитора (рисунок 25.1.2). /c:xxxxx – нужно отобразить окно настроек. Здесь после двоеточия, вместо хххх стоит число.
Количество параметров переданных программе можно узнать, вызвав функцию ParamCount. Эта функция вернёт только количество параметров. Сами параметры можно получить с помощью функции ParamStr. Этой функции нужно только передать номер параметра, который мы хотим получить. Чтобы перебрать все переданные программе значения можно использовать следующий код:
var i:Integer; begin for i:=0 to ParamCount-1 do Переменная:=ParamStr(i); end;
Теперь забудем на минутку про параметры и для начала избавимся от бликов. Для этого по событию OnCreate в самом начале присваиваем ширине и высоте окна значения 0, чтобы окно было минимальным. В этом случае окно не будет мерцать, потому что его просто нет на экране из-за нулевой ширины и высоты.
Width:=0; Height:=0;
А вот теперь вернёмся к нашим параметрам. По событию OnShow для главной формы пишем следующий код: