toolbar.pas

delphi图形程序开发,就是怎么样给图片加文字

unit Toolbar;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComCtrls, ToolWin, ImgList;

type
  TFormToolBar = class(TForm)
    ImageList1: TImageList;
    ToolBar1: TToolBar;
    ToolButton1: TToolButton;
    ToolButton9: TToolButton;
    ToolButton2: TToolButton;
    ToolButton3: TToolButton;
    ToolButton4: TToolButton;
    ToolButton5: TToolButton;
    ToolButton6: TToolButton;
    ToolButton7: TToolButton;
    ToolButton8: TToolButton;
    ToolButton10: TToolButton;
    ToolButton11: TToolButton;
    ToolButton12: TToolButton;
    ToolButton13: TToolButton;
    ToolButton14: TToolButton;
    procedure FormCreate(Sender: TObject);
    procedure ToolButton1Click(Sender: TObject);
    procedure ToolButton2Click(Sender: TObject);
    procedure ToolButton3Click(Sender: TObject);
    procedure ToolButton4Click(Sender: TObject);
    procedure ToolButton5Click(Sender: TObject);
    procedure ToolButton6Click(Sender: TObject);
    procedure ToolButton7Click(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure ToolButton9Click(Sender: TObject);
    procedure ToolButton10Click(Sender: TObject);
    procedure ToolButton8Click(Sender: TObject);
    procedure ToolButton11Click(Sender: TObject);
    procedure ToolButton12Click(Sender: TObject);
    procedure ToolButton13Click(Sender: TObject);
    procedure ToolButton14Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  FormToolBar: TFormToolBar;

implementation

uses StorePicture, PictureProc;

{$R *.dfm}

procedure TFormToolBar.FormCreate(Sender: TObject);
begin
  Width:= 33;
  Top:= FormPictureProc.Top+90;
  Left:= FormPictureProc.Left+6;
end;

procedure TFormToolBar.ToolButton5Click(Sender: TObject);
begin
  FormPictureProc.LeftRotate90;
end;

procedure TFormToolBar.ToolButton6Click(Sender: TObject);
begin
  FormPictureProc.RightRotate90;
end;

procedure TFormToolBar.ToolButton1Click(Sender: TObject);
begin
  FormPictureProc.DragPicture;
end;

procedure TFormToolBar.ToolButton2Click(Sender: TObject);
begin
  FormPictureProc.AutoSelect;
end;

procedure TFormToolBar.ToolButton3Click(Sender: TObject);
begin
  FormPictureProc.ActiveSelect;
end;

procedure TFormToolBar.ToolButton4Click(Sender: TObject);
begin
  FormPictureProc.CutOutSelect;
end;

procedure TFormToolBar.ToolButton7Click(Sender: TObject);
begin
  FormPictureProc.Rotate180;
end;

procedure TFormToolBar.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:= caFree;
end;

procedure TFormToolBar.ToolButton9Click(Sender: TObject);
begin
  FormPictureProc.EraseBlack;
end;

procedure TFormToolBar.ToolButton10Click(Sender: TObject);
begin
  FormPictureProc.LeftRightMirror;
end;

procedure TFormToolBar.ToolButton8Click(Sender: TObject);
begin
  FormPictureProc.TopBottomMirror;
end;

procedure TFormToolBar.ToolButton11Click(Sender: TObject);
begin
  FormPictureProc.ClientSize;
end;

procedure TFormToolBar.ToolButton12Click(Sender: TObject);
begin
  FormPictureProc.FullSize;
end;

procedure TFormToolBar.ToolButton13Click(Sender: TObject);
begin
  FormPictureProc.GetOrgPicture;
end;

procedure TFormToolBar.ToolButton14Click(Sender: TObject);
begin
  FormPictureProc.AutoProcess;
end;

end.