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

lcl: formatting

Browse Source 
git-svn-id: trunk@30045 -
This commit is contained in:
paul 2011-03-28 07:10:57 +00:00
parent 98c49e3bfb
commit 2bd0c336c8
3 changed files with 17 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
lcl/include/control.inc
View File

@ -4922,7 +4922,7 @@ begin
DebugLn('[TControl.WMMove] Name=',Name,':',ClassName,' Message.XPos=',DbgS(Message.XPos),' Message.YPos=',DbgS(Message.YPos),' OldLeft=',DbgS(Left),' OldTop=',DbgS(Top));
{$ENDIF}
// Just sync the coordinates
if Parent<>nil then
if Assigned(Parent) then
SetBoundsKeepBase(Message.XPos, Message.YPos, Width, Height)
else
SetBounds(Message.XPos, Message.YPos, Width, Height);

24
lcl/include/customform.inc
View File

@ -570,7 +570,7 @@ end;
procedure TCustomForm.DoShowWindow;
begin
if (ActiveControl = nil) and (not (csDesigning in ComponentState)) and (Parent=nil) then
if (ActiveControl = nil) and (not (csDesigning in ComponentState)) and (Parent = nil) then
begin
// automatically choose a control to focus
{$IFDEF VerboseFocus}
@ -632,14 +632,14 @@ begin
DebugLn(['[TCustomForm.WMSize] ',DbgSName(Self),' Message.SizeType=',Message.SizeType,' Message.Width=',Message.Width,' Message.Height=',Message.Height,' AutoSizeDelayed=',AutoSizeDelayed]);
{$ENDIF}
if (Parent=nil) and ((Message.SizeType and SIZE_SourceIsInterface)>0) then
if (Parent = nil) and ((Message.SizeType and SIZE_SourceIsInterface) > 0) then
begin
// this is a top level form (constraints depend on window manager)
// and the widgetset set a size
if (Message.Width<>Width) or (Message.Height<>Height) then
if (Message.Width <> Width) or (Message.Height <> Height) then
begin
// the window manager sets another size => disable autosize to prevent endless loop
Include(FFormState,fsDisableAutoSize);
Include(FFormState, fsDisableAutoSize);
end;
end;
@ -689,12 +689,11 @@ end;
procedure TCustomForm.WMWindowPosChanged(var Message: TLMWindowPosChanged);
begin
if (Parent=nil) and (Message.WindowPos<>nil)
and ((Message.WindowPos^.flags and SWP_SourceIsInterface)>0)
then begin
if (Parent = nil) and Assigned(Message.WindowPos) and ((Message.WindowPos^.flags and SWP_SourceIsInterface)>0) then
begin
// this is a top level form (constraints depend on window manager)
// and the widgetset set a size
if (Message.WindowPos^.cx<>Width) or (Message.WindowPos^.cy<>Height) then
if (Message.WindowPos^.cx <> Width) or (Message.WindowPos^.cy <> Height) then
begin
// the window manager sets another size => disable autosize to prevent endless loop
Include(FFormState,fsDisableAutoSize);
@ -1091,13 +1090,14 @@ var
begin
inherited CalculatePreferredSize(PreferredWidth, PreferredHeight,
WithThemeSpace);
if (Parent=nil) and (Anchors*[akRight,akBottom]<>[]) then begin
if (Parent = nil) and (Anchors * [akRight, akBottom] <> []) then
begin
// do size bigger than the monitor workarea
WorkArea:=Monitor.WorkareaRect;
WorkArea := Monitor.WorkareaRect;
if akRight in Anchors then
PreferredWidth:=min(PreferredWidth,WorkArea.Right-WorkArea.Left);
PreferredWidth := min(PreferredWidth, WorkArea.Right - WorkArea.Left);
if akBottom in Anchors then
PreferredHeight:=min(PreferredHeight,WorkArea.Bottom-WorkArea.Top);
PreferredHeight := min(PreferredHeight, WorkArea.Bottom - WorkArea.Top);
end;
end;

10
lcl/include/wincontrol.inc
View File

@ -6680,14 +6680,12 @@ begin
if CompareRect(@NewBoundsRealized,@FBoundsRealized) then exit;
TopParent:=GetTopParent;
if (TopParent is TWinControl)
and (wcfKillIntfSetBounds in TWinControl(TopParent).FWinControlFlags)
then
if (TopParent is TWinControl) and (wcfKillIntfSetBounds in TWinControl(TopParent).FWinControlFlags) then
RaiseLoop;
FBoundsRealized := NewBoundsRealized;
if ([caspCreatingHandles,caspComputingBounds]*AutoSizePhases<>[])
then begin
if ([caspCreatingHandles,caspComputingBounds]*AutoSizePhases<>[]) then
begin
// while the LCL is creating handles the widgetset may send default bounds
// we have not yet told the widgetset the final bounds
// => the InvalidatePreferredSize and the InvalidateClientRectCache
@ -6699,7 +6697,7 @@ begin
exit;
end;
end;
if Parent<>nil then
if Assigned(Parent) then
SetBoundsKeepBase(Message.XPos, Message.YPos, NewWidth, NewHeight)
else
SetBounds(Message.XPos, Message.YPos, NewWidth, NewHeight);