Программы   Загрузка Партнерство   О компании Контакты  
 
                    
  Карта Сайта   
   





Рисовать неактивный текст



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 © LSD Software 2006 - 2011