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

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

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

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

Ааа, слушай, я кажется догадался
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.10.2018, 16:15
    #39713704
фываенг
фываенг
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заголовок TCategoryPanelGroup
white_niggerПрограммист нужен. Или кто-то, кто способен посмотреть в исходники компонента и понять какие классы и методы надо перекрыть
Спасибо за вот это сообщение, потому что я тупил
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.10.2018, 16:37
    #39713723
white_nigger
white_nigger
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заголовок TCategoryPanelGroup
фываенгСпасибо за вот это сообщение, потому что я тупилКраем глаза глянул в китайщину - вроде по делу там. +Тебе ещё обработку мыши перекрыть надо будет. А вообще там не так много кода. Можешь вообще себе перетащить и наживую поправить
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.10.2018, 21:32
    #39713817
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заголовок TCategoryPanelGroup
Китайский код делает совершенно другое. А именно - избавляется от полоски при закрытой группе.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
05.10.2018, 22:15
    #39713824
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заголовок TCategoryPanelGroup
Имитация 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:26
    #39713825
rgreat
rgreat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заголовок TCategoryPanelGroup
DimaBr,

...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2018, 01:39
    #39713841
white_nigger
white_nigger
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заголовок TCategoryPanelGroup
Китайский код делает именно то, что нужно для старта ТС. А именно показывает, что и как надо перекрывать, чтоб добавить что-то своё. В том числе отрисовку. Хотя изобретать страшные велосипеды тоже никто не запрещает
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2018, 15:39
    #39713902
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заголовок TCategoryPanelGroup
Все такие умные, только помочь никто не хочет
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
06.10.2018, 18:04
    #39713913
white_nigger
white_nigger
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заголовок TCategoryPanelGroup
DimaBrВсе такие умные, только помочь никто не хочетДля меня гораздо важнее научить человека самого думать и решать,чем совать ему левые готовые решения. Насмотрелся на нынешнее молодое поколение, которое без интернета и готовых решений не могут решить элементарных задач.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2018, 15:56
    #39714497
фываенг
фываенг
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заголовок TCategoryPanelGroup
Думал думал, думал думал
И не понимаю, как правильно нужно написать на месте знаков вопросов
Код: 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, 16:03
    #39714506
rgreat
rgreat
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заголовок TCategoryPanelGroup
Self.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2018, 16:19
    #39714525
фываенг
фываенг
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заголовок TCategoryPanelGroup
rgreat,

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

Но я так понял что заголовок TCategoryPanel это часть самого класса TCategoryPanel?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2018, 17:08
    #39714575
фываенг
фываенг
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заголовок TCategoryPanelGroup
это часть класса TCustomCategoryPanel?*
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2018, 18:49
    #39714631
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заголовок TCategoryPanelGroup
Сомневаюсь что вам вам самостоятельно удастся это реализовать
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
08.10.2018, 19:47
    #39714656
DimaBr
DimaBr
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Заголовок TCategoryPanelGroup
Смысл такой. TCategoryPanel - это окно, клиентская часть которого ограничена, на нём лежит прозрачное окно FPanelSurface, на которое и попадают все заброшенные компоненты.
Поместить компонент в НЕклиентскую часть окна (грубо говоря в заголовок окна) низзя.
Можно перехватить оконную функцию и самостоятельно рисовать кнопку, обрабатывать сообщения движения/нажатия/отпускания мыши.
Оно вам надо ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
  1  все
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Заголовок TCategoryPanelGroup / 25 сообщений из 44, страница 1 из 2
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение  
Полит. конфиден.  
созд. / загр.: 480ms
Закрыть
start [/forum/topic.php?fid=58&tablet=1&tid=2040297]:
 0ms
get settings:
 7ms
get forum list:
 14ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 173ms
get topic data:
 11ms
get forum data:
 2ms
get page messages:
 60ms
get tp. blocked users:
 1ms
others: 206ms
total:  480ms
x
x
Закрыть


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