<div dir="ltr">2013/7/13 waldo kitty <span dir="ltr"><<a href="mailto:wkitty42@windstream.net" target="_blank">wkitty42@windstream.net</a>></span><br><div class="gmail_extra"><div class="gmail_quote"><blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">

On 7/13/2013 17:03, silvioprog wrote:<br>
<blockquote class="gmail_quote" style="margin:0px 0px 0px 0.8ex;border-left-width:1px;border-left-color:rgb(204,204,204);border-left-style:solid;padding-left:1ex">
2013/7/13 silvioprog <<a href="mailto:silvioprog@gmail.com" target="_blank">silvioprog@gmail.com</a> <mailto:<a href="mailto:silvioprog@gmail.com" target="_blank">silvioprog@gmail.com</a>>><div class="im"><br>


    C:\Users\Silvio\Desktop\xpm><u></u>project1.exe<br>
    An unhandled exception occurred at $00412008:<br>
    EAccessViolation: Access violation<br>
       $00412008<br>
       $00411D6F<br>
       $00410B81<br>
       $0040F9B1<br>
       $004015D5  main,  line 15 of project1.lpr<br>
<br>
    In attached, I'm sending a small project and my XPM image to test it.<br>
<br>
    Thank you!<br>
<br>
<br>
IMG, it works now, I discovered:<br>
<br>
i.UsePalette := True;<br>
<br>
Thank you anyway! :)<br>
</div></blockquote>
<br>
shouldn't that AV still be handled properly? in the library or??<span class=""><font color="#888888"><br>
<br>
-- <br>
NOTE: No off-list assistance is given without prior approval.<br>
      Please keep mailing list traffic on the list unless<br>
      private contact is specifically requested and granted.</font></span></blockquote></div><div class="gmail_extra"><br></div>I saw it:</div><div class="gmail_extra"><br></div><div class="gmail_extra"><div class="gmail_extra">

procedure TFPCustomImage.SetUsePalette(Value:boolean);</div><div class="gmail_extra">begin</div><div class="gmail_extra">  if Value <> assigned(FPalette)</div><div class="gmail_extra">  then</div><div class="gmail_extra">

    if Value</div><div class="gmail_extra">    then</div><div class="gmail_extra">      begin</div><div class="gmail_extra">        FPalette := TFPPalette.Create (0);</div><div class="gmail_extra">        // FPalette.Add (colTransparent);</div>

<div class="gmail_extra">      end</div><div class="gmail_extra">    else</div><div class="gmail_extra">      begin</div><div class="gmail_extra">        FPalette.Free;</div><div class="gmail_extra">        FPalette := nil;</div>

<div class="gmail_extra">      end;</div><div class="gmail_extra">end;</div><div><br></div>-- <br>Silvio Clécio<br>My public projects - <a href="http://github.com/silvioprog" target="_blank">github.com/silvioprog</a>
</div></div>