RbControls for KOL?

← →
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

← →
RA © (2005-08-01 17:47) [50]

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

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

← →
RA © (2005-08-19 15:22) [51]

Теперь и здесь
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

← →
RA © (2005-08-25 09:14) [53]

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

← →
RA © (2005-08-26 11:27) [54]

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!

← →
RA © (2005-08-29 13:32) [58]

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

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

← →
RA © (2005-09-07 14:05) [59]

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? Найти похожие ветки