Memo object!

← →
JumpingJack © (2005-08-01 13:40) [0]

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..

← →
ECM © (2005-08-01 14:52) [1]

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 ] )

← →
jumpingjack © (2005-08-01 15:11) [2]

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?

← →
jumpingjack © (2005-08-01 15:21) [3]

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).

← →
ECM © (2005-08-01 15:38) [4]

Может по-русски все таки проще, Василий?. Тем более 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.

← →
ECM © (2005-08-01 15:42) [5]

З.Ы.
..или используется FLAT-стиль от XP/2003..

← →
jumpingjack © (2005-08-01 17:10) [6]

Хорошо, давайте по-русски :)

Пишу:
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 17:34) [7]

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

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

← →
jumpingjack © (2005-08-01 19:17) [8]

Не качается ваш пример... как как узнать какая версия у меня?

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

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

← →
panov © (2005-08-01 19:30) [9]

Хочу обратить внимание участников на существующие правила.

← →
jumpingjack © (2005-08-01 20:32) [10]

Огромное спасибо.. но я не видел нигде ссылку на правила :)

← →
Thaddy (2005-08-01 21:08) [11]

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 © (01.08.05 20:32) [10]
Огромное спасибо.. но я не видел нигде ссылку на правила :)

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

Немного непонятно какой из пунктов я нарушил?

Или слово Damn мне защитали за ругательство? В таком случае - извиняюсь :)

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

Memo object! Найти похожие ветки