Имя пользователя:
Пароль:
 

Показать сообщение отдельно

Пользователь


Сообщения: 75
Благодарности: 6

Профиль | Отправить PM | Цитировать


всем привет,я не один год использую инно,конечно простые скрипты,без наворотов.Постепенно коплю знания.Скачал кучи примеров ,программ,архивов тем,но там или или.Вчера наткнулся на скрипт прогресс бар+размер текущего файла,но проблема в том,что он пишет размер в байтах например 12345678 байт,как сделать отображение в было мегабайтах например 25.8 МБ?Вот секция код моя
читать дальше »
Код: Выделить весь код
[_Code]
const
oneMB=1024*1024;

var 
ProgressLabel, SizeLabel: TLabel; 

procedure Progress(); 
var 
size: integer; 

begin 
with WizardForm.ProgressGauge do 
ProgressLabel.Caption:= IntToStr((Position-Min)/((Max - Min)/100)) + '%'; 
FileSize(ExpandConstant(CurrentFileName), size); 
SizeLabel.Caption:= IntToStr(size) + ' байт';  
end;  

procedure InitializeWizard(); 
begin 
ProgressLabel := TLabel.Create(WizardForm); 
with WizardForm.ProgressGauge do 
begin 
ProgressLabel.Top := Top + Height + ScaleY(8); 
ProgressLabel.Left:= Left + Width/2 - ScaleX(8); 
ProgressLabel.AutoSize := True; 
ProgressLabel.Parent := WizardForm.InstallingPage; 
end; 

SizeLabel := TLabel.Create(WizardForm); 
with WizardForm.ProgressGauge do 
begin 
SizeLabel.Top := Top + Height + ScaleY(8); 
SizeLabel.Left:= Left; 
SizeLabel.AutoSize := True; 
SizeLabel.Parent := WizardForm.InstallingPage; 
end; 
end;


Конечно этот вопрос затерт до дыр,но на чтение архивов форума уйдет неделя.Как я понял надо изменить тут SizeLabel.Caption:= IntToStr(size) + ' байт'; что то?константу const oneMB=1024*1024; добавил сам,думал поможет мне.

Последний раз редактировалось FX-DENIS, 17-03-2012 в 16:59. Причина: ошибки


Отправлено: 00:24, 08-03-2012 | #953