tntbuttons2.pas

TntExUpdate 是 流行的 TntUnicodeControls控件的扩展包.包括很难找到的 TntJVCL 也在里面. TntSysUtils2.pas/TntSysUtilsEx.pa

{*****************************************************************************}
{                                                                             }
{    Tnt Delphi Unicode Controls                                              }
{      http://www.tntware.com/delphicontrols/unicode/                         }
{        Version: 2.1.19                                                      }
{                                                                             }
{    Copyleft (c) 2006, adapted from Troy Wolbrink Tnt delphi controls        }
{    by Jordi March ([e-mail])                                          }
{                                                                             }
{*****************************************************************************}

{ If you want that your program can be used in languages in that
  one writes from right to left:
  TTntBitBtn2 exchanges blGlyphRight and blGlyphLeft automatically
  in the Glyph Layout when BiDiMode is changed
  (for example, when Application.BiDiMode := bdRightToLeft) }

unit TntButtons2;

interface

{$I HintEditor.inc}

uses
  Classes, SysUtils, Buttons,
  TntVer, TntClasses2, TntButtons;

type
  TTntBitBtn2 = class(TTntBitBtn)
  private
    FAbout: TAboutInfo;
   {$IFDEF WithHintEditor}
    FHintEditor: TUnicodeLinesEditor;
    function GetHintEditor: TUnicodeLinesEditor;
    procedure SetHintEditor(const Value: TUnicodeLinesEditor);
   {$ENDIF}
  protected
    procedure SetBiDiMode(Value: TBiDiMode); override;
  public
    constructor Create(AOwner: TComponent); override;
    destructor Destroy; override;
  published
    property About: TAboutInfo read FAbout write FAbout stored False;
   {$IFDEF WithHintEditor}
    property HintEditor: TUnicodeLinesEditor read GetHintEditor write SetHintEditor stored False;
   {$ENDIF}
  end;

implementation

{$IFDEF WithHintEditor}
function TTntBitBtn2.GetHintEditor: TUnicodeLinesEditor;
begin
  Result := FHintEditor;
  FHintEditor.SetText (Hint);
end;

procedure TTntBitBtn2.SetHintEditor(
  const Value: TUnicodeLinesEditor);
begin
  FHintEditor.Assign (Value);
  Hint := FHintEditor.GetText;
end;
{$ENDIF}

procedure TTntBitBtn2.SetBiDiMode(Value: TBiDiMode);
begin
  if BiDiMode <> Value then
  begin
    inherited;
    if  (Value = bdRightToLeft) and (Layout = blGlyphLeft)  then  begin
      Layout := blGlyphRight;
    end
    else if (Value = bdLeftToRight) and (Layout = blGlyphRight)  then  begin
      Layout := blGlyphLeft;
    end;
  end;
end;

constructor TTntBitBtn2.Create(AOwner: TComponent);
begin
  inherited;
 {$IFDEF WithHintEditor}
  if  csDesigning in ComponentState  then  begin
    FHintEditor := TUnicodeLinesEditor.Create;
  end;
 {$ENDIF}
end;

destructor TTntBitBtn2.Destroy;
begin
 {$IFDEF WithHintEditor}
  if  csDesigning in ComponentState  then  begin
    FreeAndNil(FHintEditor);
  end;
 {$ENDIF}
  inherited;
end;

end.