Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Текст с тенью

Автор: DriveSoftware 10.6.2006, 13:30

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

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

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

Автор: Snowy 10.6.2006, 21:35

нет

Автор: Girder 11.6.2006, 17:25

Береш два модуля: 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;