ppTWPaintbox

rbuser

Hello,
is there for RB 10.04 this freeware RCL Component not available? I don't
find it on the company product list on your website.

Best wishes
Bernhard

nardmoseley

A few months ago, we had a customer inform us that some of the links on the
RCL Components were no longer working, so we tested all of the entries and
cleaned them up.

We will look into adding a Paintbox component to a future release.

An alternative to a paint box component, is to use a TppImage in the report
layout. Then programmatically draw to a metafile and assign the metafile to
the TppImage.Picture.Graphic property.

Example: (Disclaimer - I did not compile or test this...)

uses
graphics, ppCtrls;


lMetafile := TMetafile.Create();
lMetaFile.Width := myTppImage.spWidth;
lMetaFile.Height := myTppImage.spHeight;

lMetaFileCanvas := TMetaFileCanvas.Create(lMetaFile, 0);

// add drawing here, just as you would for a paint box

lMetaFileCanvas.Free;

myTppImage.Picture.Graphic := lMetaFile;





--
Nard Moseley
Digital Metaphors
www.digital-metaphors.com

rbuser

Thanks for the answer.

in this sentence I have another question. In RB 7.04 there was the
problem that Bitmaps sometimes are printed black. In the Preview it was
ok and if I've printed it I saw on the paper only a black rectangle
where should be the bitmap.

The workaround was intern to use a Paintbox, to make the tppGraphic
unvisible and paint the Graphic in the Paintbox. Then it works ok.

My question is, if this problem still exists in RB 10.04?

Best wishes
Bernhard

Nard Moseley (Digital Metaphors) schrieb:

nardmoseley

There are no known issues with bitmaps not printing correctly in RB 10.04. I
recommend downloading a trial version from our web site and perform some
tests.

--
Nard Moseley
Digital Metaphors
www.digital-metaphors.com