Resize On load
This commit is contained in:
		@ -27,7 +27,7 @@ object MainForm: TMainForm
 | 
				
			|||||||
    Left = 160
 | 
					    Left = 160
 | 
				
			||||||
    Top = 28
 | 
					    Top = 28
 | 
				
			||||||
    Width = 4
 | 
					    Width = 4
 | 
				
			||||||
    Height = 522
 | 
					    Height = 534
 | 
				
			||||||
  end
 | 
					  end
 | 
				
			||||||
  object ToolBar: TToolBar
 | 
					  object ToolBar: TToolBar
 | 
				
			||||||
    Left = 0
 | 
					    Left = 0
 | 
				
			||||||
@ -261,7 +261,7 @@ object MainForm: TMainForm
 | 
				
			|||||||
    Left = 0
 | 
					    Left = 0
 | 
				
			||||||
    Top = 28
 | 
					    Top = 28
 | 
				
			||||||
    Width = 160
 | 
					    Width = 160
 | 
				
			||||||
    Height = 522
 | 
					    Height = 534
 | 
				
			||||||
    Align = alLeft
 | 
					    Align = alLeft
 | 
				
			||||||
    Columns = <
 | 
					    Columns = <
 | 
				
			||||||
      item
 | 
					      item
 | 
				
			||||||
@ -280,7 +280,7 @@ object MainForm: TMainForm
 | 
				
			|||||||
    Left = 164
 | 
					    Left = 164
 | 
				
			||||||
    Top = 28
 | 
					    Top = 28
 | 
				
			||||||
    Width = 402
 | 
					    Width = 402
 | 
				
			||||||
    Height = 522
 | 
					    Height = 534
 | 
				
			||||||
    Align = alClient
 | 
					    Align = alClient
 | 
				
			||||||
    BevelInner = bvLowered
 | 
					    BevelInner = bvLowered
 | 
				
			||||||
    BevelOuter = bvNone
 | 
					    BevelOuter = bvNone
 | 
				
			||||||
@ -303,7 +303,7 @@ object MainForm: TMainForm
 | 
				
			|||||||
  end
 | 
					  end
 | 
				
			||||||
  object StatusBar: TStatusBar
 | 
					  object StatusBar: TStatusBar
 | 
				
			||||||
    Left = 0
 | 
					    Left = 0
 | 
				
			||||||
    Top = 550
 | 
					    Top = 562
 | 
				
			||||||
    Width = 566
 | 
					    Width = 566
 | 
				
			||||||
    Height = 19
 | 
					    Height = 19
 | 
				
			||||||
    Panels = <
 | 
					    Panels = <
 | 
				
			||||||
@ -2936,9 +2936,8 @@ object MainForm: TMainForm
 | 
				
			|||||||
  end
 | 
					  end
 | 
				
			||||||
  object HTTP: TIdHTTP
 | 
					  object HTTP: TIdHTTP
 | 
				
			||||||
    OnStatus = HTTPStatus
 | 
					    OnStatus = HTTPStatus
 | 
				
			||||||
    MaxLineAction = maException
 | 
					 | 
				
			||||||
    ReadTimeout = 0
 | 
					 | 
				
			||||||
    AuthRetries = 0
 | 
					    AuthRetries = 0
 | 
				
			||||||
 | 
					    AuthProxyRetries = 0
 | 
				
			||||||
    AllowCookies = True
 | 
					    AllowCookies = True
 | 
				
			||||||
    ProxyParams.BasicAuthentication = False
 | 
					    ProxyParams.BasicAuthentication = False
 | 
				
			||||||
    ProxyParams.ProxyPort = 0
 | 
					    ProxyParams.ProxyPort = 0
 | 
				
			||||||
 | 
				
			|||||||
@ -279,6 +279,9 @@ var
 | 
				
			|||||||
  r, s, theta, phi: double;
 | 
					  r, s, theta, phi: double;
 | 
				
			||||||
  skip: boolean;
 | 
					  skip: boolean;
 | 
				
			||||||
begin
 | 
					begin
 | 
				
			||||||
 | 
					  if Assigned(SourceCP) then
 | 
				
			||||||
 | 
					    Result := SourceCP.clone
 | 
				
			||||||
 | 
					  else
 | 
				
			||||||
    Result := TControlPoint.Create;
 | 
					    Result := TControlPoint.Create;
 | 
				
			||||||
 | 
					
 | 
				
			||||||
  Min := randMinTransforms;
 | 
					  Min := randMinTransforms;
 | 
				
			||||||
 | 
				
			|||||||
		Reference in New Issue
	
	Block a user