mirror of
https://github.com/moparisthebest/Simba
synced 2024-11-28 20:12:16 -05:00
bedc0fa2a5
I started to work on a Bug Report form, but came to the conclusion, have no way of posting the information. Wizzup, could you please post on the new thread about how to post to Mantis if you know? I wrote up some new code for a new internets.pas currently in (newinternets.pas, whooda thunk?) Its good, just needs some crucial things like physically openning the connections and closing them. I added PostHTTP stuff, and need more ideas, I worked through Indy and found the right things so.. yeah! Oh, and I added some more icons to the MainMenu from famfam. Just to reiterate, the new AboutForm is a template, and the Image is copyrighted and will have to change. git-svn-id: http://www.villavu.com/repositories/merlijn/mufasa@406 3f818213-9676-44b0-a9b4-5e4c4e03d09d
84 lines
2.1 KiB
ObjectPascal
84 lines
2.1 KiB
ObjectPascal
{
|
|
This file is part of the Mufasa Macro Library (MML)
|
|
Copyright (c) 2009 by Raymond van Venetië and Merlijn Wajer
|
|
|
|
MML is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU General Public License as published by
|
|
the Free Software Foundation, either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
MML is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU General Public License for more details.
|
|
|
|
You should have received a copy of the GNU General Public License
|
|
along with MML. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
See the file COPYING, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
about form for the Mufasa Macro Library
|
|
}
|
|
|
|
unit about;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
|
|
StdCtrls, ExtCtrls;
|
|
|
|
type
|
|
|
|
{ TAboutForm }
|
|
|
|
TAboutForm = class(TForm)
|
|
AboutMemo: TMemo;
|
|
ButtonClose: TButton;
|
|
ImageSimba: TImage;
|
|
LabelTitle: TLabel;
|
|
LabelRevision: TLabel;
|
|
procedure FormCreate(Sender: TObject);
|
|
procedure OkButtonClick(Sender: TObject);
|
|
private
|
|
{ private declarations }
|
|
public
|
|
{ public declarations }
|
|
end;
|
|
|
|
var
|
|
AboutForm: TAboutForm;
|
|
|
|
implementation
|
|
uses
|
|
TestUnit;
|
|
{ TAboutForm }
|
|
|
|
procedure TAboutForm.FormCreate(Sender: TObject);
|
|
begin
|
|
Self.Caption := format('About Simba r%d', [TestUnit.SimbaVersion]);
|
|
Self.LabelRevision.Caption := format('Revision %d', [TestUnit.SimbaVersion]);
|
|
AboutMemo.Lines.Add('---Simba---');
|
|
AboutMemo.Lines.Add('');
|
|
AboutMemo.Lines.Add('');
|
|
AboutMemo.Lines.Add('Simba is released under the GPL license.');
|
|
AboutMemo.Lines.Add(format('You are currently using version: %d',[Testunit.SimbaVersion]));
|
|
AboutMemo.Lines.Add('');
|
|
AboutMemo.Lines.Add('Please report bugs at: http://mufasa.villavu.com/mantis/');
|
|
end;
|
|
|
|
procedure TAboutForm.OkButtonClick(Sender: TObject);
|
|
begin
|
|
Self.ModalResult:=mrOK;
|
|
Self.Hide;
|
|
end;
|
|
|
|
initialization
|
|
{$I about.lrs}
|
|
|
|
end.
|
|
|