XProfan

English

yet present:
Syntaxfarben go at erneutem Start the Editors not restored. Korrekte Speicherung results of course (Have in the Registry nachgeschaut), but at Start writes it any Defaultwerte back

Habs then again whom Source changed to that testing:

Compile Mark Separation

!Set("ErrorLevel",0)
Cls
Print Val(ReadIni$("HKEY_1","SoftwareRGHXProfanXProfed","cNormal"))
Print %Error
WaitKey

yields always 1 !!!
WinXP per SP2

Syntaxfehler in LetzteDateien.inc
row 117 sounds:

Compile Mark Separation

!Case FileExists(Mid$(File$,2,Len(File$)-2) : .AddFileName(File$))

correctly would:

Compile Mark Separation

!Case FileExists(Mid$(File$,2,Len(File$)-2)) : .AddFileName(File$)

probably new:
with clear unchanged tab(s) becomes at terminate nachgefragt, whether Save.

Schriftdialog gives Error Message
Syntaxfehler in XProfEd.prf
row 2265 sounds:

Compile Mark Separation

!WhileLoop 0%, MaxTab%  <-- percent behind 0 wrong

LetzteDateien observes itself only Files, The over File Open opened get. Per Commandozeile übergebene go ignoring.

Strg-X cut from and wants then Save

I hope the relieved The Fehlerfindung a little bit

09/29/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
Dell

for the Farbeinstellungen must %Error reset go!

not so:
Compile Mark Separation

!Set("ErrorLevel",0)  Warnungen beim ersten Programmstart ausblenden
XSciProf.cNormal&    = Val(ReadIni$(RegKlasse$,RegPfad$,"cNormal"))

If %Error = 1         Warnung (-> Schlüssel in Registry nicht gefunden: noch keine individuelle Farbeinstellung)/pre>

separate so:
Compile Mark Separation

!Set("ErrorLevel",0)  Warnungen beim ersten Programmstart ausblenden

If %Error: EndIf    <-- Das einfügen !!!

    XSciProf.cNormal&    = Val(ReadIni$(RegKlasse$,RegPfad$,"cNormal"))

    If %Error = 1         Warnung (-> Schlüssel in Registry nicht gefunden: noch keine individuelle Farbeinstellung)<

then functions it!

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

09/29/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

[quote:29b0c63fbf=Michael Dell]for the Farbeinstellungen must %Error reset go![/quote:29b0c63fbf]
the behebt of course The bearing, but not The cause. usually ought to Error% To this Time on 0 stand. by me works it with the Syntaxfarben on all Testrechnern free from problems. one ought to investigating, on which place %Error on 1 staid watts.

on the other hand is it on this place meaningfully %Error through Reading zurückzusetzen. The row Int(%Error) (without Zuweisung) had But too done.

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

09/29/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
Dell

have right, time sehn Perhaps discover we Yes whom Error yet.

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

09/29/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

[quote:33295d581d=TS-Soft]Syntaxfehler in LetzteDateien.inc[/quote:33295d581d]
is by me already korrigiert. I have yesterday night missing, The actually Version in that pkg To pack.

[quote:33295d581d]Schriftdialog gives Error Message
Syntaxfehler in XProfEd.prf row 2265 ....[/quote:33295d581d]
The Error is correctly. recognized, though supplying by me weder Interpreter yet Compiler a Error and werten this expression as 0. becomes naturally korrigiert!

[quote:33295d581d]I hope the relieved The Fehlerfindung a little bit [/quote:33295d581d]
Yes, naturally! VIELEN DANK!

(Perhaps ought to so did i whom Source To XProfan release, if then to the Fehlermeldungen always same The Fehlerursachen and Improvements included go. ;) then were itself for new versions numerous days and Nights mühsamer Fehlersuche conserve. )

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

09/29/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
Dell

I whom Error something eingekreist: (LetzteDateien.inc)
Compile Mark Separation

!Proc LetzteDateien.LoadList
Declare ErrLevel%, Dateien$, Datei$, Nr%
ErrLevel% = Set("ErrorLevel", 0)
MessageBox(Str$(%Error),"Bugster01",48)
Dateien$ = ReadIni$(.RegKey$, .RegPath$, "LetzteDateien")   <-- Hier scheint mir der Fehler zu sein
MessageBox(Str$(%Error),"Bugster02",48)

If Dateien$ > ""

    Nr% = 1
    Datei$ = SubStr$(Dateien$, Nr%, ";")

    While Datei$ > ""

        If Left$(Datei$,1) = "["

            Case FileExists(Mid$(Datei$,2,Len(Datei$)-2)) : .AddFileName(Datei$)

        Else

            Case FileExists(Datei$) : .AddFileName(Datei$)

        EndIf

        Inc Nr%
        Datei$ = SubStr$(Dateien$, Nr%, ";")

    EndWhile

EndIf

Set("ErrorLevel", ErrLevel%)

ENDPROC

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

09/29/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
Dell

OK, here isser!

not:
Compile Mark Separation

Dateien$ = ReadIni$(.RegKey$, .RegPath$, "LetzteDateien")

separate:
Compile Mark Separation

Dateien$ = ReadIni$(.RegKey$, .RegPath$, "Dateien")

Aah, now runs!

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

09/29/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
Wodrich

How beautiful, that on it gewerkelt becomes. wished straight lospoltern.

an question Have I nevertheless moreover. at that Reading from the Registry with Cut & paste in editor is me noticed, the The last Files are missing.

OK, I Have 8 Files with very long way drin, but the comes by me sooner often to. can XProfan the still correctly read or is it already so zerdergelt hineingespeichert been into Registry.
(then becomes the korrekte Show never klappen).

here The values:
D

rofan$profanRGHxprofedXProfEd.prf;
D

rofan$profanRGHxprofedXPrfEditClass.prf;
D

rofan$profanRGHxprofedXPrfEdit.ph;
D

rofan$profanRGHxprofedRGHToolbar.inc;
D

rofan$profanRGHxprofedest_Registry3.prf;
c:profansourceswodh2view.p

...and How said - I have straight eight Files open.

Best wishes
Michael Wodrich

Programmieren, das spannendste Detektivspiel der Welt.

09/29/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
Dell

Uuups, some the opened Files go under Files and others then suddenly under latest Files abgespeichert. Perhaps is the the trouble!

Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht!

09/29/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

RGH

Vielen Thanks. I faith, this is it: as long as yet no lastly loaded Files existieren, yields The Registry-request a warning. then is means everything OK. I had The following row only rather folgendermaßen write should:
Compile Mark Separation

!If (Dateien$ > "") or ($Error > 0)

then would The request tidy and functions at Reading of/ one Ini-File or Registry likewise.

(not umsonst is the reading and write of Registry and Ini in XProfan with the same command possible. The Umstellung on Use of/ one INI-File can itself with of/ one Änderung the variables, The on .RegKey$ and .RegPath$ transfer go, quick Change. meanwhile incline I namely moreover, for XPRofed einew INI in the Programmverzeichnis To take. XProfed 1.0 becomes at least not any more The Profed32.ini using. but moreover must I first Compiler and Interpreter adjust, The presently yet The Profed32.ini read must, around the Includepfad to find.)

Greeting
Roland

Intel Duo E8400 3,0 GHz / 4 GB RAM / 1000 GB HDD - ATI Radeon HD 4770 512 MB - Windows 7 Home Premium 32Bit - XProfan X4

09/29/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
Wodrich

RegEdit says, there's only Files.

Programmieren, das spannendste Detektivspiel der Welt.

09/29/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Michael
Wodrich

New(LetzteDateien)

...and where stick the Dispose ???