[LorDHeLeGaL]

Сообщение от nixel

если файл картинки не в папке с ехе или проектом, то да, либо абсолютный путь, либо хранить картинку в ресурсах и загружать оттуда.

В папке
Я сегодня все перепробовал....и не могу сделать...
Объясните как с ресурсов обращаться...файл ресурса есть

[angvelem]

Сообщение от nixel

если файл картинки не в папке с ехе или проектом, то да, либо абсолютный путь, либо хранить картинку в ресурсах и загружать оттуда.

Ну не совсем так. Предположим картинки лежат в папке Image текущего проекта. Тогда достаточно:

Код:

  Image9.Picture.LoadFromFile('image\1.jpg');

[LorDHeLeGaL]

Сообщение от angvelem

Ну не совсем так. Предположим картинки лежат в папке Image текущего проекта. Тогда достаточно:

Код:

  Image9.Picture.LoadFromFile('image\1.jpg');

А обязательно jpg или можно с png?
Просто все делал чтоб сохранить прозрачность....
В uses может подключить кроме jpg надо?

[angvelem]

Зависит от версии Дельфи, я не помню с какой пошла поддержка PNG.

[LorDHeLeGaL]

Сообщение от angvelem

Зависит от версии Дельфи, я не помню с какой пошла поддержка PNG.

У меня есть 5,7, и 2010

[LorDHeLeGaL]

Блин не выводит все равно...
На форму кинул ТImage...Пустую
После кода с выводом рейтинга вставил код...Изображения в папке с проектом,путь указан...

[angvelem]

Если в 2010 добавление в uses PngImage прокатит, значит поддерживает.

[angvelem]

По-любому, что то напутал.

[LorDHeLeGaL]

Сообщение от angvelem

Если в 2010 добавление в uses PngImage прокатит, значит поддерживает.

Она там уже присутствовала и в коде менял расширение...
Буду пробовать с ресурсами работать...гугл меня пошлет скоро

[angvelem]

Не нужно забивать ресурсный файл, лучше так и держи все подгружаемые картинки в отдельном каталоге.

[LorDHeLeGaL]

Не мог напутать...тут сложного нет не чего...и вроде все понятно

[angvelem]

Кидай архив на "мыло" и картинки не забудь.

[LorDHeLeGaL]

Сообщение от angvelem

Кидай архив на "мыло" и картинки не забудь.

Отправил

[angvelem]

Я уже увидел. Сейчас посмотрю.

[angvelem]

Код:

procedure TForm1.btnCalculateClick(Sender: TObject);
var
  I, J : Integer;
begin
  I := 46875 * StrToInt(Edit1.Text) + 9375 * StrToInt(Edit2.Text) + 1875 * StrToInt(Edit3.Text) +
       375 * StrToInt(Edit4.Text) + 75 * StrToInt(Edit5.Text) + 15 * StrToInt(Edit6.Text) +
       5 * StrToInt(Edit7.Text) + StrToInt(Edit8.Text);
  lblCost.Caption := Format('%d$', [i]);

  J := 46875 * 5 * StrToInt(Edit1.Text) + 9375 * 5 * StrToInt(Edit2.Text) + 1875 * 5 * StrToInt(Edit3.Text) +
       375 * 5 * StrToInt(Edit4.Text) + 75 * 5 * StrToInt(Edit5.Text) + 15 * 5 * StrToInt(Edit6.Text) +
       5 * 5 * StrToInt(Edit7.Text) + 5 * StrToInt(Edit8.Text);
  lblRating.Caption := Format('%d!', [J]);

  I := Trunc(46875 * 2.5 * StrToFloat(Edit1.Text) + 9375 * 2.5 * StrToFloat(Edit2.Text) + 1875 * 2.5 * StrToFloat(Edit3.Text) +
             375 * 2.5 * StrToFloat(Edit4.Text) + 75 * 2.5 * StrToFloat(Edit5.Text) + 15 * 2.5 * StrToFloat(Edit6.Text) +
             5 * 2.5 * StrToFloat(Edit7.Text) + StrToInt(Edit8.Text));
  lblPrison.Caption := Format('%d часов %d минут', [I div 60, I mod 60]);

  lblGetStar.Caption := Format('%.n звезд', [StrToFloat(edtVoice.Text) / 5]);

  btnAddText.Click;

  // Чем это вычичисление отличается от первого?
  I := 46875 * StrToInt(Edit1.Text) + 9375 * StrToInt(Edit2.Text) + 1875 * StrToInt(Edit3.Text) +
       375 * StrToInt(Edit4.Text) + 75 * StrToInt(Edit5.Text) + 15 * StrToInt(Edit6.Text) +
       5 * StrToInt(Edit7.Text) + StrToInt(Edit8.Text);
  lblStar.Caption := Format('%d звезд', [i]);

  case J of
    0..5           : lblPrestige.Caption := 'Новичок';
    6..10          : lblPrestige.Caption := 'Бывалый(ая)';
    11..15         : lblPrestige.Caption := 'Уважаемый(ая)';
    16..20         : lblPrestige.Caption := 'Мастер';
    21..25         : lblPrestige.Caption := 'Профессионал(ка)';
    26..50         : lblPrestige.Caption := 'Гуру';
    51..100        : lblPrestige.Caption := 'Неприкасаемый(ая)';
    101..500       : lblPrestige.Caption := 'Папа/Мама';
    501..1000      : lblPrestige.Caption := 'Ангел';
    1001..5000     : lblPrestige.Caption := 'Бог/Богиня';
    5001..10000    : lblPrestige.Caption := 'Всемогущий(ая)';
    10001..50000   : lblPrestige.Caption := 'Mister/Miss';
    50001..100000  : lblPrestige.Caption := 'Легенда';
    100001..500000 : lblPrestige.Caption := 'Премьер';// тут нужные значения и их звания
  else
    lblPrestige.Caption := 'Супер';
  end;

  case J of
    0..5           : Image9.Picture.LoadFromFile('image\1.png');
    6..10          : Image9.Picture.LoadFromFile('image\2.png');
    11..15         : Image9.Picture.LoadFromFile('image\3.png');
    16..20         : Image9.Picture.LoadFromFile('image\4.png');
    21..25         : Image9.Picture.LoadFromFile('image\5.png');
    26..50         : Image9.Picture.LoadFromFile('image\6.png');
    51..100        : Image9.Picture.LoadFromFile('image\7.png');
    101..500       : Image9.Picture.LoadFromFile('image\8.png');
    501..1000      : Image9.Picture.LoadFromFile('image\10.png');
    1001..5000     : Image9.Picture.LoadFromFile('image\11.png');
    5001..10000    : Image9.Picture.LoadFromFile('image\12.png');
    10001..50000   : Image9.Picture.LoadFromFile('image\13.png');
    50001..100000  : Image9.Picture.LoadFromFile('image\14.png');
    100001..500000 : Image9.Picture.LoadFromFile('image\15.png');
  else
    Image9.Picture.LoadFromFile('image\16.png');
  end;
end;

С номерами сам разберёшься, там их больше чем нужно.
И не забудь у Image9 Proportional в True выставить.