View Single Post
  #208  
Old 13-11-2021, 08:59
bunti_o4u's Avatar
bunti_o4u bunti_o4u is offline
Registered User
 
Join Date: Aug 2017
Location: India
Posts: 162
Thanks: 29
Thanked 172 Times in 61 Posts
bunti_o4u is on a distinguished road
Quote:
Originally Posted by fabrieunko View Post
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
Reply With Quote