Вниз
Скачать: CL | DM;

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

← →
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 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.011 c
1-7486
McSimm2
2003-06-19 12:52
2003.07.03
---|Ветка была без названия|---


1-7406
LinOS
2003-06-23 06:33
2003.07.03
В ListBox хочу выделять Item правой кнопкой мыши.


7-7726
Ihor Osov'yak
2003-04-21 20:15
2003.07.03
DeviceIoControl,METHOD_BUFFERED и данные по поинтеру Win32,


3-7296
URSUS
2003-06-08 18:25
2003.07.03
помогите с Blob и BlobStream в базе данных Interbase


3-7289
Stelius
2003-06-07 22:54
2003.07.03
По поводу сортировки




   Наверх