Показать сообщение отдельно
Старый 02.11.2011, 23:39   #10
barsunduk
ПроЭктировщик
 
Аватар для barsunduk
 
Регистрация: 09.05.2010
Адрес: рф ро шахты
Сообщений: 177
Написано 66 полезных сообщений
(для 271 пользователей)
Ответ: Помогите исправить ошибку



вот примерчик для любого разрешения

// progress sample for leonid
// (c) barsunduk
// 02.11.2011

program carload;

var
    
carimage;
    
iscrWscrHinteger;

// на входе состояние прогресса
// от 0 до scrW (ширина экрана)
procedure progress(xinteger);
var
    
whyinteger;
    
sstring;
begin
    w 
:= GetImageWidth(car);
    
:= GetImageHeight(car);
    
:= scrH h;
    
// очищается полоса с машинкой
    
SetColor(000);
    
FillRect(0yscrWh);
        
// это можно удалить
        // тут полоска зеленая рисуется с процентами
        
SetColor(01700);
        
FillRect(0yxh);
      
SetColor(240255240);
        
:= 'loading... ' + (100 scrW) + '% ';
        
DrawText(sGetStringWidth(s), GetStringHeight(s));
        
// для жирности
        
DrawText(sGetStringWidth(s), GetStringHeight(s));
    
// рисуется машинка    
    
DrawImage(carxy);
end;

begin
    car 
:= loadImage('/car.png');
    
scrW := GetWidth;
    
scrH := GetHeight;
    
SetColor(000);
    
FillRect(00scrWscrH);
    
// цикл с шагом в 2 пиксела
    
for := 0 to scrW do
    
begin
        progress
(2);
        
repaint;
        
delay(40);
    
end;
    
// очищаем память от ненужной картинки
    
car := loadImage('');
    
delay(2000);
end
в архиве тот же код
Вложения
Тип файла: zip carload.zip (12.6 Кб, 864 просмотров)
__________________
to be or not to be - it's not a question!
2b or not 2b = ff
(Offline)
 
Ответить с цитированием
Эти 2 пользователя(ей) сказали Спасибо barsunduk за это полезное сообщение:
leonid (03.11.2011), midlet_pascal (28.01.2012)