Xojo Conferences
MBSSep2018MunichDE
XDCMay2019MiamiUSA

ListBox Return auf Cell (Real Studio network user group Deutschland Mailinglist archive)

Back to the thread list
Previous thread: Backupsystem RealDatabase
Next thread: Re: Sprache - Hat sich erledigt!


Re: Re: verschiedene Fonts einzelnen Zellen in Listbox zuweisen   -  
  ListBox Return auf Cell   -   Derek Meister
   Re: ListBox Return auf Cell   -   Fl••• da gangstahacka <fl

ListBox Return auf Cell
Date: 10.08.03 20:45 (Sun, 10 Aug 2003 21:45:06 +0200)
From: Derek Meister
Hi!

Ich steh gerade etwas auf dem Schlauch, fummel hier am Code rum und
komm nicht weiter...

Folgendes Problem:
Der User soll in einer ListBox in einer Cell ein CR (Return) abgeben
-> fang ich via "CellKeyDown" ab (s.Code). Wenn der return kommt,
soll nur automatisch eine neue Row unterhalb der bearbeiteten Row
entstehen und der Cursor genau in die neue Cell gesetzt werden , so
dass man nahtlos weiterschreiben kann...
Also man macht einen CR in einer Cell und schwupp kann in der
darunterliegenden Cell, die eingefügt wird, weiter getippt werden...

Nun bekomme ich mit dem code (s. unten) zwar eine neue ROW und einen
Focus-Ring um meine neue Cell, aber keinen Cursor (Einfügemarke) und
ich kann auch nix eingeben.
Weiss jemand Rat? Wäre sehr dankbar!
Was muss ich noch aktivieren, dass man in der neuen Cell weiterschreiben kann?

Im CellKeyDown-Event der ListBox steht u.a.:
if asc(key) = KEY_CR then // ein Return - geht!
if column = hiddenSpalten + SpalteSzenenTexte then //geht ...
if row < me.ListCount-1 then
me.insertRow row+1, ""
else
me.addrow ""
end if
me.cellType(row+1,hiddenSpalten + SpalteSzenenTexte) = 3
renumSzenen()
me.editCell(row+1,hiddenSpalten + SpalteSzenenTexte)
// setzt nur den Focus etc... aber NICHT READY für Input!
end if
end if // Return

Gruss, Derek

PS: Hab OS 9.x... sonst läuft alles...

- - - - - - - - - -
For list commands, send "Help" in the body of a message to
<<email address removed>>

Re: ListBox Return auf Cell
Date: 11.08.03 00:09 (Mon, 11 Aug 2003 01:09:08 +0200)
From: Fl••• da gangstahacka <fl
Hi,
du kannst auf die gerade aktive Zelle wie auf ein EditField zugreifen.
Also
Listbox.ActiveCell.SelStart=0
Listbox.ActiveCell.SelLength=0

somit sollts funzen.
(Nach dem
> me.editCell(row+1,hiddenSpalten + SpalteSzenenTexte)
> // setzt nur den Focus etc... aber NICHT READY für Input!
in deinen Code einsetzen.)

Regards, flooo

- - - - - - - - - -
For list commands, send "Help" in the body of a message to
<<email address removed>>