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

lcl: don't resize splitter during moving when ResizeStyle = rsNone

Browse Source 
git-svn-id: trunk@26437 -
This commit is contained in:
paul 2010-07-03 08:25:40 +00:00
parent 09c1e1892f
commit 231a5567f8
2 changed files with 43 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
lcl/extctrls.pp
View File

@ -492,6 +492,7 @@ type
procedure SetResizeAnchor(const AValue: TAnchorKind); virtual;
procedure SetResizeControl(const AValue: TControl); virtual;
procedure StartSplitterMove(const MouseXY: TPoint);
procedure StopSplitterMove(const MouseXY: TPoint);
public
constructor Create(TheOwner: TComponent); override;
procedure AnchorSplitter(Kind: TAnchorKind; AControl: TControl);

59
lcl/include/customsplitter.inc
View File

@ -509,6 +509,31 @@ begin
Invalidate;
end;
procedure TCustomSplitter.StopSplitterMove(const MouseXY: TPoint);
var
Offset: Integer;
begin
if FSplitDragging then
begin
case ResizeAnchor of
akLeft, akRight:
Offset := (MouseXY.X - FSplitterStartMouseXY.X) - (Self.Left - FSplitterStartLeftTop.X);
akTop, akBottom:
Offset := (MouseXY.Y - FSplitterStartMouseXY.Y) - (Self.Top - FSplitterStartLeftTop.Y);
else
Offset := 0;
end;
if Offset <> 0 then
MoveSplitter(Offset);
if Assigned(OnMoved) then OnMoved(Self);
FSplitDragging := False;
if ResizeStyle in [rsLine, rsPattern] then
Invalidate;
end;
end;
procedure TCustomSplitter.MouseDown(Button: TMouseButton; Shift: TShiftState; X,
Y: Integer);
var
@ -516,8 +541,11 @@ var
begin
inherited MouseDown(Button, Shift, X, Y);
// While resizing X, Y are not valid. Use absolute mouse position.
GetCursorPos(MousePos);
StartSplitterMove(MousePos);
if Button = mbLeft then
begin
GetCursorPos(MousePos);
StartSplitterMove(MousePos);
end;
end;
procedure TCustomSplitter.MouseMove(Shift: TShiftState; X, Y: Integer);
@ -526,34 +554,31 @@ var
MousePos: TPoint;
begin
inherited MouseMove(Shift, X, Y);
if (ssLeft in Shift) and (Parent <> nil) and (FSplitDragging) then
if (ssLeft in Shift) and (Parent <> nil) and (FSplitDragging) and (ResizeStyle <> rsNone) then
begin
// While resizing X, Y are not valid. Use the absolute mouse position.
GetCursorPos(MousePos);
case ResizeAnchor of
akLeft, akRight:
Offset := (MousePos.X - FSplitterStartMouseXY.X) - (Self.Left - FSplitterStartLeftTop.X);
Offset := (MousePos.X - FSplitterStartMouseXY.X) - (Self.Left - FSplitterStartLeftTop.X);
akTop, akBottom:
Offset := (MousePos.Y - FSplitterStartMouseXY.Y) - (Self.Top - FSplitterStartLeftTop.Y);
Offset := (MousePos.Y - FSplitterStartMouseXY.Y) - (Self.Top - FSplitterStartLeftTop.Y);
else
Offset := 0;
end;
if Offset = 0 then Exit;
MoveSplitter(Offset);
if Offset <> 0 then
MoveSplitter(Offset);
end;
end;
procedure TCustomSplitter.MouseUp(Button: TMouseButton; Shift: TShiftState; X,
Y: Integer);
procedure TCustomSplitter.MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var
MousePos: TPoint;
begin
inherited MouseUp(Button, Shift, X, Y);
if FSplitDragging then
begin
if Assigned(OnMoved) then OnMoved(Self);
FSplitDragging := False;
if ResizeStyle in [rsLine, rsPattern] then
Invalidate;
end;
GetCursorPos(MousePos);
StopSplitterMove(MousePos);
end;
function TCustomSplitter.FindAlignControl: TControl;