From dab1b0276397b8602e25bea4ca3b55a81ec7ba33 Mon Sep 17 00:00:00 2001 From: mattias Date: Tue, 1 Jun 2010 20:21:32 +0000 Subject: [PATCH] clean up OldAutoSize git-svn-id: trunk@25823 - --- components/synedit/syncompletion.pas | 4 ---- designer/designer.pp | 6 +----- 2 files changed, 1 insertion(+), 9 deletions(-) diff --git a/components/synedit/syncompletion.pas b/components/synedit/syncompletion.pas index aef82b5fae..69afb6aa98 100644 --- a/components/synedit/syncompletion.pas +++ b/components/synedit/syncompletion.pas @@ -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; diff --git a/designer/designer.pp b/designer/designer.pp index 73cbc7657c..b9257a0fd8 100644 --- a/designer/designer.pp +++ b/designer/designer.pp @@ -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);