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

fixed zooming bug in main window

Browse Source
This commit is contained in:
zueuk
2006-09-27 14:52:07 +00:00
parent 2c9a9705cc
commit 07078fa223
8 changed files with 48 additions and 36 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
2.10/Source/About.pas
View File

@ -49,8 +49,6 @@ type
Bevel2: TBevel;
Bevel3: TBevel;
procedure btnOKClick(Sender: TObject);
procedure Label4Click(Sender: TObject);
procedure lblFlamecomClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure lblCreditClick(Sender: TObject);
procedure DevelopersClick(Sender: TObject);
@ -75,18 +73,6 @@ begin
ModalResult := mrOK;
end;
procedure TAboutForm.Label4Click(Sender: TObject);
begin
ShellExecute(ValidParentForm(Self).Handle, 'open', PChar('http://www.apophysis.org'),
nil, nil, SW_SHOWNORMAL);
end;
procedure TAboutForm.lblFlamecomClick(Sender: TObject);
begin
ShellExecute(ValidParentForm(Self).Handle, 'open', PChar('http://flam3.com'),
nil, nil, SW_SHOWNORMAL);
end;
procedure TAboutForm.FormShow(Sender: TObject);
begin
lblCredit.Caption := MainCp.Nick;