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

fixed wrong 'hints'

Browse Source
This commit is contained in:
zueuk 2005-10-30 16:03:58 +00:00
parent c6bc21a062
commit f5af5a80ba
2 changed files with 29 additions and 50 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

58
2.10/Source/About.dfm
View File

@ -1866,7 +1866,7 @@ object AboutForm: TAboutForm
object Label1: TLabel object Label1: TLabel
Left = 120 Left = 120
Top = 8 Top = 8
Width = 131 Width = 137
Height = 36 Height = 36
Caption = 'Apophysis' Caption = 'Apophysis'
Font.Charset = ANSI_CHARSET Font.Charset = ANSI_CHARSET
@ -1877,22 +1877,22 @@ object AboutForm: TAboutForm
ParentFont = False ParentFont = False
end end
object Label2: TLabel object Label2: TLabel
Left = 120 Left = 260
Top = 48 Top = 24
Width = 65 Width = 65
Height = 13 Height = 13
Caption = 'Version 2.03b' Caption = 'Version 2.03b'
end end
object Label3: TLabel object Label3: TLabel
Left = 120 Left = 120
Top = 172 Top = 164
Width = 166 Width = 166
Height = 13 Height = 13
Caption = 'This application was created using:' Caption = 'This application was created using:'
end end
object Label4: TLabel object Label4: TLabel
Left = 120 Left = 120
Top = 84 Top = 72
Width = 123 Width = 123
Height = 13 Height = 13
Cursor = crHandPoint Cursor = crHandPoint
@ -1908,21 +1908,21 @@ object AboutForm: TAboutForm
end end
object Label10: TLabel object Label10: TLabel
Left = 120 Left = 120
Top = 244 Top = 236
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 = 260 Top = 252
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 = 276 Top = 268
Width = 79 Width = 79
Height = 13 Height = 13
Cursor = crHandPoint Cursor = crHandPoint
@ -1946,8 +1946,8 @@ object AboutForm: TAboutForm
end end
object Bevel1: TBevel object Bevel1: TBevel
Left = 120 Left = 120
Top = 232 Top = 224
Width = 193 Width = 209
Height = 10 Height = 10
Shape = bsBottomLine Shape = bsBottomLine
end end
@ -1968,14 +1968,14 @@ object AboutForm: TAboutForm
end end
object Label6: TLabel object Label6: TLabel
Left = 120 Left = 120
Top = 104 Top = 92
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 = 108
Width = 115 Width = 115
Height = 13 Height = 13
Cursor = crHandPoint Cursor = crHandPoint
@ -1991,7 +1991,7 @@ object AboutForm: TAboutForm
end end
object Label8: TLabel object Label8: TLabel
Left = 140 Left = 140
Top = 136 Top = 124
Width = 96 Width = 96
Height = 13 Height = 13
Cursor = crHandPoint Cursor = crHandPoint
@ -2007,25 +2007,25 @@ object AboutForm: TAboutForm
end end
object Label9: TLabel object Label9: TLabel
Left = 140 Left = 140
Top = 152 Top = 140
Width = 70 Width = 70
Height = 13 Height = 13
Caption = 'Ronald Hordijk' Caption = 'Ronald Hordijk'
end end
object Label12: TLabel object Label12: TLabel
Left = 120 Left = 120
Top = 68 Top = 56
Width = 190 Width = 190
Height = 13 Height = 13
Caption = 'Copyright '#169' 2001-2004 Mark Townsend' Caption = 'Copyright '#169' 2001-2004 Mark Townsend'
end end
object Label13: TLabel object Label13: TLabel
Left = 120 Left = 120
Top = 188 Top = 180
Width = 69 Width = 69
Height = 13 Height = 13
Cursor = crHandPoint Cursor = crHandPoint
Hint = 'http://www.apophysis.org' Hint = 'http://www.tmssoftware.com/'
Caption = 'Scripter Studio' Caption = 'Scripter Studio'
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue Font.Color = clBlue
@ -2033,15 +2033,15 @@ object AboutForm: TAboutForm
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline] Font.Style = [fsUnderline]
ParentFont = False ParentFont = False
OnClick = Label13Click OnClick = DevelopersClick
end end
object Label14: TLabel object Label14: TLabel
Left = 120 Left = 120
Top = 204 Top = 196
Width = 55 Width = 55
Height = 13 Height = 13
Cursor = crHandPoint Cursor = crHandPoint
Hint = 'http://www.apophysis.org' Hint = 'http://www.destructor.de/'
Caption = 'XML Parser' Caption = 'XML Parser'
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue Font.Color = clBlue
@ -2049,15 +2049,15 @@ object AboutForm: TAboutForm
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline] Font.Style = [fsUnderline]
ParentFont = False ParentFont = False
OnClick = Label14Click OnClick = DevelopersClick
end end
object Label15: TLabel object Label15: TLabel
Left = 120 Left = 120
Top = 220 Top = 212
Width = 175 Width = 175
Height = 13 Height = 13
Cursor = crHandPoint Cursor = crHandPoint
Hint = 'http://www.apophysis.org' Hint = 'http://pngdelphi.sourceforge.net/'
Caption = 'Portable Network Graphics for Delphi' Caption = 'Portable Network Graphics for Delphi'
Font.Charset = DEFAULT_CHARSET Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue Font.Color = clBlue
@ -2065,20 +2065,20 @@ object AboutForm: TAboutForm
Font.Name = 'MS Sans Serif' Font.Name = 'MS Sans Serif'
Font.Style = [fsUnderline] Font.Style = [fsUnderline]
ParentFont = False ParentFont = False
OnClick = Label15Click OnClick = DevelopersClick
end end
object Bevel2: TBevel object Bevel2: TBevel
Left = 116 Left = 116
Top = 57 Top = 41
Width = 193 Width = 213
Height = 10 Height = 10
Shape = bsBottomLine Shape = bsBottomLine
end end
object Bevel3: TBevel object Bevel3: TBevel
Left = 120 Left = 120
Top = 158 Top = 150
Width = 193 Width = 209
Height = 10 Height = 11
Shape = bsBottomLine Shape = bsBottomLine
end end
object btnOK: TButton object btnOK: TButton

21
2.10/Source/About.pas
View File

@ -47,9 +47,6 @@ type
Label15: TLabel; Label15: TLabel;
Bevel2: TBevel; Bevel2: TBevel;
Bevel3: TBevel; Bevel3: TBevel;
procedure Label15Click(Sender: TObject);
procedure Label14Click(Sender: TObject);
procedure Label13Click(Sender: TObject);
procedure btnOKClick(Sender: TObject); procedure btnOKClick(Sender: TObject);
procedure Label4Click(Sender: TObject); procedure Label4Click(Sender: TObject);
procedure lblFlamecomClick(Sender: TObject); procedure lblFlamecomClick(Sender: TObject);
@ -109,22 +106,4 @@ begin
nil, nil, SW_SHOWNORMAL); nil, nil, SW_SHOWNORMAL);
end; 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. end.