Как нарисовать disable текст

Материал из DRKB


{ Draw Disabled Text **************
 ***** This function draws text in "disabled" style.  *****
 ***** i.e. the text is grayed .                      *****
 **********************************************************}
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;


Author: Зайцев О.В.
Author: Владимиров А.М.
Source: http://forum.sources.ru
ID: 03646