paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-04-23 01:19:37 +02:00
Code Issues Packages Projects Releases Wiki Activity

qt: don't send LM_CHANGE on QTrackBar range change - lcl does not need it

Browse Source 
git-svn-id: trunk@15445 -
This commit is contained in:
paul 2008-06-17 04:31:15 +00:00
parent 200d8894aa
commit a7d97dbc4d
1 changed files with 0 additions and 20 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

20
lcl/interfaces/qt/qtwidgets.pas
View File

@ -522,7 +522,6 @@ type
procedure SlotSliderMoved(p1: Integer); cdecl; override;
procedure SlotValueChanged(p1: Integer); cdecl; override;
procedure SlotRangeChanged(minimum: Integer; maximum: Integer); cdecl; override;
procedure BeginUpdate;
procedure EndUpdate;
function InUpdate: Boolean;
@ -4599,9 +4598,6 @@ var
begin
inherited AttachEvents;
QAbstractSlider_rangeChanged_Event(Method) := @SlotRangeChanged;
QAbstractSlider_hook_hook_rangeChanged(FRangeChangedHook, Method);
QAbstractSlider_sliderMoved_Event(Method) := @SlotSliderMoved;
QAbstractSlider_hook_hook_sliderMoved(FSliderMovedHook, Method);
@ -4646,22 +4642,6 @@ begin
end;
end;
procedure TQtTrackBar.SlotRangeChanged(minimum: Integer; maximum: Integer); cdecl;
var
Msg: TLMessage;
begin
{$ifdef VerboseQt}
writeln('TQtTrackBar.SlotRangeChanged()');
{$endif}
if not InUpdate then
begin
FillChar(Msg, SizeOf(Msg), #0);
Msg.Msg := LM_CHANGED;
DeliverMessage(Msg);
end;
end;
procedure TQtTrackBar.BeginUpdate;
begin
FInUpdate := True;