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

designer: formatting

Browse Source 
git-svn-id: trunk@21863 -
This commit is contained in:
paul 2009-09-25 14:43:46 +00:00
parent d24238d791
commit 376507bffe
1 changed files with 17 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

32
designer/designer.pp
View File

@ -150,10 +150,10 @@ type
LastPaintSender: TControl;
// 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;
procedure MouseDownOnControl(Sender: TControl; var TheMessage : TLMMouse);
function PaintControl(Sender: TControl; TheMessage: TLMPaint): Boolean;
function SizeControl(Sender: TControl; TheMessage: TLMSize): Boolean;
function MoveControl(Sender: TControl; TheMessage: TLMMove): Boolean;
procedure MouseDownOnControl(Sender: TControl; var TheMessage: TLMMouse);
procedure MouseMoveOnControl(Sender: TControl; var TheMessage: TLMMouse);
procedure MouseUpOnControl(Sender: TControl; var TheMessage:TLMMouse);
procedure KeyDown(Sender: TControl; var TheMessage: TLMKEY);
@ -1371,7 +1371,7 @@ begin
Form.Invalidate;
end;
function TDesigner.PaintControl(Sender: TControl; TheMessage: TLMPaint):boolean;
function TDesigner.PaintControl(Sender: TControl; TheMessage: TLMPaint): Boolean;
var
OldDuringPaintControl: boolean;
begin
@ -1536,24 +1536,26 @@ begin
end;
end;
function TDesigner.SizeControl(Sender: TControl; TheMessage: TLMSize):boolean;
function TDesigner.SizeControl(Sender: TControl; TheMessage: TLMSize): Boolean;
begin
Result:=true;
Result := True;
Sender.Dispatch(TheMessage);
if ControlSelection.SelectionForm=Form then begin
ControlSelection.CheckForLCLChanges(true);
if ControlSelection.SelectionForm = Form then
begin
ControlSelection.CheckForLCLChanges(True);
end;
end;
function TDesigner.MoveControl(Sender: TControl; TheMessage: TLMMove):boolean;
function TDesigner.MoveControl(Sender: TControl; TheMessage: TLMMove): Boolean;
begin
Result:=true;
Result := True;
Sender.Dispatch(TheMessage);
//debugln('*** 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.CheckForLCLChanges(true))
and (Sender=Form)
and ControlSelection.LookupRootSelected then begin
if ControlSelection.SelectionForm = Form then
begin
if not ControlSelection.CheckForLCLChanges(True) and (Sender = Form) and
ControlSelection.LookupRootSelected then
begin
// the selected form was moved (nothing else has changed)
// ControlSelection does not need an update, but properties like
// Form.Left/Top have to be updated in the OI