Frozen layers are not visible

[fabzouni]

Hi,

When I use TsgImage to display a dxf file (with TsgDxfImage) the frozen layers are not visible at screen (but its visible property is true) . If I want these layers to be visible, I must force the frozen property of the Layer to False.

Is there another mean to say that all frozen layers are visible?

Thanks

Fabzouni

[support]

Hello,

<blockquote id="quote"><font size="2" face="Verdana, Arial, Helvetica" id="quote">quote:<hr height="1" noshade id="quote">
Is there another mean to say that all frozen layers are visible?<hr height="1" noshade id="quote"></font id="quote"></blockquote id="quote">

No. The following code demonstrates how to set property Frozen to False for every layer in a file:

Code: Select all

<b>uses</b>
  ...,SGImage, DXFImage, DXFConv, sgConsts;
  
<b>type</b>
  TForm1 = <b>class</b>(TForm)
    sgImage1: TsgImage;
    ShowFrosenLayers1: TMenuItem;
    ...
    <b>procedure</b> ShowFrosenLayers1Click(Sender: TObject);
  <b>private</b>
    Img: TsgDXFImage;
    FCADParams: TsgCADIterate;
    ...
  <b>end</b>;

<b>procedure</b> TForm1.ShowFrosenLayers1Click(Sender: TObject);
<b>var</b>
  I: Integer;
  vLayer: TsgDXFLayer;
<b>begin</b>
  sgImage1.Picture.LoadFromFile('C:\Test.dxf');
  Img := TsgDXFImage(sgImage1.Picture.Graphic);
  sgImage1.Picture.Graphic := Img;
  sgImage1.Align := alClient;
  Img.Converter.Params := @FCADParams;
  <b>begin
    for</b> I := 0 <b>to</b> Img.Converter.Sections[csLayers].Count - 1 <b>do
    begin</b>
      vLayer := TsgDXFLayer(Img.Converter.Sections[csLayers].Entities[I]);
      <b>if</b> vLayer.Frozen <b>then
      begin</b>
        vLayer.Frozen := False;
       Img.Converter.Loads(vLayer);
      <b>end</b>;
    <b>end</b>;
  <b>end</b>;
<b>end</b>;

Sergey.

please post questions to the forum or write to support@cadsofttools.com