ReSQL.ru
     
powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Lazarus: получить координаты заголовка TabSheet
18 сообщений из 18, страница 1 из 1
Lazarus: получить координаты заголовка TabSheet
    #39755625
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
Мужики, пытаюсь решить проблему.

У лазаревского PageControl авторы по непонятным мотивам кастрировали OnDrawTab.

Как можно получить координаты(или прямоугольник выделения) заголовка активной вкладки?
=================
Док.
...
Рейтинг: 0 / 0
03.01.2019, 09:30
| Ответить | Цитировать | Написать  
Lazarus: получить координаты заголовка TabSheet
    #39755640
Фотография makhaon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
makhaon
Участник
Док,

чаще всего там что-то кастрировано в угоду кросс-платформенности. lcl как бы кроссплатформенный целиком, в отличие от vcl. по теме ничего не скажу, к сожалению.
...
Рейтинг: 0 / 0
03.01.2019, 11:50
| Ответить | Цитировать | Написать  
Lazarus: получить координаты заголовка TabSheet
    #39755641
pit_alex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pit_alex
Участник
Док,

относительно самого PageControl

Код: pascal
1.
2.
3.
4.
5.
var
   r: TRect;
begin
  r := PageControl1.TabRect(PageControl1.ActivePageIndex); 
end;
...
Рейтинг: 0 / 0
03.01.2019, 11:54
| Ответить | Цитировать | Написать  
Lazarus: получить координаты заголовка TabSheet
    #39755674
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
pit_alexотносительно самого PageControl
О! Сенькаю много раз !!!

Правда, непонятно, почему R.Top дает на 22 px выше, чем есть фактически, но это уже детали.
...
Рейтинг: 0 / 0
03.01.2019, 14:36
| Ответить | Цитировать | Написать  
Lazarus: получить координаты заголовка TabSheet
    #39755691
pit_alex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pit_alex
Участник
Док,

у меня r.Top дает как раз -22
...
Рейтинг: 0 / 0
03.01.2019, 15:51
| Ответить | Цитировать | Написать  
Lazarus: получить координаты заголовка TabSheet
    #39755694
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
pit_alexу меня r.Top дает как раз -22
и я о том же, поэтому приходится делать поправку
Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
procedure TForm1.PgCtrlChange(Sender: TObject);
var R: TRect;
begin
  if PgCtrl.PageCount = 0 then Exit;

  R:= PgCtrl.TabRect(PgCtrl.ActivePageIndex);
  Self.Caption:= Format('Left = %d | Top = %d | PageIndex = %d | Caption = %s',
    [R.Left + offset + PgCtrl.Left,
     R.Top + offset +  PgCtrl.Top,
     PgCtrl.ActivePageIndex,
     PgCtrl.ActivePage.Caption]);
end;
...
Рейтинг: 0 / 0
03.01.2019, 16:05
| Ответить | Цитировать | Написать  
Lazarus: получить координаты заголовка TabSheet
    #39755695
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
Докприходится делать поправку
соответственно
Код: pascal
1.
const offset: Integer = 22;
...
Рейтинг: 0 / 0
03.01.2019, 16:06
| Ответить | Цитировать | Написать  
Lazarus: получить координаты заголовка TabSheet
    #39755801
pit_alex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pit_alex
Участник
Док,

хз, можно конечно в исходниках порыться, но ..... :-)
...
Рейтинг: 0 / 0
04.01.2019, 10:26
| Ответить | Цитировать | Написать  
Lazarus: получить координаты заголовка TabSheet
    #39756144
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
pit_alex,

TPageControl в лазарусе - такой шлак, который кто-то взялся делать, но бросил на полпути, добавив минимальный функционал для Qt. Давно чешутся руки взяться за него, но ни времени, ни знаний не хватает.
...
Рейтинг: 0 / 0
05.01.2019, 18:04
| Ответить | Цитировать | Написать  
Lazarus: получить координаты заголовка TabSheet
    #39756668
pit_alex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pit_alex
Участник
Док,

пробовал поднять QT и GTK3 на Linux, ничего хорошего не получилось, QT вообще не победил, а GTK3 полный отстой, на винде непробовал
...
Рейтинг: 0 / 0
08.01.2019, 10:06
| Ответить | Цитировать | Написать  
Lazarus: получить координаты заголовка TabSheet
    #39756892
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
pit_alexQT вообще не победил, а GTK3 полный отстой, на винде непробовал
ты имеешь ввиду обсуждаемый компонент?
...
Рейтинг: 0 / 0
08.01.2019, 23:02
| Ответить | Цитировать | Написать  
Lazarus: получить координаты заголовка TabSheet
    #39757136
pit_alex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pit_alex
Участник
Док,

нет полностью пересобрать лазаря
...
Рейтинг: 0 / 0
09.01.2019, 13:35
| Ответить | Цитировать | Написать  
Lazarus: получить координаты заголовка TabSheet
    #39757147
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
pit_alexполностью пересобрать лазаря
странно. Тут читал?

Кроме того, есть fpcupdeluxe , который 100%-но решает проблему установки Лазаря на любую платформу.
...
Рейтинг: 0 / 0
09.01.2019, 13:47
| Ответить | Цитировать | Написать  
Lazarus: получить координаты заголовка TabSheet
    #39757151
pit_alex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pit_alex
Участник
Док,

ставиться он нормально, но при попытке пересобрать с другим LCL виджетом ничего хорошего не выходит
...
Рейтинг: 0 / 0
09.01.2019, 13:55
| Ответить | Цитировать | Написать  
Lazarus: получить координаты заголовка TabSheet
    #39757162
Kazantsev Alexey
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Kazantsev Alexey
Участник
Там просто поддержка GTK3 на каком-то зачаточном уровне. Глючит всё, что может глючить.
...
Рейтинг: 0 / 0
09.01.2019, 14:15
| Ответить | Цитировать | Написать  
Lazarus: получить координаты заголовка TabSheet
    #39757166
pit_alex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pit_alex
Участник
Kazantsev Alexey,

угу, уже лет надцать как GTK3 у них в alpha версии :-(
...
Рейтинг: 0 / 0
09.01.2019, 14:20
| Ответить | Цитировать | Написать  
Lazarus: получить координаты заголовка TabSheet
    #39757192
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Док
Участник
pit_alexно при попытке пересобрать с другим LCL виджетом ничего хорошего не выходит
Если я правильно ошибаюсь, чтобы собиралось с другим виджетом, надо,чтобы виджет был установлен в ОСи.

Можно указать другой виджет для собираемого приложения , что делается при кросскомпиляции, но это уже другая песня.
...
Рейтинг: 0 / 0
09.01.2019, 14:46
| Ответить | Цитировать | Написать  
Lazarus: получить координаты заголовка TabSheet
    #39757202
pit_alex
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
pit_alex
Участник
Док,

ставил все необходимые либы на Linux, но не QT не QT5 так и не завелся, для приложения тоже не удалось, так как все равно идет попытка пересборки все нужных модулей лазаря
...
Рейтинг: 0 / 0
09.01.2019, 14:51
| Ответить | Цитировать | Написать  
18 сообщений из 18, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Lazarus: получить координаты заголовка TabSheet
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение   Полит. конфиден.  
NoSQL.ru       Кролег: Проекты, Новости, Чат       РЕД ФОРУМ       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=58&fpage=85&tid=2039935]:
 0ms
get settings:
 6ms
get forum list:
 13ms
check forum access:
 3ms
check topic access:
 3ms
track hit:
 44ms
get topic data:
 9ms
get forum data:
 2ms
get page messages:
 48ms
get tp. blocked users:
 1ms
others: 215ms
total:  344ms
созд. / загр.: 344ms
x
x
Закрыть


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