TabControl - HiAsm

Форумы Делаем компонентыTabControl ← Ctrl1Ctrl →

Этот топик читают: Гость

Ответов: 8933

Рейтинг: 824

#1: 2006-09-24 18:12:11 ЛС | профиль | цитата

Dilma, в элементе TabControl при програмном создании страниц индекс последней созданной страницы равен "0" (нуль), что не совсем удобно, надо бы наоборот, чтобы индекс первой страницы был равен "0" и не изменялся при добавлении страниц, или вывести точку индекса наверх, как сделано для удаления.

карма: 19

Администрация

Ответов: 15295

Рейтинг: 1519

#2: 2006-09-25 02:15:24 ЛС | профиль | цитата

Леонид, а пример где

Так в моих эксперементах индекс последней странице соответствовал своему номеру...

карма: 27

https://hiasm.com

Ответов: 8933

Рейтинг: 824

#3: 2006-09-25 08:53:38 ЛС | профиль | цитата

Dilma, вот он, примерчик:
code_309

карма: 19

файлы: 1

code_309.txt [841B] [702]

Ответов: 9906

Рейтинг: 351

#4: 2006-09-25 12:02:05 ЛС | профиль | цитата

Изменения то могут быть простыми:

procedure THITabControl._work_PageInsert;
var s:string;
begin
   s:=ReadString(_Data,_data_NewPageText,');
   Control.TC_Insert(ReadInteger(_Data,_data_Index,0),s,3); //3 - это чаво ???
end;

С соответствующими исправлениями хинта на точку Index

Если не считать того, что мне неизвестно, на что показывает индекс 3 в отсутствующем ImageListe

btw: деструкторы элементам писать не модно, однако

[size=-2]------ Добавлено в 12:02
Dilma, думаю, что Леонид-а больше тревожил этот вопрос

карма: 9

Администрация

Ответов: 15295

Рейтинг: 1519

#5: 2006-09-25 13:05:25 ЛС | профиль | цитата

Исправлено

карма: 27

https://hiasm.com

Ответов: 8933

Рейтинг: 824

#6: 2006-09-25 13:32:07 ЛС | профиль | цитата

Galkov, неоднократно утверждал, что на форуме нет ясновидящих, но своими постами опровергает свои же утверждения! Присвоить Ему статус ЭКСТРАСЕНСА!

Dilma, спасибо!

карма: 19

Ответов: 9906

Рейтинг: 351

#7: 2006-09-25 16:33:18 ЛС | профиль | цитата

Не... Какое же оно Экстра, когда дана прямая ссылка на написанное...

Вот недавно пол-дня с челом пытался беседовать... Из серии "хочу данное свойство использовать в своих данных"
Так долго выяснял, как он хочет его (еще и фиг знает кого) использовать, что чел стал "нервничать"...
Удалил "беседу" - и всего делов...

карма: 9

Форумы Делаем компонентыTabControl ← Ctrl1Ctrl →


Сообщение ...
Прикрепленные файлы (файлы не залиты)