V
VahaC
Вот так вывожу текст на экран
надпись практически моментально исчезает.
Как вывести надпись хотяб на 1 секунду?
Или как иначе очистить прозрачный фон от предыдущего текста?
Код:
var
OldBkMode: integer;
c: TCanvas; { тут мы объявляем переменные }
s: String;
r: TRect;
begin
SystemParametersInfo(SPI_SETDESKWALLPAPER, 0, nil, SPIF_SENDCHANGE); //С помощью этого кода очищаю фон
r.Left := screen.Width - 400;
r.Top := screen.Height - 200;
r.Right := r.Left + 250;
r.Bottom := r.Top + 110;
c := TCanvas.Create;
c.Handle := GetDC(GetWindow(GetDesktopWindow, GW_OWNER));
with c do
begin
Font.color := clYellow;
Font.name := 'Times New Roman';
Font.Size := 72;
OldBkMode := SetBkMode(Handle, TRANSPARENT);
TextOut(r.Left + (r.Right - r.Left - c.TextWidth(volume)) div 2, r.Top, volume);
SetBkMode(Handle, OldBkMode);
end;
надпись практически моментально исчезает.
Как вывести надпись хотяб на 1 секунду?
Или как иначе очистить прозрачный фон от предыдущего текста?