Resize On load

This commit is contained in:
ronaldhordijk 2005-07-23 09:07:12 +00:00
parent 50f0a5b954
commit cd9ed111dd
2 changed files with 9 additions and 7 deletions

View File

@ -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

View File

@ -279,7 +279,10 @@ var
r, s, theta, phi: double; r, s, theta, phi: double;
skip: boolean; skip: boolean;
begin begin
Result := TControlPoint.Create; if Assigned(SourceCP) then
Result := SourceCP.clone
else
Result := TControlPoint.Create;
Min := randMinTransforms; Min := randMinTransforms;
Max := randMaxTransforms; Max := randMaxTransforms;