Thanks Altef,, but dont work,, is not a label, sorry is a tnewstatictext, i create a form, and i want to skin my "insert disc 1" msgbox like i made with the custom exit, but i have problem inserting that code :D
I'll show you the code of the custom form, and the part where i want to put it,, if you can help me with that i'm very thankful to you.
The change disc custom form:
Quote:
///////////////////////////////////////////////////////////CUSTOM CHANGE DISC FORM
procedure ButtonOnClick(hBtn:HWND);
begin
sndPlaySound(ExpandConstant('{tmp}\click.wav'), $0002);
case hBtn of
CDYesBtn: begin MyExit.ModalResult:= mrYes; end;
CDNoBtn: begin MyExit.ModalResult:= mrNo; end;
end;
end;
procedure MyChangeDiscMessage();
begin
MyChangeDisc := CreateCustomForm();
with MyChangeDisc do
begin
BorderStyle:= bsNone;
Position := poScreenCenter;
ClientWidth := WizardForm.Width;
ClientHeight := WizardForm.Height div 2;
Color := clBlack;
with TNewStaticText.Create(MyChangeDisc) do
begin
Left := ScaleX(110);
Top := ScaleY(20);
Width := MyChangeDisc .Width - ScaleX(115);
Height := MyChangeDisc .Height div 2;
AutoSize := False;
WordWrap := True;
Caption := ExpandConstant('{cm:ChangeDisk} ') + Arc1[2];
Parent := MyChangeDisc ;
Font.Color := clWhite;
end;
end;
CDYesBtn:=BtnCreate(MyChangeDisc .Handle,572,5,15,15,ExpandConstant('{tmp}\ExitBtn. png'),0,False);
BtnSetEvent(CDYesBtn,BtnClickEventID,WrapBtnCallba ck(@ButtonOnClick,1));
BtnSetEvent(CDYesBtn,BtnMouseEnterEventID,WrapBtnC allback(@BtnEnter,1));
BtnSetCursor(CDYesBtn,GetSysCursorHandle(32649));
CDNoBtn:=BtnCreate(MyChangeDisc .Handle,560,5,15,15,ExpandConstant('{tmp}\OkBtn.pn g'), 0, false);
BtnSetEvent(CDNoBtn,BtnClickEventID,WrapBtnCallbac k(@ButtonOnClick,1));
BtnSetEvent(CDNoBtn,BtnMouseEnterEventID,WrapBtnCa llback(@BtnEnter,1));
BtnSetCursor(CDNoBtn,GetSysCursorHandle(32649));
end;
////////////////////////////////////////////////////////////////////////////////////////////////
|
And in this part of the code is where i want to skin the msgbox:
Quote:
if Arc1[0] <> '' then
begin
if not FileExists(Arc1[0]) then
begin
if MsgBox(ExpandConstant('{cm:ChangeDisk} ') + Arc1[2], mbError, MB_OKCANCEL) = IDCANCEL then ISDoneError := True;
end else begin
if not ISArcExtract( 0, 0, Arc1[0], Arc1[1], '', false, Arc1[3], ExpandConstant('{tmp}\arc.ini'), ExpandConstant('{app}'), False) then ISDoneError := True;
i:= i + 1;
end;
end;
|
|
