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

Some improvements to the new TCDTrackBar.OnChangeByUser event

Browse Source 
git-svn-id: trunk@35114 -
This commit is contained in:
sekelsenmat 2012-02-03 14:41:50 +00:00
parent 88f38a5ae9
commit e10dc0f7ea
1 changed files with 19 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
lcl/customdrawncontrols.pas
View File

@ -1778,11 +1778,18 @@ end;
procedure TCDPositionedControl.DoClickButton(AButton: TCDControlState; ALargeChange: Boolean);
var
lChange: Integer;
NewPosition: Integer = -1;
begin
if ALargeChange then lChange := FLargeChange
else lChange := FSmallChange;
if csfLeftArrow in AButton then Position := Position - lChange
else if csfRightArrow in AButton then Position := Position + lChange;
if csfLeftArrow in AButton then NewPosition := Position - lChange
else if csfRightArrow in AButton then NewPosition := Position + lChange;
if (NewPosition >= 0) and (NewPosition <> Position) then
begin
Position := NewPosition;
if Assigned(FOnChangeByUser) then FOnChangeByUser(Self);
end;
end;
procedure TCDPositionedControl.HandleBtnClickTimer(ASender: TObject);
@ -1900,7 +1907,11 @@ begin
if NewPosition > FMax then NewPosition := FMax;
if NewPosition < FMin then NewPosition := FMin;
if (NewPosition <> Position) then
begin
Position := NewPosition;
if Assigned(FOnChangeByUser) then FOnChangeByUser(Self);
end;
end;
end;
@ -1920,7 +1931,11 @@ begin
begin
NewPosition := GetPositionFromMousePos(X, Y);
DragDropStarted := True;
if NewPosition >= 0 then Position := NewPosition;
if (NewPosition >= 0) and (NewPosition <> Position) then
begin
Position := NewPosition;
if Assigned(FOnChangeByUser) then FOnChangeByUser(Self);
end;
end;
// Check if any buttons were clicked