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

added rubberband type: creation+selection

Browse Source 
git-svn-id: trunk@2252 -
This commit is contained in:
mattias 2002-08-17 23:41:10 +00:00
parent cacaa606f5
commit c9b58c20a8
1 changed files with 7 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
designer/designer.pp
View File

@ -880,6 +880,7 @@ var
OldMouseMovePos: TPoint;
Grabber: TGrabber;
ACursor: TCursor;
SelectedCompClass: TRegisteredComponent;
begin
SetCaptureControl(nil);
if [dfShowEditorHints,dfShowComponentCaptionHints]*FFlags<>[] then begin
@ -944,11 +945,12 @@ begin
if Assigned(OnModified) then OnModified(Self);
end else begin
// no grabber resizing
SelectedCompClass:=GetSelectedComponentClass;
if (not ControlSelection.RubberBandActive)
and (Shift=[])
and (ControlSelection.Count>=1)
and not (ControlSelection.IsSelected(Form))
and (GetSelectedComponentClass=nil)
and (SelectedCompClass=nil)
then begin
// move selection
if not (dfHasSized in FFlags) then begin
@ -969,6 +971,10 @@ begin
ControlSelection.RubberBandBounds:=Rect(MouseDownPos.X,MouseDownPos.Y,
LastMouseMovePos.X,
LastMouseMovePos.Y);
if SelectedCompClass=nil then
ControlSelection.RubberbandType:=rbtSelection
else
ControlSelection.RubberbandType:=rbtCreating;
ControlSelection.RubberBandActive:=true;
FCustomForm.Invalidate;
end;