ualignpal.pas

来自「delphi 写的delphi的程序 Handel is a free, st」· PAS 代码 · 共 43 行

unit UAlignPal;

interface

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

type
  TAlignPalette = class(TForm)
    Panel1: TPanel;
    bnLeft: TSpeedButton;
    bnHCenter: TSpeedButton;
    bnHWinCenter: TSpeedButton;
    bnHSpace: TSpeedButton;
    bnRight: TSpeedButton;
    bnTop: TSpeedButton;
    bnVCenter: TSpeedButton;
    bnVWinCenter: TSpeedButton;
    bnVSpace: TSpeedButton;
    bnBottom: TSpeedButton;
    AlignPalPopup: TPopupMenu;
    Stayontop: TMenuItem;
    ShowHintsItem: TMenuItem;
    HideItem: TMenuItem;
    HelpItem: TMenuItem;
    LocalMenuItem: TMenuItem;
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AlignPalette: TAlignPalette;

implementation

{$R *.DFM}


end.