From: Peter S. <zu...@us...> - 2005-09-20 16:10:38
|
Update of /cvsroot/apophysis/2.10/Source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24849/Source Modified Files: About.dfm About.pas Log Message: hyperlinks on names Index: About.pas =================================================================== RCS file: /cvsroot/apophysis/2.10/Source/About.pas,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** About.pas 19 Sep 2005 18:16:16 -0000 1.2 --- About.pas 20 Sep 2005 16:10:27 -0000 1.3 *************** *** 47,50 **** --- 47,51 ---- procedure FormShow(Sender: TObject); procedure lblCreditClick(Sender: TObject); + procedure DevelopersClick(Sender: TObject); private { Private declarations } *************** *** 94,96 **** --- 95,103 ---- end; + procedure TAboutForm.DevelopersClick(Sender: TObject); + begin + ShellExecute(ValidParentForm(Self).Handle, 'open', PChar(TLabel(Sender).Hint), + nil, nil, SW_SHOWNORMAL); + end; + end. Index: About.dfm =================================================================== RCS file: /cvsroot/apophysis/2.10/Source/About.dfm,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** About.dfm 19 Sep 2005 18:16:16 -0000 1.5 --- About.dfm 20 Sep 2005 16:10:27 -0000 1.6 *************** *** 1879,1883 **** object Label2: TLabel Left = 120 ! Top = 56 Width = 61 Height = 13 --- 1879,1883 ---- object Label2: TLabel Left = 120 ! Top = 48 Width = 61 Height = 13 *************** *** 1896,1899 **** --- 1896,1901 ---- Width = 123 Height = 13 + Cursor = crHandPoint + Hint = 'http://www.apophysis.org' Caption = 'http://www.apophysis.org' Font.Charset = DEFAULT_CHARSET *************** *** 1907,1911 **** object Label10: TLabel Left = 120 ! Top = 180 Width = 178 Height = 13 --- 1909,1913 ---- object Label10: TLabel Left = 120 ! Top = 196 Width = 178 Height = 13 *************** *** 1914,1918 **** object Label11: TLabel Left = 120 ! Top = 196 Width = 178 Height = 13 --- 1916,1920 ---- object Label11: TLabel Left = 120 ! Top = 212 Width = 178 Height = 13 *************** *** 1921,1927 **** object lblFlamecom: TLabel Left = 120 ! Top = 212 Width = 79 Height = 13 Caption = 'http://flam3.com' Font.Charset = DEFAULT_CHARSET --- 1923,1931 ---- object lblFlamecom: TLabel Left = 120 ! Top = 228 Width = 79 Height = 13 + Cursor = crHandPoint + Hint = 'http://flam3.com' Caption = 'http://flam3.com' Font.Charset = DEFAULT_CHARSET *************** *** 1943,1947 **** object Bevel1: TBevel Left = 120 ! Top = 232 Width = 193 Height = 10 --- 1947,1951 ---- object Bevel1: TBevel Left = 120 ! Top = 184 Width = 193 Height = 10 *************** *** 1965,1969 **** object Label6: TLabel Left = 120 ! Top = 104 Width = 86 Height = 13 --- 1969,1973 ---- object Label6: TLabel Left = 120 ! Top = 112 Width = 86 Height = 13 *************** *** 1972,1990 **** 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 --- 1976,2012 ---- object Label7: TLabel Left = 140 ! Top = 128 ! Width = 115 Height = 13 ! 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 object Label8: TLabel Left = 140 ! Top = 144 ! Width = 96 Height = 13 ! 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 object Label9: TLabel Left = 140 ! Top = 160 Width = 70 Height = 13 *************** *** 1992,1997 **** end object btnOK: TButton ! Left = 264 ! Top = 248 Width = 75 Height = 25 --- 2014,2019 ---- end object btnOK: TButton ! Left = 256 ! Top = 240 Width = 75 Height = 25 |