Hello,
I encountered a problem printing dynamic created images in a cxGrid. (I think since v2012)
This problem only appears when the SupportCustomDraw-Property of the used TdxGridReportLink is set to true,
UseNativeStyles is true, the Content/ContentEven/ContentOdd-Style is set to a style with a color not equal to clWhite or clDefault
and a OnCustomDrawCell-Event is assigned.
To Reproduce this you can do the following:
Open the ViewTableSimpleDemoRSC16 Project
Add a TdxComponentPrinter and create a TdxGridReportLink (linked to cxgFilms)
Set SupportedCustonDraw and UseNativeStyles (TRUE)
Choose cxStyle1 (or any other) as Content in Styles
Create a OnCustomDrawCell-Event for the TdxGridReportLink just like this…
{
ADone = false;
}
Create a Button (Preview) for executing the Preview…
{
dxComponentPrinter1->Preview(true,dxComponentPrinter1Link1);
}
Create a Button (Add) for adding a dynamic created image to the TClientDataset
I'm using the following code:
{
ViewTableSimpleDemoMainDM->cdsFilms->Append();
ViewTableSimpleDemoMainDM->cdsFilms->FieldByName("CAPTION")->AsString = "TestFilm";
ViewTableSimpleDemoMainDM->cdsFilms->FieldByName("YEAR")->AsInteger = 2013;
UnicodeString UsPic = "C:\test.jpg"; // enter a valid image
TPicture *PicList = new TPicture();
TImage *ImgList = new TImage(this);
PicList->LoadFromFile(UsPic);
ImgList->Width = PicList->Width;
ImgList->Height = PicList->Width;
ImgList->Canvas->Draw(0,0,PicList->Graphic);
TJPEGImage *JpgList = new TJPEGImage();
JpgList->Assign(ImgList->Picture->Bitmap);
TStream *StPic = ViewTableSimpleDemoMainDM->cdsFilms->CreateBlobStream(ViewTableSimpleDemoMainDM->cdsFilms->FieldByName("ICON"),bmWrite);
JpgList->SaveToStream(StPic);
StPic->Free();
ViewTableSimpleDemoMainDM->cdsFilms->Post();
delete ImgList;
delete JpgList;
delete PicList;
}
Now execute the Demo and press the Add-Button.
The new Entry appears in the cxGrid.
(see Grid.png)
Clicking on the Preview-Button is showing an unpleasant output.
(see Preview.png)
Can you please help me?
Hello,
I have performed the exact steps you described, but my efforts to reproduce the problem were not successful. I have attached a video demonstrating my steps. It seems that something else is involved at your end. Would you please clarify whether or not my actions were correct?
Hello Paulo,
Your steps were all ok.
I did some tests and found out that the Problem seems to depend on the size of the Image.
See attached Preview.
I was not able to reproduce this behavior. I've attached a video with the image which is used in sample ("test.jpg").
I tryed some different ways of creating the data which is written in the Stream.
Even if i put a TcxImage an load the picture (not in runtime) and call SaveToStream, the result is the same.
ViewTableSimpleDemoMainDM->cdsFilms->Append();
ViewTableSimpleDemoMainDM->cdsFilms->FieldByName("CAPTION")->AsString = "Image 200x200px with TcxImage";
ViewTableSimpleDemoMainDM->cdsFilms->FieldByName("YEAR")->AsInteger = 2013;
TStream *StPic = ViewTableSimpleDemoMainDM->cdsFilms->CreateBlobStream(ViewTableSimpleDemoMainDM->cdsFilms->FieldByName("ICON"),bmWrite);
cxImage1->Picture->Graphic->SaveToStream(StPic);
StPic->Free();
ViewTableSimpleDemoMainDM->cdsFilms->Post();
Also on other machines, the painted Image is not ok.
May you try the .exe compiled by me.
(the cross which is added in this sample is dynamically created by drawing on the canvas of ImgList)
thx
Hello Martin,
I've reproduced this behavior. I am forwarding this issue to our developers for further processing.
You will receive an automatic message once the status of this issue is changed.