| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
RbControls for KOL? [Delphi, Windows]
RA © (2005-04-22 16:05:00)Интересно узнать, как народ относится к идее использования в проектах KOL компонентов типа RbControls (их можно взять здесь http://r.b.a.g.free.fr)? Т.е. они почти готовы, но размер екзешника с некоторыми контролами = около 55к (это с заменой систумных модулей). Поэтому и вспрашиваю стоит ли продолжать?
MTsv DN (2005-10-21 12:14:00) [1]2 RA
Привет... Посмотри тему: http://www.delphimaster.ru/cgi-bin/forum.pl?id=1129872211&n=10
С Уважением MTsv DN
Thaddy (2005-10-06 20:32:00) [2]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 ;)
RA (2005-10-06 12:37:00) [3]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)
MTsv DN (2005-10-06 10:43:00) [4]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
shalex (2005-09-28 22:17:00) [5]Пробовал...не помогает
MTsv DN (2005-09-28 15:59:00) [6]Используй BorderWidth...
С Уважением MTsv DN
shalex (2005-09-28 15:26:00) [7]В RbPanel не могу изменить толщину border? Как это сделать?
MTsv DN (2005-09-15 17:24:00) [8]Привет...
У меня возникла такая проблема. На динамической форме появляются 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
RA (2005-09-07 14:05:00) [9]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
RA (2005-08-29 13:32:00) [10]News:
v1.51 (29.08.2005)
1) Исправленна процедура DeActivateSiblings, вызываемая при изменении состояния
переключателя (RbRadioButton и RbButton).
(Спасибо Homm за BugReport и Thaddy за идею реализации кода)
Вот ссылка:
http://admin.greenhouse.zp.ua/kolrbcontrols1_51.zip
thaddy (2005-08-26 21:30:00) [11]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!
homm (2005-08-26 20:40:00) [12]давай по пунктам.
1. сори я действительно имел ввиду RadioButton.
2. в дебагере, без дебагера, все равно.
3. ты пишеш:
if (Parent.Children[i]<>@Self)and ...
уже сдесь Parent.Children[i] = access violation
i=0 кстати
4. ошибки у тебя или у меня? как мне добится рабочего RadioButton?
thaddy (2005-08-26 18:51:00) [13]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).
RA (2005-08-26 11:27:00) [14]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
RA (2005-08-25 09:14:00) [15]Не качается. Если можно, то скинь на мыло.
homm (2005-08-24 19:49:00) [16]RA, я нашел глюк один. Если скачаеш проект мой проект и поставиш на форму RBCheckBox (их там потому и нет), и просто нажмещ на него во время исполнения, то получиш Access vioalent. Помоему там Parent где-то теряется.
http://www.homm86.narod.ru/ets_src.zip
RA (2005-08-19 15:22:00) [17]Теперь и здесь
http://admin.greenhouse.zp.ua/kolrbcontrols1_5.zip
http://admin.greenhouse.zp.ua/kolrbdemo.zip
RA (2005-08-01 17:47:00) [18]News:
v1.5 (29.07.2005)
1) Оптимизирован код конструкторов
2) Устранены утечки памяти:
- из-за неуничгожения Timer'а
- в процедуре UpdateFrame
3) Подправлен код обращений к свойствам
4) Добавлена перерисовка компонентов при изменении свойства Colors в IDE
Лежат на сайте Thaddy
http://members.chello.nl/t.koning8/kolrbcontrols1_5.zip
MTsv DN (2005-07-22 16:50:00) [19]2 RA
У меня полетели ошибки с несуществующим свойством Anchor (кажется) Может из-за того что Delphi 6 использую...
Как до компа доберусь пересоберу все...
С Уважением MTsv DN
fellix (2005-07-21 17:23:00) [20]> Thaddy [47]
http://www.thaddy.com/kolrbdemo1.4.zipworks fine.
Thanks again.
| |
Страницы: 