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

clean up OldAutoSize

Browse Source 
git-svn-id: trunk@25823 -
This commit is contained in:
mattias 2010-06-01 20:21:32 +00:00
parent 2ec8112e71
commit dab1b02763
2 changed files with 1 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
components/synedit/syncompletion.pas
View File

@ -344,9 +344,7 @@ implementation
constructor TSynBaseCompletionForm.Create(AOwner: TComponent);
begin
FResizeLock := 1; // prevent DoResize (on Handle Creation) do reset LinesInWindow
{$IFNDEF OldAutoSize}
BeginFormUpdate;
{$ENDIF}
inherited Create(AOwner);
FItemList := TStringList.Create;
BorderStyle := bsNone;
@ -376,9 +374,7 @@ begin
FNbLinesInWindow := 6;
FontChanged(Font);
ShowHint := False;
{$IFNDEF OldAutoSize}
EndFormUpdate;
{$ENDIF}
FResizeLock := 0;
end;

6
designer/designer.pp
View File

@ -1183,9 +1183,7 @@ begin
if PasteParent=nil then PasteParent:=GetPasteParent;
NewSelection:=TControlSelection.Create;
try
{$IFNDEF OldAutoSize}
Form.DisableAutoSizing;
{$ENDIF}
try
// read component stream from clipboard
@ -1239,9 +1237,7 @@ begin
end;
finally
{$IFNDEF OldAutoSize}
Form.EnableAutoSizing;
{$ENDIF}
end;
finally
if NewSelection.Count>0 then
@ -1964,7 +1960,7 @@ var
// create component and component interface
DebugLn(['AddComponent ',DbgSName(NewComponentClass),' Parent=',DbgSName(NewParent),' ',NewLeft,',',NewTop,',',NewWidth,',',NewHeight]);
DisableAutoSize:={$IFDEF OldAutoSize}false{$ELSE}true{$ENDIF};
DisableAutoSize:=true;
NewComponent := TheFormEditor.CreateComponent(
NewParent,NewComponentClass,'',
NewLeft,NewTop,NewWidth,NewHeight,DisableAutoSize);