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
