mirror-github-bspeice/apophysis
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Post Sheep functionality removed

Browse Source
This commit is contained in:
ronaldhordijk 2005-09-04 13:47:02 +00:00
parent 1855e5e388
commit 674245eea7
2 changed files with 16 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
2.10/Source/Main.dfm
View File

@ -2,7 +2,7 @@ object MainForm: TMainForm
Left = 408 Left = 408
Top = 98 Top = 98
Width = 574 Width = 574
Height = 635 Height = 675
Caption = 'Apophysis' Caption = 'Apophysis'
Color = clBtnFace Color = clBtnFace
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -27,7 +27,7 @@ object MainForm: TMainForm
Left = 160 Left = 160
Top = 28 Top = 28
Width = 4 Width = 4
Height = 534 Height = 574
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 = 534 Height = 574
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 = 534 Height = 574
Align = alClient Align = alClient
BevelInner = bvLowered BevelInner = bvLowered
BevelOuter = bvNone BevelOuter = bvNone
@ -291,7 +291,7 @@ object MainForm: TMainForm
Left = 1 Left = 1
Top = 1 Top = 1
Width = 400 Width = 400
Height = 532 Height = 572
Align = alClient Align = alClient
AutoSize = True AutoSize = True
PopupMenu = DisplayPopup PopupMenu = DisplayPopup
@ -303,7 +303,7 @@ object MainForm: TMainForm
end end
object StatusBar: TStatusBar object StatusBar: TStatusBar
Left = 0 Left = 0
Top = 562 Top = 602
Width = 566 Width = 566
Height = 19 Height = 19
Panels = < Panels = <
@ -2521,11 +2521,12 @@ object MainForm: TMainForm
object mnuPostSheep: TMenuItem object mnuPostSheep: TMenuItem
Caption = 'Post Sheep...' Caption = 'Post Sheep...'
ImageIndex = 45 ImageIndex = 45
ShortCut = 16456 Visible = False
OnClick = mnuPostSheepClick OnClick = mnuPostSheepClick
end end
object N21: TMenuItem object N21: TMenuItem
Caption = '-' Caption = '-'
Visible = False
end end
object mnuRandomBatch: TMenuItem object mnuRandomBatch: TMenuItem
Caption = '&Random Batch' Caption = '&Random Batch'

16
2.10/Source/Main.pas
View File

@ -365,7 +365,7 @@ implementation
uses Editor, Options, Regstry, Gradient, Render, uses Editor, Options, Regstry, Gradient, Render,
FullScreen, FormRender, Mutate, Adjust, Browser, Save, About, CmapData, FullScreen, FormRender, Mutate, Adjust, Browser, Save, About, CmapData,
HtmlHlp, ScriptForm, FormFavorites, Size, FormExport, msMultiPartFormData, HtmlHlp, ScriptForm, FormFavorites, Size, FormExport, msMultiPartFormData,
Sheep, ImageColoring, RndFlame; ImageColoring, RndFlame;
{$R *.DFM} {$R *.DFM}
@ -3822,11 +3822,11 @@ begin
end; end;
procedure TMainForm.mnuPostSheepClick(Sender: TObject); procedure TMainForm.mnuPostSheepClick(Sender: TObject);
var //var
URL: string; // URL: string;
StringList: TStringList; // StringList: TStringList;
ResponseStream: TMemoryStream; // ResponseStream: TMemoryStream;
MultiPartFormDataStream: TmsMultiPartFormDataStream; // MultiPartFormDataStream: TmsMultiPartFormDataStream;
begin begin
// if MainCp.HasNewVariants then begin // if MainCp.HasNewVariants then begin
// showMessage('The posting of sheep with new variants (exponential, power, cosine and sawtooth) is disabled in this version.'); // showMessage('The posting of sheep with new variants (exponential, power, cosine and sawtooth) is disabled in this version.');
@ -3837,7 +3837,7 @@ begin
// showMessage('The posting of sheep with are rotated is disabled in this version.'); // showMessage('The posting of sheep with are rotated is disabled in this version.');
// Exit; // Exit;
// end; // end;
(*
if SheepDialog.ShowModal = mrOK then if SheepDialog.ShowModal = mrOK then
begin begin
DeleteFile('apophysis.log'); DeleteFile('apophysis.log');
@ -3877,7 +3877,7 @@ begin
logFile.Active := False; logFile.Active := False;
end; end;
end; end;
*)
end; end;
procedure TMainForm.HTTPRedirect(Sender: TObject; var dest: string; procedure TMainForm.HTTPRedirect(Sender: TObject; var dest: string;