| bunti_o4u |
13-11-2021 08:59 |
Quote:
Originally Posted by fabrieunko
(Post 494866)
Hello, I would like to change the layout of the boxes where there is an 'install' 'uninstall' and quit. to put them on the same line to launch the game below the icon images.
how to do?
|
Find below codes... (line number 62** to 65**)
Code:
function InitializeSetup:Boolean;
.
.
.
.
.
InstallTile:=TileCreate(AutorunForm,30,90,100,100,ExpandConstant('{tmp}\Install.png'),'Install',mrOk, False);
TileSetEvent(InstallTile,@InstallTileClick);
UninstallTile:=TileCreate(AutorunForm,InstallTile.Base.Left,InstallTile.Base.Top+InstallTile.Base.Height+5,InstallTile.Base.Width,InstallTile.Base.Height,ExpandConstant('{tmp}\Uninstall.png'),'Uninstall',mrNone, False);
TileSetEvent(UninstallTile,@UninstallTileClick);
ExitTile:=TileCreate(AutorunForm,InstallTile.Base.Left,UninstallTile.Base.Top+UninstallTile.Base.Height+5,InstallTile.Base.Width,InstallTile.Base.Height,ExpandConstant('{tmp}\Exit.png'),'Exit',mrCancel, False);
TileSetEvent(ExitTile,@ExitTileClick);
Launch1Tile:=TileCreate(AutorunForm,InstallTile.Base.Left+InstallTile.Base.Width+10,InstallTile.Base.Top,320,200,ExpandConstant('{tmp}\Tile1'),'',mrCancel, True);
#ifdef AppExe1
Launch2Tile:=TileCreate(AutorunForm,InstallTile.Base.Left+InstallTile.Base.Width+10,InstallTile.Base.Top+Launch1Tile.Base.Height+10,InstallTile.Base.Width,InstallTile.Base.Height,ExpandConstant('{tmp}\Tile2'),'Play '+'{#E1[59]}',mrCancel, True);
TileSetEvent(Launch2Tile,@Launch2TileClick);
#ifdef AppExe2
Launch3Tile:=TileCreate(AutorunForm,Launch2Tile.Base.Left+Launch2Tile.Base.Width+10,InstallTile.Base.Top+Launch1Tile.Base.Height+10,InstallTile.Base.Width,InstallTile.Base.Height,ExpandConstant('{tmp}\Tile3'),'Play '+'{#E2[59]}',mrCancel, True);
TileSetEvent(Launch3Tile,@Launch3TileClick);
#ifdef AppExe3
Launch4Tile:=TileCreate(AutorunForm,Launch3Tile.Base.Left+Launch3Tile.Base.Width+10,InstallTile.Base.Top+Launch1Tile.Base.Height+10,InstallTile.Base.Width,InstallTile.Base.Height,ExpandConstant('{tmp}\Tile4'),'Play '+'{#E3[59]}',mrCancel, True);
TileSetEvent(Launch4Tile,@Launch4TileClick);
#endif
#endif
#endif
|