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

Some minor extensions to TCDTrackBar

Browse Source 
git-svn-id: trunk@35113 -
This commit is contained in:
sekelsenmat 2012-02-03 14:02:49 +00:00
parent 3a4a59c37b
commit 88f38a5ae9
1 changed files with 13 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
lcl/customdrawncontrols.pas
View File

@ -279,7 +279,7 @@ type
// fields
FMax: Integer;
FMin: Integer;
FOnChange: TNotifyEvent;
FOnChange, FOnChangeByUser: TNotifyEvent;
FPageSize: Integer;
FPosition: Integer;
procedure SetMax(AValue: Integer);
@ -319,6 +319,7 @@ type
property Max: Integer read FMax write SetMax;
property Min: Integer read FMin write SetMin;
property OnChange: TNotifyEvent read FOnChange write FOnChange;
property OnChangeByUser: TNotifyEvent read FOnChangeByUser write FOnChangeByUser;
property Position: Integer read FPosition write SetPosition;
end;
@ -442,6 +443,7 @@ type
destructor Destroy; override;
//procedure Paint; override;
published
property Align;
property Color;
property DrawStyle;
property Enabled;
@ -1942,12 +1944,20 @@ begin
if FMoveByDragging then
begin
NewPosition := FPositionAtMouseDown + GetPositionDisplacement(FLastMouseDownPos, Point(X, Y));
Position := NewPosition;
if NewPosition <> Position then
begin
Position := NewPosition;
if Assigned(FOnChangeByUser) then FOnChangeByUser(Self);
end;
end
else
begin
NewPosition := GetPositionFromMousePos(X, Y);
if NewPosition >= 0 then Position := NewPosition;
if (NewPosition >= 0) and (NewPosition <> Position) then
begin
Position := NewPosition;
if Assigned(FOnChangeByUser) then FOnChangeByUser(Self);
end;
end;
end;
inherited MouseMove(Shift, X, Y);