Показать сообщение отдельно
  #9  
Старый 01.10.2009, 08:45
Аватар для AleD
AleD AleD вне форума
Активный
 
Регистрация: 21.02.2009
Адрес: г.Краснокаменск
Сообщения: 383
Репутация: 91
По умолчанию

Цитата:
Сообщение от nbstudio
AleD, спасибо, как раз в тему, только вот как использовать компонент?
mak-karpov и за код тоже спасибо!
ну для начало его надо установить, делается это так: открываеш какой нибудь пакет (например dclusr.dpk) и добавляеш в него файл компонетна, затем компилируеш и (если ещё не установлен) устанавливаеш
юзать сам компонент, ну там есть переменные min max и pos которые отвечают за минимальное, максимальное и установленное значение. При смене ползунка юзером выполняется событие OnChange (аргумент ByMouse который по идеи должен обозначать как изменился ползунок от мыши или от установки переменной, пока не работает).
ну и для этого надо загрузить изображения:
  • TrackNormal - трэкбар,
  • TrackUp - подсвеченый трэкбар (не юзается здесь),
  • TrackDown - нажатый трэкбар (тоже ещё не юзается),
  • TrackDisable - отключённое состояние трэкбара (так же ),
  • Background - фоновое изображение,
  • BackgroundUsed - полоса тянущаяся за трэкбаром,
  • BackgroundDisable - отключённое состояние (не юзается)
__________________
TAleD = class(TUser)
public
function HelpMe(ASubject, ARequest: String): String;
function GiveMeExample(ASubject: String): TStringList;
procedure WriteReview(APost: Integer; ADescription: TStringList);
end;
Ответить с цитированием