powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / ErrorSoftVclComponents
59 сообщений из 59, показаны все 3 страниц
ErrorSoftVclComponents
    #39365179
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
FreeEsVCLComponents - бесплатная, OpenSource библиотека VCL компонентов для Delphi и C++Builder .
Это как новые элементы управления, так и компоненты для улучшения внешнего вида приложений и лучшего пользовательского опыта. Все компоненты имеют лучшую поддержку прозрачности.
Компоненты поддерживают визуальные стили и имеет современный вид.
Все оконные компоненты FreeEsVCLComponents не мерцают, также не мерцают на них и наследники TGraphiControl при активации свойства BufferedChildens .

Ссылка на репозиторий: https://github.com/errorcalc/FreeEsVCLComponents/

Для владельцев Delphi Berlin Update1/Update2 доступна загрузка через менеджер пакетов GetIt .

Плюсы:
* Превосходная поддержка прозрачности
* Отсутствие мерцания
* Поддержка встроенного в VCL движка тем
* Поддержка Hight DPI (Seattle+)
* Удобное отображение границ в DesignTime, при активации свойства IsDrawHelper
* Поддержка Windows XP

Список компонентов:
TEsCustomControl - Базовый класс, содержит в себе магию подавления мерцания и поддержки прозрачности.

TEsNinePatchImage - TImage для 9-Patch изображений (Растровое изображение с возможностью масштабирования, без потери качества, практически все современные интерфейсы строятся на них), а также изображения - Overlay-a

TEsImageLabel - Метка с возможностью установки фонового 9-Patch изображения, а также изображения - Overlay-a, расположение и выравнивание текста можно комбинировать

TEsLayout - Базовый компонент - контейнер. Интересен возможностью двойной буферизации для наследников TGraphicControl (TLabel, TGlyphButton, TImage, TBevel...)

TEsImageLayout - Layout с поддержкой фоновых 9-Patch изображений, а также изображения - Overlay-a

TEsImageStaticText - StaticText с поддержкой фоновых 9-Patch изображений, а также изображения - Overlay-a, и текста расположение и выравнивание текста можно комбинировать

TEsActivityBar - Компонент имитирует XAML контрол Windows 10, созданный для индикации занятости или отображения прогресса (что-то типа TProgressBar). Имеет множество настроек.
* Поддержка двух режимов отображения
* Три вида анимации и индикация прогресса
* Поддержка VCL тем
* Отсутствие мерцания
* Полная кастомизация

TEsSwitch - Компонент имитирует одноименный XAML контрол Windows 10. Имеет множество настроек.
* Полная имитация XAML контрола
* Анимация
* Поддержка VCL тем
* Отсутствие мерцания
* Полная кастомизация цветов
* Несколько режимов AutoSize-а
* Поддержка ActionList

TEsImage - Лучшая замена TImage, с большими возможностями.
* Сглаживание, то чего всегда не хватало TImage
* Поддержка ImageList
* Поддержка полупрозрачности
* Несколько режимов растягивания изображения

TEsImageControl - Лучшая замена TImage, с большими возможностями и с отсутствием мерцания!
* Отсутствие мерцания!
* Сглаживание, то чего всегда не хватало TImage
* Поддержка ImageList
* Поддержка полупрозрачности
* Несколько режимов растягивания изображения
* Рисование границы, если необходимо
* Поддержка фокуса ввода

TEsRegexEdit - TEdit со встроенной поддержкой валидации и индикации правильности ввода с помощью регулярных выражений.
* Настройка цвета
* Четыре режима индикации
* Встроенный редактор регулярных выражений

TEsRegexButtonedEdit - TButtonedEdit со встроенной поддержкой валидации и индикации правильности ввода с помощью регулярных выражений.
* Настройка цвета
* Четыре режима индикации
* Встроенный редактор регулярных выражений

TEsRegexLabeledEdit - TLabeledEdit со встроенной поддержкой валидации и индикации правильности ввода с помощью регулярных выражений.
* Настройка цвета
* Четыре режима индикации
* Встроенный редактор регулярных выражений
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39365199
Фотография _Vasilisk_
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
errorsoft Error SoftVclComponentsСтремное какое-то название
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39365207
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
_Vasilisk_,

Так исторически сложилось :)
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39365224
Фотография makhaon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
errorsoft,

как известно, как корабль назовешь...
ничего личного, если что )
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39365226
rgreat
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Слайды! Слайды!
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39365236
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
rgreat,
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39365237
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39365238
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39365239
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39365245
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
В комплекте есть несколько примеров, которые можно "потыкать"
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39365278
Фотография makhaon
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
errorsoft,

свичи из w10 - супер, спасибо. остальные контролы из w10 бы еще.
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39365279
bk0010
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Я уж думал такое исключение у кого-то вылезло!
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39365282
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
makhaon,

Спасибо, TEsActivityBar тоже Windows10 контрол имитирует
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39365395
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
а если темы в винде отключить, как оно выглядеть будет ?
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39365399
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
defecator,

Смотря что, TEsSwitch к примеру - также
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39365410
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
errorsoftdefecator,

Смотря что, TEsSwitch к примеру - также

Вот выключить темы в винде, поставить классическую.
Как будут выглядеть все эти красивые окошки, в которых компоненты используются ?
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39365416
Товарищ младший сержант
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
_Vasilisk_errorsoft Error SoftVclComponentsСтремное какое-то название
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39365422
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
defecator,

Проверь, все отлично было когда тестировал последний раз
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39365424
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
errorsoftdefecator,

Проверь, все отлично было когда тестировал последний раз
Ну выложи скриншот, как же выкладывал
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39365434
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
defecator,

В Win10 выпилен классический режим, доступа к WinXP-Win7 машине нет сейчас.
Установи компоненты и проверь
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39365438
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
errorsoftdefecator,

В Win10 выпилен классический режим

ясно. всегда говорил, что Windows 10 - говно, теперь я знаю это точно
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39365442
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
defecator,

Ну, с таком ником все оное xD
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39365446
Фотография defecator
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Модератор форума
errorsoftdefecator,

Ну, с таком ником все оное xD
а с таким названием "Error" ровно так и работают ?
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39365448
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
defecator,

Не "error", а "errorsoft", отлично работает :)
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39365449
Товарищ младший сержант
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Еггог.
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39367179
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Добавил автоматическую генерацию Packages для разных версий Delphi, если необходима одновременная установка в разные версии Delphi, на одной машине.
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39374643
Delphi 7
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Хорошие компоненты. Вот для D7 бы...
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39374695
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Delphi 7,

К сожалению перенос на Delphi 7 всех компонентов нереален, из-за отсутствия необходимых модулей, и фич языка.
Однако ES.BaseControls.pas - можно переименовать в BaseControls.pas и спокойно скомпилировать в Delphi 7, в этом модуле я вынужден поддерживать совместимость с семеркой.
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39375002
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
errorsoftК сожалению перенос на Delphi 7 всех компонентов нереален
а Лазарь нет желания портировать? Я бы честно их пошшупал и выложил результаты в виде скринов
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39375392
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ДокerrorsoftК сожалению перенос на Delphi 7 всех компонентов нереален
а Лазарь нет желания портировать? Я бы честно их пошшупал и выложил результаты в виде скринов
Не, на лазарь нет времени(ведь там надо тестировать на Windows, Linux, MacOS), но я принимаю пулл реквесы :)
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39375526
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
errorsoftно я принимаю пулл реквесы :)
нафиг-нафиг, в Лазаре итак ручной работы при допиливании стандартных (или отнаследованных от них) компонент более, чем дофига, за что ни возьмись. Так что, звиняй
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39375586
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Докerrorsoftно я принимаю пулл реквесы :)
нафиг-нафиг, в Лазаре итак ручной работы при допиливании стандартных (или отнаследованных от них) компонент более, чем дофига, за что ни возьмись. Так что, звиняй
В таком случае глупо ожидать, что я просто так перенесу на Lazarus
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39376313
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
errorsoftВ таком случае глупо ожидать
Глупее ожидать этого от меня. В популяризации своего продукта, по логике, больше всего должен быть заинтересован именно ты
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39376314
Фотография Док
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
вдогонку,

после перехода на Лазарь я дал себе зарок использовать как можно меньше сторонних компонентов. Исключение делаю только для тех, кто значительно превосходит по функционалу стандартные. Так что, ничего личного
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39376318
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
ДокerrorsoftВ таком случае глупо ожидать
Глупее ожидать этого от меня. В популяризации своего продукта, по логике, больше всего должен быть заинтересован именно ты
Ну дык лазарус нужен тебе, а не мне, затрачивать кучу усилий для поддержки лазаруса, при том что не ясно кому еще это надо, смысла нет.
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39377629
Фотография Квейд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
ТС, поздравляю, твои компоненты включили в магазин GetIt!

А расскажи, как этого добиться?
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39377664
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
КвейдТС, поздравляю, твои компоненты включили в магазин GetIt!

А расскажи, как этого добиться?
Относительно давно уже, в первом сообщении у меня написано о доступности в GetIt, но все равно спасибо ;)

Особого секрета нет, списываешься с Марко Канту, пишешь ему чем полезны/круты компоненты, заполняешь специальную табличку(процесс установки и т.д.), и если все ок, компоненты становятся доступны в GetIt.
http://blog.marcocantu.com/blog/2016-september-updating-getit-berlin.html
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39378238
Фотография X11
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
errorsoft,

вас рекламируют в Твиттере :)

...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39393932
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Компоненты ErrorSoftVclComponents в GetIt Package Manager обновлены до версии 2.2.1.
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39403172
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Возможно кого-нибудь заинтересует: https://github.com/errorcalc/TurboUpdate
...
Рейтинг: 0 / 0
Период между сообщениями больше года.
ErrorSoftVclComponents
    #39740982
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Стала доступна новая версия бесплатной библиотеки Delphi/C++Builder компонентов FreeEsVclComponents !
Version 3.0.0

Среди изменений:
- Четыре новых компонента: TEsPaintBox , TEsLinkLabel , TEsVersionLabel , TEsPanel
- Поддержка HiDPI для Delphi/C++Builder Berlin и больших версий.
- Переименование BufferedChildrens в BufferedChildren , ParentBufferedChildrens в ParentBufferedChildren . (в DFM файлах преобразование произойдет автоматически)
- Различные мелкие улучшения
- Исправлена отрисовка выделенных компонентов в дизайнере
- Теперь свойство BufferedChildren = True по умолчанию
- Новый тип TFileVersion – позволяющий узнать версию файла/приложения

Добавлены новые функции в ES.ExGraphics:
- procedure DrawCorners(R: TRect; Width: Integer); - Рисует уголки прямоугольника.
- function HighlightColor(Color: TColor; Value: Integer): TColor; - Highlight color, use relative value (-255…255).
- procedure DrawHalftoneBitmap(Canvas: TCanvas; X, Y: Integer; Bitmap: TBitmap; Value: Byte; Color: TColor = clBlack); - Рисует затемненное изображение.
- procedure HalftoneBitmap(Bitmap: TBitmap; Value: Byte; Color: TColor = clBlack); - Затемняет изображение.

И часто запрашиваемая фича - максимальная совместимость с AlphaSkins/AlphaControls .
Теперь при наличии AlphaSkins загрузка PNG в Design Time идет через декодер AlphaSkins , что улучшает совместимость с этой библиотекой, однако некоторые изображения AlphaSkins -овский декодер грузит некорректно, так что вопросы при "черных квадратах" и других проблемах с некорректной загрузкой PNG не ко мне :)

Загрузить библиотеку можно из пакетного менеджера GetIt в Embarcadero RAD Studio (10.2, 10.3), или с github
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39740984
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
TEsLinkLabel – Кликабельная ссылка, открывает локальную или интернет ссылку.
Пример: Labels sample
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39740985
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
TEsVersionLabel – Отображает текущую версию приложения.
Пример: Labels sample
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39740990
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
TEsPanel – свободный от мерцания аналог TPanel. Добавлены новые стили границ.
Пример: Panel sample
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39740995
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
TEsPaintBox – свободный от мерцания PaintBox, отличная замена стандартному мерцающему TPaintBox.
Пример: PaintBox sample
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39741126
Василий 2
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Весьма и весьма, хоть название фирмы подозрительное)))
Linklabel-то не так сильно необходима, а вот простейшее форматирование html кодами было бы очень круто
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39748018
WizardEye
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
А поддержка Win64 будет? Загрузил в Delphi 10.3 через GetIt - поддерживает только Win32.
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39748297
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
WizardEye,
С GetIt похоже траблы какие-то, на следующей неделе вместе с небольшим фиксом отпишу, чтоб добавили, поддержка Win64 есть.
Пока можно версию с гитхаба пока загрузить
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39748298
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
errorsoftWizardEye,
С GetIt похоже траблы какие-то, на следующей неделе вместе с небольшим фиксом отпишу, чтоб добавили, поддержка Win64 есть.
Пока можно версию с гитхаба пока загрузить
Ан, нет это я пакет сломал, завтра пофикшу
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39748507
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
WizardEyeА поддержка Win64 будет? Загрузил в Delphi 10.3 через GetIt - поддерживает только Win32.
Вернул x64, прошу проверить: https://github.com/errorcalc/FreeEsVclComponents
В GetIt позже новая версия появится
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39748866
WizardEye
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
errorsoft,

Проверил. Всё отлично установилось и работает!
Спасибо!
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39751972
Уважаемый автор
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
errorsoft,
Для FireMonkey бы версию... будет?
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39753068
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Уважаемый авторerrorsoft,
Для FireMonkey бы версию... будет?
А какие конкретно компоненты интересуют?
Ведь в FMX нет проблемы мерцания, и компонентов прямо из коробки много...
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39804403
Prot_XT
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Что-то с Get-it не хочется ставиться, пошел на GitHub...
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39804432
shonli95
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Мерцают, и багаются. Что за.

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ES.BaseControls, ES.Switch, ES.Images, DxGDIPlusClasses,
  Vcl.StdCtrls, ES.RegexControls, ES.Labels, ES.Indicators;

type
  TForm3 = class(TForm)
    EsImage1: TEsImage;
    EsSwitch1: TEsSwitch;
    EsActivityBar1: TEsActivityBar;
    procedure EsImage1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsImage1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsImage1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure EsSwitch1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsSwitch1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure EsSwitch1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsActivityBar1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsActivityBar1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure EsActivityBar1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

var
  SX: Integer = -1;
  SY: Integer = -1;

implementation

{$R *.dfm}

procedure Point1Set(X, Y: Integer);
begin
  SX := X;
  SY := Y;
end;

procedure Move(Sender: TObject; X, Y: Integer);
begin
  if SX >= 0 then
  begin
    TControl(Sender).Left := TControl(Sender).Left - (SX - X);
    TControl(Sender).Top := TControl(Sender).Top - (SY - Y);
  end;
end;

procedure TForm3.EsActivityBar1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(X, Y);
end;

procedure TForm3.EsActivityBar1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Move(Sender, X, Y);
end;

procedure TForm3.EsActivityBar1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(-1, -1);
end;

procedure TForm3.EsImage1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(X, Y);
end;

procedure TForm3.EsImage1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Move(Sender, X, Y);
end;

procedure TForm3.EsImage1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(-1, -1);
end;


procedure TForm3.EsSwitch1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(X, Y);
end;

procedure TForm3.EsSwitch1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Move(Sender, X, Y);
end;

procedure TForm3.EsSwitch1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(-1, -1);
end;

end.

...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39804606
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
Prot_XTЧто-то с Get-it не хочется ставиться, пошел на GitHub...
К сожалению GetIt иногда внутри ломается :/
При ручной установке проблем нет никаких
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39804608
errorsoft
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость
shonli95Мерцают, и багаются. Что за.

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ES.BaseControls, ES.Switch, ES.Images, DxGDIPlusClasses,
  Vcl.StdCtrls, ES.RegexControls, ES.Labels, ES.Indicators;

type
  TForm3 = class(TForm)
    EsImage1: TEsImage;
    EsSwitch1: TEsSwitch;
    EsActivityBar1: TEsActivityBar;
    procedure EsImage1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsImage1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsImage1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure EsSwitch1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsSwitch1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure EsSwitch1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsActivityBar1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsActivityBar1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure EsActivityBar1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

var
  SX: Integer = -1;
  SY: Integer = -1;

implementation

{$R *.dfm}

procedure Point1Set(X, Y: Integer);
begin
  SX := X;
  SY := Y;
end;

procedure Move(Sender: TObject; X, Y: Integer);
begin
  if SX >= 0 then
  begin
    TControl(Sender).Left := TControl(Sender).Left - (SX - X);
    TControl(Sender).Top := TControl(Sender).Top - (SY - Y);
  end;
end;

procedure TForm3.EsActivityBar1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(X, Y);
end;

procedure TForm3.EsActivityBar1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Move(Sender, X, Y);
end;

procedure TForm3.EsActivityBar1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(-1, -1);
end;

procedure TForm3.EsImage1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(X, Y);
end;

procedure TForm3.EsImage1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Move(Sender, X, Y);
end;

procedure TForm3.EsImage1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(-1, -1);
end;


procedure TForm3.EsSwitch1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(X, Y);
end;

procedure TForm3.EsSwitch1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Move(Sender, X, Y);
end;

procedure TForm3.EsSwitch1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(-1, -1);
end;

end.



Не совсем понятно, что вы хотите сделать?
Перетаскивать компоненты мышкой?
Боюсь многие компоненты не выдержат такого :)
Пришлите на почту(errorsoft(at)mail.ru) минимальный проект с мерцанием - посмотрю.
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39804705
Фотография Квейд
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
shonli95Мерцают, и багаются. Что за.

Код: pascal
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
24.
25.
26.
27.
28.
29.
30.
31.
32.
33.
34.
35.
36.
37.
38.
39.
40.
41.
42.
43.
44.
45.
46.
47.
48.
49.
50.
51.
52.
53.
54.
55.
56.
57.
58.
59.
60.
61.
62.
63.
64.
65.
66.
67.
68.
69.
70.
71.
72.
73.
74.
75.
76.
77.
78.
79.
80.
81.
82.
83.
84.
85.
86.
87.
88.
89.
90.
91.
92.
93.
94.
95.
96.
97.
98.
99.
100.
101.
102.
103.
104.
105.
106.
107.
108.
109.
110.
111.
112.
113.
114.
unit Unit3;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, ES.BaseControls, ES.Switch, ES.Images, DxGDIPlusClasses,
  Vcl.StdCtrls, ES.RegexControls, ES.Labels, ES.Indicators;

type
  TForm3 = class(TForm)
    EsImage1: TEsImage;
    EsSwitch1: TEsSwitch;
    EsActivityBar1: TEsActivityBar;
    procedure EsImage1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsImage1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsImage1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure EsSwitch1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsSwitch1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure EsSwitch1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsActivityBar1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
    procedure EsActivityBar1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
    procedure EsActivityBar1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
      X, Y: Integer);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form3: TForm3;

var
  SX: Integer = -1;
  SY: Integer = -1;

implementation

{$R *.dfm}

procedure Point1Set(X, Y: Integer);
begin
  SX := X;
  SY := Y;
end;

procedure Move(Sender: TObject; X, Y: Integer);
begin
  if SX >= 0 then
  begin
    TControl(Sender).Left := TControl(Sender).Left - (SX - X);
    TControl(Sender).Top := TControl(Sender).Top - (SY - Y);
  end;
end;

procedure TForm3.EsActivityBar1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(X, Y);
end;

procedure TForm3.EsActivityBar1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Move(Sender, X, Y);
end;

procedure TForm3.EsActivityBar1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(-1, -1);
end;

procedure TForm3.EsImage1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(X, Y);
end;

procedure TForm3.EsImage1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Move(Sender, X, Y);
end;

procedure TForm3.EsImage1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(-1, -1);
end;


procedure TForm3.EsSwitch1MouseDown(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(X, Y);
end;

procedure TForm3.EsSwitch1MouseMove(Sender: TObject; Shift: TShiftState; X, Y: Integer);
begin
  Move(Sender, X, Y);
end;

procedure TForm3.EsSwitch1MouseUp(Sender: TObject; Button: TMouseButton; Shift: TShiftState;
  X, Y: Integer);
begin
  Point1Set(-1, -1);
end;

end.

UpdateWindow вызывать не предлагать?
...
Рейтинг: 0 / 0
ErrorSoftVclComponents
    #39847265
Фотография Victor Cookin
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Prot_XT,

Да же фигня Delphi Rio.
Наверно на GetIt! надо бы пофиксить, а то не все ж будут сорцы сами ставить. Да и осадочек.
...
Рейтинг: 0 / 0
59 сообщений из 59, показаны все 3 страниц
Форумы / Delphi [игнор отключен] [закрыт для гостей] / ErrorSoftVclComponents
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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