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

MG: accelerated calculating guidelines

Browse Source 
git-svn-id: trunk@2095 -
This commit is contained in:
lazarus 2002-08-17 23:40:55 +00:00
parent 6a4f825241
commit b8f45dfe28
1 changed files with 20 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
designer/designer.pp
View File

@ -136,7 +136,6 @@ type
procedure DoDeleteSelectedComponents;
procedure MarkComponentForDeletion(AComponent: TComponent);
function ComponentIsMarkedForDeletion(AComponent: TComponent): boolean;
//procedure DoCreateComponent(AComponent);
function GetSelectedComponentClass: TRegisteredComponent;
Procedure NudgeControl(DiffX, DiffY: Integer);
Procedure NudgeSize(DiffX, DiffY: Integer);
@ -451,6 +450,7 @@ function TDesigner.SizeControl(Sender: TControl; TheMessage: TLMSize):boolean;
begin
Result:=true;
Sender.Dispatch(TheMessage);
if ControlSelection.SelectionForm=Form then begin
if (ControlSelection.IsSelected(Sender)) then begin
{writeln('### TDesigner.SizeControl ',Sender.Name,':',Sender.ClassName,
' ',Sender.Width,',',Sender.Height,
@ -462,18 +462,23 @@ begin
FOnPropertiesChanged(Self);
end;
end;
ControlSelection.InvalidGuideLinesCache;
end;
end;
function TDesigner.MoveControl(Sender: TControl; TheMessage: TLMMove):boolean;
begin
Result:=true;
Sender.Dispatch(TheMessage);
if ControlSelection.SelectionForm=Form then begin
if (ControlSelection.IsSelected(Sender)) then begin
// writeln('*** LM_Move ',Sender.Name,':',Sender.ClassName);
ControlSelection.UpdateBounds;
if Assigned(FOnPropertiesChanged) then
FOnPropertiesChanged(Self);
end;
ControlSelection.InvalidGuideLinesCache;
end;
end;
procedure TDesigner.MouseDownOnControl(Sender: TControl; TheMessage: TLMMouse);