Форум: "KOL";
Текущий архив: 2003.07.03;
Скачать: [xml.tar.bz2];
Внизкартинки Найти похожие ветки
← →
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 байт кода.
Страницы: 1 вся ветка
Форум: "KOL";
Текущий архив: 2003.07.03;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.007 c