Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

картинки [Delphi, Windows]

lamachok © (2002-10-24 23:55:00)
вот пытаюсь вывести картинку jpg через ресурсы
Создал файл .rc
1 RCDATA "1.jpg"
Откомпилировал .rc в файл .res.
В проекте сделал запись {$R res.res}
Результат - невыводит после удаления картинки
Добавил в код программы
jpg.LoadFromFile("1.jpg");
Результат - Все равно не выводит. Странно как-то!
вот полностью код
program Project1;
Jpg: pJpeg;
procedure DrawPaint( Dummy: Pointer; Sender: PControl; DC: HDC );
begin
jpg.Draw(PB.Canvas.Handle,0,0);
end;
begin
w:=newform(applet,"11");
PB := NewPaintBox(w);
PB.OnPaint := TOnPaint( MakeMethod( nil, @DrawPaint ) );
jpg := NewJpeg;
jpg.LoadFromFile("1.jpg");
PB.Width := jpg.Width ;
PB.Height:= jpg.Height;
pb.Left:=250;
pb.Top:=100;
run(w);
end.
плиззз

Vladimir Kladov (2002-10-28 11:00:00) [1]
Зачем ресурс, если картинка читается из файла?
Укажите точный путь, когда из файла. Или GetStartDir + "1.jpg".

jpg.Draw(PB.Canvas.Handle,0,0);
вполне можно заменить на
jpg.Draw(DC,0,0);
если в проекте больше нигде Canvas не используется, то exe будет
меньше.

Кстати, правило хорошего тона рекомендует после run(w); дописать
jpg.Free; Впрочем здесь это ни на что не влияет. В программу
добавится 5 байт кода.

BorisMor (2002-10-28 10:59:00) [2]
1. http://kol.mastak.ru/lessons%2010.htm
cм. StretchDraw
2. эээ.... ну когда строка длиней длины лэйбла ( т.е.не помещается на нем в одну строку) она автоматически переходит на следующую если WordWrapLabel.

lamachok (2002-10-25 18:36:00) [3]
спасибо за ссылку, полезная
значит возникло еще попутно 2 вопроса:
1. это как растянуть картинку (которую загружаю)
2. значит в "Урок №2. Наша первая кнопка или Основные элементы интерфейса."
Упоминается такая строчка "В отличие от Label , WordWrapLabel производит перенос текста,
написанного на нем, на другую строку. "
А как пероносить то??? И тоже самое есть ли в NewLabelEffect???

BorisMor (2002-10-25 11:26:00) [4]
http://kol.mastak.ru/lessons%2011.htm

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »