[Rikill]

No4noylis, а если свернуть-развернуть страничку selectdir тоже всё возвращается?

[No4noylis]

Rikill, Да! Ну так можно что-то сделать???

[Edison007]

No4noylis
Скрипт в "студию", экстрасенсы в отпуске...

[leshcat]

Неужели нету никаких решений?

[Gnom_aka_Lexander]

leshcat, Поставь рид-онли на ричэдит, и тогда текст нельзя будет редактировать.

читать дальше »

{ RichEditViewer1 }
RichEditViewer1 := TRichEditViewer.Create(WizardForm);
with RichEditViewer1 do
begin
Name := 'RichEditViewer1';
Parent := ISCustomPage1.Surface;
Left := ScaleX(0);
Top := ScaleY(0);
Width := ScaleX(417);
Height := ScaleY(233);
ReadOnly := True;
RTFText :=S;
end;

2. Есть ли расширенная версия, где можно подключать что-нибудь посовершеннее, типа doc с 2003 офиса/ docx 2007? »

И как ты себе это представляеш? эти форматы работают под платным программным монстром Микрософт Офис, Инно - продукт бесплатный, а рич-текст - используется, я так понимаю, функции встроенные в систему.

No4noylis, Скрипт покажи, чего хоть непонятного?

[No4noylis]

Лександер, Он у меня слишком большой, больше 30 000 символов и не отправляеться!!!! Может можно просто добавить в процедуру CurPageChanged какую нибудь команду, чтоб если CurPageID=wpSelectDir то страница обновлялась???

[Gnom_aka_Lexander]

Может можно просто добавить в процедуру CurPageChanged какую нибудь команду, чтоб если CurPageID=wpSelectDir то страница обновлялась??? »

Именно это и нужно сделать. но я не знаю, как называется у тебя процедура, которая пересчитывает свободное место на диске, поэтому и нужен скрипт.

Он у меня слишком большой »

Дык, залей на обменник

[No4noylis]

Лександер, держи http://rghost.ru/14381671

[Gnom_aka_Lexander]

Лександер, держи http://rghost.ru/14381671 »

В твоем случае я бессилен. Нет, я нашел, конечно, что нужно добавить, но у тебя две процедуры GetNeedSpaceCaption, которые нельзя объединять. и они тупо конфликтуют между собой. А вообще, кто тебя учил ТАК писать скртпы? Очень похоже на ранние работы уважаемого товарища Rikill. Вообще непонятно, как можно настолько испоганить такой хороший скрипт?

[Edison007]

No4noylis
Что за издевательство!?
Вообще все запущено
Можно сделать так:
вместо процедур: GetFreeSpaceCaption и GetNeedSpaceCaption
Пишем одну такую:

читать дальше »

procedure GetFreeSpaceCaption(Sender: TObject); /////Вычисление свободного места на диске
var
Path: String;
begin
Path := ExtractFileDrive(WizardForm.DirEdit.Text);
GetSpaceOnDisk(Path, True, FreeMB, TotalMB);
if FreeMB > 1024 then
FreeSpaceLabel.Caption := 'Доступно места на диске: '+ FloatToStr(round(FreeMB/1024*100)/100) + ' GB' else
FreeSpaceLabel.Caption := 'Доступно места на диске: '+ IntToStr(FreeMB)+ ' MB';

if NeedSize > 1024 then
NeedSpaceLabel.Caption := 'Требуется места на диске: '+ FloatToStr(round(NeedSize/1024*100)/100) + ' GB' else
NeedSpaceLabel.Caption := 'Требуется места на диске: '+ IntToStr(NeedSize)+ ' MB';

if FreeMB < NeedSize then
WizardForm.NextButton.Enabled := False else
WizardForm.NextButton.Enabled := True; end;

а в CurPageChanged пишем так:

читать дальше »

procedure CurPageChanged(CurPageID: Integer);
begin
if CurPageID=wpSelectProgramGroup then
begin
If WizardForm.FindComponent('NextButton') is TButton
then
TButton(WizardForm.FindComponent('NextButton')).Caption:='Установить';
end;
begin
if CurPageID=wpSelectDir then
begin
GetFreeSpaceCaption(nil); //если Свободное место на диске < требуемого, то кнопка "Установить" на PageSelectDir неактивна
if FreeMB < NeedSize then
WizardForm.NextButton.Enabled:=False
end;
end;
end;

согласен, что издевательство но переписывать кучу скрипта я не хочу...