VPF::Ошибка с необьявленной переменной!

SultanOFF

Дата 7.12.2009, 21:10 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 108
Регистрация: 23.3.2008

Репутация: нет
Всего: нет

Имею код для сохранения в jpg формате

Код


      var
  JpegIm: TJpegImage;
  bm: TBitMap;
begin
  bm := TBitMap.Create;
  bm.Width := Screen.Width;
  bm.Height := Screen.Height;
  BitBlt(bm.Canvas.Handle, 0, 0,
  bm.Width, bm.Height,
  GetDC(0), 0, 0, SRCCOPY);
  JpegIm := TJpegImage.Create;
  JpegIm.Assign(bm);
  JpegIm.CompressionQuality := trackbar1.position;
  JpegIm.Compress;
  JpegIm.SaveToFile('C:\Screen.jpg');
  bm.Destroy;
  JpegIm.Destroy;
end;

однако пишется ошибка [DCC Error] Unit1.pas(163): E2003 Undeclared identifier: 'trackbar1' хотя Я совершенно уверен что компонент trackbar с именем trackbar1 присутствует! Так почему же выходит подобная ошибка?

Amphiluke

Дата 7.12.2009, 21:14 (ссылка)

(нет голосов)

Загрузка ...

☽

Профиль
Группа: Завсегдатай
Сообщений: 1253
Регистрация: 26.8.2009

Репутация: 6
Всего: 112

Вероятно, ваша процедура сохранения в jpg формате не является методом формы.
Если так, то ситуацию исправит это:

Код


JpegIm.CompressionQuality := Form1.trackbar1.position;

Вместо Form1 — имя формы, где лежит trackbar1.

SultanOFF

Дата 7.12.2009, 21:43 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 108
Регистрация: 23.3.2008

Репутация: нет
Всего: нет

спасибо, сработало))

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Для новичков \| Следующая тема »