Форум: "Основная";
Текущий архив: 2005.03.06;
Скачать: [xml.tar.bz2];
ВнизКопирование изображения Найти похожие ветки
← →
saNat © (2005-02-19 12:13) [0]Доброго времени суток :-)
Подскажите, пожалуйста, где я ошибаюсь.
Есть загруженное из ресурса *.res изображение CardImage:TImage и изображение, которое пользователь загружает в PeoplePhotoImage:TImage. Нужно вставить второе изображение в определенную позицию первого. Делаю так:
//Генерация проруска
Procedure TPeopleForm.ReFreshButtonPanelClick(Sender:TObject);
Var
Card:TJpegImage;
ResourceStream:TResourceStream;
Begin
//Удаление текущего содержимого пропуска
CardImage.Picture:=Nil;
Card:=Nil;
ResourceStream:=Nil;
//Загрузка фона
Try
Try
Card:=TJpegImage.Create;
If StType.Checked
Then
ResourceStream:=TResourceStream.CreateFromID(HInstance,1,RT_RCData)
Else
ResourceStream:=TResourceStream.CreateFromID(HInstance,2,RT_RCData);
Card.LoadFromStream(ResourceStream);
CardImage.Canvas.Draw(0,0,Card);
Finally
Card.Free;
ResourceStream.Free;
End;
Except
MessageDlg("Ошибка: невозможно создать образец"+#13+
"Генерация пропуска прервана"+#13+
"Обратитесь в службу поддержки: eva@mail.vstu.edu.ru",mtError,[mbOk],0);
Close;
End;
//Установка параметров
CardImage.Canvas.Font:=Font;
CardImage.Canvas.Font.Size:=10;
CardImage.Canvas.Brush.Style:=bsClear;
//Вставка ФИО
CardImage.Canvas.TextOut(77,5,NameEdit.Text);
//Вставка Должности
CardImage.Canvas.TextOut(17,73,StatusEdit.Text);
//Вставка фото
CardImage.Canvas.Draw(186,73,PeoplePhotoImage.Picture.Bitmap);End;
Так вот, как я понял (прочитал в книге), то CardImage.Canvas.Draw делает копию изображения-источника на изображении-приемнике с левым верхним углом... У меня почему то исходное изображение исчезает, а в приемнике ничего нет
И где я не прав?
С уважением, ЕВА.
← →
Набережных С. © (2005-02-19 16:26) [1]Имхо у тебя не Bitmap загружен в PeoplePhotoImage. Попробуй так
CardImage.Canvas.Draw(186,73,PeoplePhotoImage.Picture.Graphic)
← →
saNat © (2005-02-19 23:55) [2]to Набережных С Спасибо. Ваш вариант работает
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2005.03.06;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.052 c