[решено] Журнал

[NickDang]

Нужно сделать журнал в моем исходнике. Чтобы в нем писало программы, которые были выбраны. То есть клацаем по speedbuton и в журнале пишется такая-то программа. Можно ли реализовать мою идею?
добавляю Архив с Unit1.pas

[Drongo]

NickDang, Пропишите в каждой функции speedbutton'a.
Memo1.Lines.Add('имя_вашей_программы');
Memo1.Lines.SaveToFile('MyJournal.txt');
Или в TStringList и сохранение в файл.

Но насколько я понял ваш исходник, вам лучше реализовать всё хранение программ в ini-файле, считывая данные не через кнопки, а через выделеную строку нужной программы, примерно как в моём проекте - Quick Killer 3.0 Final (http://forum.oszone.net/thread-221666.html)

[NickDang]

Я забыл написать, журналом является Memo, который находится на той же форме. То есть он всегда будет под рукой и можно просмотреть какие программы уже запущены. при том нужно чтобы при закрытии исходника, журнал не сохранял историю..

[LilLoco]

NickDang, Drongo привел вам пример, как раз с Memo...
при том нужно чтобы при закрытии исходника, журнал не сохранял историю.. »
Он и не будет сохраняться... Если вы это не предусмотрите.
Сделать просто
Memo1.Lines.Add('имя_вашей_программы');

можно просмотреть какие программы уже запущены »
А если закрыть открытое приложение и потом снова открыть, и так раз N, то в журнале будет как будто сейчас запущено N копий этой программы?

[NickDang]

Всё понял, а как сделать вертикальный бегунок чтобы листать журнал?

[ferget]

вроде вертикальный бегунок сам появляется если строк больше, чем может поместится в memo

[NickDang]

нет, вот уже сколько жму Enter и не появился.

[ferget]

свойство ScrollBars у memo установите в ssVertical

[NickDang]

ScrollBars в стандартных у меня только горизонтальный, а нужен вертикальный. не подскажете где он?
и можно подробно что прописать и где

[ferget]

в графическом редакторе должно быть в свойствах

[LilLoco]

Возможно, можно включить так:
memo.ScrollBars:=ssVertical;
Добавьте эту строку, например, в обработчик загрузки формы.
Или же ищите это в свойствах, должно быть...

[NickDang]

Нашол Kind sbVertical в параметрах. а теперь что и где прописать нужно, чтобы она листала журнал

[LilLoco]

Решил сам поискать свойство - легко нашлось....
В окне Properties для Memo1
ScrollBars -> ssVertical

NickDang, О чем говорите вы, вообще почему то непонятно :)

[NickDang]

хм... прописал код: memo1.ScrollBars:=ssVertical; в scrollbar е. ставлю курсор в Memo1 теперь нажимаю Enter и появляется на Memo1 этот бегунок, который работает, а scrollbar нет. то есть когда был сделан скрол бар, то заработал бегунок на memo, который не работал при отсутствии scrollbar...

[LilLoco]

NickDang, Реально ничего не понял :)
Про какие скролбары вы говорите?- про свойства?или же вы добавляете как контрол их?

[NickDang]

проблема решена. нужно было добавить memo1.ScrollBars:=ssVertical; в Memo1 )

[LilLoco]

NickDang, По правилам форума,- новый вопрос - новая тема....

[NickDang]

извините)