Вывести текст на эран с позрачным фоном -> Форум на Исходниках.Ру

	Наши проекты: Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту

Здравствуйте, Гость ! [98.84.18.52]

Модераторы: Rouse_, jack128, Krid

Вывести текст на эран с позрачным фоном , В Windows 7 работает нормально.

VahaC

Сообщ. #1 , 12.01.11, 16:35

Profi

Рейтинг (т): 117

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;

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

ShowScreenText('Hello WORLD', 100, 100);

0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)

0 пользователей:

[ Script execution time: 0,0221 ] [ 16 queries used ] [ Generated: 7.10.24, 17:38 GMT ]