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

fixed updating OI when moving components

Browse Source 
git-svn-id: trunk@2355 -
This commit is contained in:
mattias 2002-08-17 23:41:17 +00:00
parent 5e4056d425
commit a2198d73d7
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
designer/designer.pp
View File

@ -134,6 +134,7 @@ type
LastFormCursor: TCursor;
DeletingComponents: TList;
// event handlers for designed components
function PaintControl(Sender: TControl; TheMessage: TLMPaint):boolean;
function SizeControl(Sender: TControl; TheMessage: TLMSize):boolean;
function MoveControl(Sender: TControl; TheMessage: TLMMove):boolean;
@ -143,6 +144,7 @@ type
Procedure KeyDown(Sender: TControl; var TheMessage:TLMKEY);
Procedure KeyUp(Sender: TControl; var TheMessage:TLMKEY);
// procedures for working with components
procedure DoDeleteSelectedComponents;
procedure DoDeleteComponent(AComponent: TComponent; FreeComponent: boolean);
procedure MarkComponentForDeletion(AComponent: TComponent);
@ -152,6 +154,7 @@ type
Procedure NudgeSize(DiffX, DiffY: Integer);
procedure SelectParentOfSelection;
// popup menu
procedure BuildPopupMenu;
procedure OnAlignPopupMenuClick(Sender: TObject);
procedure OnMirrorHorizontalPopupMenuClick(Sender: TObject);
@ -164,6 +167,7 @@ type
Procedure OnFormActivated;
procedure OnComponentEditorVerbMenuItemClick(Sender: TObject);
// hook
function GetPropertyEditorHook: TPropertyEditorHook; override;
public
ControlSelection : TControlSelection;
@ -491,10 +495,11 @@ function TDesigner.MoveControl(Sender: TControl; TheMessage: TLMMove):boolean;
begin
Result:=true;
Sender.Dispatch(TheMessage);
//writeln('*** TDesigner.MoveControl A ',Sender.Name,':',Sender.ClassName,' ',ControlSelection.SelectionForm=Form,' ',not ControlSelection.IsResizing,' ',ControlSelection.IsSelected(Sender));
if ControlSelection.SelectionForm=Form then begin
if not ControlSelection.IsResizing then begin
if (ControlSelection.IsSelected(Sender)) then begin
// writeln('*** LM_Move ',Sender.Name,':',Sender.ClassName);
//writeln('*** TDesigner.MoveControl ',Sender.Name,':',Sender.ClassName,' ',Assigned(FOnPropertiesChanged));
ControlSelection.UpdateBounds;
if Assigned(FOnPropertiesChanged) then
FOnPropertiesChanged(Self);