Имею код для сохранения в 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 присутствует! Так почему же выходит подобная ошибка? |