Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus / 2003-03

Code completion not liking record in object def

2 messages · 2 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

Mattias Gaertner
to Tony Maro: Private //events: //general stuff: //stuff depending on plot-data: //stuff depending on…
Show quoted text 29 lines
Private //events: //general stuff: //stuff depending on plot-data: //stuff depending on viewangle/offset/size: //stuff for speed/convenience in drawing: fPlotOrigin : TPoint; //depends on FOffset & Favgs fMouseActionData : record fMouseControl : TMouseControl; OldMousePos : TPoint; //set on MouseMove ExecuteAction : Boolean; //set on LMBdown, LMBup DidClear: Boolean; end; fScrollData : record AmScrolling, //True if scrolling is ScrollPaused : Boolean; //needed when Position : LongInt; Speed : Byte; //0 = fastest Incremental : Boolean; end; //view-options: The object I'm trying to convert contains the above code. I've snipped out much of the lines. The compiler does not complain at the records inserted in the object this way, but the editor won't find routines with CTRL-SHIFT-UP / DOWN and such and shows an error on the first line of the fScrollData record stating: "Error: = expected, but : found"

Fixed

Mattias

Reply by email

Tony Maro
Private
      //events:
      //general stuff:
      //stuff depending on plot-data:
      //stuff depending on viewangle/offset/size:
      //stuff for speed/convenience in drawing:
      fPlotOrigin : TPoint; //depends on FOffset & Favgs
      fMouseActionData : record
                       fMouseControl : TMouseControl;
                       OldMousePos : TPoint;    //set on MouseMove
                       ExecuteAction : Boolean; //set on LMBdown, LMBup
                       DidClear: Boolean;
                       end;
      fScrollData : record
                  AmScrolling,            //True if scrolling is
                  ScrollPaused : Boolean; //needed when
                  Position     : LongInt;
                  Speed        : Byte;    //0 = fastest
                  Incremental  : Boolean;
                  end;
      //view-options:

The object I'm trying to convert contains the above code. I've snipped out much of the lines. The compiler does not complain at the records inserted in the object this way, but the editor won't find routines with CTRL-SHIFT-UP / DOWN and such and shows an error on the first line of the fScrollData record stating:

"Error: = expected, but : found"

I haven't yet got the entire unit to build, so it might still fail in the compiler, but I believe the compiler has passed this point already because it's throwing errors in the methods.

Thanks,

Tony Maro http://tony.maro.net/ Check out my software "CheckBook Tracker" A GPL (free) replacement for Microsoft Money!

Reply by email