ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Заголовок TCategoryPanelGroup
25 сообщений из 44, страница 1 из 2
  1  все
Заголовок 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
| Ответить | Цитировать | Написать  
25 сообщений из 44, страница 1 из 2
  1  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Заголовок TCategoryPanelGroup
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&msg=39713913&tid=2040297]:
 0ms
get settings:
 6ms
get forum list:
 8ms
check forum access:
 2ms
check topic access:
 2ms
track hit:
 158ms
get topic data:
 7ms
get forum data:
 2ms
get page messages:
 38ms
get tp. blocked users:
 1ms
others: 208ms
total:  432ms
созд. / загр.: 432ms
x
x
Закрыть


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