exportform.pas

来自「强大的皮肤控件 能做出美观的界面」· PAS 代码 · 共 73 行

unit ExportForm;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, FileCtrl;

type
  TfrmExport = class(TForm)
    Label1: TLabel;
    DriveComboBox1: TDriveComboBox;
    DirectoryListBox1: TDirectoryListBox;
    Edit1: TEdit;
    Button1: TButton;
    Button2: TButton;
    Memo1: TMemo;
    procedure Button2Click(Sender: TObject);
    procedure DirectoryListBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmExport: TfrmExport;

implementation

uses Main;

{$R *.DFM}

procedure TfrmExport.Button2Click(Sender: TObject);
var
  i: integer;
  FileName: string;
begin
  { Export }

  if frmMain.SkinSource = nil then Exit;
  if frmMain.SkinSource.Bitmaps.Count = 0 then Exit;

  Memo1.Lines.Clear;

  if Edit1.Text[Length(Edit1.Text)] <> '\' then
    Edit1.Text := Edit1.Text + '\';

  with frmMain.SkinSource do
    for i := 0 to Bitmaps.Count - 1 do
    begin
      FileName := Edit1.Text + Bitmaps[i].Name;
      Bitmaps[i].SaveToBmpFile(FileName);


      Memo1.Lines.Add('Bitmap ' + Bitmaps[i].Name + ' saved as ' + FileName);
    end;
end;

procedure TfrmExport.FormCreate(Sender: TObject);
begin
  Edit1.Text := DirectoryListBox1.Directory;
end;

procedure TfrmExport.DirectoryListBox1Change(Sender: TObject);
begin
  Edit1.Text := DirectoryListBox1.Directory;
end;

end.