removed some unused stuff
This commit is contained in:
zueuk
parent
f4a6ab8f7a
commit
ae676f26d9
@ -25,10 +25,6 @@ uses
|
|||||||
ExtCtrls,
|
ExtCtrls,
|
||||||
Render; // 'use'd only for SizeOf()
|
Render; // 'use'd only for SizeOf()
|
||||||
|
|
||||||
//const
|
|
||||||
// WM_THREAD_COMPLETE = WM_APP + 5437;
|
|
||||||
// WM_THREAD_TERMINATE = WM_APP + 5438;
|
|
||||||
|
|
||||||
type
|
type
|
||||||
TRenderForm = class(TForm)
|
TRenderForm = class(TForm)
|
||||||
ProgressBar: TProgressBar;
|
ProgressBar: TProgressBar;
|
||||||
|
|||||||
@ -31,14 +31,12 @@ uses
|
|||||||
|
|
||||||
const
|
const
|
||||||
PixelCountMax = 32768;
|
PixelCountMax = 32768;
|
||||||
WM_THREAD_COMPLETE = WM_APP + 5437; { Just a magic number }
|
|
||||||
WM_PROGRESS_UPDATE = WM_APP + 5438; { Just a magic number }
|
|
||||||
RS_A1 = 0;
|
RS_A1 = 0;
|
||||||
RS_DR = 1;
|
RS_DR = 1;
|
||||||
RS_XO = 2;
|
RS_XO = 2;
|
||||||
RS_VO = 3;
|
RS_VO = 3;
|
||||||
|
|
||||||
AppVersionString = 'Apophysis 2.03c pre-release 5';
|
AppVersionString = 'Apophysis 2.03c';
|
||||||
|
|
||||||
type
|
type
|
||||||
TMouseMoveState = (msUsual, msZoomWindow, msZoomOutWindow, msZoomWindowMove, msZoomOutWindowMove, msDrag, msDragMove, msRotate, msRotateMove);
|
TMouseMoveState = (msUsual, msZoomWindow, msZoomOutWindow, msZoomWindowMove, msZoomOutWindowMove, msDrag, msDragMove, msRotate, msRotateMove);
|
||||||
|
|||||||
@ -1,186 +0,0 @@
|
|||||||
object SheepDialog: TSheepDialog
|
|
||||||
Left = 478
|
|
||||||
Top = 274
|
|
||||||
BorderStyle = bsDialog
|
|
||||||
Caption = 'Post Sheep'
|
|
||||||
ClientHeight = 312
|
|
||||||
ClientWidth = 240
|
|
||||||
Color = clBtnFace
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clBlack
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'MS Sans Serif'
|
|
||||||
Font.Style = []
|
|
||||||
Icon.Data = {
|
|
||||||
0000010001001010000001000800680500001600000028000000100000002000
|
|
||||||
0000010008000000000000000000480000004800000000010000000000000402
|
|
||||||
0400846E7C005C4E5C002C323C00141A2C00C4AAC4000C0E0C009C8E9C00AC5E
|
|
||||||
B4005C5A5C00544654001C121C00745E6C007C828400443A4400141614002426
|
|
||||||
2400140E0C000C0A0400241A2400AC96A40074666C00847A84005C667C00443E
|
|
||||||
44000C0604009C828C00140E1C00846A8400946E9400844684003C2E4400DCD6
|
|
||||||
DC009492BC006C5A640054565400242224004C424C00040604008C6E9C006C4E
|
|
||||||
7C001C222C00ACBADC000C121C00646264001C161400141214002C1A2400BC9E
|
|
||||||
AC007C6A7C00444254009C869C0084727C0064567400342E34001C1A1C00C4AE
|
|
||||||
C4000C0E14009C8EA400645E64004C4E640074626C008C82A4004C3644001416
|
|
||||||
1C002C2A2C00140E14000C0A0C00241E2400B496B400746A7C00947A8C00646A
|
|
||||||
8C00444244000C0614009C82940014121C00846A8C003C3634009496BC005456
|
|
||||||
6C0004060C001C161C00000077003862FF00000BFF00A714FF000000FF00E000
|
|
||||||
C70070002700ED00F60077007700D800E400110027001A00F60000007700E001
|
|
||||||
000070000000ED0015007700000000010900000003000000100000000000A814
|
|
||||||
B2000E0017001A00F50000007700380100000000000001000000000000000000
|
|
||||||
3800000000001500A70000000000A800E000C50070001200ED0000007700B010
|
|
||||||
20000E0000001A00000000000000000020000000000015000000000000008500
|
|
||||||
0C00F4000000F5000E007700000000A8A40000C4C3000012D900000077000000
|
|
||||||
D8000000C300150012000000000085380000F4C50000F512000077000000A1BF
|
|
||||||
0000F4ED0000F5D600007777000008700200064F7F0015D900000077000038FF
|
|
||||||
E80000FFC300A7FF120000FF0000014B0000003B000000D4000000770000010D
|
|
||||||
38000045C60000D412000077000038008D00C6004A001200D4000000770096C4
|
|
||||||
A40039C6C300E7D4D900777777009E620200390B7F00E7140000770000003C82
|
|
||||||
20000000C600A7001200000000001C00230039000400E7000000770000000000
|
|
||||||
2300000004000000000000000000B0CC75000EF405001A860700000001003818
|
|
||||||
88000045C400A7D412000077000001BCBD0000024400007AD70000005A000888
|
|
||||||
6200C6C50B00121214000000000040006200F9000B0012001400000000004001
|
|
||||||
F800F9009500120033000000000009002F0048004200E900D70077005A00381C
|
|
||||||
620030C50B00E812140077000000FF000100FF000000FF000000FF0000009E40
|
|
||||||
000039F90000E71200007700000012BFC400EBEDC60041D6D400007777008000
|
|
||||||
C4006A4FC6001AD9D40000777700D9FF0C0057FF4500E7FFD70077FF5A001C18
|
|
||||||
620039450B00E7D4140077770000AF5D020079A10000D4D400007777000023B8
|
|
||||||
000004F400000086000000000000008282000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000002626000000000000000000002600
|
|
||||||
26264019260026000026002600262626002D0F002600262E2F26262626262600
|
|
||||||
0041245119060B351E1B260000262626261849100032482708450D2E00262651
|
|
||||||
001831162C0E2121281D091043260013364E073338091C2A3C1911264226000B
|
|
||||||
3122013A4B470A3E17000000264326003D051A3146023F1F5039002626432600
|
|
||||||
232014300C294213034351262626514329234918152F0000292B190026262651
|
|
||||||
51000000410F26004C04512626262626002626062E1900262600265119260000
|
|
||||||
0000002600000000000000000000000000000000000000000000000000000000
|
|
||||||
0000000000000000000000000000000000000000000000000000000000000000
|
|
||||||
000000000000000000000000000000000000000000000000000000000000}
|
|
||||||
OldCreateOrder = False
|
|
||||||
Position = poMainFormCenter
|
|
||||||
OnCreate = FormCreate
|
|
||||||
OnDestroy = FormDestroy
|
|
||||||
OnShow = FormShow
|
|
||||||
PixelsPerInch = 96
|
|
||||||
TextHeight = 13
|
|
||||||
object Label1: TLabel
|
|
||||||
Left = 16
|
|
||||||
Top = 162
|
|
||||||
Width = 25
|
|
||||||
Height = 13
|
|
||||||
Caption = 'Nick:'
|
|
||||||
end
|
|
||||||
object Label2: TLabel
|
|
||||||
Left = 16
|
|
||||||
Top = 194
|
|
||||||
Width = 25
|
|
||||||
Height = 13
|
|
||||||
Caption = 'URL:'
|
|
||||||
end
|
|
||||||
object Label3: TLabel
|
|
||||||
Left = 16
|
|
||||||
Top = 226
|
|
||||||
Width = 49
|
|
||||||
Height = 13
|
|
||||||
Caption = 'Password:'
|
|
||||||
end
|
|
||||||
object lblLink: TLabel
|
|
||||||
Left = 16
|
|
||||||
Top = 262
|
|
||||||
Width = 209
|
|
||||||
Height = 13
|
|
||||||
Alignment = taCenter
|
|
||||||
AutoSize = False
|
|
||||||
Caption = 'Creative Commons License'
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clBlue
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'MS Sans Serif'
|
|
||||||
Font.Style = [fsUnderline]
|
|
||||||
ParentFont = False
|
|
||||||
OnClick = lblLinkClick
|
|
||||||
end
|
|
||||||
object lblLicense: TLabel
|
|
||||||
Left = 16
|
|
||||||
Top = 250
|
|
||||||
Width = 209
|
|
||||||
Height = 13
|
|
||||||
Alignment = taCenter
|
|
||||||
AutoSize = False
|
|
||||||
Caption = 'Posted sheep are distributed under a'
|
|
||||||
Font.Charset = DEFAULT_CHARSET
|
|
||||||
Font.Color = clBlack
|
|
||||||
Font.Height = -11
|
|
||||||
Font.Name = 'MS Sans Serif'
|
|
||||||
Font.Style = []
|
|
||||||
ParentFont = False
|
|
||||||
end
|
|
||||||
object Button1: TButton
|
|
||||||
Left = 40
|
|
||||||
Top = 282
|
|
||||||
Width = 75
|
|
||||||
Height = 25
|
|
||||||
Caption = 'Upload'
|
|
||||||
ModalResult = 1
|
|
||||||
TabOrder = 4
|
|
||||||
OnClick = Button1Click
|
|
||||||
end
|
|
||||||
object Button2: TButton
|
|
||||||
Left = 128
|
|
||||||
Top = 282
|
|
||||||
Width = 75
|
|
||||||
Height = 25
|
|
||||||
Caption = 'Cancel'
|
|
||||||
Default = True
|
|
||||||
ModalResult = 2
|
|
||||||
TabOrder = 0
|
|
||||||
end
|
|
||||||
object PrevPnl: TPanel
|
|
||||||
Left = 37
|
|
||||||
Top = 5
|
|
||||||
Width = 162
|
|
||||||
Height = 122
|
|
||||||
BevelOuter = bvLowered
|
|
||||||
Caption = 'PrevPnl'
|
|
||||||
TabOrder = 5
|
|
||||||
object PreviewImage: TImage
|
|
||||||
Left = 1
|
|
||||||
Top = 1
|
|
||||||
Width = 160
|
|
||||||
Height = 120
|
|
||||||
Align = alClient
|
|
||||||
IncrementalDisplay = True
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object txtNick: TEdit
|
|
||||||
Left = 72
|
|
||||||
Top = 160
|
|
||||||
Width = 153
|
|
||||||
Height = 21
|
|
||||||
TabOrder = 1
|
|
||||||
end
|
|
||||||
object txtURL: TEdit
|
|
||||||
Left = 72
|
|
||||||
Top = 192
|
|
||||||
Width = 153
|
|
||||||
Height = 21
|
|
||||||
TabOrder = 2
|
|
||||||
end
|
|
||||||
object txtPassword: TEdit
|
|
||||||
Left = 72
|
|
||||||
Top = 224
|
|
||||||
Width = 153
|
|
||||||
Height = 21
|
|
||||||
TabOrder = 3
|
|
||||||
end
|
|
||||||
object ScrollBar: TScrollBar
|
|
||||||
Left = 16
|
|
||||||
Top = 136
|
|
||||||
Width = 209
|
|
||||||
Height = 13
|
|
||||||
LargeChange = 10
|
|
||||||
PageSize = 0
|
|
||||||
TabOrder = 6
|
|
||||||
OnChange = ScrollBarChange
|
|
||||||
end
|
|
||||||
end
|
|
||||||
@ -1,137 +0,0 @@
|
|||||||
{
|
|
||||||
Apophysis Copyright (C) 2001-2004 Mark Townsend
|
|
||||||
|
|
||||||
This program is free software; you can redistribute it and/or modify
|
|
||||||
it under the terms of the GNU General Public License as published by
|
|
||||||
the Free Software Foundation; either version 2 of the License, or
|
|
||||||
(at your option) any later version.
|
|
||||||
|
|
||||||
This program is distributed in the hope that it will be useful,
|
|
||||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
||||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
||||||
GNU General Public License for more details.
|
|
||||||
|
|
||||||
You should have received a copy of the GNU General Public License
|
|
||||||
along with this program; if not, write to the Free Software
|
|
||||||
Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
|
|
||||||
}
|
|
||||||
unit Sheep;
|
|
||||||
|
|
||||||
interface
|
|
||||||
|
|
||||||
uses
|
|
||||||
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
|
|
||||||
StdCtrls, ExtCtrls, Global, ControlPoint, Render;
|
|
||||||
|
|
||||||
type
|
|
||||||
TSheepDialog = class(TForm)
|
|
||||||
Button1: TButton;
|
|
||||||
Button2: TButton;
|
|
||||||
PrevPnl: TPanel;
|
|
||||||
PreviewImage: TImage;
|
|
||||||
txtNick: TEdit;
|
|
||||||
Label1: TLabel;
|
|
||||||
Label2: TLabel;
|
|
||||||
txtURL: TEdit;
|
|
||||||
Label3: TLabel;
|
|
||||||
txtPassword: TEdit;
|
|
||||||
ScrollBar: TScrollBar;
|
|
||||||
lblLicense: TLabel;
|
|
||||||
lblLink: TLabel;
|
|
||||||
procedure FormShow(Sender: TObject);
|
|
||||||
procedure FormCreate(Sender: TObject);
|
|
||||||
procedure FormDestroy(Sender: TObject);
|
|
||||||
procedure Button1Click(Sender: TObject);
|
|
||||||
procedure ScrollBarChange(Sender: TObject);
|
|
||||||
procedure lblLinkClick(Sender: TObject);
|
|
||||||
private
|
|
||||||
Render: TRenderer;
|
|
||||||
bm: TBitmap;
|
|
||||||
|
|
||||||
procedure DrawPreview;
|
|
||||||
{ Private declarations }
|
|
||||||
public
|
|
||||||
cp: TControlPoint;
|
|
||||||
{ Public declarations }
|
|
||||||
end;
|
|
||||||
|
|
||||||
var
|
|
||||||
SheepDialog: TSheepDialog;
|
|
||||||
|
|
||||||
implementation
|
|
||||||
|
|
||||||
uses Main, cmap, ShellAPI;
|
|
||||||
|
|
||||||
{$R *.DFM}
|
|
||||||
|
|
||||||
procedure TSheepDialog.DrawPreview;
|
|
||||||
begin
|
|
||||||
Render.Stop;
|
|
||||||
cp.Width := PreviewImage.Width;
|
|
||||||
cp.Height := PreviewImage.Height;
|
|
||||||
cp.sample_density := 10;
|
|
||||||
cp.spatial_oversample := 2;
|
|
||||||
cp.spatial_filter_radius := 0.4;
|
|
||||||
cp.Zoom := 0;
|
|
||||||
cp.center[0] := 0;
|
|
||||||
cp.center[1] := 0;
|
|
||||||
cp.pixels_per_unit := 60;
|
|
||||||
cp.gamma := 4;
|
|
||||||
cp.brightness := 4;
|
|
||||||
cp.vibrancy := 1;
|
|
||||||
GetCMap(cp.cmapindex, cp.hue_rotation, cp.cmap);
|
|
||||||
Render.Compatibility := compatibility;
|
|
||||||
Render.SetCP(cp);
|
|
||||||
Render.Render;
|
|
||||||
BM.Assign(Render.GetImage);
|
|
||||||
PreviewImage.Picture.Graphic := bm;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TSheepDialog.FormShow(Sender: TObject);
|
|
||||||
var
|
|
||||||
i: integer;
|
|
||||||
begin
|
|
||||||
scrollbar.position := 0;
|
|
||||||
txtNick.text := MainCp.nick;
|
|
||||||
txtURL.text := MainCp.URL;
|
|
||||||
txtPassword.text := SheepPW;
|
|
||||||
cp.copy(MainCp);
|
|
||||||
for i := 0 to 2 do cp.background[i] := 0;
|
|
||||||
DrawPreview;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TSheepDialog.FormCreate(Sender: TObject);
|
|
||||||
begin
|
|
||||||
bm := TbitMap.Create;
|
|
||||||
cp := TControlPoint.Create;
|
|
||||||
Render := TRenderer.Create;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TSheepDialog.FormDestroy(Sender: TObject);
|
|
||||||
begin
|
|
||||||
bm.free;
|
|
||||||
cp.free;
|
|
||||||
Render.free;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TSheepDialog.Button1Click(Sender: TObject);
|
|
||||||
begin
|
|
||||||
SheepNick := txtNick.Text;
|
|
||||||
SheepURL := txtURL.Text;
|
|
||||||
SheepPW := txtPassword.Text;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TSheepDialog.ScrollBarChange(Sender: TObject);
|
|
||||||
begin
|
|
||||||
cp.hue_rotation := ScrollBar.Position / 100;
|
|
||||||
DrawPreview;
|
|
||||||
end;
|
|
||||||
|
|
||||||
procedure TSheepDialog.lblLinkClick(Sender: TObject);
|
|
||||||
begin
|
|
||||||
ShellExecute(ValidParentForm(Self).Handle, 'open', PChar('http://creativecommons.org/licenses/by-sa/1.0/'),
|
|
||||||
nil, nil, SW_SHOWNORMAL);
|
|
||||||
end;
|
|
||||||
|
|
||||||
end.
|
|
||||||
|
|
||||||
Loading…
Reference in New Issue
Block a user