diff --git a/2.10/Source/About.dfm b/2.10/Source/About.dfm index f386bf5..ed94e49 100644 --- a/2.10/Source/About.dfm +++ b/2.10/Source/About.dfm @@ -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' diff --git a/2.10/Source/About.pas b/2.10/Source/About.pas index dbaaf0f..7e29bd7 100644 --- a/2.10/Source/About.pas +++ b/2.10/Source/About.pas @@ -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. diff --git a/2.10/Source/Main.dfm b/2.10/Source/Main.dfm index bfa5c6a..4ffa3e2 100644 --- a/2.10/Source/Main.dfm +++ b/2.10/Source/Main.dfm @@ -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 = < diff --git a/2.10/Source/Main.pas b/2.10/Source/Main.pas index f6bc42d..b01c45a 100644 --- a/2.10/Source/Main.pas +++ b/2.10/Source/Main.pas @@ -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);