VPF::Текст с тенью - Форум программистов

DriveSoftware

Дата 10.6.2006, 13:30 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 291
Регистрация: 17.3.2003

Репутация: нет
Всего: 4

Приветствую,

В принципе как рисовать текст с тенью это ясно, но я считаю что должна быть API функция для этого, т.к. например с некоторыми стилями XP на копке Пуск это слово написано обычно с тенью, да и часы в трее иногда ее имеют.

Может все таки M$ имеет такую API начиная с 2k или XP ?

--------------------

Замена стандартным Windows часам

Snowy

Дата 10.6.2006, 21:35 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

нет

Girder

Дата 11.6.2006, 17:25 (ссылка)

(нет голосов)

Загрузка ...

Лентяй 2

Профиль
Группа: Участник Клуба
Сообщений: 1993
Регистрация: 12.5.2004

Репутация: 25
Всего: 155

Береш два модуля: http://e-dok.narod.ru/delphi/question1/graf/graf-071.html
и http://www.gamedev.ru/forum/?group=5&topic=439

В модуле blur правишь TBlurThread.Execute

Т.е. перед Synchronize(SetSize); добавляеш

Код


 while not(terminated) do
  begin

ну и в самом конце ентой процедурки не забудь end добавить.
Но можеш и не править... т.е. по вкусу smile

PS: используеш

Код


procedure TForm1.Button1Click(Sender: TObject);
begin
 ShowFadeWithParam(Label1,1,1,0,clblue);
end;

Если такие сложности не нужны... то конечно можеш и так сделать:

Код


procedure TForm1.Button2Click(Sender: TObject);
begin
 Form1.Canvas.Brush.Style := bsClear;
 Form1.Canvas.Font.Name:='Arial';
 Form1.Canvas.Font.Height := 50;
 Form1.Canvas.Font.Color := clBlack;
 Form1.Canvas.TextOut(10,10, 'Текст с тенью');
 Form1.Canvas.Font.Color := clBlue;
 Form1.Canvas.TextOut(12,12, 'Текст с тенью');
end;

Это сообщение отредактировал(а) Girder - 11.6.2006, 17:45

--------------------

Как слышим, так и пишим.
Истина где-то там...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »