Hi all,
I am trying to compile a really old version of Delphi into Lazarus.
The script I am using is as follows:
unit Drawtool;
{$IFDEF FPC}
{$MODE Delphi}
{$ENDIF}
interface
uses
{$IFnDEF FPC}
Windows,
{$ELSE}
LCLIntf, LCLType, LMessages,
{$ENDIF}
Classes, ExtCtrls, Messages, Graphics, Controls,
DrawObject, Forms, ShapeSelect, Viewers,
Menus, Locations, extdlgs, dialogs;
type
TSelectMode = (smNone, smNetSelect, smMove, smSize);
TDrawTool = class;
TCursorMoveEvent = procedure (Sender: TObject; const L: TLocation) of object;
TDrawingEditor = class(TCustomSimpelDrawing)
private
FTool: TDrawTool;
FCursorLocation: TLocation;
FOnCursorMove: TCursorMoveEvent;
procedure SetTool(Value: TDrawTool);
protected
procedure ShapesChanged; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure MouseMove(Shift: TShiftState; X, Y: Integer); override;
procedure MouseUp(Button: TMouseButton; Shift: TShiftState; X, Y: Integer); override;
procedure KeyDown(var Key: Word; Shift: TShiftState); override;
property Tool: TDrawTool read FTool write SetTool;
property OnMouseMove;
property CursorLocation: TLocation read FCursorLocation write FCursorLocation;
property OnCursorMove: TCursorMoveEvent read FOnCursorMove write FOnCursorMove;
end;
The error message I get is as follows:
Drawtool.pas(26,26) Error: Identifier not found "TCustomSimpelDrawing"
Drawtool.pas(26,46) Error: class type expected, but got "<erroneous type>"
Drawtool.pas(42,25) Error: No property found to override
Drawtool.pas(42,25) Fatal: Syntax error, "READ" expected but ";" found
How can I approach this problem?
I tried to see how other classes are used in other scripts but making changes didn't resolved my issue yet.
Thanks in advance for helping me!