RbControls for KOL?

← →
RA © (2005-04-22 16:05) [0]

Интересно узнать, как народ относится к идее использования в проектах KOL компонентов типа RbControls (их можно взять здесь http://r.b.a.g.free.fr)? Т.е. они почти готовы, но размер екзешника с некоторыми контролами = около 55к (это с заменой систумных модулей). Поэтому и вспрашиваю стоит ли продолжать?

← →
Thaddy (2005-04-22 19:01) [1]

This is already possible with KOL with bitbtn and the new painted controls. Needs some work by the programmer.

← →
Belchonokh (2005-04-28 06:21) [2]

А ведь можно переделать компоненты MHXPStyle от Gandalf"а так что бы они использовали собственные шкурки (skin) из BMP файла, например как в AlphaControls v4.09 ...

← →
RA © (2005-05-06 17:06) [3]

Вот, наконец-то. Взять KOLRbControls можно здесь:
http://admin.greenhouse.zp.ua/KOLRbControls.rar
С демкой.

← →
Thaddy (2005-05-06 17:19) [4]

Nice :-)

← →
SPeller © (2005-05-07 13:54) [5]

Какой-то резиновый интерфейс получается

← →
BelchonokH (2005-05-07 21:29) [6]

А у меня панельки чёрные... :(

← →
RA © (2005-05-10 09:36) [7]

Первая версия была откровенно глючной. Поэтому вышла v1.1.
News:
1) получно официальное разрешение на перевод RbControls под KOL от автора (VERON - r.b.a.g@free.fr - http://r.b.a.g.free.fr):
RA: "I want translate RbControls for library KOL (http://bonanzas.rinet.ru). Can I do it?"
Nathanael VERON: "of course you can do it until you mention the source of the components and the adress of my website"
2) переделана обработка сообщений
3) переделано св-во down у KOLRbButton
4) доработана отрисовка при align
5) изменены начальные установки компонентов
6) добавленна реакция на события от клавиатуры
7) отображение FocusRect
8) нормальное отображение компонентов на этапе разработки
9) исправлен пакет D6 (спасибо BelchonokH за замечания)
10) много мелких исправлений

← →
RA © (2005-05-10 12:03) [8]

Ссылка все та же:
http://admin.greenhouse.zp.ua/KOLRbControls.rar

← →
Vladimyr © (2005-05-10 12:37) [9]

Сделано неплохо, вот только при нажатии на кнопки моргает кусок какой-то рамки (то есть рисуется верхняя и левая линии рамки, а правая и нижняя, похоже, попадают за границу кнопки).

Я так понимаю, это недоработка отрисовки.

Предлагаю идею собственной отрисовки, которая позволяет полностью избавиться от артефактов:

procedure TMainForm.Btn1Paint(Sender: PControl; DC: HDC); var // добавляем картинку поверх кнопки op: TOnPaint; begin with Sender^ do begin op := OnPaint; OnPaint := nil; Perform (WM_PAINT, DC, 0); OnPaint := op; if Enabled then BitIcon[Tag].Draw (DC, 5, 4) else BitIcon[Tag+4].Draw (DC, 5, 4); // ну, тут можно делать любые свои отрисовки... end; end;

Также вместо Canvas лучше использовать DC. Работать будет быстрее, а под 98-й Виндой канва к тому же откровенно глючит.

← →
Vladimyr © (2005-05-10 13:06) [10]

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

Тут она тоже не нажмётся (то есть не выполнится OnClick),
но зато каждый раз при наведении на неё курсора она будет
как бы нажиматься (то есть отрисовываться как нажатая).

Избавиться от такого поведения можно, нажав кнопку ещё раз
"по-нормальному" (чтобы OnClick сработал).

← →
RA © (2005-05-10 14:18) [11]

Поправленно:
1) при нажатии на кнопки моргает кусок какой-то рамки
2) на кнопку мышью, а затем, не отпуская мыши, отвести курсор за пределы кнопки
Спасибо, Vladimyr.

← →
RA © (2005-05-10 16:09) [12]

Снова обновление.
12) поправлена обработка сообщения WM_PAINT из-за кардинально неправильной отрисовки в 9х
13) исправлена загрузка картинки из ресурса

← →
Vladimyr © (2005-05-10 17:35) [13]

Спасибо, теперь всё клёво! :)

(Хотя канва всё же осталась, глюки в 98-й вроде не лезут.)

← →
MTsv DN (2005-05-11 18:29) [14]

Извеняюсь за наглость...

А нет желание еще и RbAdvComboBox под KOL адаптировать?..

С уважением MTsv DN

← →
RA © (2005-05-20 14:32) [15]

News:
v1.2 (15.05.2005)
1) добавлена отрисовка контролов при transparent=true
2) добавленно св-во transtarent для RbButton в MCK
3) доработано св-во down у RbButton
4) добавлен KOLRbSplitter
5) улучшена отрисовка KOLRbPanel

← →
MTsv DN (2005-05-20 18:14) [16]

2 RA
Привет...
Контролы "обалденные". Спасибо за адаптацию под KOL. Появился такой вопрос:
У меня две формы. Если кинуть на каждую по RbCheckBox, то ехе-шник компилируется, но выдается ошибка "Duplicate Resources". Трассировка программы не получается...но ехе-шник работает правильно (в плане прорисовки)

С уважением MTsv DN

← →
RA © (2005-05-23 09:10) [17]

Ясно. С несколькими формами еще не тестил. Но знаю в чем проблема. При генерации unit_1.inc в него добавляется строка
{$R KOLRbCheckBox.res} - если используется KOLRbCheckBox
или {$R KOLRbRadioButton.res} - если используется KOLRbRadioButton
Поэтому при генерации unit_1.inc для 2-х форм эта строка будет и в unit1_1.inc и в unit2_1.inc, поэтому и вылетает ошибка "Duplicate Resources".
Пока придется удалять вышеозначенную строку в одном из unit_1.inc вручную. В следующей версии эта ошибка будет поправлена.

← →
RA © (2005-05-25 18:18) [18]

News:
v1.3 (25.05.2005)
1) исправленно добавление ресурсов для KOLRbCheckBox и KOLRbRadioButton в MCK,
когда в проекте несколько форм (спасибо MTsv DN за BugReport)
2) поправлена отрисовка KOLRbSplitter
3) добавлен KOLRbStyleManager
4) и снова поправлена отрисовка KOLRbPanel
5) удаленны св-ва DefaultFrom и DefaultTo у KOLRbPanel и KOLRbProgressBar,
теперь к ним нужно добираться через colors; в MCK они остались.
-----------
Компоненты: http://admin.greenhouse.zp.ua/KOLRbControls.rar
Демо: http://admin.greenhouse.zp.ua/KOLRbDemo.rar

← →
rOOse © (2005-05-25 18:22) [19]

[Error] KOLRbControls.pas(3105): Incompatible types: "Integer" and "Extended"

← →
rOOse © (2005-05-25 18:24) [20]

пошло после того как в одном месте поменял знак деления (/) на div

← →
rOOse © (2005-05-25 18:42) [21]

что-то глючит пострашному

← →
RA © (2005-05-27 18:15) [22]

2rOOse
сообщите мне пожалуйста версию Delphi и какую ОС вы используете. И, если возможно, пришлите пожалуйста исходные коды проекта, который глючит (желательно с кратким описанием проблемы).
А демо тоже не работает?

← →
rOOse © (2005-05-27 20:00) [23]

Delphi 6
Windows XP
у меня подозрение что последняя ссылка ведет не туда
демо работает только когда открываешь ее в дельфи он ругается что нету у компонента буттон св-ва флат и т.д. и т.п.

← →
RA © (2005-05-30 09:52) [24]

2rOOse
А как насчет версии KOL? Я использую 2.08.
По ссылкам лежат последние версии - проверенно.

← →
rOOse © (2005-05-30 15:39) [25]

> [24] RA © (30.05.05 09:52)

Наверное вы правы у меня версия 2.0

← →
rOOse © (2005-05-30 17:19) [26]

однако нет проапдейтил кол до 2.8 все равно не получается
насчет св-в молчит а вот прогрессбар когда хочеш поменять позишн вылезает прямо в дезигн тайм exception in KOLRbControlD6.bpl

← →
RA © (2005-05-31 10:22) [27]

Да, глюки в дизайнере отмечаются, поэтому, наверное, придется пока отказаться от отрисовки на этапе разработки, до выяснения причин (возможно они кроются в установке свойств по умолчанию).

← →
MTsv DN (2005-07-15 10:20) [28]

Не смог запустить проект с использованием RbContols при KOL версии 2.10. Пришлось вернуть 2.09

С Уважением MTsv DN

← →
RA © (2005-07-15 16:35) [29]

ОК. Сегодня скачаю и поставлю последний КОЛ. На выходных проверю и выложу новую версию. Один баг уже поправлен, думаю из-за него падал IDE.
Графических контролов (не windowed) пока не будет, т.к. у они не могут (я надеюсь, что пока) обрабатывать некоторые сообщения, в часности WM_MOUSELEAVE, хотя WM_MOUSEFIRST обрабатывается нормально.

← →
RA © (2005-07-18 09:31) [30]

2MTsv DN
Странно, у меня все устанавливается и проекты компилируются. А какие именно проблемы с проектом?

← →
DmiSb (2005-07-19 12:08) [31]

Что-то ни одна из ссылок не работает

Компоненты: http://admin.greenhouse.zp.ua/KOLRbControls.rar
Демо: http://admin.greenhouse.zp.ua/KOLRbDemo.rar

Может кто на мыло закинет, буду очень признателен
DmiSb*inbox.ru

← →
RA © (2005-07-19 14:24) [32]

Хостер или сломался или сбежал. До выяснения обстоятельств (боюсь придется хостера менять) ссылки работать, ясное дело, не будут. Поэтому, если кому нужны KolRbContorls пишите либо здесь либо мне на мыло (что-нибудь одно!) holden<dog>bk{точка}ru. Вышлю.

News:
v1.4 (19.07.2005)
1) При доступе к свойствам и при обработке сообщений добавлена проверка на пустоту CustomObj
(вероятно из-за этого и были падения IDE).

← →
Vladimyr © (2005-07-19 19:25) [33]

мне, если можно...
мыло в анкете

← →
AK Delfin (2005-07-20 23:43) [34]

Идея очень интересная и как мне кажется перспективная для KOL-программеров в плане более "дорогого" дизайна прог. Так что если есть возможность пришлите KOLRbControls на delf_ak@mail.ru

Заранее благодарен!

← →
Thaddy (2005-07-21 10:56) [35]

If you send them to e I will put the latest version on my kol site.

← →
RA © (2005-07-21 12:47) [36]

2Thaddy
Well. I think it"s a good variant.

← →
shalex (2005-07-21 13:53) [37]

Ссылка не работает, вышлите кто-нибудь мне на e-mail: alex@diploms.com

← →
Thaddy (2005-07-21 14:54) [38]

http://www.thaddy.com/kolrbcontrols1.41b.rar
http://www.thaddy.com/kolrbcontrols1.4.rar
http://www.thaddy.com/kolrbdemo1.4.rar

← →
RA © (2005-07-21 14:59) [39]

2Thaddy Thank you very much

Сссылки на KOLRbControls на сайте Thaddy:
Demo http://www.thaddy.com/kolrbdemo1.4.rar
v1.4 http://www.thaddy.com/kolrbcontrols1.4.rar
v1.41b http://www.thaddy.com/kolrbcontrols1.41b.rar

v1.41b (21.07.2005)
1) Добавлена отрисаовка панели на этапе разработки
2) Поправлена отрисовка всех контролов на этапе разрабоки

← →
fellix (2005-07-21 15:45) [40]

http://www.thaddy.com/kolrbdemo1.4.rar
! kolrbdemo1.4.rar: Unexpected end of archive

← →
fellix (2005-07-21 15:50) [41]

> [40]
Although, this isn"t much important because only exe-file is corrupted. Everybody can rebuild it.

← →
RA © (2005-07-21 16:08) [42]

2fellix
if size=550b then don"t use downloader!

← →
Thaddy (2005-07-21 16:27) [43]

I have tested it before I posted the links.
They work.
You need latest version of unrar to unpack them, though.

← →
fellix (2005-07-21 16:38) [44]

> [42][43]
Size is 40542
WinRAR 3.50 beta 7

← →
Thaddy (2005-07-21 16:42) [45]

I will repack them as zipfiles, ok?

← →
fellix (2005-07-21 16:50) [46]

OK. Thanks. :-)

← →
Thaddy (2005-07-21 17:13) [47]

2felix: done!

← →
fellix (2005-07-21 17:23) [48]

> Thaddy [47]
http://www.thaddy.com/kolrbdemo1.4.zip works fine.
Thanks again.

← →
MTsv DN (2005-07-22 16:50) [49]

2 RA
У меня полетели ошибки с несуществующим свойством Anchor (кажется) Может из-за того что Delphi 6 использую...

Как до компа доберусь пересоберу все...

С Уважением MTsv DN

News:
v1.5 (29.07.2005)
1) Оптимизирован код конструкторов
2) Устранены утечки памяти:
- из-за неуничгожения Timer"а
- в процедуре UpdateFrame
3) Подправлен код обращений к свойствам
4) Добавлена перерисовка компонентов при изменении свойства Colors в IDE

Лежат на сайте Thaddy
http://members.chello.nl/t.koning8/kolrbcontrols1_5.zip

Теперь и здесь
http://admin.greenhouse.zp.ua/kolrbcontrols1_5.zip
http://admin.greenhouse.zp.ua/kolrbdemo.zip

← →
homm (2005-08-24 19:49) [52]

RA, я нашел глюк один. Если скачаеш проект мой проект и поставиш на форму RBCheckBox (их там потому и нет), и просто нажмещ на него во время исполнения, то получиш Access vioalent. Помоему там Parent где-то теряется.

http://www.homm86.narod.ru/ets_src.zip

Не качается. Если можно, то скинь на мыло.

2homm
Ты наверное имел ввиду KolRbRadioButton? Попробуй отключить дебугер. Проблема заключается в процедуре TRbControl.DeActivateSiblings. Из-за того что к объектам не применим оператор is, при переборе объектов невозможно определить является ли текущий объект RbControl или же чем-то другим. Судя по описанию в KOL для этих целей служит функция AncestorOfObject, но ти ли я не так понял для чего она, то ли неправильно ее использую. Если кто знает привоже здесь код
for i := 0 to Parent.ChildCount-1 do begin try if (Parent.Children[i]<>@Self)and (TRbControl.AncestorOfObject(Parent.Children[i])) // <- так я пытаюсь определить является ли текущий объект объектом типа PRbControl then begin // делаем необходимые дествия с PRbControl(Parent.Children[i]) end; except end; end;//i

← →
thaddy (2005-08-26 18:51) [55]

Ancestorofobj will fail, because you used the recommended way, and so a RBXXX control is a true KOL control.(Which is good!)
I suggest you change the subclassname property to something like rb_obj_CheckBox, etc.
This makes it possible to check for the controltype, without having to use named controls (and thus extra code).

← →
homm (2005-08-26 20:40) [56]

давай по пунктам.
1. сори я действительно имел ввиду RadioButton.
2. в дебагере, без дебагера, все равно.
3. ты пишеш:
if (Parent.Children[i]<>@Self)and ...
уже сдесь Parent.Children[i] = access violation
i=0 кстати
4. ошибки у тебя или у меня? как мне добится рабочего RadioButton?

← →
thaddy (2005-08-26 21:30) [57]

No,

You have to wait until RA follows my suggestions or finds another solution. (Although, personnally, I do not think he needs to fix this! since it is not a bug, merely an inconvienience))
What you want is now only possible with modifications of the sourcecode.
I am aware that Russian and English language can be difficult, but you misunderstand the real problem.

It wouldn't be too bad if you would investigate this yourself: it is obvious!

News:
v1.51 (29.08.2005)
1) Исправленна процедура DeActivateSiblings, вызываемая при изменении состояния
переключателя (RbRadioButton и RbButton).
(Спасибо Homm за BugReport и Thaddy за идею реализации кода)

Вот ссылка:
http://admin.greenhouse.zp.ua/kolrbcontrols1_51.zip

News:
v1.6 (02.09.2005)
Внесено много исправлений от Карпинского Александра aka Homm:
1) отказ от try ...; как следствие - отключение err
2) теперь, благодаря вводу св-ва FNeedUpdate, метод UpdateGradients вызывается
лишь тогда, когда это действительно необходимо
3) исправлена отрисовка KOLRbCheckBox и KOLRbRadioButton
Другие изменения
4) Удалены лишние invalidate
5) За ненадобностью упразднены EventTextChanged, EventFocusChanged, EventEnabledChanged
6) Исправлено зеркало KOLRbStyleManager (спасибо Карпинскому Александру aka Homm за BugReport)
7) Немного подчистен код

ссылка:
http://admin.greenhouse.zp.ua/kolrbcontrols1_6.zip

← →
MTsv DN (2005-09-15 17:24) [60]

Привет...

У меня возникла такая проблема. На динамической форме появляются RbCheckBox и RbRadioButton... При обновлении до версии 1.6. Стала появляться ошибка при установке свойства Checked для RbRadioButton.

Ошибка в процедуре procedure DeActivateSiblings, вот здесь:

if (PCompData(PRbControl(Parent.Children[i]).CustomObj).FTypeRbControl=cRbButton) and(TypeC=cRbButton)and(PRbControl(Parent.Children[i]).Down) then PRbControl(Parent.Children[i]).SetDown(false);
При проверке PCompData(PRbControl(Parent.Children[i]).CustomObj).FTypeRbControl=cRbButton,
PRbControl(Parent.Children[i]).CustomObj может равняться 0 (при i=0). Отсюда ошибка...
Изменил так:
var po : PObj; ... ... ... po := PRbControl(Parent.Children[i]).CustomObj; if po = nil then exit; if (PCompData(po).FTypeRbControl=cRbButton) and(TypeC=cRbButton)and(PRbControl(Parent.Children[i]).Down) then PRbControl(Parent.Children[i]).SetDown(false);

С уважением MTsv DN

← →
shalex (2005-09-28 15:26) [61]

В RbPanel не могу изменить толщину border? Как это сделать?

← →
MTsv DN (2005-09-28 15:59) [62]

Используй BorderWidth...

С Уважением MTsv DN

← →
shalex (2005-09-28 22:17) [63]

Пробовал...не помогает

← →
MTsv DN (2005-10-06 10:43) [64]

2 RA
Еще предложение... В процедуре SetPosition у ProgressBar"а добавить:

if Min <> Max then D.FPercent := Round(Abs((Position - Min) / (Max - Min)) * 100) else D.FPercent := 0; SendMessage(D.FRbControl.Handle, PBM_SETPOS, D.FPosition, 0); Invalidate;//!!! end;

Это все-таки ProgressBar...

С Уважением MTsv DN

News:
v1.7 (06.10.2005)
1) Для уменьшения размера выходного файла вызов BitBlt заменен на вызов
метода Draw объекта PBitmap
(по рекомендации Карпинского Александра aka homm)
2) Исправлены вызовы событий - некоторые события вызывались дважды
(спасибо Карпинскому Александру aka homm за BugReport)
3) Устранена ошибка, возникающая при установке свойства Checked
(спасибо MTsv DN за исправления)
4) Теперь при изменении Position у ProgressBar"а отправляется сообщение PBM_SETPOS
с первым параметром Position
(спасибо MTsv DN за дополнение)
5) Заработало событие OnMouseDoubleClick
6) У объекта RbStyleManager удалено свойство File
7) Изменен формат хранения стилей для RbStyleManager - теперь размер стиля >= 132 байта,
также добавлены методы:
- function RbStyle2Str:String;
- procedure Str2RbStyle(s:string);
Так стили без проблем можно хранить в ресурсах.
(старые стили не поддерживаются)
8) Теперь при использовании зеркала RbStyleManager нужно вызывать его метод UpdateStyle
преред показом формы (это сделанно из-за того, что вызов указанного метода иногда
распологался в файле unit_1.inc до добавления всех контролов в список менеджера стилей)

ссылка:
http://admin.greenhouse.zp.ua/kolrbcontrols.zip
(теперь такая ссылка будет всегда у самых последних версий, а более ранние будут называться */kolrbcontrolsX_Y.zip)

← →
Thaddy (2005-10-06 20:32) [66]

On RA"s request I will replace my download links to rbcontrols with URL redirections. The problem from earlier this year seems to be solved ;)

← →
MTsv DN (2005-10-21 12:14) [67]

2 RA
Привет... Посмотри тему: http://delphimaster.net/view/11-1129872211/

С Уважением MTsv DN

RbControls for KOL? Найти похожие ветки