59 lines
1.9 KiB
ObjectPascal
59 lines
1.9 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}
|
|
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.
|