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

Previous  Top  Next

    
 

 

 

Code:

{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;

 

 

Зайцев О.В.

Владимиров А.М.

©Drkb::03646

Взято из http://forum.sources.ru