mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
108 lines
2.6 KiB
ObjectPascal
108 lines
2.6 KiB
ObjectPascal
{
|
|
Seksi Commander
|
|
----------------------------
|
|
Implementing of About dialog
|
|
Licence : GNU GPL v 2.0
|
|
Author : radek.cervinka@centrum.cz
|
|
|
|
}
|
|
unit fAbout;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
LResources,
|
|
Graphics, Forms, Controls, StdCtrls, ExtCtrls, ActnList,Buttons,
|
|
SysUtils, Classes, lcltype;
|
|
|
|
type
|
|
|
|
{ TfrmAbout }
|
|
|
|
TfrmAbout = class(TForm)
|
|
imgLogo: TImage;
|
|
lblTitle: TLabel;
|
|
lblLazarusVer: TLabel;
|
|
lblBuild: TLabel;
|
|
lblVersion: TLabel;
|
|
OKButton: TButton;
|
|
Panel1: TPanel;
|
|
memInfo: TMemo;
|
|
pnlLogo: TPanel;
|
|
procedure OKButtonClick(Sender: TObject);
|
|
procedure FormKeyDown(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
procedure frmAboutShow(Sender: TObject);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
|
|
procedure ShowAboutBox;
|
|
|
|
var
|
|
buildDate : String;
|
|
|
|
implementation
|
|
{uses
|
|
uConstants;}
|
|
|
|
const
|
|
LazarusVersionStr = {$I version.inc};
|
|
cAboutMsg =
|
|
'This program is free software under GNU GPL 2 license, see COPYING file'+#13+
|
|
'Authors: '+ #13 +
|
|
'Alexander Koblov (Alexx2000@mail.ru)' + #13 +
|
|
'Radek Cervinka (radek.cervinka@centrum.cz) - author of Seksi Commander'+#13+
|
|
'Contributors:'+#13+
|
|
'Tolstov Igor (attid@yandex.ru)'+#13+
|
|
'Peter Cernoch (pcernoch@volny.cz) - author PFM'+#13+
|
|
'Pavel Letko (letcuv@centrum.cz) - multirename, split, linker'+#13+
|
|
'Jiri Karasek (jkarasek@centrum.cz)'+#13+
|
|
'Vladimir Pilny (vladimir@pilny.com)'+#13+
|
|
'Vaclav Juza (vaclavjuza@seznam.cz)'+#13+
|
|
'Martin Matusu (xmat@volny.cz) - chown, chgrp'+#13+
|
|
'Radek Polak - some viewer fixes'+#13+
|
|
'translators (see detail in lng files) '+#13+#13+
|
|
'In program used icons from:'+#13+
|
|
'-Tango Icon Library (http://tango.freedesktop.org/Tango_Icon_Library)'+#13+#13+
|
|
'Big thanks to Lazarus and FreePascal Team';
|
|
|
|
procedure ShowAboutBox;
|
|
begin
|
|
with TfrmAbout.Create(Application) do
|
|
try
|
|
ShowModal;
|
|
finally
|
|
Free;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmAbout.OKButtonClick(Sender: TObject);
|
|
begin
|
|
Close;
|
|
end;
|
|
|
|
procedure TfrmAbout.FormKeyDown(Sender: TObject; var Key: Word;
|
|
Shift: TShiftState);
|
|
begin
|
|
if (Key = VK_Escape) then
|
|
Close;
|
|
end;
|
|
|
|
procedure TfrmAbout.frmAboutShow(Sender: TObject);
|
|
begin
|
|
//imgLogo.Picture.Bitmap.LoadFromLazarusResource('logo');
|
|
memInfo.Lines.Text := cAboutMsg;
|
|
lblBuild.Caption := lblBuild.Caption + buildDate;
|
|
lblLazarusVer.Caption := lblLazarusVer.Caption + LazarusVersionStr;
|
|
end;
|
|
|
|
initialization
|
|
{$I fAbout.lrs}
|
|
{.$I logo.lrs}
|
|
end.
|