paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-08-15 20:19:24 +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

35
designer/designer.pp
View File

@ -136,7 +136,6 @@ type
procedure DoDeleteSelectedComponents; procedure DoDeleteSelectedComponents;
procedure MarkComponentForDeletion(AComponent: TComponent); procedure MarkComponentForDeletion(AComponent: TComponent);
function ComponentIsMarkedForDeletion(AComponent: TComponent): boolean; function ComponentIsMarkedForDeletion(AComponent: TComponent): boolean;
//procedure DoCreateComponent(AComponent);
function GetSelectedComponentClass: TRegisteredComponent; function GetSelectedComponentClass: TRegisteredComponent;
Procedure NudgeControl(DiffX, DiffY: Integer); Procedure NudgeControl(DiffX, DiffY: Integer);
Procedure NudgeSize(DiffX, DiffY: Integer); Procedure NudgeSize(DiffX, DiffY: Integer);
@ -451,16 +450,19 @@ function TDesigner.SizeControl(Sender: TControl; TheMessage: TLMSize):boolean;
begin begin
Result:=true; Result:=true;
Sender.Dispatch(TheMessage); Sender.Dispatch(TheMessage);
if (ControlSelection.IsSelected(Sender)) then begin if ControlSelection.SelectionForm=Form then begin
{writeln('### TDesigner.SizeControl ',Sender.Name,':',Sender.ClassName, if (ControlSelection.IsSelected(Sender)) then begin
' ',Sender.Width,',',Sender.Height, {writeln('### TDesigner.SizeControl ',Sender.Name,':',Sender.ClassName,
' Type=',TheMessage.SizeType ' ',Sender.Width,',',Sender.Height,
,' ',TheMessage.Width,',',TheMessage.Height,' Pos=',Sender.Left,',',Sender.Top);} ' Type=',TheMessage.SizeType
if not ControlSelection.IsResizing then begin ,' ',TheMessage.Width,',',TheMessage.Height,' Pos=',Sender.Left,',',Sender.Top);}
ControlSelection.UpdateBounds; if not ControlSelection.IsResizing then begin
if Assigned(FOnPropertiesChanged) then ControlSelection.UpdateBounds;
FOnPropertiesChanged(Self); if Assigned(FOnPropertiesChanged) then
FOnPropertiesChanged(Self);
end;
end; end;
ControlSelection.InvalidGuideLinesCache;
end; end;
end; end;
@ -468,11 +470,14 @@ function TDesigner.MoveControl(Sender: TControl; TheMessage: TLMMove):boolean;
begin begin
Result:=true; Result:=true;
Sender.Dispatch(TheMessage); Sender.Dispatch(TheMessage);
if (ControlSelection.IsSelected(Sender)) then begin if ControlSelection.SelectionForm=Form then begin
// writeln('*** LM_Move ',Sender.Name,':',Sender.ClassName); if (ControlSelection.IsSelected(Sender)) then begin
ControlSelection.UpdateBounds; // writeln('*** LM_Move ',Sender.Name,':',Sender.ClassName);
if Assigned(FOnPropertiesChanged) then ControlSelection.UpdateBounds;
FOnPropertiesChanged(Self); if Assigned(FOnPropertiesChanged) then
FOnPropertiesChanged(Self);
end;
ControlSelection.InvalidGuideLinesCache;
end; end;
end; end;