Точка у свойства TaskBar - можно ли?

Вверх ↑

Форумы Между деломТочка у свойства TaskBar - можно ли? ← Ctrl1Ctrl →

Этот топик читают: Гость

Гость

Ответов: 17029

Рейтинг: 0

#1: 2007-01-31 01:02:31 правка | ЛС | профиль | цитата

Редактировалось 2 раз(а), последний 2025-01-09 21:05:55

карма: 0

Ответов: 8976

Рейтинг: 825

#2: 2007-01-31 08:56:51 ЛС | профиль | цитата

112, в любой компонент можно добавить что хочется: в *.pas - соответствующую процедуру,
а в *.ini - описание точки

карма: 19

Гость

Ответов: 17029

Рейтинг: 0

#3: 2007-01-31 11:01:46 правка | ЛС | профиль | цитата

Редактировалось 2 раз(а), последний 2025-01-09 21:05:56

карма: 0

Ответов: 8976

Рейтинг: 825

#4: 2007-01-31 11:12:40 ЛС | профиль | цитата

112,

что конкретно нужно добавить/изменить

зависит от цели, на форуме много примеров: посмотрите ещё здесь (код №874 и Conv.rar) http://www.dev.hiasm.com/xf/topic.php?t=7373&start=15 и сравните файлы.

карма: 19

Гость

Ответов: 17029

Рейтинг: 0

#5: 2007-01-31 14:34:10 правка | ЛС | профиль | цитата

Редактировалось 2 раз(а), последний 2025-01-09 21:05:56

карма: 0

Ответов: 2125

Рейтинг: 159

#6: 2007-01-31 15:04:55 ЛС | профиль | цитата

Сделать процедуру _work_doTaskBar.
В объявлении класса добавить

     procedure _work_doTaskBar(var Data:TData; Index:word);[/code]
В реализации
procedure THIMainForm._work_doTaskBar;
begin
   _prop_TaskBar := ToInteger(Data);
end;

карма: 1

Ответов: 9906

Рейтинг: 351

#7: 2007-01-31 15:10:53 ЛС | профиль | цитата

Ну-ну...

карма: 9

Ответов: 2125

Рейтинг: 159

#8: 2007-01-31 15:20:27 ЛС | профиль | цитата

Сам ну-ну. Ну не работает так, ну и что. Можно-ж и вот так сделать:

procedure THIMainForm._work_doTaskBar;
begin
  Applet.Visible := ToInteger(Data) <> 0;
end;

карма: 1

Ответов: 233

Рейтинг: 1

#9: 2007-02-02 13:26:50 ЛС | профиль | цитата

Усё, теперь работает! Спасибо!

карма: 0

%time%

Форумы Между деломТочка у свойства TaskBar - можно ли? ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)