2013/7/13 waldo kitty <wkitt...@windstream.net>
> On 7/13/2013 17:03, silvioprog wrote:
>
>> 2013/7/13 silvioprog <silviop...@gmail.com <mailto:silviop...@gmail.com>>
>>
>> C:\Users\Silvio\Desktop\xpm>**project1.exe
>> An unhandled exception occurred at $00412008:
>> EAccessViolation: Access violation
>> $00412008
>> $00411D6F
>> $00410B81
>> $0040F9B1
>> $004015D5 main, line 15 of project1.lpr
>>
>> In attached, I'm sending a small project and my XPM image to test it.
>>
>> Thank you!
>>
>>
>> IMG, it works now, I discovered:
>>
>> i.UsePalette := True;
>>
>> Thank you anyway! :)
>>
>
> shouldn't that AV still be handled properly? in the library or??
>
> --
> NOTE: No off-list assistance is given without prior approval.
> Please keep mailing list traffic on the list unless
> private contact is specifically requested and granted.
I saw it:
procedure TFPCustomImage.SetUsePalette(Value:boolean);
begin
if Value <> assigned(FPalette)
then
if Value
then
begin
FPalette := TFPPalette.Create (0);
// FPalette.Add (colTransparent);
end
else
begin
FPalette.Free;
FPalette := nil;
end;
end;
--
Silvio Clécio
My public projects - github.com/silvioprog
_______________________________________________
fpc-pascal maillist - fpc-pascal@lists.freepascal.org
http://lists.freepascal.org/mailman/listinfo/fpc-pascal
