LegacyConsoleArchive/jpexs-decompiler
1
0
Fork 0
mirror of https://git.huckle.dev/Huckles-Minecraft-Archive/jpexs-decompiler.git synced 2026-09-25 10:10:52 +00:00
Code Issues Packages Projects Releases Wiki Activity

Issue #428 flash player resize bug fixed

Browse Source
This commit is contained in:
Honfika
2013-12-24 13:06:12 +01:00
parent f0609a551a
commit 6371a3257b
3 changed files with 24 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files
trunk/libsrc/Swf2Exe/uMain.pas
+23 -3
View File
@@ -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.