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

version 2.03b and added library ysed to about box

Browse Source
This commit is contained in:
ronaldhordijk
2005-10-30 12:46:08 +00:00
parent bcd39f2a98
commit 62d15d0ef4
4 changed files with 121 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files

27
2.10/Source/About.pas
View File

@ -41,6 +41,15 @@ type
Label7: TLabel;
Label8: TLabel;
Label9: TLabel;
Label12: TLabel;
Label13: TLabel;
Label14: TLabel;
Label15: TLabel;
Bevel2: TBevel;
Bevel3: TBevel;
procedure Label15Click(Sender: TObject);
procedure Label14Click(Sender: TObject);
procedure Label13Click(Sender: TObject);
procedure btnOKClick(Sender: TObject);
procedure Label4Click(Sender: TObject);
procedure lblFlamecomClick(Sender: TObject);
@ -100,4 +109,22 @@ begin
nil, nil, SW_SHOWNORMAL);
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.