mirror of
https://bitbucket.org/Dennis07/lina-components.git
synced 2025-02-12 10:25:59 +02:00
82 lines
2.2 KiB
ObjectPascal
82 lines
2.2 KiB
ObjectPascal
unit uBase;
|
|
|
|
//////////////////////////////////////
|
|
/// Lina Base Unit ///
|
|
/// **************************** ///
|
|
/// (c) 2014 Dennis Göhlert a.o. ///
|
|
//////////////////////////////////////
|
|
|
|
interface
|
|
|
|
{ Dies ist die Basis-Unit für die Lina-Komponenten bzw. Methoden und Klassen.
|
|
Diese Unit soll nur indirekt über Lina-Komponenten und ggf. Klassen
|
|
eingebunden werden! }
|
|
|
|
uses
|
|
{ Standard-Units }
|
|
SysUtils, Dialogs;
|
|
|
|
type
|
|
TComponentAbout = class
|
|
private
|
|
{ Private-Deklarationen }
|
|
FComponent: ShortString;
|
|
FVersion: Single;
|
|
FAuthor: ShortString;
|
|
FCopyright: ShortString;
|
|
FHomepage: ShortString;
|
|
protected
|
|
{ Protected-Deklarationen }
|
|
published
|
|
property Component: ShortString read FComponent;
|
|
property Version: Single read FVersion;
|
|
property Copyright: ShortString read FCopyright;
|
|
property Author: ShortString read FAuthor;
|
|
property Homepage: ShortString read FHomepage;
|
|
public
|
|
{ Public-Deklarationen }
|
|
constructor Create(Comp: ShortString = ''; Ver: Single = 1.0;
|
|
Copy: ShortString = ''; Auth: ShortString = ''; Home: ShortString = '');
|
|
{ Über-Dialog }
|
|
procedure AboutDlg;
|
|
end;
|
|
|
|
const
|
|
ComponentsPage = 'Lina';
|
|
About_Title = 'About...';
|
|
|
|
implementation
|
|
|
|
constructor TComponentAbout.Create(Comp: ShortString = ''; Ver: Single = 1.0;
|
|
Copy: ShortString = ''; Auth: ShortString = ''; Home: ShortString = '');
|
|
begin
|
|
FComponent := Comp;
|
|
FVersion := Ver;
|
|
FCopyright := Copy;
|
|
FAuthor := Auth;
|
|
FHomepage := Homepage;
|
|
end;
|
|
|
|
procedure TComponentAbout.AboutDlg;
|
|
begin
|
|
{$IFDEF NO_VISTA}
|
|
{ MessageDlg, falls der Compiler KEINE Vista-Dialoge unterstützt }
|
|
MessageDlg(
|
|
{$ELSE}
|
|
{ TaskMessageDlg, falls der Compiler Vista-Dialoge unterstützt }
|
|
TaskMessageDlg(
|
|
{$ENDIF}
|
|
About_Title,
|
|
{ ---------------------------------- }
|
|
Component + ' v'
|
|
+ FloatToStr(Version) + sLineBreak
|
|
+ Copyright + ' ' + Author + sLineBreak
|
|
+ Homepage,
|
|
{ ---------------------------------- }
|
|
mtInformation,
|
|
{ ---------------------------------- }
|
|
[mbClose],0)
|
|
end;
|
|
|
|
end.
|