На главную Наши проекты:
Журнал   ·   Discuz!ML   ·   Wiki   ·   DRKB   ·   Помощь проекту
ПРАВИЛА FAQ Помощь Поиск Участники Календарь Избранное RSS
msm.ru
! ПРАВИЛА РАЗДЕЛА · FAQ раздела Delphi · Книги по Delphi
Обязательно выделяйте текст программы тегом [сode=pas] ... [/сode]. Для этого используйте кнопку [code=pas] в форме ответа или комбобокс, если нужно вставить код на языке, отличном от Дельфи/Паскаля.

Этот раздел предназначен для вопросов, посвященных разработке компонентов, а также для тестирования собственных бесплатных компонентов с открытым исходным кодом.

Здесь запрещается:
1. Размещать ссылки на какие-либо коммерческие компоненты, реализующие требуемую функциональность.
2. Обсуждать и тестировать коммерческие компоненты или компоненты с закрытым кодом.
3. Давать ссылки на сайты с исходным кодом компонентов. Все тестируемые исходные коды должы быть размещены на сайте ИСХОДНИКИ.RU.
Модераторы: Rouse_, DimaBr
  
> TabControl WM_PAINT не работает? , Помогите разобратся с перерисовкой
Arazel
   Сообщ. #1 ,
    Unregistered
    Здравствуйте!

    Делаю компонент из TabControl для своих нужд

    Сразу говорю, не обращайте ВНИМАНИЕ на ламерские подход
    это мой первый компонент и я на нем учусь...

    Проблема:
    Когда я удаляю из него закладку, то все закладки исчезают
    по началу я думал, что все закладки удаляются, но потом
    я понял, что компонент не перерисоваться, и я не знаю что
    делать дальше =(Может, подскажите?

    Если после удаление щелкнуть мышью на компонент то все
    закладки обратно появляются, исключая удаленную закладку.



    --------------------------------------------------------------------------------------
    Может уже есть готовый компонент? Дайте, пожалуйста, ссылку...
    --------------------------------------------------------------------------------------
    Guru Rouse_
    Сообщ. #2 ,

      Moderator
      *******
      Профиль · PM
      Поощрения: 4 Dgm
      Рейтинг (т): 320
      Так покажи как делаешь, зачем искать сторонние компоненты, тем более что для этого есть www.torry.net
      Arazel
      Сообщ. #3 ,
        Unregistered
        Точно! Завтра выкладу...

        Добавлено
        Цитата Rouse_ @
        тем более что для этого есть www.torry.net
        Нету со скинами :ph34r:
        Arazel
        Сообщ. #4 ,
          Unregistered
          Вот помогмите...
          Прикреплённый файлПрикреплённый файлToolbarWindow32.rar (2.91 Кбайт, скачиваний: 137)
          n0wheremany
          Сообщ. #5 ,

            Profi
            *****
            Профиль · PM
            Рейтинг (т): 29
            Я даже не понял для чего компонент - ни какие закладки не видется - чюшь какаято.

            Прорисовывать надо через TToolBarWindow32.Pain или TToolBarWindow32.Invalidate вроде так. Всегда после действия типа удаление или добавления прорисовывай компонент.
            Guru Rouse_
            Сообщ. #6 ,

              Moderator
              *******
              Профиль · PM
              Поощрения: 4 Dgm
              Рейтинг (т): 320
              Понял, Аразелич, там ошибка на ошибке у тебя. Чичас попробую поправить, посмотрим, может что получиться без кардинального переписывания...
              Guru Rouse_
              Сообщ. #7 ,

                Moderator
                *******
                Профиль · PM
                Поощрения: 4 Dgm
                Рейтинг (т): 320
                Вот, сделал тебе минимальную отрисовку, с остальным сам разбирайся, нет просто времени...
                Прикреплённый файлПрикреплённый файлToolbarWindow32_New_.rar (2.6 Кбайт, скачиваний: 129)
                Arazel
                Сообщ. #8 ,
                  Unregistered
                  Rouse_ Все равно изчезает
                  Master jack128
                  Сообщ. #9 ,

                    Master
                    ******
                    Профиль · PM
                    Рейтинг (т): 181
                    Бр. Помньше обрабатывай WM_PAINT, лудше выстави в ControlState флаг csCustomPaint и перекрой PaintWindow, тоогда не нужно будет со всякими Begin/EndPaint морочится и двойная буфферезация будет работать(см TCustomControl).

                    ExpandedWrap disabled
                      procedure TToolbarWindow32.CMMouseEnter(var AMsg: TMessage);
                      begin
                        FMouseEnter := True;
                        Refresh;
                      end;
                       
                      procedure TToolbarWindow32.CMMouseLeave(var AMsg: TMessage);
                      begin
                        FMouseEnter := False;
                        Refresh;
                      end;
                    это просто не верно. Если у тебя на табконтроле будут другие контролы, то глюки пойдут..
                    0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
                    0 пользователей:


                    Рейтинг@Mail.ru
                    [ Script execution time: 0,0291 ]   [ 16 queries used ]   [ Generated: 2.05.24, 06:32 GMT ]  
                    Powered by Invision Power Board(U) v1.2 © 2003  IPS, Inc.