Корректировка программы и создание изменяющихся кнопок

[killen]

Ясно, спасибо, пойду учиться и экспериментировать дальше.

[killen]

Начал потихоньку загонять все картинки в файл ресурсов через программку Image Editor, всё получается, но вот качество самой картинки при этом становится ужасной. При сохранении картинки использую 256 цветов. Можно как-нибудь сохранить все картинки, но без потери качества? Может есть какой-нибудь другой вариант зашить картинки в .exe файл, желательно в формате .jpg
Заранее спасибо.

[killen]

В общем разобрался как в файл ресурсов добавить .jpg файлы, всё сделал, начал их заменять в программе следующим образом:

procedure LoadJPEGFromRes(TheJPEG : string; ThePicture : TPicture);
var
	ResHandle : THandle;
	MemHandle : THandle;
	MemStream : TMemoryStream;
	ResPtr    : PByte;
	ResSize   : Longint;
	JPEGImage : TJPEGImage;
begin
	ResHandle := FindResource(hInstance, PChar(TheJPEG), 'JPEG');
	MemHandle := LoadResource(hInstance, ResHandle);
	ResPtr    := LockResource(MemHandle);
	MemStream := TMemoryStream.Create;
	JPEGImage := TJPEGImage.Create;
	ResSize := SizeOfResource(hInstance, ResHandle);
	MemStream.SetSize(ResSize);
	MemStream.Write(ResPtr^, ResSize);
	FreeResource(MemHandle);
	MemStream.Seek(0, 0);
	JPEGImage.LoadFromStream(MemStream);
	ThePicture.Assign(JPEGImage);
	JPEGImage.Free;
	MemStream.Free;
end;

И заменил загрузку рисунка:

begin
ImgBtn1.Glyph.LoadFromFile(extractfilepath(paramstr(0))+'images\SPressed.bmp');
end;

На:

Begin
LoadJPEGFromRes('SETPR', Image1.Picture);
end;

Всё работает, но смена изображения при наведении не происходит, вероятнее всего дело в том, что нужно использовать следующий код:

Begin
ImgBtn1.Glyph.LoadJPEGFromRes('SETPR', Image1.Picture);
end;

Но, если делать так, то выдает ошибку:

[Error] UnitMain.pas(495): Undeclared identifier: 'LoadJPEGFromRes'

Как можно исправить ошибку?

[mihali4]

Вы упорно не хотите использовать предложенное
ImgBtn1.Canvas.Draw(0, 0, LoadJpegRes('SONMOUSE')); ?
И похоже, вы что-то с ресурсами не то делаете...
Поищите по форуму про создание файла ресурсов.
А то вы что-то там такое накрутили...

[killen]

Файл ресурсов я делал по следующему руководству - Как поместить JPEG-картинку в exe-файл и потом загрузить ее?

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

[Error] UnitMain.pas(355): Undeclared identifier: 'Canvas'
[Error] UnitMain.pas(355): Undeclared identifier: 'LoadJpegRes'

Причем в uses присутствует jpeg.
Так же я заметил что программка не умеет работать с jpeg изображениями вообще, попробовал я в изображении (image1) вместо .bmp файла использовать .jpg, всё вроде нормально, в значении Picture (TBitmap), сменился на (TJPEGImage), программка компилируется, но самого окна нету, оно невидимое, но оно есть. Почему так, я не знаю.

[killen]

Михалыч, спасайте, уже не знаю что делать, застопорился на этом и всё, не хочет он с jpg форматом нормально работать, хоть ты тресни. Был бы очень благодарен если бы помогли.

[mihali4]

Так мы ж вроде договорились - ImgBtn1 - это не кнопка, а TImage, у него есть канва и никаких проблем с жипегами...

[killen]

Так, все кнопки переделал в TImage. Создаю файл ресурсов следующим образом:
В папке с .jpg рисунками создал файл imgjpg.rc и добавил в него все файлы следующим образом

CLOSE   JPEG       Close.jpg

И так со всеми файлами, потом с помощью файлика brcc32.exe создаю сам файл ресурсов. Всё создалось, появился файл imgjpg.res, кидаю этот файлик в папку с проектом.
Теперь в самой программе начинаю загружать эти рисунки следующим образом:

ImgBtn1.Canvas.Draw(0, 0, LoadJpegRes('SONMOUSE'));

Вместо

ImgBtn1.Glyph.LoadFromFile(extractfilepath(paramstr(0))+'images\SOnMouse.bmp');

Начинаю компилировать, выдаёт ошибку:

[Error] UnitMain.pas(309): Undeclared identifier: 'LoadJpegRes'

И вот как исправить эту ошибку?
И ещё хотел спросить, я файл ресурсов правильно создаю? Потому что если я открываю потом его через Image Editor, то у меня там вот такая ерунда (скрин приложил к посту).

[mihali4]

Елки-палки, я ж вам саму функцию не дал...
Вот она:

function LoadJpegRes(const ID: string): TJpegImage;
var
  RS: TResourceStream;
begin
  Result := TJpegImage.Create;
  RS := TResourceStream.Create(HInstance, ID, RT_RCDATA);
  try
    RS.Seek(0, soBeginning);
    Result.LoadFromStream(RS);
  finally
    RS.Free;
  end;
end;

Пардон...

[killen]

Большое спасибо, теперь ошибок при компиляции нету.
Но всё же у меня что-то не то с файлом ресурсов, пытаюсь навести мышкой на какую-нибудь кнопку, и выкидывает ошибку (скрин прикрепил).
Пробовал так же в файле ресурсов вместо JPEG:

CLOSE   JPEG       Close.jpg

Писать RCDATA:

CLOSE   RCDATA       Close.jpg

Но всё равно такая же ошибка.