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

TyVik

Дата 2.12.2005, 22:05 (ссылка)

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

Загрузка ...

Новичок

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

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

Есть ли такая функция, что сразу позвояет выводить текст с тенью? Или надо извращаться? Если да, то как? (Что это возможно - это точно)

Snowy

Дата 2.12.2005, 22:32 (ссылка)

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

Загрузка ...

Эксперт

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

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

Надо извращаться.
Сначала выводим этот же текст черным цветом в позиции +1,+1
А потом сверху этот же текст нормальным цветом.

Rrader

Дата 3.12.2005, 06:29 (ссылка)

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

Загрузка ...

Inspired =)

Профиль
Группа: Экс. модератор
Сообщений: 1535
Регистрация: 7.5.2005

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

Например, посмотри, как выводится Disabled TLabel:

Код


procedure TCustomLabel.DoDrawText(var Rect: TRect; Flags: Longint);
var
  Text: string;
begin
  Text := GetLabelText;
  if (Flags and DT_CALCRECT <> 0) and ((Text = '') or FShowAccelChar and
    (Text[1] = '&') and (Text[2] = #0)) then Text := Text + ' ';
  if not FShowAccelChar then Flags := Flags or DT_NOPREFIX;
  Flags := DrawTextBiDiModeFlags(Flags);
  Canvas.Font := Font;
  if not Enabled then
  begin
    { Смещаем прямоугольник }
    OffsetRect(Rect, 1, 1);
    { Рисуем белым цветом }
    Canvas.Font.Color := clBtnHighlight;
    { Выводим текст }
    DrawText(Canvas.Handle, PChar(Text), Length(Text), Rect, Flags);
    { Далее выводим тень - опять смещаем прямоугольник вывода }
    OffsetRect(Rect, -1, -1);
   { Цвет тени - типа серого }
    Canvas.Font.Color := clBtnShadow;
    DrawText(Canvas.Handle, PChar(Text), Length(Text), Rect, Flags);
  end
  else    
    DrawText(Canvas.Handle, PChar(Text), Length(Text), Rect, Flags);
end;

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

Let's do this quickly!
Rest in peace, Vit!

TyVik

Дата 3.12.2005, 10:28 (ссылка)

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

Загрузка ...

Новичок

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

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

спасибо

о таком варианте я не подумал.

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