DevJet Software

Hi,

I am getting some strange behaviour when I try to use your tool in XE2. I click on method and try to enter some text but it is putting it in the wrong place in the unit and not working properly. Here is an example below. Perhaps you have some suggestion as to how I can get it to work properly.

Thanks

Steve Sinclair
———————————————————————
TicsBI400 = class(TWSocket)
private
{ Private declarations }
protected
{ Protected declarations }
public
{ Public declarations }
procedure AFL(Lines: TStrings);
procedure AFM(LineNo: Integer; Size: TBI400TextSize; Text: string);
procedure AIB(ButtonTexts: TStrings);
procedure AMP(DisplayWeight: Boolean);
procedure AVI;
procedure CHM(IndependantMode: Boolean);
procedure FIL(Filters: TBI400Filters);
procedure IMP(Lines: TStrings); // use strings object property for size
procedure LCE;
procedure LCS;
procedure OUTputs(OutPutStates: TOutPutStates); overload;
procedure OUTputs(OUTputs: string); overload;
procedure PAR(Settings: Tbi400Parameters);
procedure PDC; overload;
procedure PDC(AChannel: string); overload;
procedure PDD; overload;
procedure PDD(AChannel: string); overload;
procedure PHO;
procedure RAD;
procedure RPD;
procedure RZE;
procedure RZI; overload;
procedure RZI(AChannel: string); overload;
procedure RZP(ClearChoices: Boolean; ClearInputZone: Boolean; ClearButtons: Boolean; ClearLines: string);
procedure SCC(Prompt: string; InputMaxLen: Integer);
procedure SVN(Prompt: string; NoDigits, NoDecimalPlaces: Integer);
procedure TAI; overload;
procedure TAI(AChannel: string); overload;
procedure TIC(Output: Integer; Duration: Integer);
procedure VER;
procedure WDG;
published
{ Published declarations }
end;

procedure Register;

implementation

procedure Register;
begin
RegisterComponents(‘PMI’, [TicsBI400]);
end;

///
/// Used to
///

///
/// Used to di
///

///
/// Used to display a list of choices
///

///
///
/// Used to display a list of choices
///
///
procedure TicsBI400.AFL(Lines: TStrings);
begin

end;