На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Участники Календарь Избранное RSS
msm.ru
Модераторы: Rouse_, jack128, Krid
  
    > Вывести текст на эран с позрачным фоном , В Windows 7 работает нормально.
      ExpandedWrap disabled
        procedure ShowScreenText(const Txt: String; X, Y: Integer);
        var
          Cnv: TCanvas;
          Rct: TRect;
        begin
          Cnv:=TCanvas.Create;
          try
            Cnv.Handle:=GetDC(0);// Получим Handle Рабочего стола
            Cnv.Brush.Style:=bsClear; // Устанавливаем тип кисти
            With Cnv.Font do // Подбираем параметры шрифта
            Begin
              Color := clRed;
              Size := 15;
              Name := 'Times New Roman';
              Style := [fsBold];
            end;
            Rct.Left := X - 1;
            Rct.Top := Y - 1;
            Rct.Right := Rct.Left + Cnv.TextWidth(Txt) + 2;
            Rct.Bottom := Rct.Top + Cnv.TextHeight(Txt) + 2;
            Cnv.FillRect(Rct); //Заливаем прозрачным цветом
            Cnv.TextOut(X, Y, Txt); //Выводи на экран
            ReleaseDC(0, Cnv.handle); //Освобождаем канву
          finally
            Cnv.Free; // Уберем за собой
          end;
        end;


      Пример использования

      ExpandedWrap disabled
          ShowScreenText('Hello WORLD', 100, 100);
      0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
      0 пользователей:


      Рейтинг@Mail.ru
      [ Script execution time: 0,0153 ]   [ 16 queries used ]   [ Generated: 29.03.24, 13:18 GMT ]