[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