removed some unused stuff
This commit is contained in:
zueuk
parent
f4a6ab8f7a
commit
ae676f26d9
@ -25,10 +25,6 @@ uses
|
||||
ExtCtrls,
|
||||
Render; // 'use'd only for SizeOf()
|
||||
|
||||
//const
|
||||
// WM_THREAD_COMPLETE = WM_APP + 5437;
|
||||
// WM_THREAD_TERMINATE = WM_APP + 5438;
|
||||
|
||||
type
|
||||
TRenderForm = class(TForm)
|
||||
ProgressBar: TProgressBar;
|
||||
|
||||
@ -31,14 +31,12 @@ uses
|
||||
|
||||
const
|
||||
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_DR = 1;
|
||||
RS_XO = 2;
|
||||
RS_VO = 3;
|
||||
|
||||
AppVersionString = 'Apophysis 2.03c pre-release 5';
|
||||
AppVersionString = 'Apophysis 2.03c';
|
||||
|
||||
type
|
||||
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