Наши проекты:
Журнал · Discuz!ML · Wiki · DRKB · Помощь проекту |
||
ПРАВИЛА | FAQ | Помощь | Поиск | Участники | Календарь | Избранное | RSS |
[3.149.252.37] |
|
Страницы: (3) 1 2 [3] все ( Перейти к последнему сообщению ) |
Прикр. сообщ.
#1
,
|
|
|
Наконец-то я выкладываю новую версию своей библиотеки компонентов.
Что нового в этой версии? 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 Кбайт, скачиваний: 842) |
Сообщ.
#31
,
|
|
|
хочу-хочу-хочу!!! Аську мою ты знаешь. Давай обсудим, когда освободишься. |
Сообщ.
#32
,
|
|
|
Цитата Miscђka @ хочу-хочу-хочу!!! Аську мою ты знаешь. Давай обсудим, когда освободишься. Отлично |
Сообщ.
#33
,
|
|
|
Сделай события OnMouseWheelUp и OnMouseWheelDown и цены компоненту не будет!
|
Сообщ.
#34
,
|
|
|
Выдаёт ошибку после компиляции и обращения к функции:
Цитата Project Project.exe raised exception class EInvalidGraphic with message 'Bitmap image is not valid'. Process stopped. Use Step or Run to continue. Указывает сюда: 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' тот путь, который переходит из диалога открытия, всё работает нормально, иначе ошибка появляется. 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; |
Сообщ.
#35
,
|
|
|
s-mikeПривет, извини что беспокою. Твой компонент очень крутой. Но мне понадобилось на FastScrollingImage1 рисовать линии. Рисую по нажатию мышки, но дело в том что линия сразу не отрисовывается, отрисовывается только после того если проскролить изображение. Как правильно рисовать на даном компоненте?
|