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.