diff --git a/trunk/libsrc/Swf2Exe/uMain.dfm b/trunk/libsrc/Swf2Exe/uMain.dfm index 52a9a92ee..28a944670 100644 --- a/trunk/libsrc/Swf2Exe/uMain.dfm +++ b/trunk/libsrc/Swf2Exe/uMain.dfm @@ -645,6 +645,7 @@ object frmMain: TfrmMain 0000E0070000F81F0000} OldCreateOrder = False OnCreate = FormCreate + OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 end diff --git a/trunk/libsrc/Swf2Exe/uMain.pas b/trunk/libsrc/Swf2Exe/uMain.pas index d9b1190c9..03fd73560 100644 --- a/trunk/libsrc/Swf2Exe/uMain.pas +++ b/trunk/libsrc/Swf2Exe/uMain.pas @@ -10,30 +10,44 @@ type TfrmMain = class(TForm) procedure FormCreate(Sender: TObject); + procedure FormResize(Sender: TObject); private { Private declarations } public { Public declarations } end; +type + TMySWF = class(TShockwaveFlash) + public + Procedure CreateWnd; override; + end; + var frmMain: TfrmMain; - flaPreview: TShockwaveFlash; + flaPreview: TMySWF; implementation {$R *.dfm} +Procedure TMySWF.CreateWnd; +begin + inherited; +end; + procedure TfrmMain.FormCreate(Sender: TObject); const - exeSize = 468992; + exeSize = 469504; var stream: TFileStream; buffer: array of Byte; tempFile: array[0..MAX_PATH - 1] of Char; tempPath: array[0..MAX_PATH - 1] of Char; + flashVarData : TVarData; begin - flaPreview := TShockwaveFlash.Create(frmMain); + flaPreview := TMySWF.Create(frmMain); flaPreview.Parent := frmMain; + flaPreview.Anchors := [akLeft, akRight, akTop, akBottom]; flaPreview.Align := alClient; GetTempPath(MAX_PATH, TempPath); if GetTempFileName(TempPath, PAnsiChar('ffd'), 0, TempFile) = 0 then @@ -57,6 +71,12 @@ begin stream.Free; end; flaPreview.Movie := tempFile; + flaPreview.ScaleMode := 3; +end; + +procedure TfrmMain.FormResize(Sender: TObject); +begin + flaPreview.CreateWnd; end; end. diff --git a/trunk/src/com/jpexs/helpers/resource/Swf2Exe.bin b/trunk/src/com/jpexs/helpers/resource/Swf2Exe.bin index 2ee64a074..7162b05d5 100644 Binary files a/trunk/src/com/jpexs/helpers/resource/Swf2Exe.bin and b/trunk/src/com/jpexs/helpers/resource/Swf2Exe.bin differ