Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Memo object!

JumpingJack © (2005-08-01 13:40:00)
Hi again, folks! How to set maxlength and vertical or horizontal scrollbars? There's a Memo1.maxlength and Memo1.Scrollbars properties in Delphi's TMemo, but i can't find it in KOL's Memo..

jumpingjack (2005-08-02 12:22:00) [1]
Или слово Damn мне защитали за ругательство? В таком случае - извиняюсь :)

По поводу моей проблемы - уж не знаю в чем дело, но придя сегодня за работу и начав разбираться с этим все заработало! =) И перформ работает и стиль у контролов нормальный.. Я ничего не менял.. просто само.. бывает %)

jumpingjack (2005-08-02 12:19:00) [2]
Немного непонятно какой из пунктов я нарушил?

ECM (2005-08-02 10:52:00) [3]
jumpingjack © (01.08.05 20:32) [10]
Огромное спасибо.. но я не видел нигде ссылку на правила :)

http://www.delphimaster.ru/forums.shtml#rule
И еще полезно:
http://www.ln.ua/~openxs/articles/smart-questions-ru.html

Thaddy (2005-08-01 21:08:00) [4]
The upgrades only work if your original KOL.pas is really as it was send. (Otherwise you will have to download the full version, which is available at http://bonanzas.rinet.ru/kol.zip.Also download a new MCK. You may inadvertently have made some changes to the original.
ECM's demo works!

jumpingjack (2005-08-01 20:32:00) [5]
Огромное спасибо.. но я не видел нигде ссылку на правила :)

panov (2005-08-01 19:30:00) [6]
Хочу обратить внимание участников на существующие правила.

jumpingjack (2005-08-01 19:17:00) [7]
Не качается ваш пример... как как узнать какая версия у меня?

Mirror Classes Kit for Key Objects Library, v2.00 [15-Nov-2004] - походу дела у меня 2.00? :)

Скачивал файл апгрейда до 2.10 - не работает.

ECM (2005-08-01 17:34:00) [8]
Вот простейший проект (исходники+exe) http://kolibdb.100free.com/TestMemo.zip
... Все работает и отображается как положено...
Накидал за 10 мин. [KOL 2.10 Delphi 7,Win2003]

А в MSDN описано что конкретно делает EM_LIMITTEXT и в каких случаях

jumpingjack (2005-08-01 17:10:00) [9]
Хорошо, давайте по-русски :)

Пишу:
procedure TForm1.FormCreate(Sender: TObject); begin Memo1.Perform(EM_LIMITTEXT, 10, 0); end;
и все равно можно вводить столько символов, сколько позволяют размеры Мемо поля (если отключены полосы прокрутки). Немного непонятно причем тут MSDN.. :)

По поводу рамок - вот какая рамка у меня получается, если я порсто положу EditBox и Memo на форму и запущу проект: http://www.jumpingjack.nm.ru/controls.JPG, а хотелось бы, чтобы выглядело вот так: http://www.jumpingjack.nm.ru/controls2.JPG:)

ECM (2005-08-01 15:42:00) [10]
З.Ы.
..или используется FLAT-стиль от XP/2003..

ECM (2005-08-01 15:38:00) [11]
Может по-русски все таки проще, Василий?. Тем более Thaddy умеет понимать (читать,переводить?) руский текст....:)

[3] -> Специально проверил:
procedure TForm1.KOLForm1FormCreate(Sender: PObj);
begin
Memo1.Perform(EM_LIMITTEXT,10,0);
...
Больше 10 - символов не вводится... Почитай MSDN.

[2] -> 3D - рамка ВСЕГДА есть у KOL-овских (точнее Win32) контролов по умолчанию, кроме случаев когда у них установлено свойство Ctrl3D = FALSE или не используется FLAT-стиль от XP/2003.

jumpingjack (2005-08-01 15:21:00) [12]
ECM, it's don't work with Memo1.Perform(EM_LIMITTEXT, Value, 0);.. I put it in FormCreate procedure, but it's don't want to work (i mean that there's no limits for text entering).

jumpingjack (2005-08-01 15:11:00) [13]
ok, thanks! but, Scrollbars's properties i found by myself :)

One more question: How to set KOL controls to normal Delphi's control style? 'Cause KOL's controls don't have a 3d frame for editboxes and memos! Is it possible?

ECM (2005-08-01 14:52:00) [14]
1) MaxLength for Memo:

Memo1.Perform(EM_LIMITTEXT, Value, 0);

2) Scrollbars for Memo:
See Options.eo_No(H,V)ScrollBars in Object Inspector (MCK)
or use
NewEditBox( Parent, [ eoMultiline, [eoNoHScroll, eoNoVScroll ] )

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »