Chuvakstepan
Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
procedure CurPageChanged(CurPageID: Integer);
var
pfunc: LongWord;
Width, Height: Integer;
begin
If CurPageID=wpInstalling
then
begin
pfunc:=WrapTimerProc(@OnTimer, 4)
TimerID:=SetTimer(0, 0, 500, pfunc)
SlideImage:=TBitmapImage.Create(MainForm)
with SlideImage do begin
Stretch:=True
Align:=alClient
Bitmap.LoadFromFile(ExpandConstant('{tmp}') + '\1.bmp')
Parent:=MainForm
Tag:=1
Position:=poScreenCenter
Color:=clBackground
end
end
if CurPageID=wpFinished
then
begin
SlideImage.Hide
end
end; |
