Borland Delphi  Version 12.0  Copyright (c) 1983,98 Inprise Corporation

[color=#CC3300]C:\Program Files (x86)\HiASM\Elements\delphi\code\hi2DPerspective.pas(27) Error: Types of actual and formal var parameters must be identical

C:\Program Files (x86)\HiASM\Elements\delphi\code\hi2DPerspective.pas(28) Error: Types of actual and formal var parameters must be identical

C:\Program Files (x86)\HiASM\Elements\delphi\code\hiMainForm_35D4000.pas(8) Fatal: Could not compile used unit 'hi2DPerspective.pas'[/color]

unit hi2DPerspective;

interface

uses Windows,kol,Share,Debug,OpenGL;

type
  THI2DPerspective = class(TDebug)
   private
   public
    _event_onPerspective2D:THI_Event;
	_prop_Width:real;
    _prop_Height:real;
	_data_Width:THI_Event;
    _data_Height:THI_Event;

    procedure _work_doPerspective2D(var Data:TData; index:word);
  end;

implementation

procedure THI2DPerspective._work_doPerspective2D(var Data:TData; index:word);
var 
   wi,he:integer;

begin
     wi := readdata(_data_Width);//WHY ERROR?
	 he := readdata(_data_Height);//WHY????????????????????????????????????
	 glMatrixMode(GL_PROJECTION);
     glLoadIdentity;
     glOrtho ( 0, wi, he, 0, -1, 1);//set perspective
     glMatrixMode(GL_MODELVIEW);
	 _hi_OnEvent(_event_onPerspective2D);
end;

end.

procedure THI2DPerspective._work_doPerspective2D(var _Data:TData; index:word);
var 
   wi,he: real;

begin
     wi := readreal(_data,_data_Width,_prop_Width);
     he := readreal(_data,_data_Height,_prop_Width);
     glMatrixMode(GL_PROJECTION);
     glLoadIdentity;
     glOrtho ( 0, wi, he, 0, -1, 1);//set perspective
     glMatrixMode(GL_MODELVIEW);
	 _hi_OnEvent(_event_onPerspective2D);
end;

C:\Program Files (x86)\HiASM\Elements\delphi\code\hiMainForm_3584140.pas(29) Error: 'END' expected but number found

C:\Program Files (x86)\HiASM\Elements\delphi\code\hiMainForm_3584140.pas(193) Error: Missing operator or semicolon

C:\Program Files (x86)\HiASM\Elements\delphi\code\hiMainForm_3584140.pas(214) Error: Missing operator or semicolon

C:\Program Files (x86)\HiASM\Elements\delphi\code\hiConsole_2483518.pas(15) Error: 'END' expected but number found

C:\Program Files (x86)\HiASM\Elements\delphi\code\hiConsole_2483518.pas(37) Error: Missing operator or semicolon

C:\Program Files (x86)\HiASM\Elements\delphi\code\hiConsole_2483518.pas(44) Error: Missing operator or semicolon