XProfan

English

certainly see I time again whom woods not sheer trees
means there's a GridBOX, in which a List of data standing. with Click on a row becomes the zugehörende entry viewed. Klappt perfect.
If I but on a (yet) disengaged Space in the GridBOX click, I get a Error Message and the program exits itself. How can I whom Click into clear space snatch ?
I have:
anzahl&=GETCOUNT(inhalt&)
nr&=GETCURSEL(inhalt&)
cover$=GETSTRING$(inhalt&,nr&)

07/01/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

it would yet interestingly To know, which manner The Error Message is.
exits it itself then immediate, or first, if you what ausweten want. You could checken, whether GetCurSel() > -1 is. I suspect, this is the trouble.

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

07/01/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

here's The Error Message (The variables are something differently)

error01.jpg	36 kB

Hochgeladen:	07/01/08

Downloadcounter:
		Download

07/01/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

Check time before on GetCurSel > -1

Windows XP SP2 XProfan X4
... und hier mal was ganz anderes als Profan ...

07/01/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Compile Mark Separation

IF Getfocus(mn_inhalt&)  mn_inhalt& ist die Gridbox

    CHDIR pfad$
    nr%=GETCURSEL(mn_Inhalt&)
    titel$=GETSTRING$(mn_inhalt&,nr%)
    DATEN_ANZEIGEN titel$ hier werden die Daten gezeigt...
    SETFOCUS(mn_Inhalt&)

/a>

this is The request - How should I there checken ???

07/01/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jac
de
Lad

Compile Mark Separation IF Getfocus(mn_inhalt&)mn_inhalt& ist die Gridbox CHDIR pfad$ nr%=GETCURSEL(mn_Inhalt&) if n%>-1 titel$=GETSTRING$(mn_inhalt&,nr%) DATEN_ANZEIGEN titel$hier werden die Daten gezeigt... SETFOCUS(mn_Inhalt&) endif
Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE) Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP	07/01/08 ▲ Vollständiges Quote Absatzweise Quote Zeilenweise Quote

Have still known ...see whom woods not sheer trees ! - the lying certainly on the disease, The with A starting (How hieß The still again ? ) -
thanks Jac - it works

07/01/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

likewise a angry entrapment I The myself already tappte - Roland having the a XProfanversion to others changed the getString$ a Error Message outputs if the 2. Parameter small zero is.

Nimm:
Compile Mark Separation

proc lb.myGetCurSelString

    parameters hLB&
    var curSel&=getCurSel(hLB&)
    case curSel&<0 : return
    return getString$(hLB&,curSel&)

end

07/01/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Dieter
Zornow

the getcursel -1 is a angry entrapment in XProfan, I had the to längerer Time already bemängelt. i think, when calling of Getstring() ought to profanintern screen go whether the worth -1 and then no appeal come off. though I it knows forget I the oftmals and the program smears from, a very unschöne thing in Profan. I have straight even because of the inquire one recent erstelltes Program tested and I naturally forget erts on -1 abzufragen.

Er ist ein Mann wie ein Baum. Sie nennen ihn Bonsai., Win 7 32 bit und Win 7 64 bit, mit XProfan X2

07/01/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

well the building me still again on, if I read, that too Experten in these entrapment getappt are. i'll it certainly not any more forget.

07/01/08 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Jörg
Sellmeyer

the might by then help: Compile Mark Separation Proc MyGetString Parameters lb& Select GetCurSel(lb&) CaseOf -1 Return OtherWise Return GetString(lb&)
Windows XP SP2 XProfan X4 ... und hier mal was ganz anderes als Profan ...	07/01/08 ▲ Vollständiges Quote Absatzweise Quote Zeilenweise Quote