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

claim the credit

Browse Source
This commit is contained in:
ronaldhordijk 2005-09-19 18:16:16 +00:00
parent a231fda44e
commit 464af7d226
2 changed files with 44 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

50
2.10/Source/About.dfm
View File

@ -3,7 +3,7 @@ object AboutForm: TAboutForm
Top = 320 Top = 320
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'About Apophysis' Caption = 'About Apophysis'
ClientHeight = 259 ClientHeight = 279
ClientWidth = 345 ClientWidth = 345
Color = clBtnFace Color = clBtnFace
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
@ -18,7 +18,7 @@ object AboutForm: TAboutForm
TextHeight = 13 TextHeight = 13
object Image1: TImage object Image1: TImage
Left = 8 Left = 8
Top = 8 Top = 16
Width = 81 Width = 81
Height = 249 Height = 249
Picture.Data = { Picture.Data = {
@ -1906,21 +1906,21 @@ object AboutForm: TAboutForm
end end
object Label10: TLabel object Label10: TLabel
Left = 120 Left = 120
Top = 112 Top = 180
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 = 128 Top = 196
Width = 178 Width = 178
Height = 13 Height = 13
Caption = 'Copyright '#169' 1992-2003 Scott Draves' Caption = 'Copyright '#169' 1992-2005 Scott Draves'
end end
object lblFlamecom: TLabel object lblFlamecom: TLabel
Left = 120 Left = 120
Top = 144 Top = 212
Width = 79 Width = 79
Height = 13 Height = 13
Caption = 'http://flam3.com' Caption = 'http://flam3.com'
@ -1934,21 +1934,22 @@ object AboutForm: TAboutForm
end end
object Label5: TLabel object Label5: TLabel
Left = 120 Left = 120
Top = 192 Top = 260
Width = 108 Width = 108
Height = 13 Height = 13
Caption = 'This flame designed by' Caption = 'This flame designed by'
Visible = False
end end
object Bevel1: TBevel object Bevel1: TBevel
Left = 120 Left = 120
Top = 168 Top = 232
Width = 193 Width = 193
Height = 10 Height = 10
Shape = bsBottomLine Shape = bsBottomLine
end end
object lblCredit: TLabel object lblCredit: TLabel
Left = 234 Left = 234
Top = 192 Top = 260
Width = 23 Width = 23
Height = 13 Height = 13
Caption = 'Wub' Caption = 'Wub'
@ -1958,11 +1959,40 @@ object AboutForm: TAboutForm
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline] Font.Style = [fsUnderline]
ParentFont = False ParentFont = False
Visible = False
OnClick = lblCreditClick OnClick = lblCreditClick
end end
object Label6: TLabel
Left = 120
Top = 104
Width = 86
Height = 13
Caption = 'Copyright '#169' 2005 '
end
object Label7: TLabel
Left = 140
Top = 120
Width = 109
Height = 13
Caption = 'Peter '#39'Zueuk'#39' Sdobnov'
end
object Label8: TLabel
Left = 140
Top = 136
Width = 90
Height = 13
Caption = 'Piotr '#39'utak3r'#39' Borys '
end
object Label9: TLabel
Left = 140
Top = 152
Width = 70
Height = 13
Caption = 'Ronald Hordijk'
end
object btnOK: TButton object btnOK: TButton
Left = 264 Left = 264
Top = 224 Top = 248
Width = 75 Width = 75
Height = 25 Height = 25
Caption = 'OK' Caption = 'OK'

4
2.10/Source/About.pas
View File

@ -37,6 +37,10 @@ type
Label5: TLabel; Label5: TLabel;
Bevel1: TBevel; Bevel1: TBevel;
lblCredit: TLabel; lblCredit: TLabel;
Label6: TLabel;
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
procedure btnOKClick(Sender: TObject); procedure btnOKClick(Sender: TObject);
procedure Label4Click(Sender: TObject); procedure Label4Click(Sender: TObject);
procedure lblFlamecomClick(Sender: TObject); procedure lblFlamecomClick(Sender: TObject);