23 replies to this topic

[azrael11]

here is my simple code.
For png, i use the pngimage from http://pngdelphi.sourceforge.net/

GamePic := TPNGObject.Create;
ImagePath := Conf.nxtgrd_ips_mamext.Cell[8,ARow+k].AsString;
GamePic.LoadFromFile(ImagePath);
Conf.nxtgrd_ips_mamext.Cell[7,ARow+k].ObjectReference := GamePic;

The image loads but in the cell nothing showing

Before i update to the latest version everything works great...

I use delphi 7

Please help...

[Boki (Berg)]

Hi,

I am working on it now.

Best regards

[Boki (Berg)]

Hi,

Please change next procedure in NxGrid.pas:

function TNextGrid.DrawCellData(ACol, ARow: Integer; CellState: TCellState): Boolean;
var
  DisplayText: WideString;
  CellInfo: TCellInfo;
begin
	inherited DrawCellData(ACol, ARow, CellState);
  CellInfo := GetCellInfo(ACol, ARow);
  with CellInfo, Columns[ACol] do
  begin
    DisplayText := AsString;
    case ColumnType of
      ctAutoInc: Display.AsInteger := ARow;
      ctBoolean: Display.AsBoolean := AsBoolean;
      ctDate: Display.AsDateTime := AsDateTime;
      ctFloat: Display.AsFloat := AsFloat;
      ctInteger: Display.AsInteger := AsInteger;
      ctString: Display.AsString := AsString;
      ctGraphic: Display.ObjectReference := CellInfo.ObjectReference;
      ctGuid: Display.AsString := AsString;
      ctVirtual: Display.AsString := AsString;
    end;
  end;
  ApplyCellFormating(ACol, ARow, DisplayText, CellState);
  Result := True;
end;

and in NxDisplays.pas

procedure TGraphicColumnDisplay.Paint;
begin
  with Column as TNxGraphicColumn do DrawPicture(TGraphic(Self.ObjectReference), Margin, BorderWidth, Stretch);
end;

Problem cause a ObjectReference property added for Column

Please sorry for this problem.

[azrael11]

Hi,

Please change next procedure in NxGrid.pas:

function TNextGrid.DrawCellData(ACol, ARow: Integer; CellState: TCellState): Boolean;
var
  DisplayText: WideString;
  CellInfo: TCellInfo;
begin
	inherited DrawCellData(ACol, ARow, CellState);
  CellInfo := GetCellInfo(ACol, ARow);
  with CellInfo, Columns[ACol] do
  begin
    DisplayText := AsString;
    case ColumnType of
      ctAutoInc: Display.AsInteger := ARow;
      ctBoolean: Display.AsBoolean := AsBoolean;
      ctDate: Display.AsDateTime := AsDateTime;
      ctFloat: Display.AsFloat := AsFloat;
      ctInteger: Display.AsInteger := AsInteger;
      ctString: Display.AsString := AsString;
      ctGraphic: Display.ObjectReference := CellInfo.ObjectReference;
      ctGuid: Display.AsString := AsString;
      ctVirtual: Display.AsString := AsString;
    end;
  end;
  ApplyCellFormating(ACol, ARow, DisplayText, CellState);
  Result := True;
end;

and in NxDisplays.pas

procedure TGraphicColumnDisplay.Paint;
begin
  with Column as TNxGraphicColumn do DrawPicture(TGraphic(Self.ObjectReference), Margin, BorderWidth, Stretch);
end;

Problem cause a ObjectReference property added for Column

Please sorry for this problem.

Thanks for the solution boki but i have the free version of berg for delphi 7 no source code
so i have to wait until next upgrade

But thank you very much bcs i thing i do something wrong...
Before i write this post i search for solution about a week...

[azrael11]

Hi,

Please change next procedure in NxGrid.pas:

function TNextGrid.DrawCellData(ACol, ARow: Integer; CellState: TCellState): Boolean;
var
  DisplayText: WideString;
  CellInfo: TCellInfo;
begin
	inherited DrawCellData(ACol, ARow, CellState);
  CellInfo := GetCellInfo(ACol, ARow);
  with CellInfo, Columns[ACol] do
  begin
    DisplayText := AsString;
    case ColumnType of
      ctAutoInc: Display.AsInteger := ARow;
      ctBoolean: Display.AsBoolean := AsBoolean;
      ctDate: Display.AsDateTime := AsDateTime;
      ctFloat: Display.AsFloat := AsFloat;
      ctInteger: Display.AsInteger := AsInteger;
      ctString: Display.AsString := AsString;
      ctGraphic: Display.ObjectReference := CellInfo.ObjectReference;
      ctGuid: Display.AsString := AsString;
      ctVirtual: Display.AsString := AsString;
    end;
  end;
  ApplyCellFormating(ACol, ARow, DisplayText, CellState);
  Result := True;
end;

and in NxDisplays.pas

procedure TGraphicColumnDisplay.Paint;
begin
  with Column as TNxGraphicColumn do DrawPicture(TGraphic(Self.ObjectReference), Margin, BorderWidth, Stretch);
end;

Problem cause a ObjectReference property added for Column

Please sorry for this problem.

Boki i updated to the latest version but the problem remains...

Any thoughts...

Thanks...

[Boki (Berg)]

Hi,

Don't know why it don't work now I will check it again.

[azrael11]

Hi,

Don't know why it don't work now I will check it again.

Ok my friend i'll wait

Thank you again....

[Boki (Berg)]

Hi Azrael,

Can you please tell me are you able to see a images column when you run Slides Demo (Slides demo).

Maybe problem is somewhere else. Thank you.

[azrael11]

Hi Azrael,

Can you please tell me are you able to see a images column when you run Slides Demo (Slides demo).

Maybe problem is somewhere else. Thank you.

Yes i can see the images in slide demo...
I change the code a little and add .png avatars and the png component i use...
In the slide i can see them all but in the report the .pmg images just missing...

Just look at the code  slides_source1.zip   890.12KB   4 downloads

I hope i help you about this ....


Thank you again boki...

[Boki (Berg)]

Hi,

I don't have TPngImageList component, but with using TImageList from Delphi (which now support PNG Images) your images are loaded well and displayed correctly.

Best regards

[azrael11]

Hi,

I don't have TPngImageList component,

Oh the TPngImageList is left from me with something i try... Sorry that doesn't effect the source code... don't use it just erase it...

but with using TImageList from Delphi (which now support PNG Images) your images are loaded well and displayed correctly.

Best regards

You mean you fix the problem bcs with the standard TImageList the .png pics not showing in the report style only in slides...

If you fix it, i will wait to the next release...

Thanks Boki....

[Boki (Berg)]

Hi,

Your sample code work fine, in both styles.

PS. I have send you Private Message.

Best regards

[azrael11]

Hi,

Your sample code work fine, in both styles.

PS. I have send you Private Message.

Best regards

Ok boki i sent you in Private Message...

Thank you very much...

[azrael11]

OK Hear this ....

I HAVE THE SAME PROBLEM...

I can see the images in slide but no in report mode...

What is wrong please help...

[Boki (Berg)]

Hi,

One thought now come to mu mind... Maybe Image is to small to display it . Please try to set Margin property of column to some lower value.

Please tell me does it help now.

[azrael11]

Hi,

One thought now come to mu mind... Maybe Image is to small to display it . Please try to set Margin property of column to some lower value.

Please tell me does it help now.

No It doesn't help ....

But here is a strange thing... when i use margin 10 in the jpeg images the image center in the middle of the box but in the .png images the box appears in the middle and the png image lower left... in the slide style...

In the report style nothing happends ...

I notice in the slide style that i can view my .png images the .png image is not inside the margin... Hmmm

Hope that helps...

Thanks for the fast response...

[Boki (Berg)]

Hi,

I see both image types in both views. Don't know where is a problem

Margin need to be set to lower value for Report style.

Best regards

[azrael11]

Hi,

I see both image types in both views. Don't know where is a problem

Margin need to be set to lower value for Report style.

Best regards

New style in furom is great...

Please tell can you see both images in both styles from this demo...  slides_demo1.zip   685.07KB   6 downloads

If you see something wrong with my computer if you dont somethings wrong with my compiler...

This is the same code i sent to you but i compile it into my computer.... hmmm

Thank you boki...

[Boki (Berg)]

Hi,

Exe don't work property. Maybe I have add some fix in meanwhile.

Please contact me via e-mail to I send you an update.

PS. This is a new version of IPS Forum I think that is nice.

Best regards

[azrael11]

Hi,

Exe don't work property. Maybe I have add some fix in meanwhile.

Please contact me via e-mail to I send you an update.

PS. This is a new version of IPS Forum I think that is nice.

Best regards

Ok

The contact is done...