Это обращение накладывает текст на
procedure TForm1.FormPaint(Sender: TObject);
var Y: Integer; Blue: Byte; const Text = 'Фон для программы Setup.exe'; begin
with Form1.Canvas do
begin
// Создаем фон:
for Y := 0 to Form1.Height-1 do begin // Уменьшаем интенсивность цвета с ростом ординаты Y
Blue := Round($FF*(Form1.Height-Y)/Form1.Height);
// Формируем цвет
Pen.Color := RGB(0, 0, Blue);
// Чертим линию
MoveTo(0, Y);
LineTo(Form1.Width-1, Y);
end; // for Y := 0 to Form1.Height-1 do Font.Size := 32; Font.Style := [fsBold, fsItalic, fsUnderline]; Font.Name := 'Times New Roman Cyr'; // Это обращение накладывает текст на фон:
SetBkMode(Handle, Transparent);
// Сначала выводим тень надписи
Font.Color := clBlack; TextOut(40, 30, Text);
// Теперь саму надпись
Font.Color := clWhite; TextOut(36, 26, Text) end; // with Form1.Canvas do end;
На рис. 4. показано окно работающей программы.
Рис. 4. Иллюстрация режима Transparent
