From: Peter S. <zu...@us...> - 2005-10-30 16:04:19
|
Update of /cvsroot/apophysis/2.10/Source In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21282/Source Modified Files: About.dfm About.pas Log Message: fixed wrong 'hints' Index: About.pas =================================================================== RCS file: /cvsroot/apophysis/2.10/Source/About.pas,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** About.pas 30 Oct 2005 12:46:08 -0000 1.4 --- About.pas 30 Oct 2005 16:03:58 -0000 1.5 *************** *** 48,54 **** Bevel2: TBevel; Bevel3: TBevel; - procedure Label15Click(Sender: TObject); - procedure Label14Click(Sender: TObject); - procedure Label13Click(Sender: TObject); procedure btnOKClick(Sender: TObject); procedure Label4Click(Sender: TObject); --- 48,51 ---- *************** *** 110,130 **** 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. --- 107,109 ---- Index: About.dfm =================================================================== RCS file: /cvsroot/apophysis/2.10/Source/About.dfm,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** About.dfm 30 Oct 2005 12:46:08 -0000 1.8 --- About.dfm 30 Oct 2005 16:03:58 -0000 1.9 *************** *** 1867,1871 **** Left = 120 Top = 8 ! Width = 131 Height = 36 Caption = 'Apophysis' --- 1867,1871 ---- Left = 120 Top = 8 ! Width = 137 Height = 36 Caption = 'Apophysis' *************** *** 1878,1883 **** end object Label2: TLabel ! Left = 120 ! Top = 48 Width = 65 Height = 13 --- 1878,1883 ---- end object Label2: TLabel ! Left = 260 ! Top = 24 Width = 65 Height = 13 *************** *** 1886,1890 **** object Label3: TLabel Left = 120 ! Top = 172 Width = 166 Height = 13 --- 1886,1890 ---- object Label3: TLabel Left = 120 ! Top = 164 Width = 166 Height = 13 *************** *** 1893,1897 **** object Label4: TLabel Left = 120 ! Top = 84 Width = 123 Height = 13 --- 1893,1897 ---- object Label4: TLabel Left = 120 ! Top = 72 Width = 123 Height = 13 *************** *** 1909,1913 **** object Label10: TLabel Left = 120 ! Top = 244 Width = 178 Height = 13 --- 1909,1913 ---- object Label10: TLabel Left = 120 ! Top = 236 Width = 178 Height = 13 *************** *** 1916,1920 **** object Label11: TLabel Left = 120 ! Top = 260 Width = 178 Height = 13 --- 1916,1920 ---- object Label11: TLabel Left = 120 ! Top = 252 Width = 178 Height = 13 *************** *** 1923,1927 **** object lblFlamecom: TLabel Left = 120 ! Top = 276 Width = 79 Height = 13 --- 1923,1927 ---- object lblFlamecom: TLabel Left = 120 ! Top = 268 Width = 79 Height = 13 *************** *** 1947,1952 **** object Bevel1: TBevel Left = 120 ! Top = 232 ! Width = 193 Height = 10 Shape = bsBottomLine --- 1947,1952 ---- object Bevel1: TBevel Left = 120 ! Top = 224 ! Width = 209 Height = 10 Shape = bsBottomLine *************** *** 1969,1973 **** object Label6: TLabel Left = 120 ! Top = 104 Width = 86 Height = 13 --- 1969,1973 ---- object Label6: TLabel Left = 120 ! Top = 92 Width = 86 Height = 13 *************** *** 1976,1980 **** object Label7: TLabel Left = 140 ! Top = 120 Width = 115 Height = 13 --- 1976,1980 ---- object Label7: TLabel Left = 140 ! Top = 108 Width = 115 Height = 13 *************** *** 1992,1996 **** object Label8: TLabel Left = 140 ! Top = 136 Width = 96 Height = 13 --- 1992,1996 ---- object Label8: TLabel Left = 140 ! Top = 124 Width = 96 Height = 13 *************** *** 2008,2012 **** object Label9: TLabel Left = 140 ! Top = 152 Width = 70 Height = 13 --- 2008,2012 ---- object Label9: TLabel Left = 140 ! Top = 140 Width = 70 Height = 13 *************** *** 2015,2019 **** object Label12: TLabel Left = 120 ! Top = 68 Width = 190 Height = 13 --- 2015,2019 ---- object Label12: TLabel Left = 120 ! Top = 56 Width = 190 Height = 13 *************** *** 2022,2030 **** 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 --- 2022,2030 ---- object Label13: TLabel Left = 120 ! Top = 180 Width = 69 Height = 13 Cursor = crHandPoint ! Hint = 'http://www.tmssoftware.com/' Caption = 'Scripter Studio' Font.Charset = DEFAULT_CHARSET *************** *** 2034,2046 **** 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 --- 2034,2046 ---- Font.Style = [fsUnderline] ParentFont = False ! OnClick = DevelopersClick end object Label14: TLabel Left = 120 ! Top = 196 Width = 55 Height = 13 Cursor = crHandPoint ! Hint = 'http://www.destructor.de/' Caption = 'XML Parser' Font.Charset = DEFAULT_CHARSET *************** *** 2050,2062 **** 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 --- 2050,2062 ---- Font.Style = [fsUnderline] ParentFont = False ! OnClick = DevelopersClick end object Label15: TLabel Left = 120 ! Top = 212 Width = 175 Height = 13 Cursor = crHandPoint ! Hint = 'http://pngdelphi.sourceforge.net/' Caption = 'Portable Network Graphics for Delphi' Font.Charset = DEFAULT_CHARSET *************** *** 2066,2075 **** Font.Style = [fsUnderline] ParentFont = False ! OnClick = Label15Click end object Bevel2: TBevel Left = 116 ! Top = 57 ! Width = 193 Height = 10 Shape = bsBottomLine --- 2066,2075 ---- Font.Style = [fsUnderline] ParentFont = False ! OnClick = DevelopersClick end object Bevel2: TBevel Left = 116 ! Top = 41 ! Width = 213 Height = 10 Shape = bsBottomLine *************** *** 2077,2083 **** object Bevel3: TBevel Left = 120 ! Top = 158 ! Width = 193 ! Height = 10 Shape = bsBottomLine end --- 2077,2083 ---- object Bevel3: TBevel Left = 120 ! Top = 150 ! Width = 209 ! Height = 11 Shape = bsBottomLine end |