[Lazarus] Rx e ACS - Installing

Алексей Лагунов alexs75 at yandex.ru
Wed May 21 19:49:21 CEST 2008


> 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.






More information about the Lazarus mailing list