Thread: Repack test
View Single Post
  #9  
Old 09-10-2015, 14:18
ChronoCross's Avatar
ChronoCross ChronoCross is offline
Registered User
 
Join Date: Sep 2014
Location: Acacia Dragons
Posts: 254
Thanks: 145
Thanked 203 Times in 115 Posts
ChronoCross is on a distinguished road
i fix my problem i add
Transparent := True;
in exit.iss

there is any way to make this for the entire script? or i need to add Transparent := True; for each msg win popup ?


Code:
MyExitFrameLabel:=TLabel.Create(nil);
with MyExitFrameLabel do
begin
Transparent := True;
Parent := MyExit;
Font.Color :=  $00A9A9A9;
Font.Size := 9;
Font.Name:='calibri';
Caption := ExpandConstant('Exit');
SetBounds(25, 18, 100, 17);
OnMouseDown:=@ExitFormOnMouseDown;
end;

MyExitFrameLabel1:=TLabel.Create(NIL);
with MyExitFrameLabel1 do
begin
Transparent := True;
Parent := MyExit;
Font.Color :=  $00A9A9A9;
Font.Size := 9;
Font.Name:='calibri';
Caption := 'Setup is not completed. All changes will not be saved'+#13+
'Are you sure you want to Exit?'
SetBounds(90, 77, 400, 300);
OnMouseDown:=@ExitFormOnMouseDown;
end;
do
Attached Images
File Type: png cancel.png (219.5 KB, 401 views)
Reply With Quote
The Following 4 Users Say Thank You to ChronoCross For This Useful Post:
oltjon (29-02-2016), punchao (09-10-2015), rinaldo (09-10-2015), Stor31 (29-02-2016)