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

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

Здесь запрещается:
1. Размещать ссылки на какие-либо коммерческие компоненты, реализующие требуемую функциональность.
2. Обсуждать и тестировать коммерческие компоненты или компоненты с закрытым кодом.
3. Давать ссылки на сайты с исходным кодом компонентов. Все тестируемые исходные коды должы быть размещены на сайте ИСХОДНИКИ.RU.
Модераторы: Rouse_, DimaBr
Страницы: (3) 1 2 [3]  все  ( Перейти к последнему сообщению )  
> Image Controls 2.0 , Новая версия!!!
    Наконец-то я выкладываю новую версию своей библиотеки компонентов.

    Что нового в этой версии?

    1. Добавлен компонент TTexturePanel.
    2. В TCustomScrollingImage добавлено масштабирование, а также автоматическое масштабирование по размеру компонента.
    3. Изменена иерархия компонентов для скроллинга, теперь TFastScrollingImage наследуется от TScrollingImage.
    4. Наследники TCustomScrollingImage, а также компоненты TBitmapContainer и TBitmapPanel теперь имеют свойство Transparent, позволяющее делать компонент прозрачным.
    5. Добавлена возможность нестандартной отрисовки изображения в компонентах для скроллинга.
    6. Добавлено изменение курсоров для скроллинга в design-time с помощью свойств ImageCanScrollCursor, ImageDragCursor, ImageScrollDisabled.
    7. В TCustomScrollingImage добавлены свойства RealImagePos, RealImageLeft, RealImageTop, по которым можно узнать настоящие координаты изображения в компоненте, учитывая то, что оно может неполностью заполнять компонент.
    8. Добавлено в TCustomScrollingImage свойство CanScrollWithMouse, позволяющее запретить скроллинг с помощью мыши.
    9. Исправлен глюк в навигаторе при щелчке в нем правой кнопкой мыши.
    10. В модуль ImgCtrlUtils добавлена процедура LoadGraphicToBitmap и немного подправлена функция IsEmptyPicture.
    11. Добавлен модуль ImgCtrlsSkins.
    12. Устранены другие небольшие баги и ошибки.

    Жду ваших пожеланий и оценок!

    Обновления:
    2.1 - http://forum.sources.ru/index.php?act=Atta...=post&id=677520
    2.1.1 - http://forum.sources.ru/index.php?act=Atta...=post&id=755480 (только модуль ScrollingImageAddons)
    Прикреплённый файлПрикреплённый файлImgCtrls.zip (159.8 Кбайт, скачиваний: 838)
      Цитата s-mike @
      мне потребуются добровольцы, которые будут создавать компоненты-рисовальщики

      хочу-хочу-хочу!!! Аську мою ты знаешь. Давай обсудим, когда освободишься.
        Цитата Miscђka @
        хочу-хочу-хочу!!! Аську мою ты знаешь. Давай обсудим, когда освободишься.

        Отлично :rolleyes:
          Сделай события OnMouseWheelUp и OnMouseWheelDown и цены компоненту не будет!
            Выдаёт ошибку после компиляции и обращения к функции:
            Цитата
            Project Project.exe raised exception class EInvalidGraphic with message 'Bitmap image is not valid'. Process stopped. Use Step or Run to continue.

            Указывает сюда:
            ExpandedWrap disabled
              procedure TCustomBitmap.LoadFromFile(const Filename: string);
              var
                OldOnChange: TNotifyEvent;
              begin
                OldOnChange := OnChange;
                try
                  OnChange := nil;
                 inherited  LoadFromFile(FileName);
                finally
                  OnChange := OldOnChange;
                end;
               
                NewImage;
              end;

            А ниже:
            Цитата
            [Hint] Main.pas(49): Private symbol 'OnJpegProgress' declared but never used

            Мой код. Странно, что при использовании диалога открытия и указания вместо 'C:\спец2.jpg' тот путь, который переходит из диалога открытия, всё работает нормально, иначе ошибка появляется.

            ExpandedWrap disabled
              procedure TTMainForm.FileOpenClick(Sender: TObject);
              var
                Picture: TPicture;
              begin
                    Picture := TPicture.Create;
                    Picture.LoadFromFile('C:\сцеп2.jpg');
                    SI.LoadGraphic(Picture.Graphic);
                    Picture.Free;
                    SI.Picture.LoadFromFile('C:\сцеп2.jpg');
                    StatusBar.SimpleText := 'C:\сцеп2.jpg';
              end;
              s-mikeПривет, извини что беспокою. Твой компонент очень крутой. Но мне понадобилось на FastScrollingImage1 рисовать линии. Рисую по нажатию мышки, но дело в том что линия сразу не отрисовывается, отрисовывается только после того если проскролить изображение. Как правильно рисовать на даном компоненте?
              0 пользователей читают эту тему (0 гостей и 0 скрытых пользователей)
              0 пользователей:
              Страницы: (3) 1 2 [3]  все


              Рейтинг@Mail.ru
              [ Script execution time: 0,0272 ]   [ 18 queries used ]   [ Generated: 29.03.24, 01:18 GMT ]