ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Заголовок TCategoryPanelGroup
44 сообщений из 44, показаны все 2 страниц
  все  
Заголовок TCategoryPanelGroup
    #39712556
фываенг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фываенг
Участник
Всем привет!
Компонент TCategoryPanelGroup
Можно ли добавить вот в это место к примеру кнопку, которая оставалась бы на месте после открытия?
...
Рейтинг: 0 / 0
03.10.2018, 16:52
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39712557
фываенг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фываенг
Участник
...
Рейтинг: 0 / 0
03.10.2018, 16:53
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39713628
фываенг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фываенг
Участник
Ап
...
Рейтинг: 0 / 0
05.10.2018, 15:00
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39713686
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_nigger
Участник
Можно
...
Рейтинг: 0 / 0
05.10.2018, 15:57
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39713689
фываенг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фываенг
Участник
white_nigger,

Как?
...
Рейтинг: 0 / 0
05.10.2018, 15:59
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39713694
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_nigger
Участник
Программист нужен. Или кто-то, кто способен посмотреть в исходники компонента и понять какие классы и методы надо перекрыть
...
Рейтинг: 0 / 0
05.10.2018, 16:03
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39713698
фываенг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фываенг
Участник
white_nigger, а ты программист?
Вот что я нашёл, вот эти методы
Там на китайском парень пишет:
先看ExtCtrls单元中的TCustomCategoryPanelGroup声明部分：(Это означает Сначала просмотрите раздел декларации TCustomCategoryPanelGroup в модуле ExtCtrls:)
И он показывает этот раздел, скриншотами
Потом показывает (根据以上，在单元文件中声明如下： ----> Согласно вышеизложенному, объявите в файле блока следующее) как он перегружает два метода в своей программе, на скриншоте, а потом пишет реализацию этих методов (уже не на скриншоте, а текстом)

Я не пойму что надо написать чтобы туда кнопку добавить
...
Рейтинг: 0 / 0
05.10.2018, 16:09
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39713699
фываенг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фываенг
Участник
white_nigger,

http://ymg97526.blog.163.com/blog/static/1736581602011618101112386/
...
Рейтинг: 0 / 0
05.10.2018, 16:09
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39713702
фываенг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фываенг
Участник
white_nigger,

Ааа, слушай, я кажется догадался
...
Рейтинг: 0 / 0
05.10.2018, 16:14
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39713704
фываенг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фываенг
Участник
white_niggerПрограммист нужен. Или кто-то, кто способен посмотреть в исходники компонента и понять какие классы и методы надо перекрыть
Спасибо за вот это сообщение, потому что я тупил
...
Рейтинг: 0 / 0
05.10.2018, 16:15
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39713723
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_nigger
Участник
фываенгСпасибо за вот это сообщение, потому что я тупилКраем глаза глянул в китайщину - вроде по делу там. +Тебе ещё обработку мыши перекрыть надо будет. А вообще там не так много кода. Можешь вообще себе перетащить и наживую поправить
...
Рейтинг: 0 / 0
05.10.2018, 16:37
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39713817
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Китайский код делает совершенно другое. А именно - избавляется от полоски при закрытой группе.
...
Рейтинг: 0 / 0
05.10.2018, 21:32
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39713824
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Имитация TCategoryPanelGroup заняла 5 минут
 
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
rocedure TForm1.Panel3Click(Sender: TObject);
var pHeader,pGroup: TPanel;
begin
  pHeader := TPanel(Sender);
  pGroup := TPanel(pHeader.Parent);
  if pGroup.Height = pHeader.Height+1 then begin
    pGroup.Height := pGroup.Tag;
  end
  else begin
    pGroup.Tag := pGroup.Height;
    pGroup.Height := pHeader.Height+1;
  end;
end;


...
Рейтинг: 0 / 0
05.10.2018, 22:15
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39713825
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rgreat
Участник
DimaBr,

...
Рейтинг: 0 / 0
05.10.2018, 22:26
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39713841
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_nigger
Участник
Китайский код делает именно то, что нужно для старта ТС. А именно показывает, что и как надо перекрывать, чтоб добавить что-то своё. В том числе отрисовку. Хотя изобретать страшные велосипеды тоже никто не запрещает
...
Рейтинг: 0 / 0
06.10.2018, 01:39
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39713902
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Все такие умные, только помочь никто не хочет
...
Рейтинг: 0 / 0
06.10.2018, 15:39
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39713913
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_nigger
Участник
DimaBrВсе такие умные, только помочь никто не хочетДля меня гораздо важнее научить человека самого думать и решать,чем совать ему левые готовые решения. Насмотрелся на нынешнее молодое поколение, которое без интернета и готовых решений не могут решить элементарных задач.
...
Рейтинг: 0 / 0
06.10.2018, 18:04
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39714497
фываенг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фываенг
Участник
Думал думал, думал думал
И не понимаю, как правильно нужно написать на месте знаков вопросов
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
procedure TCategoryPanel.DrawHeaderBackground(ACanvas: TCanvas);
var
  Button: TButton;
begin
  Button := TButton.Create(?);
  Button.Parent := ?;
  Button.Left := 0;
  Button.Top := 0;

  inherited;
end;
...
Рейтинг: 0 / 0
08.10.2018, 15:56
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39714506
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
rgreat
Участник
Self.
...
Рейтинг: 0 / 0
08.10.2018, 16:03
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39714525
фываенг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фываенг
Участник
rgreat,

Спасибо, но рисуется кнопка не на заголовке
А внутри
Какой бы метод я не перегружал
...
Рейтинг: 0 / 0
08.10.2018, 16:19
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39714567
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
фываенгно рисуется кнопка не на заголовке
значит не тот родитель
...
Рейтинг: 0 / 0
08.10.2018, 16:50
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39714573
фываенг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фываенг
Участник
Док,

Но я так понял что заголовок TCategoryPanel это часть самого класса TCategoryPanel?
...
Рейтинг: 0 / 0
08.10.2018, 17:07
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39714575
фываенг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фываенг
Участник
это часть класса TCustomCategoryPanel?*
...
Рейтинг: 0 / 0
08.10.2018, 17:08
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39714631
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Сомневаюсь что вам вам самостоятельно удастся это реализовать
...
Рейтинг: 0 / 0
08.10.2018, 18:49
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39714656
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Смысл такой. TCategoryPanel - это окно, клиентская часть которого ограничена, на нём лежит прозрачное окно FPanelSurface, на которое и попадают все заброшенные компоненты.
Поместить компонент в НЕклиентскую часть окна (грубо говоря в заголовок окна) низзя.
Можно перехватить оконную функцию и самостоятельно рисовать кнопку, обрабатывать сообщения движения/нажатия/отпускания мыши.
Оно вам надо ?
...
Рейтинг: 0 / 0
08.10.2018, 19:47
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39714660
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Чисто технически, набрал в поиске "delphi кнопка в заголовке окна", скачал компонент вот отсюда и вуаля

...
Рейтинг: 0 / 0
08.10.2018, 19:51
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39714723
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_nigger
Участник
фываенг, можно взять китайский шаблон и добавить в отрисовку хидера отрисовку кнопки, с нужными наворотами, хоттреками и прочим блекджеком. Заодно потренируешься в обработке мышиных событий
...
Рейтинг: 0 / 0
09.10.2018, 02:59
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39714886
фываенг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фываенг
Участник
white_nigger,

да вот видишь, я в каком методе кнопку не создаю, она появляется внутри, а не в заголовке

DimaBrМожно перехватить оконную функцию и самостоятельно рисовать кнопку, обрабатывать сообщения движения/нажатия/отпускания мыши.

DimaBr, да, получается мне это и надо (Потому что мне в заголовок нужно ещё несколько разных картинок выводить)
Ты говоришь о TWinControl?
Я не могу использовать чьи-то готовые компоненты, такие как TCaptionButton

Честно говоря, я даже не знаю кто из вас прав, просто, white_nigger, ты так утверждаешь, может покажешь хотя бы
...
Рейтинг: 0 / 0
09.10.2018, 13:21
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39714893
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
white_nigger предлагает говорит самое что и я.
Нужно самостоятельно нарисовать кнопку и отслеживать все действия над ней.
То есть это будет не кнопка-компонент, а иллюзия кнопки.
Будите это делать самостоятельно, или это будет сосредоточено в отдельном модуле и называться сторонним компонентом - выбор ваш Всё равно код будет аналогичным.

Повторяю, самый простой способ, кинуть панели на ScrollBox, написать 10 строчек кода и не изобретать велосипед
...
Рейтинг: 0 / 0
09.10.2018, 13:30
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39714901
фываенг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фываенг
Участник
DimaBr,

Если честно немного не понял со скроллбоксом

А вот вывод нескольких картинок в заголовок? Его тоже нельзя осуществить?
...
Рейтинг: 0 / 0
09.10.2018, 13:42
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39714902
фываенг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фываенг
Участник
DimaBr,

(С помощью Canvas)
...
Рейтинг: 0 / 0
09.10.2018, 13:43
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39714917
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_nigger
Участник
фываенг, Что показать? Всё уже показано в компоненте. Шеврон слева в хидере CategoryPanel - по сути и есть кнопка. Ты же тыкаешь в него для раскрытия/сворачивания группы. Какая религия мешает продублировать ЭТО на твою собственную кнопку? Весь код уже написан. Смотри, изучай, пробуй
...
Рейтинг: 0 / 0
09.10.2018, 14:11
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39714919
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
Сделайте так и не мучайтесь. И размещайте любые картинки, кнопки и всё что угодно
...
Рейтинг: 0 / 0
09.10.2018, 14:12
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39714922
фываенг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фываенг
Участник
white_nigger,

Возможно ты неправильно понял, мне надо вот что
21698598
...
Рейтинг: 0 / 0
09.10.2018, 14:21
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39714923
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
...
Рейтинг: 0 / 0
09.10.2018, 14:23
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39714927
фываенг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фываенг
Участник
white_nigger,

И кнопка эта должна делать другие действия (Не сворачивание/разворачивание панели)

DimaBr, эх, тут ведь и суть то, использовать не что-то собственно написанное, а делфевское...
Потому что собственно написанное уже есть
...
Рейтинг: 0 / 0
09.10.2018, 14:28
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39714946
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_nigger
Участник
фываенгВозможно ты неправильно понял, мне надо вот что
21698598 Скорее ты не осилил мой пост. Ещё раз: одна кнопка в хидере уже есть и работает (шеврон). Что тебя останавливает от изучения её реализации? Добавь подобную со своей логикой. Если не способен - то смотри мой первый пост, про программиста
...
Рейтинг: 0 / 0
09.10.2018, 14:58
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39715524
фываенг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фываенг
Участник
white_nigger,

да шеврон это не кнопка!
Это просто картинка такая
А кликнуть мы можем в любое место в заголовке
И он развернётся
...
Рейтинг: 0 / 0
10.10.2018, 13:11
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39715526
фываенг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фываенг
Участник
white_nigger,

Вернее панелька развернётся
...
Рейтинг: 0 / 0
10.10.2018, 13:12
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39715627
white_nigger
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
white_nigger
Участник
фываенгЭто просто картинка такая
А кликнуть мы можем в любое место в заголовке
И он развернётся. Вернее панелька развернётсяНу так придётся-таки, несколько строк дописать в мышином обработчике. Работа программиста она таккая... И разбираться в чужом коде приходится и свой писать. Надеюсь пальцы не сотрёшь
...
Рейтинг: 0 / 0
10.10.2018, 15:55
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39715644
фываенг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фываенг
Участник
white_nigger,

 
Не по темеТы читаешь рэп?


Вот Уайт, Ни44ер (YEAH-YEAH, fo'-fo'), ты говоришь так, как будто уверен на сто процентов что кнопку можно как то просто добавить в заголовок
Видишь, DimaBr дал ссылку на компонент, а там ваще столько всего
Самое смешное что ты говоришь что программист нужен, так и суть то форума в том, чтобы программист не был нужен
...
Рейтинг: 0 / 0
10.10.2018, 16:21
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39715649
Мимопроходящий
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Мимопроходящий
Участник
А ПРА ЧО ТОПЕГ?
А ХТО АФФТАР?

(с)
Posted via ActualForum NNTP Server 1.5
...
Рейтинг: 0 / 0
10.10.2018, 16:29
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39715653
фываенг
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
фываенг
Участник
Мимопроходящий,

А почему ты такой жадный и всё кроешь авторским правом?
...
Рейтинг: 0 / 0
10.10.2018, 16:37
| Ответить | Цитировать | Написать  
Заголовок TCategoryPanelGroup
    #39715774
DimaBr
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
DimaBr
Участник
фываенгтак и суть то форума в том, чтобы программист не был нужен
Нет, суть форума в том чтобы помогать программистам, а не тем, кто не хочет разбираться в чужом коде
...
Рейтинг: 0 / 0
10.10.2018, 20:18
| Ответить | Цитировать | Написать  
44 сообщений из 44, показаны все 2 страниц
  все  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Заголовок TCategoryPanelGroup
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?all=1&fid=58&tid=2040297]:
 0ms
get settings:
 6ms
get forum list:
 9ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 163ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 56ms
get tp. blocked users:
 1ms
others: 211ms
total:  460ms
созд. / загр.: 460ms
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]