iTASmania_Inc
Full Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Sampron
Цитата:| Незнаю как решить эту проблему. |
Я вроде частично решил:
function CheckSerial(Serial: String): Boolean;
begin
if (Serial='123') or (Serial='321') then
begin
ButtonPanel[bidNext].Enabled:=True
ButtonLabel[bidNext].Enabled:=True
Result:=True
end
else
begin
ButtonPanel[bidNext].Enabled:=False
ButtonLabel[bidNext].Enabled:=False
Result:=False
end
end;
Только если серийный номер не введён, а происходит переход на предыдущую страницу, то кнопка "Далее" заедает (она работает, но не как анимированная), поэтому надо прописать ещё это:
if CurPageID<wpUserInfo then begin
ButtonPanel[bidNext].Enabled:=True
end;
Ну в принципе, наверное понятно в какой процедуре! 
Добавлено:
Chanka
Цитата:| Только как сделать чтобы показывалось не в ГБ а в МБ. |
Если я тебя правильно понимаю, то решается вот так:
ListBox:= TListBox.Create(WizardForm)
with ListBox do begin
Color:= $EEEEEE; Font.Size:= 10; Font.Name:= 'Tahoma'; Font.Style:=[fsBold]; Parent:= WizardForm.SelectDirPage; OnClick:= @ListBoxOnClick; Top:= WizardForm.DirEdit.Top +WizardForm.DirEdit.Height +ScaleY(30); Width:= WizardForm.DirBrowseButton.Left + WizardForm.DirBrowseButton.Width - WizardForm.DirEdit.Left; Height:= WizardForm.DiskSpaceLabel.Top -Top -9;
FileSystemName:= StringOfChar(' ', BufferLen); VolumeName:= StringOfChar(' ', BufferLen);
for i:=0 to GetHardDrivesCount-1 do begin
GetSpaceOnDisk(GetHardDriveName(i), True, FreeMB, TotalMB); GetVolumeInformation(GetHardDriveName(i), VolumeName, BufferLen-1, VolumeSerialNo, MaxComponentLength, FileSystemFlags, FileSystemName, BufferLen-1);
Items.Add(Copy(Uppercase(GetHardDriveName(i)),0,2)+ Copy(' ',0,14-Length(MorG(TotalMB,0)))+ MorG(TotalMB,1)+ Copy(' всего, ',0,17-Length(MorG(FreeMB,0)))+ MorG(FreeMB,1)+ Copy(' (0',0,4-Length(IntToStr(round(FreeMB/TotalMB*100)))) + FloatToStr(round(FreeMB/TotalMB*100))+ '%) свободно, '+ FileSystemName); end;
end;
with TNewStaticText.Create(WizardForm) do begin Top:= WizardForm.DirEdit.Top +WizardForm.DirEdit.Height +ScaleY(8); Caption:='Список локальных дисков, присутствующих в системе:'; Parent:= WizardForm.SelectDirPage; end;
end;
Находишь данный кусок кода (для Listbox'a c HDD) в скрипте с 41 страницы, просто заменяешь его на мой!
Там надо было заменить MorG(TotalMB,0) на MorG(TotalMB,1) и MorG(FreeMB,0) на MorG(FreeMB,1).
Добавлено:
Sero
Цитата:| Вот сделал скин для Inno Setup |
Прикольно!!! Очень!!! |
).
