paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-11-01 16:40:09 +01:00
Code Issues Packages Projects Releases Wiki Activity

Designer: formatting

Browse Source 
git-svn-id: trunk@39089 -
This commit is contained in:
juha 2012-10-15 10:42:04 +00:00
parent 3570c3b2ff
commit 22c9f39a9c
3 changed files with 26 additions and 30 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
designer/controlselection.pp
View File

@ -2069,8 +2069,7 @@ begin
DoChange;
end;
function TControlSelection.Equals(const ASelection: TPersistentSelectionList
): boolean;
function TControlSelection.Equals(const ASelection: TPersistentSelectionList): boolean;
var
i: Integer;
Instance: TPersistent;

5
designer/designer.pp
View File

@ -1776,8 +1776,8 @@ begin
CompIndex:=ControlSelection.IndexOf(MouseDownComponent);
if ssCtrl in Shift then begin
// child selection
end else begin
if (ssShift in Shift) then begin
end
else if (ssShift in Shift) then begin
// shift key pressed (multiselection)
if CompIndex<0 then begin
@ -1806,7 +1806,6 @@ begin
// sync with the interface
ControlSelection.UpdateBounds;
end;
end;
end else begin
// mouse down on grabber -> begin sizing
// grabber is already activated

4
ide/main.pp
View File

@ -9721,14 +9721,12 @@ begin
UpdateIDEComponentPalette;
end;
procedure TMainIDE.OnGetDesignerSelection(
const ASelection: TPersistentSelectionList);
procedure TMainIDE.OnGetDesignerSelection(const ASelection: TPersistentSelectionList);
begin
if TheControlSelection=nil then exit;
TheControlSelection.GetSelection(ASelection);
end;
// -----------------------------------------------------------------------------
procedure TMainIDE.UnitDependenciesViewAccessingSources(Sender: TObject);