Поиск сообщества

У компонента FMX TPanel (например) есть свойство Canvas.Bitmap. Но эта Bitmap не существует, имеет значение Nil и только для чтения. Она, как я понимаю, может хранить изображение Panel со всеми елементами на ней, но ее нет. Как ее создать? Вообще-то мне нужно на принтер через Printer.DrawBitmap (const ABitmap: TBitmap; const SrcRect, DstRect: TRectF; const AOpacity: Single; const HighSpeed: Boolean = False); вывести свою панель (или форму) на принтер. Китайский принтер (POS) обрезает длинную бумагу, только если ему посылать отрисовку именно через эту функцию. И в этой функции ему нужно сунуть именно TBitmap. В-общем, можно ли получить Bitmap визуальных компонентов, их изображение?

Здравствуйте! Подскажите пожалуйста почему такая в масштабе разница отрисовки в Bitmap.Canvas в Windows и Android, и как ее настроить? Windows: Android: Дано: 1. Массив с координатами прямоугольников и их габаритами (миллиметры) 2. Поле для расположения этих прямоугольников ширина 2000мм длина 6000мм (ширину и длину может менять пользователь но не более этих размеров) Задача: Вывести в Bitmap на экран это поле с расположенными прямоугольниками на картинках "Лист" - это Image Не могу понять как подогнать Bitmap.size под все экраны вот мой код: Спасибо за внимание!

Добрый день, идеология такая: - создать битмап, рисовать на нем, не делая его видимым. - нашлепать на канву панели подготовленный битмап. На деле не получается нарисовать линию на битмапе. Т.е после процедуры Draw2 прожимаю процедуру Draw - получаю на панели красный прямоугольник битмапа без нарисованной линии... Посоветуйте чего-нибуть, спасибо! //BITMAP Bm:= TBitmap.Create; bm.Width:= round (Panel.Width/2); bm.Height:= round (Panel.Height/2); bm.Canvas.BeginScene(); bm.Canvas.Clear(TAlphacolorrec.Red); //($FF484848); bm.Canvas.EndScene; procedure TChart.Draw2; var A,B:TPointF; begin A:=TPointF.Create(0,0); B:=TPointF.Create(200, 200); bm.Canvas.BeginScene(); bm.Canvas.DrawLine(A,B,1); bm.Canvas.EndScene; end; procedure TChart.Draw; var A: TPointF; R: TRectF; begin A.X:= Panel.Position.X+3; A.Y:= Panel.Position.Y+3; R:= TRectF.Create(A, bm.Width , bm.Height); panel.Canvas.BeginScene(); Panel.Canvas.DrawBitmap(bm,r,r, 20); panel.Canvas.EndScene; end;

Загружаю через opendialog картинку формата bmp в image Есть переменные с:TColor, c1:Tcolor Необходимо вначале узнать цвет определенного пикселя на загруженной картинке и записать в c1, а затем изменить цвет определенного пикселя на загруженной картинке на цвет, хранящийся в переменной c. Ищу очень давно, но внятного объяснения нигде не нашла(

Есть две картинки в формате png. Как на одну картинку наложить вторую, которая с прозрачностью (фактически там только рамка) и вывести в Image?

Хотел сделать вот так (1 скриншот) Выбраная вкладка (аккаунты): иконка красная. А остальные вкладки чтобы иконка была серая. (как шрифт ниже). Подскажите как решить?

Я тут новичок, и не понимаю как использовать комманду CopyFromBitmap

Подскажите алгоритм или готовый пример заливки замкнутой области рисунка произвольной формы определенным цветом? Моё решение часто приводит к переполнению стека.

Доброго времени суток! Подскажите, пожалуйста, как можно отрисовать Bitmap (схематично на рисунке представлен черным прямоугольником) с поворотом последнего на определенный угол (скажем 45, 90, или любой другой) относительно какой либо точки - например центра TBitMap`a. И потом определить координаты углов - A, B, C и D для дальнейшего использования. Я вычитал, что для этого используется TMatrix с ее методами и SetMatrix у Canvas. Но в матрицах можно сказать ничего не понимаю, и нету хорошего описания - что это и с чем это употребляют. Подскажите, пожалуйста! Заранее спасибо!

Привет Всем! Как принято в современных приложениях, догружать контент(обычно это картинки) при скролинге. я взял картинки пользователей этого форума Seattle LVdynamicLoadBitmap.zip Berlin LVdynamicLoadBitmap(Berlin).zip

Есть задача написать дату на полученной только что фотографии с камеры. С камеры фотку получаю и выгружаю в TImage, далее нашел пару способов, а именно: image.bitmap.canvas.textout image.bitmap.canvas.filltext и оба у меня не работают, первый вариант не удается запустить, пишет, что нету такого свойства textout у TCanvas, а второй тупо вешает программу. Подскажите как можно решить эту проблему пожалуйста.

Добрый день, возникла проблема при работе с TImage; У меня компонент TImage - imgRing и есть в TImageList. Я динамически формирую Bitmap из копий картинки из TImageList и асайню его в TImage. На Windows все работает прекрасно, а на андроиде картинка все время пустая... Может кто-то подскажет, где я не прав //============================================================================== procedure TMainForm.DrawRing; //------------------------------------------------------------------------------ var bmp1, bmp2 : TBitmap; i : integer; str : TMemoryStream; begin bmp2 := TBitmap.Create; bmp2.Assign(ImageList.Source.Items[3].MultiResBitmap.Items[0].Bitmap); bmp1 := TBitmap.Create; bmp1.Assign(bmp2); bmp1.Width := ClientWidth + bmp2.Width * 10; i := 0; bmp1.Canvas.BeginScene(); while (i * bmp2.Width) < bmp1.Width do begin bmp1.Canvas.DrawBitmap(bmp2, RectF(0, 0, bmp2.Width, bmp2.Height), RectF(i * bmp2.Width, 0, (i + 1) * bmp2.Width, bmp2.Height), 1 ); inc(i); end{ while }; bmp1.Canvas.EndScene; str := TMemoryStream.Create; bmp1.SaveToStream(str); str.Position := 0; imgRing.BeginUpdate; imgRing.Bitmap.CreateFromStream(str); imgRing.EndUpdate; end{ procedure TMainForm.DrawRings }; Делаю такое потому-что TImage.WrapMode.Tile не подходит для моей задачи.

Загружаю в Bitmap значок 16х16, должно получиться что-то вроде такого: А получается так: Помогает только изменение размеров холста в фотошопе. В ХЕ8 всё работало как надо, в 10 - вот. Хотел отредактировать стиль, убрав Stretch у картинки, но у всплывающего меню нельзя отредактировать стиль. Как поправить, не меняя размеры самих картинок значков?

Подскажите, как на форме сделать фоновое изображение. Вставляю картинку (TImage) на весь экран, изображение в пропорции выводится не на весь экран

Доброго времени суток подскажите как получить картинку из TStyleObject var Item:TListBoxItem; StyleObject: TStyleObject; begin Item := ListBox1.ItemByIndex(0); StyleObject := TStyleObject(Item.FindStyleResource('styleobjectstyle')); if (StyleObject <> nil) and (StyleObject is TControl) then begin Image1.Bitmap:= StyleObject.Source; // Выводит изображение указанное в SourceLookUp целиком; Image1.Bitmap := // Интересует как вывести изображение обрезанное с учетом SourceLink end;