76 lines
2.3 KiB
ObjectPascal
76 lines
2.3 KiB
ObjectPascal
|
unit uDAPoweredByDataAbstractButton;
|
||
|
|
|
||
|
|
{----------------------------------------------------------------------------}
|
||
|
|
{ Data Abstract Library - Core Library }
|
||
|
|
{ }
|
||
|
|
{ compiler: Delphi 6 and up, Kylix 3 and up }
|
||
|
|
{ platform: Win32, Linux }
|
||
|
|
{ }
|
||
|
|
{ (c)opyright RemObjects Software. all rights reserved. }
|
||
|
|
{ }
|
||
|
|
{ Using this code requires a valid license of the Data Abstract }
|
||
|
|
{ which can be obtained at http://www.remobjects.com. }
|
||
|
|
{----------------------------------------------------------------------------}
|
||
|
|
|
||
|
|
{$I DataAbstract.inc}
|
||
|
|
|
||
|
|
interface
|
||
|
|
|
||
|
|
uses
|
||
|
|
{$IFDEF FPC}LResources,{$ENDIF}
|
||
|
|
{$IFDEF MSWINDOWS} Windows, {$ENDIF}
|
||
|
|
uROPoweredByRemObjectsButton,SysUtils,Classes,
|
||
|
|
Graphics, Controls;
|
||
|
|
|
||
|
|
{$IFNDEF FPC}
|
||
|
|
{$R uDAPoweredByDataAbstractButton.res}
|
||
|
|
{$ENDIF FPC}
|
||
|
|
|
||
|
|
type
|
||
|
|
TDAPoweredByDataAbstractButton = class(TROPoweredByRemObjectsButton)
|
||
|
|
protected
|
||
|
|
procedure GetBitmap; override;
|
||
|
|
public
|
||
|
|
procedure Click; override;
|
||
|
|
end;
|
||
|
|
|
||
|
|
implementation
|
||
|
|
|
||
|
|
{$IFDEF MSWINDOWS}
|
||
|
|
uses ShellAPI;
|
||
|
|
{$ENDIF MSWINDOWS}
|
||
|
|
|
||
|
|
const
|
||
|
|
STR_POWERED_BY_DATAABSTRACT_CLIENT = 'POWERED_BY_DATAABSTRACT_CLIENT';
|
||
|
|
STR_POWERED_BY_DATAABSTRACT_SERVER = 'POWERED_BY_DATAABSTRACT_SERVER';
|
||
|
|
|
||
|
|
{ TDAPoweredByDataAbstractButton }
|
||
|
|
|
||
|
|
procedure TDAPoweredByDataAbstractButton.GetBitmap;
|
||
|
|
begin
|
||
|
|
{$IFDEF FPC}
|
||
|
|
case ApplicationType of
|
||
|
|
atServer: Bitmap.LoadFromLazarusResource(STR_POWERED_BY_DATAABSTRACT_SERVER);
|
||
|
|
atClient: Bitmap.LoadFromLazarusResource(STR_POWERED_BY_DATAABSTRACT_CLIENT);
|
||
|
|
end; { case }
|
||
|
|
{$ELSE}
|
||
|
|
case ApplicationType of
|
||
|
|
atServer: Bitmap.LoadFromResourceName(hInstance,STR_POWERED_BY_DATAABSTRACT_SERVER);
|
||
|
|
atClient: Bitmap.LoadFromResourceName(hInstance,STR_POWERED_BY_DATAABSTRACT_CLIENT);
|
||
|
|
end; { case }
|
||
|
|
{$ENDIF}
|
||
|
|
end;
|
||
|
|
|
||
|
|
procedure TDAPoweredByDataAbstractButton.Click;
|
||
|
|
begin
|
||
|
|
{$IFDEF MSWINDOWS}
|
||
|
|
ShellExecute(0,'open','http://www.dataabstract.com',nil,nil,SW_SHOWNORMAL);
|
||
|
|
{$ENDIF MSWINDOWS}
|
||
|
|
end;
|
||
|
|
|
||
|
|
{$IFDEF FPC}
|
||
|
|
initialization
|
||
|
|
{$I uDAPoweredByDataAbstractButton.lrs}
|
||
|
|
{$ENDIF}
|
||
|
|
end.
|