mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
176 lines
4.4 KiB
ObjectPascal
176 lines
4.4 KiB
ObjectPascal
{
|
|
Seksi Commander
|
|
----------------------------
|
|
Implementing of About dialog
|
|
|
|
Licence : GNU GPL v 2.0
|
|
Author : radek.cervinka@centrum.cz
|
|
|
|
contributors:
|
|
|
|
Copyright (C) 2006-2008 Koblov Alexander (Alexx2000@mail.ru)
|
|
|
|
}
|
|
|
|
unit fAbout;
|
|
|
|
{$mode objfpc}{$H+}
|
|
|
|
interface
|
|
|
|
uses
|
|
LResources,
|
|
Graphics, Forms, Controls, StdCtrls, ExtCtrls, ActnList,Buttons,
|
|
SysUtils, Classes, LCLType, InterfaceBase;
|
|
|
|
type
|
|
|
|
{ TfrmAbout }
|
|
|
|
TfrmAbout = class(TForm)
|
|
imgLogo: TImage;
|
|
lblPlatform: TLabel;
|
|
lblRevision: TLabel;
|
|
lblHomePageAddress: TLabel;
|
|
lblHomePage: TLabel;
|
|
lblFreePascalVer: TLabel;
|
|
lblTitle: TLabel;
|
|
lblLazarusVer: TLabel;
|
|
lblBuild: TLabel;
|
|
lblVersion: TLabel;
|
|
OKButton: TButton;
|
|
Panel1: TPanel;
|
|
memInfo: TMemo;
|
|
pnlLogo: TPanel;
|
|
procedure lblHomePageAddressClick(Sender: TObject);
|
|
procedure lblHomePageAddressMouseEnter(Sender: TObject);
|
|
procedure lblHomePageAddressMouseLeave(Sender: TObject);
|
|
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;
|
|
|
|
const
|
|
LCLPlatform: array[TLCLPlatform] of string = (
|
|
'gtk1',
|
|
'gtk2',
|
|
'win32/win64',
|
|
'wince',
|
|
'carbon',
|
|
'qt4',
|
|
'fpGUI',
|
|
'NoGUI',
|
|
'cocoa'
|
|
);
|
|
|
|
var
|
|
dcBuildDate,
|
|
dcVersion,
|
|
dcRevision,
|
|
lazRevision,
|
|
fpcVersion,
|
|
TargetCPU,
|
|
TargetOS: String;
|
|
|
|
implementation
|
|
|
|
uses
|
|
LCLVersion, dmHelpManager;
|
|
|
|
const
|
|
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+
|
|
'Vitaly Zotov (vitalyzotov@mail.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.lblHomePageAddressMouseLeave(Sender: TObject);
|
|
begin
|
|
with Sender as TLabel do
|
|
begin
|
|
Font.Style:= [];
|
|
Font.Color:= clBlue;
|
|
Cursor:= crDefault;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmAbout.lblHomePageAddressMouseEnter(Sender: TObject);
|
|
begin
|
|
with Sender as TLabel do
|
|
begin
|
|
Font.Style:= [fsUnderLine];
|
|
Font.Color:= clRed;
|
|
Cursor:= crHandPoint;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrmAbout.lblHomePageAddressClick(Sender: TObject);
|
|
var
|
|
ErrMsg: String;
|
|
begin
|
|
dmHelpMgr.HTMLHelpDatabase.ShowURL('http://doublecmd.sourceforge.net','Double Commander Web Site', ErrMsg);
|
|
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;
|
|
memInfo.CaretPos:= Classes.Point(0, 0);
|
|
lblVersion.Caption:= Format(lblVersion.Caption, [dcVersion]);
|
|
lblRevision.Caption:= lblRevision.Caption+#32+dcRevision;
|
|
lblBuild.Caption:= lblBuild.Caption+#32+dcBuildDate;
|
|
lblLazarusVer.Caption:= lblLazarusVer.Caption+#32+lcl_version+'-'+lazRevision;
|
|
lblFreePascalVer.Caption:= lblFreePascalVer.Caption+#32+fpcVersion;
|
|
lblPlatform.Caption:= TargetCPU+'-'+TargetOS+'-'+LCLPlatform[WidgetSet.LCLPlatform];
|
|
end;
|
|
|
|
initialization
|
|
{$I fAbout.lrs}
|
|
|
|
end.
|