MHUpDown

← →
swa1 (2009-03-10 17:19) [0]

Кто ни будь может ткнуть меня носом в пример использования контрола.

Желательно под Lazarus

← →
mdw © (2009-03-10 17:41) [1]

Вариант 1.
Помещаешь на форму, указываешь Max и Min, задаешь Buddy (KOLEditBox), наслаждаешься.

Вариант 2.
Помещаешь на форму, Max:=1 и Min:= 0, Задаешь обработчик OnScroll, там обрабатываешь что и как хочешь.

← →
swa1 (2009-03-10 23:17) [2]

> Помещаешь на форму, указываешь Max и Min, задаешь Buddy
> (KOLEditBox), наслаждаешься.

Блин...Че не так я делаю? Где ошибаюсь...может в генах :) ....
В Lazarus -0.9.27 svn 22.02.09(ver. 18798)
fpc 2.2.3
kol&mck (ce) svn 22.02.09 (ver.2.80.3)

Создаю проект kol
Сохраняю
Бросаю на форму
EditBox1: TKOLEditBox;
MHUpDown1: TKOLMHUpDown;
Как указано выше .... Привязываю Buddy, задаю мин и мах....
Если первым бросил EditBox. то после компиляции его видно, но любые повторные действия (изменение размера, привзяка к форме) пофиг...Никаких изменений.
Если первым бросил MHUpDown...То EditBox, даже НЕ ВИДНО!!!! Т.е. не появляется, хотя в обоих случаях на форме я все вижу и изменяю...

mdw плиЗ! Выложи где ли бо пример (проектик) , так что бы я смог посмотреть и скомпилировать у себя. Самый простой.

← →
swa1 (2009-03-10 23:54) [3]

Вобщем, файл
(имя pas юнита)_1.inc прекращает изменяться после того как я бросаю на форму MHUpDown...
и даже если удаляю, беда та же....Что то ломается в проекте.

← →
mdw © (2009-03-11 13:17) [4]

У меня работает нормально.
Вот пример:
kolnmck.kolmck.net/111.zip

← →
swa1 (2009-03-11 13:34) [5]

Подумал я с утра, может что то криво встало....
Ща все поставлю начисто начиная с Lazarus-a. Давно хотел сделать себе портабль версию...Вот и повод.
Как закончу, отпишусь.

← →
swa1 (2009-03-11 14:55) [6]

> Вот пример:kolnmck.kolmck.net/111.zip

При попытке открытия проекта сразу получил что нужен пакет MirrorKolPackage 2.88 и более;

после кучи ошибок с формой типа

Stream=TForm1: Root=:TForm1
Component Class: TKOLProject
Error reading KOLProject1.DefaultFont.Color: Unknown property: "DefaultFont"
Stream position: 1165

In file C:\projects\111\Unit1.lfm
Error reading KOLProject1.DefaultFont.FontName: Unknown property: "DefaultFont"

проект открылся.... Саму форму я так и не нашел, но по ее координатам понял, что монитор у вас хороший и лежит она за пределами моего экрана.

Вопросы:
Что сделать что бы перейти на MirrorKolPackage 2.88, точнее где его брать?

Что это за DefaultFont, вы выставляете какой то конкретный ?

В остальном, пока разбираюсь, что к чему и почему у вас работает, а у меня нет.

← →
mdw © (2009-03-11 15:43) [7]

> Что сделать что бы перейти на MirrorKolPackage 2.88, точнее
> где его брать?

MirrorKolPackage 2.88 взять с SVN.
Lazarus у меня 0.9.26 beta FPC 2.2.2 может и посвежее есть, давно не смотрел.

> Что это за DefaultFont, вы выставляете какой то конкретный?

Не понял. Font.Name = default? Это что-то Lazarus выставляет, но для KOL проекта фонт берется из KOLForm.

← →
swa1 (2009-03-11 16:36) [8]

Пробовал я под Lazarus-0.9.27-18951-fpc-2.2.5-20090311-win32
MirrorKolPackage был из kol-ce-2.80.3
Сделал копию вашего примера. Ну и вобщем та же лабуда. После того как бросаю на форму MHUpDown., Все!!! В Unit1_1.inc ничего больше не пишется...Т.е. никаких изменений.
Сравнил ваш и свой, поправил ручками. Заработало. И конролы появились и файлик меняться стал.
Щас вот дотяну старую (0.9.26 beta FPC 2.2.2) версию лазаруса, может в нем заработает без шаманства.

← →
swa1 (2009-03-11 18:11) [9]

Все, закрыт вопрос. Под 0.9.26, как я только не издевался, а в 90% все получалось тип-топ.
Под 0.9.27... :(. Ни разу ни склеилось.
Раскопать причину у меня серого в-ва не хватит....

← →
swa1 (2009-11-04 14:33) [10]

Будирую тему
Под lazarus 0.9.28.2 с fpc 2.2.4 этот компонент (MHUpDown) ведет себя как выше описано....
Т.е. файл <UnitName>_1.inc, после подключения MHUpDown, не пересоздается.

← →
mdw © (2009-11-10 13:50) [11]

Я так подозреваю, что дело не MHUpDown, а в lazarus. У меня в 0.9.27 пересоздается только маин форма (в смысле ini файл). Только заметил, как то не нужен был дизайнер одно время. Поставил 0.9.29 - совсем беда....
Похоже придется двигаться в сторону 0.9.26.

← →
swa1 (2009-11-10 17:44) [12]

> Я так подозреваю, что дело не MHUpDown, а в lazarus.

Может быть,...
но как мне известно файл <UnitName>_1.inc генерится KOL-ом.
Вот что я вычитал
For every unit with form, additional file <UnitName>_1.inc is generated automatically. You should never change it manually.

> Похоже придется двигаться в сторону 0.9.26.

Не выше... :( Даже 0.9.26-2 не работает.

← →
mdw © (2009-11-10 19:22) [13]

Работает 0.9.28.3.
С MHUpDown разобрался, но на самом деле это все же глюк Lazarus, ну да пускай... Завтра выложу.

← →
swa1 (2009-11-11 10:28) [14]

> Завтра выложу.

Как выложите, сообщите?
Заодно, можно ли выложить KOLXMLParser?

← →
mdw © (2009-11-11 11:33) [15]

MHUpDown обновил
XMLParser:
kolnmck.kolmck.net/KOLXMLParser.zip

← →
swa1 (2009-11-11 14:51) [16]

> MHUpDown обновил

Если http://kolnmck.kolmck.net/files/components/controls/mhupdown.7z
.....
Хм.... Но там лежит MHUpDown от 26.02.2008 (не по дате на страничке, а по дате файлов в архиве) ?

← →
swa1 (2009-11-11 15:29) [17]

> Работает 0.9.28.3.

Попробовал Lazarus 0.9.29 (fpc 2.3.1) - MHUpDown от 26.02.2008 - работает :)

> Попробовал Lazarus 0.9.29 (fpc 2.3.1)

У меня эта версия (Lazarus-0.9.29-22511-fpc-2.3.1-20091110) не работает с событиями KOL-компонентов.

> MHUpDown от 26.02.2008

Специально скачал, ни одного файла с такой датой. Может что-то, где-то кешируется?

← →
swa1 (2009-11-12 15:19) [20]

Перекачал. Спасибо, все хорошо.

По поводу KOLXMLParser. Вы там используете юнит err. Это тот, что из kol_err.zip или уже подстроенный под Lazarus?
Или же KOLXMLParser работает только в delphi ?

В Lazarus"e на прямую не пробовал, собственно вообще KOLXMLParser не использовал, брал как основу для разбора fb2. Правда почти ничего и не осталось от основы в результате..:)

По поводу err, то просто убейте его и что он там тянет. В Lazarus tray except и без err работает (в смысле не вываливается как в Delphi), по крайней мере под WinCE. Ну или адаптируйте err для Lazarus, если есть желание.

MHUpDown Найти похожие ветки