fmbar.pas

来自「Delphi的另一款钢琴软件」· PAS 代码 · 共 60 行

unit fmBar;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  fmPower, Buttons, ExtCtrls, cmpTimerSpeedButton;

type
  TBarForm = class(TPowerForm)
    LStretcher: TTimerSpeedButton;
    RStretcher: TTimerSpeedButton;
    procedure FormShow(Sender: TObject);
    procedure FormResize(Sender: TObject);
  private
    procedure AdjustHeader;
  public
    procedure Notify (tp : TActiveFormNotify); override;

  end;

var
  BarForm: TBarForm;

implementation

{$R *.DFM}

(*--------------------------------------------------------------------
 |
 |                                                                    |
 |
 |                                                                    |
 | Parameters                                                         |
 |
 | The function returns
 *--------------------------------------------------------------------*)
procedure TBarForm.AdjustHeader;
begin
  RStretcher.Left := ClientWidth - RStretcher.Width * 2 - 2;
end;

procedure TBarForm.Notify (tp : TActiveFormNotify);
begin
end;

procedure TBarForm.FormShow(Sender: TObject);
begin
  inherited;
  AdjustHeader
end;

procedure TBarForm.FormResize(Sender: TObject);
begin
  inherited;
  AdjustHeader;
end;

end.