mainscreen.~pas

flash相关的开发应用。

unit MainScreen;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtDlgs, ExtCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    StaticText1: TStaticText;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    Label2: TLabel;
    ComboBox1: TComboBox;
    Label3: TLabel;
    Panel1: TPanel;
    Image1: TImage;
    Button2: TButton;
    OpenPictureDialog1: TOpenPictureDialog;
    Label4: TLabel;
    Edit1: TEdit;
    Button3: TButton;
    Button4: TButton;
    SaveDialog1: TSaveDialog;
    Label5: TLabel;
    RadioButton1: TRadioButton;
    RadioButton2: TRadioButton;
    Edit2: TEdit;
    Image2: TImage;
    Label6: TLabel;
    Button5: TButton;
    Edit3: TEdit;
    Label7: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1Exit(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure RadioButton2Click(Sender: TObject);
    procedure Edit2Exit(Sender: TObject);
    procedure RadioButton1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin
  if Opendialog1.Execute
    then Begin
      StaticText1.Caption := ExtractFilename(Opendialog1.FileName);
      Button3.Enabled := true;
    end;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute
    then Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

procedure TForm1.Edit1Exit(Sender: TObject);
begin
  edit1.Text := IntToStr(Abs(StrToIntDef(edit1.Text,5000)));
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
  application.Terminate;
end;

procedure TForm1.Button3Click(Sender: TObject);
var outfile, inpfile : TFileStream;
    rr,exend : integer;
    Buffer : array[0..4095] of Byte;
    exitkey : word;
begin
  if savedialog1.Execute
    then Begin
      outfile := TFileStream.Create(savedialog1.FileName,fmCreate or fmShareDenyNone);
      inpfile := TFileStream.Create(ExtractFilePath(ParamStr(0))+'Starter.dat',fmOpenRead or fmShareDenyNone);
      repeat
        rr := inpfile.Read(buffer,4096);
        outfile.Write(buffer,rr);
      until rr <> 4096;
      inpfile.Free;
      exend := outfile.Position;
      image1.Picture.Bitmap.SaveToStream(outfile);
      image2.Picture.Bitmap.SaveToStream(outfile);
      rr := StrToInt(edit1.Text);
      outfile.Write(rr,4);
      rr := StrToInt(edit3.Text);
      outfile.Write(rr,4);
      case ComboBox1.ItemIndex of
        0,1,2    : rr := 640;
        4,5,6    : rr := 800;
        7,8,9    : rr := 1024;
        10,11,12 : rr := 1280;
      end;
      outfile.Write(rr,4);
      case ComboBox1.ItemIndex of
        0,1,2    : rr := 480;
        4,5,6    : rr := 600;
        7,8,9    : rr := 768;
        10,11,12 : rr := 1024;
      end;
      outfile.Write(rr,4);
      case ComboBox1.ItemIndex of
        0,4,7,10 : rr := 8;
        1,5,8,11 : rr := 16;
        2,6,9,12 : rr := 32;
      end;
      outfile.Write(rr,4);
      exitkey := StrToInt(edit2.Text);
      outfile.Write(exitkey,2);
      inpfile := TFileStream.Create(opendialog1.FileName,fmOpenRead or fmShareDenyNone);
      repeat
        rr := inpfile.Read(buffer,4096);
        outfile.Write(buffer,rr);
      until rr <> 4096;
      inpfile.Free;
      outfile.Write(exend,4);
      outfile.Free;
      ShowMessage('Fertig !');

    end;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
  if radiobutton2.Checked
    then Begin
      Edit2.Color := clWhite;
      Edit2.Enabled := true;
    end
    else Begin
      Edit2.Color := clBtnFace;
      Edit2.Enabled := false;
    end;
end;

procedure TForm1.Edit2Exit(Sender: TObject);
begin
  edit2.Text := intToStr(StrToIntDef(edit2.Text,$1B));
end;

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
  if radiobutton1.Checked
    then edit2.Text := '$1B';
end;

procedure TForm1.Button5Click(Sender: TObject);
begin
  if OpenPictureDialog1.Execute
    then Image2.Picture.LoadFromFile(OpenPictureDialog1.FileName);
end;

end.