Delphi.Заметки программиста

       

Это обращение накладывает текст на


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

Содержание раздела