mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
112 lines
2.9 KiB
ObjectPascal
112 lines
2.9 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,
|
|
Version: String;
|
|
|
|
implementation
|
|
{uses
|
|
uConstants;}
|
|
|
|
const
|
|
LazarusVersionStr = {$I version.inc};
|
|
cAboutMsg =
|
|
'This program is free software under GNU GPL 2 license, see COPYING file'+LineEnding+
|
|
'Authors: '+ LineEnding +
|
|
'Alexander Koblov (Alexx2000@mail.ru)' + LineEnding +
|
|
'Radek Cervinka (radek.cervinka@centrum.cz) - author of Seksi Commander'+LineEnding+
|
|
'Contributors:'+LineEnding+
|
|
'Dmitry Kolomiets (B4rr4cuda@rambler.ru)'+LineEnding+
|
|
'Tolstov Igor (attid@yandex.ru)'+LineEnding+
|
|
'Zolotov Alex (zolotov-alex@shamangrad.net)'+LineEnding+
|
|
'Peter Cernoch (pcernoch@volny.cz) - author PFM'+LineEnding+
|
|
'Pavel Letko (letcuv@centrum.cz) - multirename, split, linker'+LineEnding+
|
|
'Jiri Karasek (jkarasek@centrum.cz)'+LineEnding+
|
|
'Vladimir Pilny (vladimir@pilny.com)'+LineEnding+
|
|
'Vaclav Juza (vaclavjuza@seznam.cz)'+LineEnding+
|
|
'Martin Matusu (xmat@volny.cz) - chown, chgrp'+LineEnding+
|
|
'Radek Polak - some viewer fixes'+LineEnding+
|
|
'translators (see detail in lng files) '+LineEnding+LineEnding+
|
|
'In program used icons from:'+LineEnding+
|
|
'- Tango Icon Library (http://tango.freedesktop.org/Tango_Icon_Library)'+LineEnding+
|
|
'- Silk icon set 1.3 by Mark James (http://www.famfamfam.com/lab/icons/silk/)'+LineEnding+LineEnding+
|
|
'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
|
|
memInfo.Lines.Text := cAboutMsg;
|
|
lblVersion.Caption:= Format(lblVersion.Caption, [Version]);
|
|
lblBuild.Caption := lblBuild.Caption + #32 + buildDate;
|
|
lblLazarusVer.Caption := lblLazarusVer.Caption + #32 + LazarusVersionStr;
|
|
end;
|
|
|
|
initialization
|
|
{$I fAbout.lrs}
|
|
|
|
end.
|