FileForums

FileForums (https://fileforums.com/index.php)
-   Conversion Tutorials (https://fileforums.com/forumdisplay.php?f=55)
-   -   Inno Ultra Lite (https://fileforums.com/showthread.php?t=95447)

aj12345 01-12-2013 15:40
Inno Ultra Lite
 
How to move.

http://s5.postimg.org/6wkie8lzb/Untitled.png

Razor12911 01-12-2013 15:47
You have to move notebooks first.

aj12345 01-12-2013 15:51
How to move notebooks i frs time using Inno Ultra Lite

Razor12911 01-12-2013 16:10
1 Attachment(s)
there

aj12345 02-12-2013 05:32
1.How to change text color.
2.Its posibile to ad logo and how.

http://www.dodaj.rs/f/2E/13q/3FWeNAV3/untitled.png.

sentinelks 02-12-2013 07:00
no possible! isee is limitated
use external code:

ex:
[Setup]
AppName=TlamaTest
AppVersion=Test
DefaultDirName=Test
OutputDir=.

[Languages]
Name: "default"; MessagesFile: "compiler:Default.isl"
[code]
procedure InitializeWizard();
var
WizardLabel1, WizardLabel2, FinalLabel1, FinalLabel2: TLabel;
begin
WizardForm.WelcomeLabel1.Hide;
WizardForm.WelcomeLabel2.Hide;
WizardForm.FinishedHeadingLabel.Hide;
WizardForm.FinishedLabel.Hide;
WizardForm.WizardBitmapImage.Width := 501;
WizardForm.WizardBitmapImage.Height := 315;

WizardLabel1 := TLabel.Create(WizardForm);
WizardLabel1.Left := ScaleX(176);
WizardLabel1.Top := ScaleY(16);
WizardLabel1.Width := ScaleX(301);
WizardLabel1.Height := ScaleY(54);
WizardLabel1.AutoSize := False;
WizardLabel1.WordWrap := True;
WizardLabel1.Font.Name := 'impact';
WizardLabel1.Font.Size := 13;
WizardLabel1.Font.Color:= clWhite;

WizardLabel1.Caption := WizardForm.WelcomeLabel1.Caption;
WizardLabel1.Transparent := True;
WizardLabel1.Parent := WizardForm.WelcomePage;
WizardLabel2 :=TLabel.Create(WizardForm);
WizardLabel2.Top := ScaleY(76);
WizardLabel2.Left := ScaleX(176);
WizardLabel2.Width := ScaleX(301);
WizardLabel2.Height := ScaleY(234);
WizardLabel2.AutoSize := False;
WizardLabel2.WordWrap := True;
WizardLabel2.Font.Name := 'Arial';
WizardLabel2.Font.Color:= clYellow;
WizardLabel2.ShowAccelChar := False;
WizardLabel2.Caption := WizardForm.WelcomeLabel2.Caption;
WizardLabel2.Transparent := True;
WizardLabel2.Parent := WizardForm.WelcomePage;

WizardForm.WizardBitmapImage2.Width := 501;
WizardForm.WizardBitmapImage2.Height := 315;

FinalLabel1 := TLabel.Create(WizardForm);
FinalLabel1.Left := ScaleX(176);
FinalLabel1.Top := ScaleY(16);
FinalLabel1.Width := ScaleX(301);
FinalLabel1.Height := ScaleY(54);
FinalLabel1.AutoSize := False;
FinalLabel1.WordWrap := True;
FinalLabel1.Font.Name := 'impact';
FinalLabel1.Font.Size := 15;
FinalLabel1.Font.Style := [fsBold];
FinalLabel1.Font.Color:= clLime;
FinalLabel1.ShowAccelChar := False;
FinalLabel1.Caption := WizardForm.FinishedHeadingLabel.Caption;
FinalLabel1.Transparent := True;
FinalLabel1.Parent := WizardForm.FinishedPage;

FinalLabel2 :=TLabel.Create(WizardForm);
FinalLabel2.Top := ScaleY(76);
FinalLabel2.Left := ScaleX(176);
FinalLabel2.Width := ScaleX(301);
FinalLabel2.Height := ScaleY(53);
FinalLabel2.AutoSize := False;
FinalLabel2.WordWrap := True;
FinalLabel2.Font.Name := 'Arial';
FinalLabel2.Font.Color:= clolive;
FinalLabel2.ShowAccelChar := False;
FinalLabel2.Caption := WizardForm.FinishedLabel.Caption;
FinalLabel2.Transparent := True;
FinalLabel2.Parent := WizardForm.FinishedPage;
end;


logo:
[Setup]
AppName=TestButton
AppVerName=TestButton
DefaultDirName=C:\TestButton

[Files]
Source: Button.bmp; Flags: dontcopy

[Code]
procedure TestButtonOnClick(Sender: TObject);
begin
MsgBox('Hello!', mbInformation, MB_OK)
end;

procedure InitializeWizard();
var
BtnPanel: TPanel;
BtnImage: TBitmapImage;

begin
BtnPanel:=TPanel.Create(WizardForm)
with BtnPanel do begin
Left:=20
Top:=325
Width:=132
Height:=27
Cursor:=crHand
OnClick:=@TestButtonOnClick
Parent:=WizardForm
end
BtnImage:=TBitmapImage.Create(WizardForm)
with BtnImage do begin
AutoSize:=True
Enabled:=False
ExtractTemporaryFile('Button.bmp')
Bitmap.LoadFromFile(ExpandConstant('{tmp}')+'\Butt on.bmp')
Parent:=BtnPanel
end
end;

sentinelks 02-12-2013 08:05
Button Botva2 + link

#define Webs "www.google.it"
[Setup]
AppName=Test
AppVersion=Test
DefaultDirName=Test
OutputDir=.

[Files]
Source: botva2.dll; Flags: dontcopy
Source: CallbackCtrl.dll; Flags: dontcopy
Source: logo.png; Flags: dontcopy

[Code]
const
BtnClickEventID = 1;

type
TBtnEventProc = procedure (SK:HWND);

var
Btn:TButton;
SK,hLogoBtn:HWND;

function WrapBtnCallback(Callback: TBtnEventProc; ParamCount: Integer): Longword; external 'wrapcallbackaddr@{tmp}\CallbackCtrl.dll stdcall delayload';
function BtnCreate(hParent :HWND; Left, Top, Width, Height :integer; FileName :PAnsiChar; ShadowWidth :integer; IsCheckBtn :boolean) :HWND; external 'BtnCreate@{tmp}\botva2.dll stdcall delayload';
procedure BtnSetEvent(SK :HWND; EventID :integer; Event :Longword); external 'BtnSetEvent@{tmp}\botva2.dll stdcall delayload';
procedure gdipShutdown; external 'gdipShutdown@{tmp}\botva2.dll stdcall delayload';

#ifdef Webs
procedure LogoBtnClick(hBtn:HWND);
var
ErrorCode: Integer;
begin
ShellExec('open', '{#Webs}', '', '', SW_SHOWNORMAL, ewNoWait, ErrorCode)
end;
#endif

function InitializeSetup():boolean; begin
ExtractTemporaryFile('logo.png');
ExtractTemporaryFile('botva2.dll');
ExtractTemporaryFile('CallbackCtrl.dll');
Result:=True;
end;

procedure InitializeWizard(); begin
with WizardForm do begin
hLogoBtn:=BtnCreate(WizardForm.Handle,12,320,100,3 5,ExpandConstant('{tmp}\logo.png'),1,False);
BtnSetEvent(hLogoBtn,BtnClickEventID,WrapBtnCallba ck(@LogoBtnClick,1));
end;
end;

procedure DeinitializeSetup();
begin
gdipShutdown;
end;

aj12345 02-12-2013 09:48
Is there another program to make Wizard as Inno Ultra Lite.

sentinelks 02-12-2013 19:57
inno ultra :D

y_thelastknight 03-12-2013 02:25
Quote:
Originally Posted by sentinelks (Post 426745)
inno ultra :D
Lol :D

sentinelks 03-12-2013 03:13
:D:p:D


All times are GMT -7. The time now is 15:16.

Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2026, vBulletin Solutions Inc.
FileForums @ https://fileforums.com