createalignpanel.pas

类似Delphi Ide的对象查看器 可以在RUNTIME时使用

unit CreateAlignPanel;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, MyButton, MyAutoBtn, CreateDesigner;

type
  Tfrm_ControlPanel = class(TForm)
    pmnMain: TPopupMenu;
    mniStayOnTop: TMenuItem;
    mniShowHints: TMenuItem;
    mniHide: TMenuItem;
    spbLeft: TMySpeedButton;
    spbtop: TMySpeedButton;
    spbHCenter: TMySpeedButton;
    spbVcenter: TMySpeedButton;
    spbVwcenter: TMySpeedButton;
    spbVse: TMySpeedButton;
    spbHse: TMySpeedButton;
    spbHwcenter: TMySpeedButton;
    spbBottom: TMySpeedButton;
    spbRight: TMySpeedButton;
    spbHoneline: TMySpeedButton;
    spbVoneLine: TMySpeedButton;
    procedure mniStayOnTopClick(Sender: TObject);
    procedure mniShowHintsClick(Sender: TObject);
    procedure mniHideClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure spbLeftClick(Sender: TObject);
    procedure spbtopClick(Sender: TObject);
    procedure spbHCenterClick(Sender: TObject);
    procedure spbVcenterClick(Sender: TObject);
    procedure spbHwcenterClick(Sender: TObject);
    procedure spbVwcenterClick(Sender: TObject);
    procedure spbHseClick(Sender: TObject);
    procedure spbVseClick(Sender: TObject);
    procedure spbRightClick(Sender: TObject);
    procedure spbBottomClick(Sender: TObject);
    procedure spbHonelineClick(Sender: TObject);
    procedure spbVoneLineClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
    procedure SetFlatButtons(AFlat: Boolean);
  end;

{var
  frm_ControlPanel: Tfrm_ControlPanel;}

implementation

{$R *.dfm}

procedure Tfrm_ControlPanel.SetFlatButtons(AFlat: Boolean);
var
  i: Integer;
begin
  for i:=0 to Pred(ControlCount) do
    if Controls[i] is TMySpeedButton then
      TMySpeedButton(Controls[i]).Flat:=AFlat;
end;


procedure Tfrm_ControlPanel.mniStayOnTopClick(Sender: TObject);
begin
  with mniStayOnTop do
  begin
    Checked:=not Checked;
    if Checked then
    begin
      FormStyle:=fsStayOnTop;
      if Assigned(Self.Owner) then
        with Self.Owner as TCustomFormDesigner do
          AlignmentPalette:=AlignmentPalette+[apStayOnTop];
    end
    else
    begin
      FormStyle:=fsNormal;
      if Assigned(Self.Owner) then
        with Self.Owner as TCustomFormDesigner do
          AlignmentPalette:=AlignmentPalette-[apStayOnTop];
    end;
  end;
end;

procedure Tfrm_ControlPanel.mniShowHintsClick(Sender: TObject);
begin
  with mniShowHints do
  begin
    Checked:=not Checked;
    ShowHint:=Checked;
    if Checked then
    begin
      if Assigned(Self.Owner) then
        with Self.Owner as TCustomFormDesigner do
          AlignmentPalette:=AlignmentPalette+[apShowHints];
    end
    else
    begin
      if Assigned(Self.Owner) then
        with Self.Owner as TCustomFormDesigner do
          AlignmentPalette:=AlignmentPalette-[apShowHints];
    end;
  end;
end;

procedure Tfrm_ControlPanel.mniHideClick(Sender: TObject);
begin
  Hide
end;

procedure Tfrm_ControlPanel.FormCreate(Sender: TObject);
begin
  if GetACP=936 then
  begin
    Self.Caption:='部件位置控制工具板';
    mniStayontop.Caption:='置顶';
    mniShowHints.Caption:='提示';
    mniHide.Caption:='隐藏';
    spbLeft.Hint:='左边对齐';
    spbHcenter.Hint:='水平对中';
    spbHwcenter.Hint:='水平窗口对中';
    spbHse.Hint:='水平空格补齐';
    spbRight.Hint:='右边对齐';
    spbTop.Hint:='上边对齐';
    spbVcenter.Hint:='垂直对中';
    spbVwcenter.Hint:='垂直窗口对中';
    spbVse.Hint:='垂直空格补齐';
    spbBottom.Hint:='底边对齐';
    spbHoneline.Hint:='水平首尾相连';
    spbVoneline.Hint:='垂直上下相连';
  end else if GetACP=950 then
  begin
    Self.Caption:='场ン