And it keep on scanning for ever and ever...

All announcements, questions and issues related to the TsiLang Components Suite.
Post Reply
tommybrc
Posts: 1
Joined: Thu Jul 07, 2005 2:11 pm
Location: Argentina
Contact:

And it keep on scanning for ever and ever...

Post by tommybrc »

Hy. I've been using TsiLang for a while now and ever time and it seams the component gets confused when the source to be translated has no code. For example:

unit PrintPatient;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
MyDialogs, PrintGeneral, QRCtrls, jpeg, QuickRpt, ExtCtrls, DBModule,
siComp;

type
TQRPrintPat = class(TQRPrintGeneral)
QRShape1: TQRShape;
QRIAudio: TQRImage;
QRDBText2: TQRDBText;
QRLBretreuerInfo: TQRLabel;
QRDBTInfo: TQRDBText;
QRLGeneralInfo: TQRLabel;
QRDBText1: TQRDBText;
QRLAge: TQRLabel;
QRLTestPatientTitle: TQRLabel;
QRLTestPatient: TQRLabel;
QRMemo1: TQRMemo;
QRLabel4: TQRLabel;
QRShape3: TQRShape;
CBSimulation: TQRChildBand;
QRLSimulation: TQRLabel;
QRLBasicReac: TQRLabel;
QRDBTBasicReac: TQRDBText;
QRLabel7: TQRLabel;
QRLAlarmPMin: TQRLabel;
QRDBTAlarmPMin: TQRDBText;
QRLToneDecayTitle: TQRLabel;
QRLCentralMaskTitle: TQRLabel;
QRLWeberTitle: TQRLabel;
QRLToneDecay: TQRLabel;
QRLCentralMask: TQRLabel;
QRLWeber: TQRLabel;
QRShape8: TQRShape;
QRIFoto: TQRImage;
QRShape2: TQRShape;
QRShape4: TQRShape;
QRShape5: TQRShape;
QRShape10: TQRShape;
QRShape11: TQRShape;
QRShape12: TQRShape;
QRShape13: TQRShape;
QRShape14: TQRShape;
QRLHoerstoerung: TQRLabel;
QRDBTHoerstoerung: TQRDBText;
QRLHistory: TQRLabel;
QRDBTHistory: TQRDBText;
QRDBTOtoskopie: TQRDBText;
QRLOtoskopie: TQRLabel;
QRLabel2: TQRLabel;
QRShape6: TQRShape;
QRShape9: TQRShape;
QRShape15: TQRShape;
QRLabel5: TQRLabel;
QRShape19: TQRShape;
siLang1: TsiLang;
private
{ Private declarations }
public
{ Public declarations }
end;

var
QRPrintPat: TQRPrintPat;

implementation

{$R *.dfm}

end.

If I try to translate this code with the TsiLang Expert (with File->Source->with form since this is a QReport) I first get the following error:

"Access violation at address 04C9A9C0 in module 'TsiLang_D7.bpl'. Read of address 8671AAEE."

and the after I close this window, the other little window, the one that says "Scanning...", remains open, the cursor is in HourGlass mode, and allthough everithing seams to continue working normaly, I don't feel very conftable with the window "scanning" and the cursor in HourGlass mode. So I have to close Delphi every time I accidentaly try to translate a source that has no source.

NOTE: May be it has something to do with the declaration of the form, since I make it descend from an other QRepport Form, buy I don't think this is the problem, since I have no problems with translating other QRepport Forms that allso descend from this same QRepport Form.[/img]
Tommy
isiticov
Site Admin
Posts: 2383
Joined: Thu Nov 21, 2002 3:17 pm

Post by isiticov »

Thank you for report. We're trying to reproduce and fix this now...
Best regards,
Igor Siticov.
Post Reply