Изменить рамки GroupBox?

[pupsik]

нет..

Добавлено спустя 3 минуты 2 секунды:
Хотя...
Проверьте свой лазарь:

[Лекс Айрин]

попробую. Только надо будет провести чистку от моего варианта -- совпадают имена файлов.

Добавлено спустя 22 минуты 39 секунд:
твой вариант даже не собирается

Код: Выделить всё

Компиляция пакета ccpanel 0.0: Код завершения 1, ошибок: 1, подсказок: 2
customcaptionpanel.pas(98,3) Note: Local variable "r" not used
customcaptionpanel.pas(99,3) Note: Local variable "a_left" not used
customcaptionpanel.pas(164,10) Error: Identifier not found "SameStr"

Изыманием из него компонента customcaptionpanel получил работоспособный пакет.

[pupsik]

По идее: вы забыли указать что будет делать компонент в иде. Ну и само собой то что выше было написано.

твой вариант даже не собирается

он не мой я его из ссылки взял и в лазарь "подложил"...
И

Error: Identifier not found "SameStr"

- добавьте в модуль

Код: Выделить всё

function SameStr(const s1,s2:String):Boolean;
begin
 Result:=CompareStr(S1,S2)=0;
end;  \0

возможно у вас нет этой функции.

п.с.
В реальности оба модуля - наброски. Если делать по нормальному то всё будет по другому. В принципе: сами к "кустом контролу" подойдете.
У вас появится разделение на части: шапка (ки) и "бокс". Потом захотите рисовать картинку на фоне, градиент. Возможно появится желание сделать сворачивание бокса. Ну и бордюры могут быть округленные или нет.
При желании - за денёк можно управиться.

[Лекс Айрин]

В общем, я поколдовал с твоим кодом и у меня собрался как отдельный компонент ColorGroup, так что где-то не хватает у меня прямоты рук((( буду работать с тем, что получилось.

В принципе: сами к "кустом контролу" подойдете.

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

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

Не... я точно не смогу. Во-первых, раскачиваюсь долго, а во-вторых, есть еще и параллельные занятия. Я и так в последнее время на программирование жестковато присел.

[pupsik]

Кстати: label я добавил из вредности. Не хотел с отрисовкой шапки заморачиваться.

п.с.

я поколдовал с твоим кодом

там нет моего кода Просто малость адаптировал для лазаря. Вы ведь просили пример. Вот и решил: что бы не мучить свое поломать готовый набросок. Лентяй в общем

[Лекс Айрин]

Просто малость адаптировал для лазаря.

Я вот не смог. И четко понимаю, что из-за не знания принципов работы. Так что пока это то, что нужно.

Кстати: label я добавил из вредности. Не хотел с отрисовкой шапки заморачиваться.

Всегда можно заменить на что-то более "модное"

Добавлено спустя 5 минут 54 секунды:
Плохо, что для проверки изменений приходится перекомпилировать лазаря(((

[pupsik]

Всегда можно заменить на что-то более "модное"

"привязка" к brga и половину не будет необходимости писать. И это не мода, а экономия времени.

п.с.
Главное разобраться в своем коде, а не думать на кривость ИДЕ...

Добавлено спустя 1 минуту 14 секунд:

Плохо, что для проверки изменений приходится перекомпилировать лазаря

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

[Лекс Айрин]

попробуем. Но, в принципе, осталось закруглить рамку, настроить цвета и тогда можно будет думать над тем, что использовать вместо label

Добавлено спустя 7 часов 8 минут 53 секунды:
Решил переделать компонент. Просто потому что из-за непоняток с привязкой внешний вид будет слишком сильно отличаться от оригинала.
Самое смешное, что все, если я прав, получится проще чем я думал.