> initialization
>
> {.$I tooledit.lrs} before
>
> {$I tooledit.lrs} after (Ok)
>
> end.
>
What exactly did you correct in a file? Here my original text of a file:
tooledit.pas:
procedure TCustomRxDateEdit.UpdateMask;
var
DateValue: TDateTime;
OldFormat: string[10];
begin
DateValue := GetDate;
OldFormat := FDateFormat;
UpdateFormat;
{ if (GetDateMask <> EditMask) or (OldFormat <> FDateFormat) then
begin
{ force update }
EditMask := '';
EditMask := GetDateMask;
end;}
UpdatePopup;
SetDate(DateValue);
end;
initialization
{$I tooledit.lrs}
end.
_______________________________________________
Lazarus mailing list
[email protected]
http://www.lazarus.freepascal.org/mailman/listinfo/lazarus
