mirror of
https://gitlab.com/freepascal.org/lazarus/lazarus.git
synced 2025-04-10 06:08:17 +02:00
lcl: prevent trackbar from calling OnChange while the control is loaded from .lfm
git-svn-id: trunk@25704 -
This commit is contained in:
parent
dcb90d85e7
commit
9bbf99a396
@ -175,7 +175,8 @@ begin
|
||||
FPosition := Value;
|
||||
if HandleAllocated then
|
||||
TWSTrackBarClass(WidgetSetClass).SetPosition(Self, FPosition);
|
||||
Changed;
|
||||
if not (csLoading in ComponentState) then
|
||||
Changed;
|
||||
end;
|
||||
end;
|
||||
|
||||
|
Loading…
Reference in New Issue
Block a user