2014-08-31 19:11:20 +02:00
|
|
|
unit uBase;
|
|
|
|
|
|
|
|
|
|
//////////////////////////////////////
|
|
|
|
|
/// Lina Base Unit ///
|
|
|
|
|
/// **************************** ///
|
|
|
|
|
/// (c) 2014 Dennis G�hlert a.o. ///
|
|
|
|
|
//////////////////////////////////////
|
|
|
|
|
|
|
|
|
|
{$IF CompilerVersion < 18.0}
|
|
|
|
|
{ Unter fr�heren Delphi-Versionen als 2007 gab es (offiziell) noch keine
|
|
|
|
|
Unterst�tzung f�r Windows-Vista-spezifische funktionen wie die TaskDialog-
|
|
|
|
|
Komponente oder einige Funktionen.
|
|
|
|
|
Damit dies nicht zu Problemen f�hrt, geht der Compiler darauf mithilfe
|
|
|
|
|
dieser Direktive ein. }
|
|
|
|
|
{$DEFINE NO_VISTA}
|
|
|
|
|
{$ENDIF}
|
|
|
|
|
{$IF CompilerVersion < 20.0}
|
|
|
|
|
{ Unter fr�heren Delphi-Versionen als 2009 war die Nutzung generischer
|
|
|
|
|
Datentypen (Generics) nicht m�glich. Da es ohne diese nahezu unm�glich
|
|
|
|
|
scheint, typisierte Objekte, wie zum Beispiel typisierte TObjectList's
|
|
|
|
|
zu deklarieren, fallen diese Deklarationen unter fr�heren Delphi-Versionen
|
|
|
|
|
weg. Dies kann eventuell zu kompatibilit�tsproblemen zwischen
|
|
|
|
|
unterschiedlichen Nutzern dieser Komponenten f�hren, l�sst sich aber nicht
|
|
|
|
|
vermeiden. }
|
|
|
|
|
{$DEFINE NO_GENERIC}
|
|
|
|
|
{$ENDIF}
|
|
|
|
|
|
|
|
|
|
interface
|
|
|
|
|
|
|
|
|
|
{ Dies ist die Basis-Unit f�r die Lina-Komponenten bzw. Methoden und Klassen }
|
|
|
|
|
|
|
|
|
|
uses
|
|
|
|
|
{ Standard-Units }
|
2014-09-11 02:43:39 +02:00
|
|
|
SysUtils, Classes, Dialogs;
|
2014-08-31 19:11:20 +02:00
|
|
|
|
|
|
|
|
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) + #10#13
|
|
|
|
|
+ Copyright + ' ' + Author + #10#13
|
|
|
|
|
+ Homepage,
|
|
|
|
|
{ ---------------------------------- }
|
|
|
|
|
mtInformation,
|
|
|
|
|
{ ---------------------------------- }
|
|
|
|
|
[mbClose],0)
|
|
|
|
|
end;
|
|
|
|
|
|
|
|
|
|
end.
|
