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

version 2.03b and added library ysed to about box

Browse Source
This commit is contained in:
ronaldhordijk 2005-10-30 12:46:08 +00:00
parent bcd39f2a98
commit 62d15d0ef4
4 changed files with 121 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

109
2.10/Source/About.dfm
View File

@ -3,8 +3,8 @@ object AboutForm: TAboutForm
Top = 320
BorderStyle = bsDialog
Caption = 'About Apophysis'
ClientHeight = 279
ClientWidth = 345
ClientHeight = 323
ClientWidth = 338
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -17,8 +17,8 @@ object AboutForm: TAboutForm
PixelsPerInch = 96
TextHeight = 13
object Image1: TImage
Left = 8
Top = 16
Left = 12
Top = 32
Width = 81
Height = 249
Picture.Data = {
@ -1881,18 +1881,18 @@ object AboutForm: TAboutForm
Top = 48
Width = 65
Height = 13
Caption = 'Version 2.03a'
Caption = 'Version 2.03b'
end
object Label3: TLabel
Left = 120
Top = 72
Width = 190
Top = 172
Width = 166
Height = 13
Caption = 'Copyright '#169' 2001-2004 Mark Townsend'
Caption = 'This application was created using:'
end
object Label4: TLabel
Left = 120
Top = 88
Top = 84
Width = 123
Height = 13
Cursor = crHandPoint
@ -1908,21 +1908,21 @@ object AboutForm: TAboutForm
end
object Label10: TLabel
Left = 120
Top = 196
Top = 244
Width = 178
Height = 13
Caption = 'flame - cosmic recursive fractal flames'
end
object Label11: TLabel
Left = 120
Top = 212
Top = 260
Width = 178
Height = 13
Caption = 'Copyright '#169' 1992-2005 Scott Draves'
end
object lblFlamecom: TLabel
Left = 120
Top = 228
Top = 276
Width = 79
Height = 13
Cursor = crHandPoint
@ -1938,7 +1938,7 @@ object AboutForm: TAboutForm
end
object Label5: TLabel
Left = 120
Top = 260
Top = 296
Width = 108
Height = 13
Caption = 'This flame designed by'
@ -1946,14 +1946,14 @@ object AboutForm: TAboutForm
end
object Bevel1: TBevel
Left = 120
Top = 184
Top = 232
Width = 193
Height = 10
Shape = bsBottomLine
end
object lblCredit: TLabel
Left = 234
Top = 260
Top = 296
Width = 23
Height = 13
Caption = 'Wub'
@ -1968,14 +1968,14 @@ object AboutForm: TAboutForm
end
object Label6: TLabel
Left = 120
Top = 112
Top = 104
Width = 86
Height = 13
Caption = 'Copyright '#169' 2005 '
end
object Label7: TLabel
Left = 140
Top = 128
Top = 120
Width = 115
Height = 13
Cursor = crHandPoint
@ -1991,7 +1991,7 @@ object AboutForm: TAboutForm
end
object Label8: TLabel
Left = 140
Top = 144
Top = 136
Width = 96
Height = 13
Cursor = crHandPoint
@ -2007,14 +2007,83 @@ object AboutForm: TAboutForm
end
object Label9: TLabel
Left = 140
Top = 160
Top = 152
Width = 70
Height = 13
Caption = 'Ronald Hordijk'
end
object Label12: TLabel
Left = 120
Top = 68
Width = 190
Height = 13
Caption = 'Copyright '#169' 2001-2004 Mark Townsend'
end
object Label13: TLabel
Left = 120
Top = 188
Width = 69
Height = 13
Cursor = crHandPoint
Hint = 'http://www.apophysis.org'
Caption = 'Scripter Studio'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = Label13Click
end
object Label14: TLabel
Left = 120
Top = 204
Width = 55
Height = 13
Cursor = crHandPoint
Hint = 'http://www.apophysis.org'
Caption = 'XML Parser'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = Label14Click
end
object Label15: TLabel
Left = 120
Top = 220
Width = 175
Height = 13
Cursor = crHandPoint
Hint = 'http://www.apophysis.org'
Caption = 'Portable Network Graphics for Delphi'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = Label15Click
end
object Bevel2: TBevel
Left = 116
Top = 57
Width = 193
Height = 10
Shape = bsBottomLine
end
object Bevel3: TBevel
Left = 120
Top = 158
Width = 193
Height = 10
Shape = bsBottomLine
end
object btnOK: TButton
Left = 256
Top = 240
Top = 292
Width = 75
Height = 25
Caption = 'OK'

27
2.10/Source/About.pas
View File

@ -41,6 +41,15 @@ type
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Bevel2: TBevel;
Bevel3: TBevel;
procedure Label15Click(Sender: TObject);
procedure Label14Click(Sender: TObject);
procedure Label13Click(Sender: TObject);
procedure btnOKClick(Sender: TObject);
procedure Label4Click(Sender: TObject);
procedure lblFlamecomClick(Sender: TObject);
@ -100,4 +109,22 @@ begin
nil, nil, SW_SHOWNORMAL);
end;
procedure TAboutForm.Label13Click(Sender: TObject);
begin
ShellExecute(ValidParentForm(Self).Handle, 'open', PChar('http://www.tmssoftware.com/'),
nil, nil, SW_SHOWNORMAL);
end;
procedure TAboutForm.Label14Click(Sender: TObject);
begin
ShellExecute(ValidParentForm(Self).Handle, 'open', PChar('http://www.destructor.de/'),
nil, nil, SW_SHOWNORMAL);
end;
procedure TAboutForm.Label15Click(Sender: TObject);
begin
ShellExecute(ValidParentForm(Self).Handle, 'open', PChar('http://pngdelphi.sourceforge.net/'),
nil, nil, SW_SHOWNORMAL);
end;
end.

8
2.10/Source/Main.dfm
View File

@ -27,7 +27,7 @@ object MainForm: TMainForm
Left = 160
Top = 28
Width = 4
Height = 540
Height = 554
end
object ToolBar: TToolBar
Left = 0
@ -284,7 +284,7 @@ object MainForm: TMainForm
Left = 0
Top = 28
Width = 160
Height = 540
Height = 554
Align = alLeft
Columns = <
item
@ -303,7 +303,7 @@ object MainForm: TMainForm
Left = 164
Top = 28
Width = 433
Height = 540
Height = 554
Align = alClient
BevelInner = bvLowered
BevelOuter = bvNone
@ -327,7 +327,7 @@ object MainForm: TMainForm
end
object StatusBar: TStatusBar
Left = 0
Top = 568
Top = 582
Width = 597
Height = 19
Panels = <

2
2.10/Source/Main.pas
View File

@ -38,7 +38,7 @@ const
RS_XO = 2;
RS_VO = 3;
AppVersionString = 'Apophysis 2.03a';
AppVersionString = 'Apophysis 2.03b';
type
TMouseMoveState = (msUsual, msZoomWindow, msZoomOutWindow, msZoomWindowMove, msZoomOutWindowMove, msDrag, msDragMove, msRotate, msRotateMove);