DELPHI/Часто задаваемые вопросы и ответы на них/Графика



На главную

Подписка

Новости

Главная / DELPHI / Часто задаваемые вопросы и ответы на них / Графика / Рисовать неактивный текст

Рисовать неактивный текст
function DrawDisabledText (Canvas : tCanvas; Str: PChar; Count: Integer;
  var Rect: TRect; Format: Word): Integer;
begin
  SetBkMode(Canvas.Handle, TRANSPARENT);

  OffsetRect(Rect, 1, 1);
  Canvas.Font.color := ClbtnHighlight;
  DrawText(Canvas.Handle, Str, Count, Rect, Format);

  Canvas.Font.Color := ClbtnShadow;
  OffsetRect(Rect, -1, -1);
  DrawText(Canvas.Handle, Str, Count, Rect, Format);
end;
Copyright © "DELPHI WORLD" E-mail: delphiworld@mail.ru http://www.delphiworld.narod.ru

Источник получения информации: http://www.delphiworld.narod.ru