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}
  uROPoweredByRemObjectsButton,
  {$IFDEF LINUX}
  SysUtils, Classes, QControls, QGraphics;
  {$ELSE}
  Windows, SysUtils, Classes, Graphics, Controls;
  {$ENDIF}

{$IFNDEF FPC}  
  {$R uDAPoweredByDataAbstractButton.res}
{$ENDIF FPC}

type
  TDAPoweredByDataAbstractButton = class(TROPoweredByRemObjectsButton)
  protected
    procedure GetBitmap; override;
  end;

implementation

const
  STR_POWERED_BY_DATAABSTRACT_CLIENT = 'POWERED_BY_DATAABSTRACT_CLIENT';
  STR_POWERED_BY_DATAABSTRACT_SERVER = 'POWERED_BY_DATAABSTRACT_SERVER';

{ TDAPoweredByDataAbstractButton }

procedure TDAPoweredByDataAbstractButton.GetBitmap;
begin
  case ApplicationType of
    atServer: Bitmap.LoadFromResourceName(hInstance,STR_POWERED_BY_DATAABSTRACT_SERVER);
    atClient: Bitmap.LoadFromResourceName(hInstance,STR_POWERED_BY_DATAABSTRACT_CLIENT);
  end; { case }
end;

{$IFDEF FPC}
initialization
  {$I uDAPoweredByDataAbstractButton.lrs}
{$ENDIF}
end.