картинки

← →
lamachok (2002-10-24 23:55) [0]

вот пытаюсь вывести картинку 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.
плиззз

← →
BorisMor © (2002-10-25 11:26) [1]

http://kol.mastak.ru/lessons%2011.htm

← →
lamachok (2002-10-25 18:36) [2]

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

← →
BorisMor © (2002-10-28 10:59) [3]

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

← →
Vladimir Kladov (2002-10-28 11:00) [4]

Зачем ресурс, если картинка читается из файла?
Укажите точный путь, когда из файла. Или GetStartDir + "1.jpg".

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

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

картинки Найти похожие ветки