[Lazarus] can't take the address of constant expressions

[Roberto Padovani]

2010/2/5 Flávio Etrusco <flavio.etrusco at gmail.com>:
>>
>> In this case, I can't understand why the error is gine in plotpanel
>> package for the following line:
>>
>>    FOnXMarksWrite(self,X,xStr,ACanvas.Font,evtHandled);
>>
>> which is inside the implementation of
>>
>>    procedure TPlotPanel.WriteXaxisValues(ACanvas:TCanvas);
>>    var
>>       X : Extended;
>>       XStr : string;
>>       evtHandled : Boolean;
>>    ...
>>
>> isn't it right to read the ACanvas.Font property?
>> In fact, I can't change it to the FFont private variable, because they
>> belong to different classes.
>>
>> Roberto
>>
>
> What's the signature of FOnXMarksWrite method/handler?
>
> -Flávio


private
    FOnXMarksWrite: TWriteAxisEvt;  // X Axis draw event
    FOnYMarksWrite: TWriteAxisEvt;  // Y Axis draw event

which refers to:

TWriteAxisEvt = procedure(Sender: TCustomPanel; Value:extended;var
AxisText:String; var AxisFont:TFont; var EventHandled:boolean) of
object;

bye,

Roberto



>
> --
> _______________________________________________
> Lazarus mailing list
> Lazarus at lists.lazarus.freepascal.org
> http://lists.lazarus.freepascal.org/mailman/listinfo/lazarus
>