paweld/lazarus
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/lazarus/lazarus.git synced 2025-06-21 13:08:18 +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); constructor TSynBaseCompletionForm.Create(AOwner: TComponent);
begin begin
FResizeLock := 1; // prevent DoResize (on Handle Creation) do reset LinesInWindow FResizeLock := 1; // prevent DoResize (on Handle Creation) do reset LinesInWindow
{$IFNDEF OldAutoSize}
BeginFormUpdate; BeginFormUpdate;
{$ENDIF}
inherited Create(AOwner); inherited Create(AOwner);
FItemList := TStringList.Create; FItemList := TStringList.Create;
BorderStyle := bsNone; BorderStyle := bsNone;
@ -376,9 +374,7 @@ begin
FNbLinesInWindow := 6; FNbLinesInWindow := 6;
FontChanged(Font); FontChanged(Font);
ShowHint := False; ShowHint := False;
{$IFNDEF OldAutoSize}
EndFormUpdate; EndFormUpdate;
{$ENDIF}
FResizeLock := 0; FResizeLock := 0;
end; end;

6
designer/designer.pp
View File

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