Р а з д е л ы
Новости
Гостевая
Форум
Чат
Учебники
Программы
Статьи по Delphi
Статьи по Html
Компьютерные статьи
Java скрипты
Приколы
Отправить SMS
Мои разработки
 
К о н т а к т ы

ICQ: 445511525
e-mail: ZORBI@bk.ru

c o p y r i g h t
p r o g r a m m i n g
d e s i g n e d
by ZORBI

Т р о и ц к   г

 
С с ы л к и


 
С ч е т ч и к и
Rambler's Top100
 
..:: Статьи ::..
Многострочный Hint

   Данный модуль является компонентом со стандартной
   процедурой установки. Работает в среде Delphi 6. 

   После его регистрации перекрывается редактор свойства
   Hint в TControl (т.е. во всех control-ах) во время Design-а. 
   При этом изменяется способ редактирования свойства Hint.
   У него появляется кнопка "...", он становится многострочным
   и > 255 символов.
   Длинные хинты дольше читать, и, возможно, Вам потребуется
   изменить свойства (пример): 
       Application.HintPause := 700;
       Application.HintHidePause := 10000;

   По умолчанию установлено 500мс и 2500мс 

   Текст модуля: 
   unit HintProperty;

   interface
   uses Windows, Messages, SysUtils, Classes,
        designintf, DesignEditors,  vcleditors, StdCtrls, StrEdit;

   type
     THintProperty = class(TStringListProperty)
     protected
       ss : TStringList;
       function GetStrings: TStrings; override;
       procedure SetStrings(const Value: TStrings); override;
     end;

   procedure Register;

   implementation

   uses  Controls;

   procedure Register;
   begin
     RegisterPropertyEditor(TypeInfo(string), TControl, 'Hint', THintProperty);
   end;

   function THintProperty.GetStrings: TStrings;
   begin
       ss := TStringList.Create;
       ss.Text := GetStrValue;
       Result := TStrings(ss);
   end;

   procedure THintProperty.SetStrings(const Value: TStrings);
   var l : integer;
       s : string;
   begin
       s := value.Text;
       l := Length(s);
       if (l > 0) then SetLength(s, l-2); // чтобы не добавляла в конце пустую строку
       SetStrValue(s);
       ss.Destroy;
   end;

   end.
	             		

Источник: www.delphikingdom.ru  

Hosted by uCoz