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

hyperlinks on names

Browse Source
This commit is contained in:
zueuk 2005-09-20 16:10:27 +00:00
parent 464af7d226
commit 6f6de8c723
2 changed files with 44 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

52
2.10/Source/About.dfm
View File

@ -1878,7 +1878,7 @@ object AboutForm: TAboutForm
end end
object Label2: TLabel object Label2: TLabel
Left = 120 Left = 120
Top = 56 Top = 48
Width = 61 Width = 61
Height = 13 Height = 13
Caption = 'Version 2.02j' Caption = 'Version 2.02j'
@ -1895,6 +1895,8 @@ object AboutForm: TAboutForm
Top = 88 Top = 88
Width = 123 Width = 123
Height = 13 Height = 13
Cursor = crHandPoint
Hint = 'http://www.apophysis.org'
Caption = 'http://www.apophysis.org' Caption = 'http://www.apophysis.org'
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue Font.Color = clBlue
@ -1906,23 +1908,25 @@ object AboutForm: TAboutForm
end end
object Label10: TLabel object Label10: TLabel
Left = 120 Left = 120
Top = 180 Top = 196
Width = 178 Width = 178
Height = 13 Height = 13
Caption = 'flame - cosmic recursive fractal flames' Caption = 'flame - cosmic recursive fractal flames'
end end
object Label11: TLabel object Label11: TLabel
Left = 120 Left = 120
Top = 196 Top = 212
Width = 178 Width = 178
Height = 13 Height = 13
Caption = 'Copyright '#169' 1992-2005 Scott Draves' Caption = 'Copyright '#169' 1992-2005 Scott Draves'
end end
object lblFlamecom: TLabel object lblFlamecom: TLabel
Left = 120 Left = 120
Top = 212 Top = 228
Width = 79 Width = 79
Height = 13 Height = 13
Cursor = crHandPoint
Hint = 'http://flam3.com'
Caption = 'http://flam3.com' Caption = 'http://flam3.com'
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue Font.Color = clBlue
@ -1942,7 +1946,7 @@ object AboutForm: TAboutForm
end end
object Bevel1: TBevel object Bevel1: TBevel
Left = 120 Left = 120
Top = 232 Top = 184
Width = 193 Width = 193
Height = 10 Height = 10
Shape = bsBottomLine Shape = bsBottomLine
@ -1964,35 +1968,53 @@ object AboutForm: TAboutForm
end end
object Label6: TLabel object Label6: TLabel
Left = 120 Left = 120
Top = 104 Top = 112
Width = 86 Width = 86
Height = 13 Height = 13
Caption = 'Copyright '#169' 2005 ' Caption = 'Copyright '#169' 2005 '
end end
object Label7: TLabel object Label7: TLabel
Left = 140 Left = 140
Top = 120 Top = 128
Width = 109 Width = 115
Height = 13 Height = 13
Caption = 'Peter '#39'Zueuk'#39' Sdobnov' Cursor = crHandPoint
Hint = 'http://zueuk.deviantart.com'
Caption = 'Peter "Zueuk" Sdobnov'
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = DevelopersClick
end end
object Label8: TLabel object Label8: TLabel
Left = 140 Left = 140
Top = 136 Top = 144
Width = 90 Width = 96
Height = 13 Height = 13
Caption = 'Piotr '#39'utak3r'#39' Borys ' Cursor = crHandPoint
Hint = 'http://utak3r.deviantart.com'
Caption = 'Piotr "utak3r" Borys '
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -11
Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline]
ParentFont = False
OnClick = DevelopersClick
end end
object Label9: TLabel object Label9: TLabel
Left = 140 Left = 140
Top = 152 Top = 160
Width = 70 Width = 70
Height = 13 Height = 13
Caption = 'Ronald Hordijk' Caption = 'Ronald Hordijk'
end end
object btnOK: TButton object btnOK: TButton
Left = 264 Left = 256
Top = 248 Top = 240
Width = 75 Width = 75
Height = 25 Height = 25
Caption = 'OK' Caption = 'OK'

7
2.10/Source/About.pas
View File

@ -46,6 +46,7 @@ type
procedure lblFlamecomClick(Sender: TObject); procedure lblFlamecomClick(Sender: TObject);
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure lblCreditClick(Sender: TObject); procedure lblCreditClick(Sender: TObject);
procedure DevelopersClick(Sender: TObject);
private private
{ Private declarations } { Private declarations }
URL :String; URL :String;
@ -93,4 +94,10 @@ begin
nil, nil, SW_SHOWNORMAL); nil, nil, SW_SHOWNORMAL);
end; end;
procedure TAboutForm.DevelopersClick(Sender: TObject);
begin
ShellExecute(ValidParentForm(Self).Handle, 'open', PChar(TLabel(Sender).Hint),
nil, nil, SW_SHOWNORMAL);
end;
end. end.